summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/ppltotf.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/ppltotf.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/ppltotf.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/ppltotf.ch20
1 files changed, 7 insertions, 13 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ppltotf.ch b/Build/source/texk/web2c/ptexdir/ppltotf.ch
index a31e97eef2f..16cae851e2d 100644
--- a/Build/source/texk/web2c/ptexdir/ppltotf.ch
+++ b/Build/source/texk/web2c/ptexdir/ppltotf.ch
@@ -26,19 +26,11 @@
print_ln ('.');
@z
-@x
-@d char == 0..255
-@d first_ord=0 {ordinal number of the smallest element of |char|}
-@y
-@d uchar == 0..255
-@d first_ord=0 {ordinal number of the smallest element of |char|}
-@z
-
@x [18] l.495 - pTeX:
@!xord:array[char] of ASCII_code; {conversion table}
@y
-@!xord:array[uchar] of ASCII_code; {conversion table}
-@!xchr:array[uchar] of byte; {specifiles conversion of output character}
+@!xord:array[char] of ASCII_code; {conversion table}
+@!xchr:array[char] of byte; {specifiles conversion of output character}
@z
@x [19] l.506 - pTeX:
@@ -376,7 +368,7 @@ begin
@x
usage_help (PLTOTF_HELP, nil);
@y
- usage_help (PTEX_PLTOTF_HELP, nil);
+ usage_help (PPLTOTF_HELP, nil);
@z
@x
end else if argument_is ('version') then begin
@@ -659,10 +651,12 @@ if multistrlen(buffer,loc+2,loc)=2 then cur_char:=" "
else cur_char:=xord[buffer[loc]];
end;
@#
-function todig(@!ch:char):byte; {convert character to number}
+function todig(@!ch:byte):byte; {convert character to number}
begin if (ch>="A")and(ch<="F") then todig:=ch-"A"+10
else if (ch>="0")and(ch<="9") then todig:=ch-"0"
-else skip_error('This expression is out of JIS-code encoding.');
+else begin skip_error('This expression is out of JIS-code encoding.');
+ todig:=0;
+ end;
end;
@#
procedure print_jis_hex(jis_code:integer); {prints jiscode as four digits}