summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ted/ted.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/ted/ted.sty')
-rw-r--r--Master/texmf-dist/tex/latex/ted/ted.sty59
1 files changed, 37 insertions, 22 deletions
diff --git a/Master/texmf-dist/tex/latex/ted/ted.sty b/Master/texmf-dist/tex/latex/ted/ted.sty
index f86a33ddaf0..3ef652ff82c 100644
--- a/Master/texmf-dist/tex/latex/ted/ted.sty
+++ b/Master/texmf-dist/tex/latex/ted/ted.sty
@@ -6,15 +6,16 @@
%%
%% ted.dtx (with options: `package')
%%
-%% ted package by Manuel P\'egouri\'e-Gonnard <mpg@math.jussieu.fr>
+%% ted package by Manuel P\'egouri\'e-Gonnard <mpg@elzevir.fr>
%% This is a generated file. See ted.dtx for license information.
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{ted}
- [2007/12/12 v1.01 \space token list editor \space (mpg)]
+ [2008/03/07 v1.06 \space a token list editor \space (mpg)]
\@ifdefinable\ted@toks{\newtoks\ted@toks}
\@ifdefinable\ted@list{\let\ted@list\toks@}
\@ifdefinable\ted@code{\let\ted@code\count@}
+\@ifdefinable\ted@count{\newcount\ted@count}
\newcommand\ted@encloop{%
\futurelet\@let@token
\ted@encloop@}
@@ -174,7 +175,7 @@
\uccode`{=#2
\or
\uccode`}=#2
- \uppercase{\ted@toks\expandafter{\expandafter{\the\ted@toks}}}
+ \uppercase{\ted@toks\expandafter{\expandafter{\the\ted@toks}}}%
\expandafter\endgroup
\expandafter\ted@add@toks\expandafter{\the\ted@toks}%
\fi}}
@@ -194,20 +195,27 @@
\expandafter##\expandafter1\the\ted@toks##2{%
\ted@add@toks{##1}%
\ifx##2\ted@@end
- \expandafter\@gobble
+ \expandafter\@firstoftwo
\else
- \expandafter\@firstofone
+ \expandafter\@secondoftwo
\fi{%
+ \expandafter\ted@remove@nil\the\ted@toks
+ }{%
+ \global\advance\ted@count\@ne
\ted@add@toks{#1}\ted@subsmac@loop##2}}%
\expandafter\ted@def@subsmac@\expandafter{\the\ted@toks}}
\newcommand\ted@def@subsmac@[1]{%
\def\ted@subsmac{%
+ \global\ted@count\z@
\ted@toks\expandafter{\expandafter}%
- \expandafter\ted@subsmac@loop\the\ted@toks#1\ted@@end}}
+ \expandafter\ted@subsmac@loop\the\ted@toks\ted@@nil#1\ted@@end}}
+\@ifdefinable\ted@remove@nil{%
+ \long\def\ted@remove@nil#1\ted@@nil{%
+ \ted@toks{#1}}}
\newcommand\ted@ShowTokens[1]{%
\begingroup \ted@sanitize
\ted@toks{#1}%
- \ted@typeout{--- Begin token decompositon of:}%
+ \ted@typeout{--- Begin token decomposition of:}%
\ted@typeout{\@spaces \the\ted@toks}%
\ted@encode{#1}%
\expandafter\ted@show@toks\the\ted@toks\ted@@end
@@ -215,12 +223,24 @@
\ted@typeout{--- End token decomposition.}}
\count@\catcode\z@ \catcode\z@ 12
\newcommand\ted@show@toks[1]{%
- \ifx#1\ted@@end \expandafter\@gobble\else\expandafter\@firstofone\fi{%
- \ted@toks{#1}%
- \begingroup
- \escapechar\if\noexpand#1^^00 \@ne \else \z@ \fi
- \expandafter\ted@show@toks@\string#1\@nil
- \ted@show@toks}}
+ \ted@toks{#1}\expandafter
+ \ifx\the\ted@toks\ted@@end \else\expandafter
+ \ifx\the\ted@toks\ted@@active
+ \aftergroup\ted@type@active
+ \expandafter\aftergroup\the\ted@toks
+ \else
+ \if\expandafter\noexpand\the\ted@toks\@sptoken
+ \aftergroup\ted@type@normal
+ \expandafter\aftergroup\the\ted@toks
+ \else
+ \begingroup
+ \escapechar\if\noexpand#1^^00 \@ne \else \z@ \fi
+ \expandafter\expandafter\expandafter\ted@show@toks@
+ \expandafter\string\the\ted@toks\@nil
+ \fi
+ \fi
+ \expandafter\ted@show@toks
+ \fi}
\catcode\z@\count@
\@ifdefinable\ted@show@toks@{%
\long\def\ted@show@toks@#1#2\@nil{%
@@ -232,14 +252,9 @@
\aftergroup\ted@type@cs
\expandafter\aftergroup\the\ted@toks
\fi
- \else \expandafter
- \ifx\the\ted@toks\ted@@active
- \aftergroup\ted@type@active
- \expandafter\aftergroup\the\ted@toks
- \else
- \aftergroup\ted@type@normal
- \expandafter\aftergroup\the\ted@toks
- \fi
+ \else
+ \aftergroup\ted@type@normal
+ \expandafter\aftergroup\the\ted@toks
\fi}}
\@ifdefinable\ted@show@special{%
\begingroup\escapechar\m@ne \expandafter\endgroup
@@ -256,7 +271,7 @@
\begingroup \uccode`1#2
\uppercase{\endgroup\aftergroup1}}}
\newcommand\ted@type@hash[1]{%
- \ted@typeout{#1 (macro paramater character #1)}}
+ \ted@typeout{#1 (macro parameter character #1)}}
\newcommand\ted@type@blank[1]{%
\ted@typeout{#1 (blank space #1)}}
\newcommand\ted@type@bgroup[1]{%