summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/ts-verb.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/ts-verb.tip')
-rw-r--r--info/examples/tex-in-practice/ts-verb.tip84
1 files changed, 84 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/ts-verb.tip b/info/examples/tex-in-practice/ts-verb.tip
new file mode 100644
index 0000000000..cd9fd48b91
--- /dev/null
+++ b/info/examples/tex-in-practice/ts-verb.tip
@@ -0,0 +1,84 @@
+% 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.1
+% Date: Sep 9, 1993
+%
+%
+% This source code is documented in 18.3.15, p. III-57.
+% Original source in file "tokens1.TEX", starting line 3306.
+\wlog{L: "ts-verb.tip" ["tokens1.TEX," l. 3306, p. III-57]}%
+% This file DOES belong to format "texip."
+\InputD{verbdisp.tip}
+\InputD{verb-mac.tip}
+\InputD{verb.tip}
+\InputD{verbwr.tip}
+\InputD{vwrt-mac.tip}
+\InputD{defauarg.tip}
+\InputD{compst.tip}
+\InputD{testsubs.tip}
+\InputD{freespac.tip}
+\InputD{fexist.tip}
+\InputD{ts-verb1.tip}
+\InputD{ts-verb2.tip}
+\catcode`\@ = 11
+\def\verb{\Verb}
+\VerbLineNumtrue
+\VerbatimTab = 4
+\DisplayVerbatimVskip = 5pt
+\def\VerbatimFont{\small\tt}%
+\def\ListVerbTeXIP #1{%
+ \par
+ \medskip
+ \vskip 60pt
+ \vskip -60pt
+ \def\ListAsFileName{#1}%
+ \def\LabelName{code-#1}%
+ \if\SuffixConditional{#1}{.flf}%
+ \def\ListAsFileName ##1.flf{\def\ListAsFileName{##1.log}}%
+ \ListAsFileName #1%
+ \def\LabelName{}%
+ \else
+ \if\SuffixConditional{#1}{.flf2}%
+ \def\ListAsFileName ##1.flf2{\def\ListAsFileName{##1.log}}%
+ \ListAsFileName #1%
+ \def\LabelName{}%
+ \fi
+ \fi
+ \if\StringsEqualConditional{#1}{\jobname.ver}%
+ \def\ListAsFileName{}%
+ \def\LabelName{}%
+ \fi
+ \if\StringsEqualConditional{#1}{ex-verbwr.ver}
+ \def\LabelName{}%
+ \fi
+ \if\EmptyStringConditional{\LabelName}%
+ \else
+ \Label{code-#1}%
+ \fi
+ \if\EmptyStringConditional{\ListAsFileName}
+ \else
+ \centerline{%
+ $\bullet$%
+ \space
+ \tt\ListAsFileName
+ \space
+ $\bullet$%
+ }%
+ \fi
+ \@btex
+ \@StartVerbatim{1}%
+ \wlog{[\string\ListVerbTeXIP:}%
+ \input #1
+ \wlog{]}% svb: this was \message before
+ \@DoneVerbatim
+ \@etex
+}
+\catcode`\@ = 12