7

在 T E X 中，如何将字符串拆分为\mana{X1 2W/UB R /G}多个部分并将它们提供给另一个宏（在这种情况下，用类似的东西替换宏调用\m{X}\m{12}\m{W/U}\m{B}\m{R/G}），按照非常简单的规则进行分组，即：a）连续数字组成一个组，b）斜杠创建一组相邻的两个字符，c）要完全去除空格？

我尝试了这个substr包，但它并没有太大帮助，只允许一个人找到某些子字符串。手写循环，例如

\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

当字符串以空格结尾时无法工作，我也没有成功使用\futurelet.

一般来说，如何处理在 T E X 中解析字符串的任务？例如，该texmate软件包允许人们编写类似的东西|1 e4 e5 Nf3 Nc6|并自动绘制相应的国际象棋位置。它是如何做到的？关于循环字符串中的字符和其他类似的 T E X hack ，我能读到什么？

4

3 回答 3

6 
\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
于 2009-07-27T13:21:54.567 回答
3

通常情况下，一个恰当的问题是解决方案的一半。这是我在写完上面的帖子后发现的：

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

“一个不幸的属性\allchars是它丢弃了原始字符串中的所有空格，”它说。哈哈。

于 2009-07-11T20:22:00.487 回答
3

以下是我最终在 TeX/LaTeX 中输入 MTG 法力时所做的：


% 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}}
于 2009-08-25T06:24:01.360 回答