summaryrefslogtreecommitdiff
path: root/info/examples/tex-in-practice/prhyph.tip
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/tex-in-practice/prhyph.tip')
-rw-r--r--info/examples/tex-in-practice/prhyph.tip54
1 files changed, 54 insertions, 0 deletions
diff --git a/info/examples/tex-in-practice/prhyph.tip b/info/examples/tex-in-practice/prhyph.tip
new file mode 100644
index 0000000000..1d7737a5c3
--- /dev/null
+++ b/info/examples/tex-in-practice/prhyph.tip
@@ -0,0 +1,54 @@
+% 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 12.7.13, p. II-146.
+% Original source in file "par3.TEX", starting line 1929.
+\wlog{L: "prhyph.tip" ["par3.TEX," l. 1929, p. II-146]}%
+% This file DOES belong to format "texip."
+\InputD{shboxes.tip}
+\def\PrintHyphens #1{%
+ {%
+ \setbox 0 = \vbox{%
+ \pretolerance = -1
+ \hyphenpenalty = -10000
+ \hsize = 0pt
+ \leftskip = 0pt
+ \rightskip = 0pt
+ \parfillskip = 0pt
+ \parindent = 0pt
+ \hfuzz = \maxdimen
+ \interlinepenalty = 0
+ \clubpenalty = 0
+ \widowpenalty = 0
+ \brokenpenalty = 0
+ \hskip 0pt
+ #1
+ }%
+ \setbox2 = \hbox{}%
+ \setbox 9 = \vbox{%
+ \unvbox 0
+ \loop
+ \unskip
+ \setbox 1 = \lastbox
+ \ifhbox 1
+ \global\setbox 2 = \hbox{%
+ \unhbox 1
+ \discretionary{}{}{}%
+ \unhbox 2
+ }%
+ \repeat
+ }%
+ \unhbox 2
+ }%
+}