TeX: phân tích cú pháp chuỗi và khoảng trống trong khoảng trắng

Question

Trong T _{E, làm cách nào để tách chuỗi như \mana{X1 2W/UB R /G} thành các phần và đưa chúng sang macro khác (trong trường hợp này) \m{X}\m{12}\m{W/U}\m{B}\m{R/G}), nhóm theo quy tắc rất đơn giản, cụ thể là: a) các chữ số liên tiếp tạo thành một nhóm, b) dấu gạch chéo tạo một nhóm gồm hai ký tự lân cận, c) dấu cách sẽ bị tước hoàn toàn?}

Tôi đã thử gói substr nhưng không quá hữu ích, chỉ cho phép một người tìm thấy một số chất nền nhất định. Các vòng viết tay như

\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 

không hoạt động khi chuỗi kết thúc trong khoảng trắng, tôi cũng không thành công với \futurelet.

Nói chung, cách tiếp cận tác vụ phân tích chuỗi trong T _E X là gì? Ví dụ: gói texmate cho phép một người viết những thứ như |1 e4 e5 Nf3 Nc6| và tự động rút các vị trí cờ tướng tương ứng. Nó làm như thế nào? Tôi có thể đọc gì về việc lặp qua các ký tự trong một chuỗi và các số khác TE X như thế này?

Answer 1

Dưới đây là những gì tôi cuối cùng đã làm để nhập MTG mana trong 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

Như thường lệ, một câu hỏi đặt ra là một nửa giải pháp. Dưới đây là những gì tôi tìm thấy sau khi viết bài trên:

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

“Một tài sản bất hạnh của \allchars là nó loại bỏ tất cả các không gian trong chuỗi ban đầu,” nó nói. Ha ha.

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