summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ptftopl.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-19 12:31:17 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-19 12:31:17 +0000
commita84628de6ef38ff879cec6f07a790d8ac1b45eea (patch)
tree8986fe29267095024835085de2492b01f08e5fb5 /Build/source/texk/web2c/ptexdir/ptftopl.ch
parent2438d33d26e1efd298278d484a4309cd5281c7ce (diff)
pTeX update
git-svn-id: svn://tug.org/texlive/trunk@17922 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptftopl.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/ptftopl.ch12
1 files changed, 7 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptftopl.ch b/Build/source/texk/web2c/ptexdir/ptftopl.ch
index 8994f6f4230..3d02e561247 100644
--- a/Build/source/texk/web2c/ptexdir/ptftopl.ch
+++ b/Build/source/texk/web2c/ptexdir/ptftopl.ch
@@ -73,9 +73,11 @@ else if lf=tate_id_byte then
write_ln(pl_file,'(COMMENT THIS IS A KANJI FORMAT FILE)');
write_ln(pl_file,'(DIRECTION TATE)');
end
-else begin file_format:=tfm_format; nt:=0; tmp_ptr:=2;
- end;
-if file_format<>tfm_format then
+else file_format:=tfm_format;
+if file_format=tfm_format then
+ begin nt:=0; tmp_ptr:=2;
+ end
+else
begin if eof(tfm_file) then abort('The input file is only two bytes long!');
read(tfm_file,tfm[2]);
if eof(tfm_file) then abort('The input file is only three bytes long!');
@@ -281,7 +283,7 @@ else if width_index(c)>0 then
if file_format<>tfm_format then
begin out('TYPE'); tfm[0]:=c; out_octal(0,1);
end
- else
+ else
begin out('CHARACTER'); out_char(c);
end;
out_ln;
@@ -363,7 +365,7 @@ begin
@x
usage_help (TFTOPL_HELP, nil);
@y
- usage_help (PTEX_TFTOPL_HELP, nil);
+ usage_help (PTFTOPL_HELP, nil);
@z
@x
end else if argument_is ('version') then begin