TeX: cadena de análisis y eliminación de espacio en blanco

Question

En _E X, ¿cómo es posible dividir una cadena como \mana{X1 2W/UB R /G} en partes y alimentarlas a otra macro (en este caso, para reemplazar la macro invocación por algo así como \m{X}\m{12}\m{W/U}\m{B}\m{R/G}), agrupando por reglas muy simples, a saber: a) los dígitos consecutivos forman un grupo, b) una barra inclinada crea un grupo de dos caracteres cercanos, c) los espacios deben ser eliminados por completo?

Probé el paquete substr pero no fue demasiado útil, solo permitía encontrar ciertas subcadenas. bucles escritos a mano como

\def\lcpass#1.{} 
\def\lcloop#1#2.{% 
    \ifempty{#2}% 
     #1% 
     \let\continue=\lcpass% 
    \else% 
     \let\continue=\lcloop% 
    \fi% 
    \continue#2.} 

\def\lastchar#1{\lcloop#1.} % returns the last character of a string 

no funcionan cuando la cadena termina en el espacio en blanco, ni soy exitoso con \futurelet.

En general, ¿cómo se aborda la tarea de analizar cadenas en T _E X? Por ejemplo, el paquete texmate le permite a uno escribir cosas como |1 e4 e5 Nf3 Nc6| y dibuja automáticamente las posiciones de ajedrez correspondientes. ¿Cómo lo hace? ¿Qué puedo leer sobre el bucle de caracteres en una cadena y otros T _E X hacks como este?

Answer 1

Esto es lo que finalmente hice para entrar MTG maná en TeX/LaTeX:

% http://www.tug.org/TUGboat/Articles/tb28-1/tb88glister.pdf 

\newif\if@mtg@digit 

\def\@mtg@testdigit#1{% lame, I know, but nothing else worked 
    \@mtg@digitfalse% 
    \def\@mtg@tmp{0}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{1}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{2}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{3}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{4}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{5}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{6}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{7}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{8}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    \def\@mtg@tmp{9}\ifx\@mtg@tmp#1\@mtg@digittrue\fi% 
    } 


\catcode`\^^G=12 

\newcommand*{\@mtg@loop}[2]{% 
    \let\@mtg@callback=#1% 
    \def\@mtg@string{#2}% 
    \ifx\@mtg@string\@empty% 
    \else% 
     \@@mtg@loop#2^^G% 
    \fi% 
} 

\def\@@mtg@loop#1#2^^G{% 
    \def\@mtg@car{#1}% 
    \def\@mtg@cdr{#2}% 
    \ifx\@mtg@car\@empty% 
     \let\@mtg@next=\@gobble% 
    \else% 
     \@mtg@callback{#1}% 
     \ifx\@mtg@cdr\@empty% 
      \let\@mtg@next=\@gobble% 
     \else% 
      \let\@mtg@next=\@@mtg@loop% 
     \fi% 
    \fi% 
    \@mtg@next#2^^G% 
} 

\catcode`\^^G=15 

% these are meant to be redefined 
\def\mtg@mana#1{(\MakeUppercase{#1})} 
\def\mtg@mana@colored#1{\mtg@mana{#1}} 
\def\mtg@mana@colorless#1#2{\mtg@mana{#1#2}} 
\def\mtg@mana@hybrid#1#2{\mtg@mana{#1/#2}} 

\gdef\@mtg@terminator{.} 
\gdef\@mtg@slash{/} 
\let\@mtg@a=\@mtg@terminator 
\let\@mtg@b=\@mtg@terminator 

\def\@mtg@doChar#1{% 
    \gdef\@mtg@c{#1}% 
    \ifx\@mtg@a\@mtg@terminator% 
    \else% 
     \ifx\@mtg@b\@mtg@slash% 
      \mtg@mana@hybrid{\@mtg@a}{\@mtg@c}% 
      \let\@mtg@b=\@mtg@terminator% 
      \let\@mtg@c=\@mtg@terminator% 
     \else% 
      \@mtg@testdigit\@mtg@a\if@mtg@digit% 
       \@mtg@testdigit\@mtg@b\if@mtg@digit% 
        \ifx\@mtg@c\@mtg@slash% 
         \mtg@mana@colorless{}{\@mtg@a}% 
        \else% 
         \mtg@mana@colorless{\@mtg@a}{\@mtg@b}% 
         \let\@mtg@b=\@mtg@terminator% 
        \fi% 
       \else% 
        \mtg@mana@colorless{}{\@mtg@a}% 
       \fi% 
      \else% 
       \mtg@mana@colored{\@mtg@a}% 
      \fi% 
     \fi% 
    \fi% 
    \let\@mtg@a=\@mtg@b% 
    \let\@mtg@b=\@mtg@c% 
} 

\newcommand{\mana}[1]{% 
\let\@mtg@a=\@mtg@terminator% 
\let\@mtg@b=\@mtg@terminator% 
\@mtg@loop{\@mtg@doChar}{#1\@mtg@terminator\@mtg@terminator}} 

Answer 2

Como suele ser el caso, una pregunta bien formulada es la mitad de la solución. Esto es lo que encontré después de escribir el post anterior:

http://www.tug.org/TUGboat/Articles/tb28-1/tb88glister.pdf

“Una desafortunada propiedad de \allchars es que descarta todos los espacios en la cadena original”, dice. Jaja.

Answer 3

\def\m#1{\par$m$({\tt #1})}% Any macros 
\def\removespaces{\catcode`\ =9 }% Ignore all spaces` 

\let\manaNext\relax % aux def 
\let\manaLastChar\relax % aux def 
\newtoks\manaToks % aux toks 
\newif\ifDigitProcessing 

\def\mana#{\afterassignment \manaA \let\next= }% always next = { 
\def\manaA{\bgroup \removespaces \let\manaNext\manaB \manaNext}% algorithm init: ignore spaces 
\def\manaB{\futurelet\next\manaC}% algorithm start 
\def\manaC{\ifx\next\egroup \def\nnext{\manaFlush\aftergroup\manaNext}\else\let\nnext\manaD\fi\nnext}% check for \egroup 
\def\manaD{\ifx\next/\let\nnext\manaSlash\else \ifcat\next 1\let\nnext\manaDigit \else \let\nnext\manaE \fi\fi \nnext}% cases 
\def\manaE#1{\manaFlush\DigitProcessingfalse\let\manaLastChar\next\manaNext}% Letters A-Z and a-z case 
\def\manaFlush{\ifx\manaLastChar\relax\else\m{\manaLastChar}\fi\let\manaLastChar\relax 
       \ifDigitProcessing\expandafter\m\expandafter{\the\manaToks}\fi\manaToks{}}% transform to \m{...} 
\def\manaSlash#1#2{\m{\manaLastChar/#2}\let\manaLastChar\relax\manaNext}%#1=/, #2=next letter 
\def\manaDigit#1{\ifDigitProcessing\else\manaFlush\fi 
     \manaToks=\expandafter{\the\manaToks#1}\DigitProcessingtrue\manaNext}% 0-9 case 

\hrule\medskip 
\mana{X1 2W/UB R /G} 
\medskip\hrule\medskip 

\mana{X1 2W/UB s/SS 14 1 R /G XZ} 
\medskip\hrule\medskip