summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/op-endin.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/op-endin.tip')
-rw-r--r--info/examples/tex-in-practice/op-endin.tip61
1 files changed, 61 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/op-endin.tip b/info/examples/tex-in-practice/op-endin.tip
new file mode 100644
index 0000000000..21b02f03cb
--- /dev/null
+++ b/info/examples/tex-in-practice/op-endin.tip
@@ -0,0 +1,61 @@
+% This macro source file is from the four volume series
+% "TeX in Practice" by Stephan von Bechtolsheim, published
+% 1993 by Springer-Verlag, New York.
+% Copyright 1993 Stephan von Bechtolsheim.
+% No warranty or liability is assumed.
+% This macro may be copied freely if no fees other than
+% media cost or shipping charges are charged and as long
+% as this copyright and the following source code itself
+% is not changed. Please see the series for further information.
+%
+% Version: 1.0
+% Date: May 1, 1993
+%
+%
+% This source code is documented in 35.6.2, p. IV-114.
+% Original source in file "o2.TEX", starting line 1438.
+\wlog{L: "op-endin.tip" ["o2.TEX," l. 1438, p. IV-114]}%
+% This file DOES belong to format "texip."
+\catcode`\@ = 11
+\def\endinsert{%
+ \egroup
+ \if@mid
+ \dimen@ = \ht0
+ \advance\dimen@ by \dp0
+ \advance\dimen@ by 12pt
+ \advance\dimen@ by \pagetotal
+ \ifdim\dimen@ > \pagegoal
+ \@midfalse
+ \p@gefalse
+ \fi
+ \fi
+ \NameUse{MidInsertFix}%
+ \if@mid
+ \bigskip
+ \box 0
+ \bigbreak
+ \else
+ \insert\topins{%
+ \penalty 100
+ \splittopskip = 0pt
+ \splitmaxdepth = \maxdimen
+ \floatingpenalty = 0
+ \ifp@ge
+ \dimen@ = \dp0
+ \vbox to \vsize{
+ \unvbox 0
+ \kern -\dimen@
+ }%
+ \NameUse{MidInsertFixPage}%
+ \else
+ \NameUse{EndInsertTopInsFix}%
+ \NameUse{MidInsertFixTop}%
+ \box 0
+ \nobreak
+ \bigskip
+ \fi
+ }
+ \fi
+ \endgroup
+}
+\catcode`\@ = 12