diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-20 11:01:30 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2014-01-20 11:01:30 +0000 |
commit | 7b16d3b1d6a8cb9b23b012e4527ee5d9e061aa04 (patch) | |
tree | c3765a705ff191a5f3ae7e367c4c7bb73ef2d083 /Build/source/texk/web2c/vptovf.web | |
parent | 822e7e612de859b23a6aa03e2ce575696afd84c6 (diff) |
TeX & Co: New versions from Knuth (TeX tuneup of 2014)
git-svn-id: svn://tug.org/texlive/trunk@32727 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vptovf.web')
-rw-r--r-- | Build/source/texk/web2c/vptovf.web | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/vptovf.web b/Build/source/texk/web2c/vptovf.web index b5d6aff66d6..0da7cd8a7ca 100644 --- a/Build/source/texk/web2c/vptovf.web +++ b/Build/source/texk/web2c/vptovf.web @@ -3,8 +3,10 @@ % Version 1.1 fixed some for-loop indices for stricter Pascal (April 1990). % Version 1.2 fixed `nonexistent char 0' bug, and a bit more (September 1990). % Version 1.3 has more robust `out_scaled' (March 1991). -% Version 1.4 (March 1995) initialized lk_step_ended (Armin K\"ollner). +% Version 1.4 (March 1995) initialized lk_step_ended (Armin K\"ollner). % Version 1.5 (August 1998) corrected vf_fix(0) (Wayne Sullivan). +% Version 1.6 (January 2014) corrected possible end-of-line glitch (Ken Nakano), +% and get_fix now treats -- as + (Peter Breitenlohner). % Here is TeX material that gets inserted after \input webmac \def\hang{\hangindent 3em\indent\ignorespaces} @@ -25,7 +27,7 @@ \vfill \centerline{\titlefont The {\ttitlefont VPtoVF} processor} \vskip 15pt - \centerline{(Version 1.5, August 1998)} + \centerline{(Version 1.6, January 2014)} \vfill} \def\botofcontents{\vfill \centerline{\hsize 5in\baselineskip9pt @@ -44,7 +46,7 @@ of the given \.{VPL} file, so that the \.{VF} file should be acceptable to device drivers and the \.{TFM} file should be acceptable to \TeX. \indent\.{VPtoVF} is an extended version of the program \.{PLtoTF}, which -is part of the standard \TeX ware library. +is part of the standard \TeX ware library. The idea of a virtual font was inspired by the work of David R. Fuchs @^Fuchs, David Raymond@> who designed a similar set of conventions in 1984 while developing a @@ -54,7 +56,7 @@ called \.{PLFONT}. The |banner| string defined here should be changed whenever \.{VPtoVF} gets modified. -@d banner=='This is VPtoVF, Version 1.5' {printed when the program starts} +@d banner=='This is VPtoVF, Version 1.6' {printed when the program starts} @ This program is written entirely in standard \PASCAL, except that it has to do some slightly system-dependent character code conversion @@ -783,10 +785,12 @@ if left_ln then if eof(vpl_file) then begin limit:=1; buffer[1]:=')'; right_ln:=false; input_has_ended:=true; end -else begin while (limit<buf_size-1)and(not eoln(vpl_file)) do +else begin while (limit<buf_size-2)and(not eoln(vpl_file)) do begin incr(limit); read(vpl_file,buffer[limit]); end; buffer[limit+1]:=' '; right_ln:=eoln(vpl_file); + if right_ln then begin incr(limit); buffer[limit+1]:=' '; + end; if left_ln then @<Set |loc| to the number of leading blanks in the buffer, and check the indentation@>; end; @@ -1486,7 +1490,7 @@ end; @ @<Scan the blanks...@>= repeat get_next; if cur_char="-" then - begin cur_char:=" "; negative:=true; + begin cur_char:=" "; negative:=not negative; end else if cur_char="+" then cur_char:=" "; until cur_char<>" " |