tex/src/package/suffix.sty

   1 %%
   2 %% This is file `suffix.sty',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% suffix.dtx  (with options: `style')
   8 %%
   9 %% IMPORTANT NOTICE:
  10 %%
  11 %% For the copyright see the source file.
  12 %%
  13 %% Any modified versions of this file must be renamed
  14 %% with new filenames distinct from suffix.sty.
  15 %%
  16 %% For distribution of the original source see the terms
  17 %% for copying and modification in the file suffix.dtx.
  18 %%
  19 %% This generated file may be distributed as long as the
  20 %% original source files, as listed above, are part of the
  21 %% same distribution. (The sources need not necessarily be
  22 %% in the same archive or directory.)
  23 %%
  24 %% perpage is part of the bigfoot bundle for critical typesetting
  25 %% Copyright 2002, 03, 04, 05, 06  David Kastrup <dak@gnu.org>
  26 %%
  27 \def\next$#1: #2 #3${#2}
  28 \edef\next{\noexpand
  29   \ProvidesPackage{suffix}[\next$Date: 2006/07/15 21:24:56 $
  30   \next$Revision: 1.5 $ Variant command support]}
  31 \next
  32 \ifcase\ifx\eTeXversion\@undefined \@ne\fi
  33   \ifnum\eTeXversion<\tw@ \@ne\fi\z@
  34 \else
  35   \PackageError{suffix}{This package requires eTeX version 2}%
  36   {You might try to use the `elatex' command.}%
  37 \fi
  38 \def\WithSuffix{\@temptokena{}\let\WSF@global\relax
  39   \WSF@sfx}
  40 \long\def\WSF@sfx#1#2{\WSF@append{#1}\def\reserved@a{#2}%
  41   \afterassignment\WSF@decsuff \WSF@gobblenext}
  42
  43 \def\WSF@append#1{\@temptokena\expandafter{\the\@temptokena#1}}
  44
  45 \def\WSF@gobblenext{\let\reserved@b= }
  46 \long\def\SuffixName#1{WSF:\string#1 \meaning}
  47 \def\NoSuffixName{WSF:\string}
  48 \def\WSF@decsuff{\ifcsname
  49     \expandafter\NoSuffixName\reserved@a\endcsname
  50   \else
  51     \WSF@global\expandafter\let\csname
  52        \expandafter\NoSuffixName\reserved@a
  53       \expandafter\endcsname \reserved@a
  54     \long\def\reserved@c##1{\WSF@global\protected\def
  55       ##1{\WSF@suffixcheck##1}}%
  56     \expandafter\reserved@c\reserved@a
  57   \fi
  58   \WSF@global
  59     \the\expandafter\@temptokena\csname
  60     \expandafter \SuffixName
  61     \reserved@a\reserved@b\endcsname}
  62 \def\WSF@suffixcheck#1{\begingroup\def\reserved@a{#1}%
  63   \futurelet\reserved@b\WSF@suffixcheckii}
  64 \def\WSF@suffixcheckii{\ifcsname \expandafter\SuffixName
  65     \reserved@a\reserved@b\endcsname
  66       \expandafter
  67       \WSF@suffixcheckiii
  68     \else
  69       \expandafter
  70       \WSF@suffixcheckiv
  71     \fi}
  72 \def\WSF@suffixcheckiii{%
  73   \afterassignment\endgroup
  74   \expandafter\aftergroup
  75     \csname \expandafter \SuffixName\reserved@a\reserved@b\endcsname
  76     \WSF@gobblenext}
  77
  78 \def\WSF@suffixcheckiv{%
  79     \expandafter\endgroup
  80     \csname \expandafter\NoSuffixName\reserved@a\endcsname}
  81 \WithSuffix\def\WSF@sfx\long{\WSF@append\long\WSF@sfx}
  82 \WithSuffix\def\WSF@sfx\global{\let\WSF@global\global\WSF@sfx}
  83 \WithSuffix\def\WSF@sfx\protected{\WSF@append\protected\WSF@sfx}
  84 \WithSuffix\def\WSF@sfx\expandafter{\expandafter\WSF@sfx\expandafter}
  85 \WithSuffix\edef\WSF@sfx\gdef{\let\WSF@global\global
  86   \expandafter\noexpand\csname\NoSuffixName\WSF@sfx\endcsname\def}
  87 \WithSuffix\edef\WSF@sfx\xdef{\let\WSF@global\global
  88   \expandafter\noexpand\csname\NoSuffixName\WSF@sfx\endcsname\edef}
  89 \endinput
  90 %%
  91 %% End of file `suffix.sty'.