summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/patgen.web
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-11-10 10:27:09 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-11-10 10:27:09 +0000
commit5e8e9500102800e68c9e7fcac9e85c1668b71a36 (patch)
tree81d79ac70ffbb127e8063f18c8f55475ca169ee1 /Build/source/texk/web2c/patgen.web
parente6a9c88ada2f11dd61e4c4e39dff84944bed5787 (diff)
towards TL2010: texk/web2c
git-svn-id: svn://tug.org/texlive/trunk@15964 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/patgen.web')
-rw-r--r--Build/source/texk/web2c/patgen.web11
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/patgen.web b/Build/source/texk/web2c/patgen.web
index ab8f2beab0f..5eae5b5a52d 100644
--- a/Build/source/texk/web2c/patgen.web
+++ b/Build/source/texk/web2c/patgen.web
@@ -4,6 +4,7 @@
% Version 2.1 allows left/right_hypen_min from terminal (April, 1992).
% Version 2.2 added `close_in(dictionary)' (August, 1996).
% Version 2.3 avoided division by zero - Karl Berry (October, 1996).
+% Version 2.4 avoided use of uninitialized variables (September, 2009).
% Here is TeX material that gets inserted after \input webmac
\def\hang{\hangindent 3em\indent\ignorespaces}
@@ -20,7 +21,7 @@
\vskip 8pt
\centerline{\titlefont for the \TeX 82 hyphenator}
\vskip 15pt
- \centerline{(Version 2.3, August 2004)}
+ \centerline{(Version 2.4, September 2009)}
\vfill}
\pageno=\contentspagenumber \advance\pageno by 1
@@ -51,7 +52,7 @@ state machine. For further details, see the \TeX 82 source.
The |banner| string defined here should be changed whenever \.{PATGEN}
gets modified.
-@d banner=='This is PATGEN, Version 2.3' {printed when the program starts}
+@d banner=='This is PATGEN, Version 2.4' {printed when the program starts}
@ The original version~1 of \.{PATGEN} was written by Frank~M. Liang
@^Liang, Franklin Mark@>
@@ -1134,13 +1135,15 @@ are invalid (e.g., blank) new values are read from the terminal.
@<Set up hyphenation...@>=
bad:=false;
-if buf[1]=' ' then n:=0
+n:=0;
+if buf[1]=' ' then do_nothing
else if xclass[buf[1]]=digit_class then n:=xint[buf[1]]@+
else bad:=true;
if xclass[buf[2]]=digit_class then n:=10*n+xint[buf[2]]@+
else bad:=true;
if (n>=1)and(n<max_dot) then left_hyphen_min:=n@+else bad:=true;
-if buf[3]=' ' then n:=0
+n:=0;
+if buf[3]=' ' then do_nothing
else if xclass[buf[3]]=digit_class then n:=xint[buf[3]]@+
else bad:=true;
if xclass[buf[4]]=digit_class then n:=10*n+xint[buf[4]]@+