zauguin/mathml
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

setup sockets for array patches

Browse Source
This commit is contained in:
Ulrike Fischer 2024-11-29 16:45:29 +01:00
parent 3c70bd11ef
commit 13b820a339
1 changed files with 37 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

131
luamml-patches-array.sty
View File

@ -3,99 +3,42 @@
\lua_now:n { require'luamml-array' } \lua_now:n { require'luamml-array' }
\cs_set:Npn \@classz { \str_if_exist:cF { l__socket_tagsupport/math/luamml/array/save_plug_str }
\@classx {
\@tempcnta \count@ \NewSocket{tagsupport/math/luamml/array/save}{0}
\prepnext@tok \NewSocket{tagsupport/math/luamml/array/finalize}{0}
\@addtopreamble { \NewSocket{tagsupport/math/luamml/array/initcol}{0}
\ifcase \@chnum \NewSocket{tagsupport/math/luamml/array/savecol}{0}
\hfil \NewSocket{tagsupport/math/luamml/array/finalizecol}{1}
\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} { \NewSocketPlug{tagsupport/math/luamml/array/save}{default}
\cs_set:Npn \endarray { {
\tbl_crcr:n{endarray} \__luamml_array_save_array:
\__luamml_array_save_array: }
\egroup
\UseTaggingSocket{tbl/finalize} \NewSocketPlug{tagsupport/math/luamml/array/finalize}{default}
\tbl_restore_outer_cell_data: {
\egroup \mode_if_math:T { \__luamml_array_finalize_array: }
\mode_if_math:T { \__luamml_array_finalize_array: } }
\@arrayright
\gdef \@preamble {} \NewSocketPlug{tagsupport/math/luamml/array/initcol}{default}
} {
} { \__luamml_array_init_col:
\cs_new_eq:NN \insert@pcolumn \insert@column }
\cs_set:Npn \endarray {
\crcr \NewSocketPlug{tagsupport/math/luamml/array/savecol}{default}
\__luamml_array_save_array: {
\egroup \luamml_save:nn {} {mtd}
\egroup }
\mode_if_math:T { \__luamml_array_finalize_array: }
\@arrayright \NewSocketPlug{tagsupport/math/luamml/array/finalizecol}{default}
\gdef \@preamble {} {
} \__luamml_array_finalize_col:w #1~
} }
\AssignSocketPlug{tagsupport/math/luamml/array/save}{default}
\AssignSocketPlug{tagsupport/math/luamml/array/finalize}{default}
\AssignSocketPlug{tagsupport/math/luamml/array/initcol}{default}
\AssignSocketPlug{tagsupport/math/luamml/array/savecol}{default}
\AssignSocketPlug{tagsupport/math/luamml/array/finalizecol}{default}