summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/opl2ofm.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-17 07:36:47 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-17 07:36:47 +0000
commitec1b55e58ef1767afd329c2e44ebdea8fe502f89 (patch)
treeadfc94d7e4701db4efd00e929bd152d74d90d531 /Build/source/texk/web2c/omegaware/opl2ofm.ch
parentf83ff5e42379a04ed7d13704e1baff7ef5cedb81 (diff)
Version 1.12 of omegaware font programs
git-svn-id: svn://tug.org/texlive/trunk@15332 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/opl2ofm.ch')
-rw-r--r--Build/source/texk/web2c/omegaware/opl2ofm.ch19
1 files changed, 16 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch
index d4b4b372b14..6fee355c5e4 100644
--- a/Build/source/texk/web2c/omegaware/opl2ofm.ch
+++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch
@@ -86,6 +86,13 @@ packed file of bytes. It's no problem in C.
rewritebin (tfm_file, tfm_name);
@z
+@x [18] Pascal Web's char
+@d first_ord=0 {ordinal number of the smallest element of |char|}
+@y
+@d char == 0..255
+@d first_ord=0 {ordinal number of the smallest element of |char|}
+@z
+
@x [79] `index' might be a library routine.
|k|th element of its list.
@y
@@ -107,10 +114,10 @@ if verbose then @<Print |c| in hex notation@>;
@!MBL_string,@!RI_string,@!RCE_string:packed array [1..3] of char;
{handy string constants for |face| codes}
@y
-@!ASCII_04,@!ASCII_10,@!ASCII_14,HEX: c_string;
+@!ASCII_04,@!ASCII_10,@!ASCII_14,HEX: const_c_string;
{strings for output in the user's external character set}
@!ASCII_all: packed array[0..256] of char;
-@!MBL_string,@!RI_string,@!RCE_string: c_string;
+@!MBL_string,@!RI_string,@!RCE_string: const_c_string;
{handy string constants for |face| codes}
@z
@@ -217,7 +224,13 @@ begin if fabs(x/design_units)>=16.0 then begin
while label_table[sort_ptr].rr>intcast(char_remainder[c]) do begin
@z
-@x [147] Be quiet unless verbose.
+@x [170] Eliminate unused variables.
+var @!krn_ptr:0..max_kerns; {an index into |kern|}
+@!c:integer; {runs through all character codes}
+@y
+@z
+
+@x [147?] Be quiet unless verbose.
read_input; print('.');@/
@y
read_input;