blob: ccb7284ea687abf80f366f2bc5d8053b067c5565 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
%%
%% This is file `suffix.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% suffix.dtx (with options: `style')
%%
%% IMPORTANT NOTICE:
%%
%% For the copyright see the source file.
%%
%% Any modified versions of this file must be renamed
%% with new filenames distinct from suffix.sty.
%%
%% For distribution of the original source see the terms
%% for copying and modification in the file suffix.dtx.
%%
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%%\iffalse
%% suffix.dtx for defining variant commands.
%% Part of the critical bundle around bigfoot.
%% Copyright (C) 2004 David Kastrup
%%
%% This program is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; either version 2 of the License, or
%% (at your option) any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program; if not, write to the
%% Free Software Foundation, Inc., 59 Temple Place, Suite 330,
%% Boston, MA 02111-1307 USA
%%\fi
\def\next$#1:#2${#2}
{\catcode`\-\active \def-{.}
\xdef\reserved@a{\expandafter\@gobble\next$Name: $\@empty}}
\def\next$#1: #2 #3${#2}
\ifx\reserved@a\@empty \gdef\reserved@a{CVS-\next$Revision: 1.2 $}\fi
\edef\next{\noexpand
\ProvidesPackage{suffix}[\next$Date: 2004/02/19 19:49:21 $
\reserved@a\space]}
\next
\ifcase\ifx\eTeXversion\@undefined \@ne\fi
\ifnum\eTeXversion<\tw@ \@ne\fi\z@
\else
\PackageError{suffix}{This package requires eTeX version 2}%
{You might try to use the `elatex' command.}%
\fi
\def\WithSuffix{\@temptokena{}\let\WSF@global\relax
\WSF@sfx}
\long\def\WSF@sfx#1#2{\WSF@append{#1}\def\reserved@a{#2}%
\afterassignment\WSF@decsuff \WSF@gobblenext}
\def\WSF@append#1{\@temptokena\expandafter{\the\@temptokena#1}}
\def\WSF@gobblenext{\let\reserved@b= }
\long\def\SuffixName#1{WSF:\string#1 \meaning}
\def\NoSuffixName{WSF:\string}
\def\WSF@decsuff{\ifcsname
\expandafter\NoSuffixName\reserved@a\endcsname
\else
\WSF@global\expandafter\let\csname
\expandafter\NoSuffixName\reserved@a
\expandafter\endcsname \reserved@a
\long\def\reserved@c##1{\WSF@global\protected\def
##1{\WSF@suffixcheck##1}}%
\expandafter\reserved@c\reserved@a
\fi
\WSF@global
\the\expandafter\@temptokena\csname
\expandafter \SuffixName
\reserved@a\reserved@b\endcsname}
\def\WSF@suffixcheck#1{\begingroup\def\reserved@a{#1}%
\futurelet\reserved@b\WSF@suffixcheckii}
\def\WSF@suffixcheckii{\ifcsname \expandafter\SuffixName
\reserved@a\reserved@b\endcsname
\expandafter
\WSF@suffixcheckiii
\else
\expandafter
\WSF@suffixcheckiv
\fi}
\def\WSF@suffixcheckiii{%
\afterassignment\endgroup
\expandafter\aftergroup
\csname \expandafter \SuffixName\reserved@a\reserved@b\endcsname
\WSF@gobblenext}
\def\WSF@suffixcheckiv{%
\expandafter\endgroup
\csname \expandafter\NoSuffixName\reserved@a\endcsname}
\WithSuffix\def\WSF@sfx\long{\WSF@append\long\WSF@sfx}
\WithSuffix\def\WSF@sfx\global{\let\WSF@global\global\WSF@sfx}
\WithSuffix\def\WSF@sfx\protected{\WSF@append\protected\WSF@sfx}
\WithSuffix\def\WSF@sfx\expandafter{\expandafter\WSF@sfx\expandafter}
\WithSuffix\edef\WSF@sfx\gdef{\let\WSF@global\global
\expandafter\noexpand\csname\NoSuffixName\WSF@sfx\endcsname\def}
\WithSuffix\edef\WSF@sfx\xdef{\let\WSF@global\global
\expandafter\noexpand\csname\NoSuffixName\WSF@sfx\endcsname\edef}
\endinput
%%
%% End of file `suffix.sty'.
|
