diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty')
| -rw-r--r-- | Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty | 131 |
1 files changed, 50 insertions, 81 deletions
diff --git a/Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty b/Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty index 854e6e0cd59..e127443a137 100644 --- a/Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty +++ b/Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty @@ -27,30 +27,12 @@ %% atbegshi.sty, atbegshi.pdf, atbegshi.ins, atbegshi.drv, %% atbegshi-test1.tex, atbegshi-test2.tex. %% -\expandafter\edef\csname AtBegShi@End\endcsname{% - \catcode40 \the\catcode40\relax % ( - \catcode41 \the\catcode41\relax % ) - \catcode44 \the\catcode44\relax % , - \catcode45 \the\catcode45\relax % - - \catcode46 \the\catcode46\relax % . - \catcode58 \the\catcode58\relax % : - \catcode61 \the\catcode61\relax % = - \catcode64 \the\catcode64\relax % @ - \catcode94 \the\catcode94\relax % ^ - \catcode96 \the\catcode96\relax % ` - \noexpand\endinput -} -\catcode40 12 % ( -\catcode41 12 % ) -\catcode44 12 % , -\catcode45 12 % - -\catcode46 12 % . -\catcode58 12 % : -\catcode61 12 % = -\catcode64 11 % @ -\catcode94 7 % ^ -\catcode96 12 % ` \begingroup + \catcode44 12 % , + \catcode45 12 % - + \catcode46 12 % . + \catcode58 12 % : + \catcode64 11 % @ \expandafter\let\expandafter\x\csname ver@atbegshi.sty\endcsname \ifcase 0% \ifx\x\relax % plain @@ -74,6 +56,11 @@ \fi \endgroup \begingroup + \catcode44 12 % , + \catcode45 12 % - + \catcode46 12 % . + \catcode58 12 % : + \catcode64 11 % @ \expandafter\ifx\csname ProvidesPackage\endcsname\relax \def\x#1#2#3[#4]{\endgroup \immediate\write-1{Package: #3 #4}% @@ -89,48 +76,35 @@ \fi \expandafter\x\csname ver@atbegshi.sty\endcsname \ProvidesPackage{atbegshi}% - [2007/04/19 v1.2 At begin shipout hook (HO)] -\begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname PackageWarning\endcsname\relax - \def\AtBegShi@Warning#1{% - \begingroup - \newlinechar=10 % - \def\@spaces{\space\space\space\space}% - \def\MessageBreak{% - ^^J(atbegshi)\@spaces\@spaces\@spaces\@spaces - }% - \immediate\write16{% - ^^JPackage atbegshi Warning: #1 % - on input line \the\inputlineno.^^J% - }% - \endgroup - }% -\else - \def\AtBegShi@Warning{% - \PackageWarning{atbegshi}% - }% -\fi + [2007/04/27 v1.4 At begin shipout hook (HO)] +\expandafter\edef\csname AtBegShi@End\endcsname{% + \catcode40 \the\catcode40\relax % ( + \catcode41 \the\catcode41\relax % ) + \catcode44 \the\catcode44\relax % , + \catcode45 \the\catcode45\relax % - + \catcode46 \the\catcode46\relax % . + \catcode58 \the\catcode58\relax % : + \catcode61 \the\catcode61\relax % = + \catcode64 \the\catcode64\relax % @ + \catcode94 \the\catcode94\relax % ^ + \catcode96 \the\catcode96\relax % ` + \noexpand\endinput +} +\catcode40 12 % ( +\catcode41 12 % ) +\catcode44 12 % , +\catcode45 12 % - +\catcode46 12 % . +\catcode58 12 % : +\catcode61 12 % = +\catcode64 11 % @ +\catcode94 7 % ^ +\catcode96 12 % ` \begingroup\expandafter\expandafter\expandafter\endgroup -\expandafter\ifx\csname PackageInfo\endcsname\relax - \def\AtBegShi@Info#1{% - \begingroup - \newlinechar=10 % - \def\@spaces{\space\space\space\space}% - \def\MessageBreak{% - ^^J(atbegshi) \@spaces\@spaces\@spaces - }% - \immediate\write-1{% - ^^JPackage atbegshi Info: #1.^^J% - }% - \endgroup - }% +\expandafter\ifx\csname RequirePackage\endcsname\relax + \input infwarerr.sty\relax \else - \def\AtBegShi@Info#1{% - \begingroup - \def\on@line{}% - \PackageInfo{atbegshi}{#1}% - \endgroup - }% + \RequirePackage{infwarerr}% \fi \begingroup\expandafter\expandafter\expandafter\endgroup \expandafter\ifx\csname @ifdefinable\endcsname\relax @@ -181,23 +155,16 @@ X \global } \def\AtBegShi@Test{% X \ifdim\lastkern=\z@ -X \aftergroup\egroup -X \aftergroup\endgroup -X \expandafter\aftergroup -X \else -X \egroup -X \endgroup -E \ifnum\AtBegShi@GroupLevel=\currentgrouplevel -E \else -E \expandafter\aftergroup +E \ifnum\AtBegShi@GroupLevel<\currentgrouplevel + \expandafter\aftergroup \fi \AtBegShi@Output } -\catcode`\X=11 % -\catcode`\E=11 % \def\AtBegShi@Output{% +X \egroup +X \endgroup \ifvoid\AtBeginShipoutBox - \AtBegShi@Warning{Ignoring void shipout box}% + \@PackageWarning{atbegshi}{Ignoring void shipout box}% \else \let\AtBegShi@OrgProtect\protect \csname set@typeset@protect\endcsname @@ -206,7 +173,7 @@ E \expandafter\aftergroup \AtBegShi@HookNext \gdef\AtBegShi@HookNext{}% \ifAtBegShi@Discarded - \AtBegShi@Info{Shipout page discarded}% + \@PackageInfoNoLine{atbegshi}{Shipout page discarded}% \global\AtBegShi@Discardedfalse \begingroup \setbox\AtBeginShipoutBox\box\AtBeginShipoutBox @@ -219,6 +186,8 @@ E \expandafter\aftergroup \fi \fi } +\catcode`\X=11 % +\catcode`\E=11 % \def\AtBegShi@First{% \begingroup \def\@empty{}% @@ -260,7 +229,7 @@ E \expandafter\aftergroup \AtBegShi@AddTo\AtBegShi@HookFirst } \long\def\AtBegShi@FirstDisabled#1{% - \AtBegShi@Warning{% + \@PackageWarning{atbegshi}{% First page is already shipped out, ignoring\MessageBreak \string\AtBeginShipoutFirst }% @@ -284,7 +253,7 @@ E \expandafter\aftergroup \else #1% \ifvoid\AtBeginShipoutBox - \AtBegShi@Warning{% + \@PackageWarning{atbegshi}{% Shipout box was voided by hook,\MessageBreak ignoring shipout box% }% @@ -390,7 +359,7 @@ E \expandafter\aftergroup \expandafter\AtBeginShipoutBox \fi }% - \AtBegShi@Info{Package `crop' patched}% + \@PackageInfoNoLine{atbegshi}{Package `crop' patched}% \begingroup \fi \fi @@ -461,7 +430,7 @@ E \expandafter\aftergroup \expandafter\@EveryShipout@Output \fi }% - \AtBegShi@Info{Package `everyshi' patched}% + \@PackageInfoNoLine{atbegshi}{Package `everyshi' patched}% \begingroup \fi \fi @@ -556,7 +525,7 @@ E \expandafter\aftergroup \expandafter\AtBeginShipoutBox \fi }% - \AtBegShi@Info{Class `memoir' patched}% + \@PackageInfoNoLine{atbegshi}{Class `memoir' patched}% \begingroup \fi \fi |