mathml/luamml-patches-array.sty

\ProvidesExplPackage {luamml-patches-array} {2024-08-14} {0.1.0}
  {Feel free to add a description here}

\lua_now:n { require'luamml-array' }

\cs_set:Npn \@classz {
  \@classx
  \@tempcnta \count@
  \prepnext@tok
  \@addtopreamble {
    \ifcase \@chnum
      \hfil
      \hskip 1sp
      \d@llarbegin
      \cs_if_eq:NNTF \d@llarbegin \begingroup {
        \insert@column
        \d@llarend
      } {
        \__luamml_array_init_col:
        \insert@column
        \luamml_save:nn {} {mtd}
        \d@llarend
        \__luamml_array_finalize_col:w 0~
      }
      \do@row@strut
      \hfil
    \or
      \hskip 1sp
      \d@llarbegin
      \cs_if_eq:NNTF \d@llarbegin \begingroup {
        \insert@column
        \d@llarend
      } {
        \__luamml_array_init_col:
        \insert@column
        \luamml_save:nn {} {mtd}
        \d@llarend
        \__luamml_array_finalize_col:w 1~
      }
      \do@row@strut
      \hfil
    \or
      \hfil
      \hskip 1sp
      \d@llarbegin
      \cs_if_eq:NNTF \d@llarbegin \begingroup {
        \insert@column
        \d@llarend
      } {
        \__luamml_array_init_col:
        \insert@column
        \luamml_save:nn {} {mtd}
        \d@llarend
        \__luamml_array_finalize_col:w 2~
      }
      \do@row@strut
    \or
      \setbox \ar@mcellbox \vbox \@startpbox { \@nextchar }
        \insert@pcolumn
      \@endpbox
      \ar@align@mcell
      \do@row@strut
    \or
      \vtop \@startpbox { \@nextchar }
        \insert@pcolumn
      \@endpbox
      \do@row@strut
    \or
      \vbox \@startpbox { \@nextchar }
      \insert@pcolumn
      \@endpbox
      \do@row@strut
    \fi
  }
  \prepnext@tok
}

\IfPackageAtLeastTF {array} {2023/12/11} {
  \cs_set:Npn \endarray {
    \tbl_crcr:n{endarray}
    \__luamml_array_save_array:
    \egroup
    \UseTaggingSocket{tbl/finalize}
    \tbl_restore_outer_cell_data:
    \egroup
    \mode_if_math:T { \__luamml_array_finalize_array: }
    \@arrayright
    \gdef \@preamble {}
  }
} {
  \cs_new_eq:NN \insert@pcolumn \insert@column
  \cs_set:Npn \endarray {
    \crcr
    \__luamml_array_save_array:
    \egroup
    \egroup
    \mode_if_math:T { \__luamml_array_finalize_array: }
    \@arrayright
    \gdef \@preamble {}
  }
}