diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-10 10:27:09 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-11-10 10:27:09 +0000 |
commit | 5e8e9500102800e68c9e7fcac9e85c1668b71a36 (patch) | |
tree | 81d79ac70ffbb127e8063f18c8f55475ca169ee1 /Build/source/texk/web2c/patgen.web | |
parent | e6a9c88ada2f11dd61e4c4e39dff84944bed5787 (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.web | 11 |
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]]@+ |