summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty')
-rw-r--r--Master/texmf-dist/tex/generic/oberdiek/atbegshi.sty131
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