diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-04-22 12:30:52 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-04-22 12:30:52 +0000 |
commit | 8eeb471c78437a3fc1ad286d4ff02ee2a41d50b0 (patch) | |
tree | f122a9fd1fd2158ef71ba1e982745c0784262220 /Build/source/texk/web2c/pltotf.ch | |
parent | 4455381c7cf9f2083946dfe6f805ad517d30632d (diff) |
minor pltotf/vptovf bug fix
git-svn-id: svn://tug.org/texlive/trunk@17959 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pltotf.ch')
-rw-r--r-- | Build/source/texk/web2c/pltotf.ch | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/pltotf.ch b/Build/source/texk/web2c/pltotf.ch index de2951933e6..c75a73ddb97 100644 --- a/Build/source/texk/web2c/pltotf.ch +++ b/Build/source/texk/web2c/pltotf.ch @@ -89,6 +89,29 @@ rewritebin (tfm_file, tfm_name); @d first_ord=0 {ordinal number of the smallest element of |char|} @z +@x [28] (fill_buffer) end-of-line counts as a delimiter. Possibly a bug. +else begin while (limit<buf_size-1)and(not eoln(pl_file)) do + begin incr(limit); read(pl_file,buffer[limit]); + end; + buffer[limit+1]:=' '; right_ln:=eoln(pl_file); +@y +else begin while (limit<buf_size-2)and(not eoln(pl_file)) do + begin incr(limit); read(pl_file,buffer[limit]); + end; + buffer[limit+1]:=' '; right_ln:=eoln(pl_file); + if right_ln then begin incr(limit); buffer[limit+1]:=' '; + end; +@z + +@x [31] (get_keyword_char) Unnecessary due to previous change. +begin while (loc=limit)and(not right_ln) do fill_buffer; +if loc=limit then cur_char:=" " {end-of-line counts as a delimiter} +else begin cur_char:=xord[buffer[loc+1]]; +@y +begin while loc=limit do fill_buffer; + begin cur_char:=xord[buffer[loc+1]]; +@z + @x [79] `index' might be a library routine. |k|th element of its list. @y |