summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vptovf.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-22 12:30:52 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-22 12:30:52 +0000
commit8eeb471c78437a3fc1ad286d4ff02ee2a41d50b0 (patch)
treef122a9fd1fd2158ef71ba1e982745c0784262220 /Build/source/texk/web2c/vptovf.ch
parent4455381c7cf9f2083946dfe6f805ad517d30632d (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/vptovf.ch')
-rw-r--r--Build/source/texk/web2c/vptovf.ch23
1 files changed, 23 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/vptovf.ch b/Build/source/texk/web2c/vptovf.ch
index 3e558952d62..2c859b76ee7 100644
--- a/Build/source/texk/web2c/vptovf.ch
+++ b/Build/source/texk/web2c/vptovf.ch
@@ -83,6 +83,29 @@ rewritebin (tfm_file, tfm_name);
@d first_ord=0 {ordinal number of the smallest element of |char|}
@z
+@x [34] (fill_buffer) end-of-line counts as a delimiter. Possibly a bug.
+else begin while (limit<buf_size-1)and(not eoln(vpl_file)) do
+ begin incr(limit); read(vpl_file,buffer[limit]);
+ end;
+ buffer[limit+1]:=' '; right_ln:=eoln(vpl_file);
+@y
+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;
+@z
+
+@x [37] (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
+
% [89] `index' is not a good choice for an identifier on Unix systems.
% Neither is `class', on AIX.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%