Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
1250-csf.tex	8.04 KB	-rw-r--r--
1250-il2.tex	859 B	-rw-r--r--
1250-latex.tex	2.4 KB	-rw-r--r--
1250-t1.tex	7.47 KB	-rw-r--r--
852-csf.tex	6.37 KB	-rw-r--r--
852-il2.tex	2.13 KB	-rw-r--r--
852-latex.tex	2.39 KB	-rw-r--r--
852-t1.tex	5.78 KB	-rw-r--r--
csfmacro.tex	1.91 KB	-rw-r--r--
enc-u.tex	3.86 KB	-rw-r--r--
encmacro.tex	1.3 KB	-rw-r--r--
il2-1250.tex	860 B	-rw-r--r--
il2-852.tex	2.13 KB	-rw-r--r--
il2-csf.tex	7.41 KB	-rw-r--r--
il2-kam.tex	2.14 KB	-rw-r--r--
il2-t1.tex	5.81 KB	-rw-r--r--
kam-csf.tex	3.43 KB	-rw-r--r--
kam-il2.tex	2.14 KB	-rw-r--r--
kam-latex.tex	2.4 KB	-rw-r--r--
kam-t1.tex	3.49 KB	-rw-r--r--
mixcodes.tex	3.77 KB	-rw-r--r--
noprefnt.tex	1004 B	-rw-r--r--
plain-1250-cs.tex	471 B	-rw-r--r--
plain-852-cs.tex	469 B	-rw-r--r--
plain-il2-cs.tex	473 B	-rw-r--r--
plain-kam-cs.tex	473 B	-rw-r--r--
plain-utf8-cs.tex	470 B	-rw-r--r--
plain-utf8-ec.tex	607 B	-rw-r--r--
polyset.tex	3.04 KB	-rw-r--r--
t1macro.tex	1.87 KB	-rw-r--r--
utf8-csf.tex	8.61 KB	-rw-r--r--
utf8-t1.tex	17.57 KB	-rw-r--r--
utf8cseq.tex	2.79 KB	-rw-r--r--
utf8lat1.tex	7.14 KB	-rw-r--r--
utf8lata.tex	7.54 KB	-rw-r--r--
utf8math.tex	1.93 KB	-rw-r--r--
utf8off.tex	766 B	-rw-r--r--
utf8raw.tex	25.95 KB	-rw-r--r--
utf8unkn.tex	3.14 KB	-rw-r--r--
utf8warn.tex	7.26 KB	-rw-r--r--

Code Editor : polyset.tex

% macro polyset
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Petr Olsak                            Sep. 2003

% This macro expands sequences of type "ab{12}c{123}de" to sequences:
% "ab1c1de" "ab1c2de" "ab1c3de" "ab2c1de" "ab2c2de" "ab2c3de".
%
% For more information see end of this file.

\newtoks\leftpart \newtoks\rightpart \newtoks\restpart

\def\applyset#1{\def\cumuseq{}\letleftseq #1{}\sep{}\sep}

\def\letleftseq #1#{\def\tmp{#1}\letrest}
\def\letrest #1#2\sep{\edef\oneset{#1}
   \ifx\oneset\empty
       \ifx\tmp\empty 
          \ifx\cumuseq\empty \let\next=\relax    % finish
          \else \let\next=\resetseq              % next batch of sequences
          \fi
       \else \expandafter \runseq \expandafter
             {\tmp}\let\next=\letleftseq         % next sequence
       \fi
   \else                                         % expand sequence
       \leftpart=\expandafter{\tmp}\rightpart={#2}
       \def\tmp{#2}\ifx\tmp\empty \rightpart={{}}\fi
       \expandseq \let\next=\letleftseq
   \fi \next}
\def\resetseq{\let\tmp=\cumuseq \def\cumuseq{}
   \expandafter \letleftseq \tmp {}\sep}
\def\expandseq {
   \ifx\oneset\empty
   \else \expandafter \letelement \oneset \sep
         \restpart=\expandafter{\cumuseq}
         \edef \cumuseq{\the\restpart
                        \the\leftpart \firstelement \the\rightpart
                        \noexpand\sep }
         \expandafter \expandseq
   \fi}
\def\letelement #1#2\sep{\def\firstelement{#1}\def\oneset{#2}}

\def\runseq #1{\message{#1}}

\endinput

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

If you type, for example, \applyset{ab{12}c{123}de} then TeX runs
\runseq{ab1c1de} \runseq{ab1c2de} \runseq{ab1c3de} 
\runseq{ab2c1de} \runseq{ab2c2de} \runseq{ab2c3de}

Generally: If the argument of \applyset includes "sets" typed by
{...}, then each set is replaced by its elements: successively all
elements from each set is used. The \runseq macro is invoked to all
resulting sequences.

The body of each set {...} is expanded before getting the elements.
On the other hand, the text surrounded of the sets is not expanded
during \applyset is working.

An example of an application of this macro follows.
It gives the possibility of more powerfull \mubyte ... \endmubyte 
declarations for encTeX:

------------------------------------------------------------------------

\input polyset

\def\setmubyte #1#2{\def\runseq##1{\mubyte #1 ##1\endmubyte}\applyset{#2}}

\def\ndigits {123456789}
\def\digits  {0\ndigits}

\setmubyte {\dat ##0} {{\ndigits}.{\ndigits}.}    %% needs encTeX v. Feb. 2003
\setmubyte {\dat ##0} {{12}{\digits}.{\ndigits}.}
\setmubyte {\dat ##0} {3{01}.{\ndigits}.}
\setmubyte {\dat ##0} {{\ndigits}.1{012}.}
\setmubyte {\dat ##0} {{12}{\digits}.1{012}.}
\setmubyte {\dat ##0} {3{01}.1{012}.}             %% total: 372 \mubyte
                                                  %% declarations
\def\dat #1.#2.{#1.\kern.15em #2.}

\mubytein=1

This example inserts the little space in (czech) date format automaticaly.
Example 24.12. -> 24.\kern.15em 12. (means December 24).

\end

${this.title}

Code Editor : polyset.tex