[cstex] aktualizovane Prvni setkani s TeXem

[Vítek Novotný]

Dobrý den,

je to tak. Pokud to takto někomu připadá srozumitelnější, není
problém si Expl3 funkci \regex_replace_case_all:nN vytáhnout do
makra \regex_replace a pracovat s ní, jak jste popsal:

    \input expl3-generic
    \ExplSyntaxOn
    \let\regex_replace=\regex_replace_case_all:nN
    \ExplSyntaxOff

S pozdravem,
Vítek Novotný

On Mon, Aug 22, 2022 at 03:03:13PM +0200, Petr Olšák wrote:
> 
> On 8/22/22 14:31, Vítek Novotný wrote:
> > Mohu popsat, co dělá první ukázka kódu:
> > 
> > > \tl_new:N
> > >    \l_@@_extent_tl
> 
> ...
> 
> Ukázka toho prvního kódu
> 
>         \tl_new:N
>           \l_@@_extent_tl
>         \cs_new:Nn
>           \@@_normalize_extent:n
>           {
>             \tl_set:Nn
>               \l_@@_extent_tl
>               { #1 }
>             \tl_trim_spaces:N
>               \l_@@_extent_tl
>             \regex_replace_case_all:nN
>               {
>                 { ^ \s* / } {   0 / }
>                 { / \s* / } { / 0 / }
>                 { / \s* $ } { / 0   }
>               }
>               \l_@@_extent_tl
>             \l_@@_extent_tl
>           }
> 
> by se dala vyjádřit TeXovskou terminologií (po odmyšlení některých součástí
> názvu použitých řídicích sekvencí a za předpokladu, že catode podtržítka je
> 11) zhruba takto:
> 
> \newtoks \extent
> \def \normalize_extent #1{%
>    \extent={#1}%
>    \trim_spaces \extent
>    \regex_replace{{^\s*/}{0/} {/\s*/}{/0/0} {/\s*$}{/0}}\extent
>    \the\extent
> }
> 
> Každý může posoudit, co je mu srozumitelnější.
> 
> Zdravím
> 
> Petr Olšák
> 
> 
> 
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> https://lists.felk.cvut.cz/mailman/listinfo/cstex
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 833 bytes
Desc: not available
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20220822/2f328e94/attachment.bin>