diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-17 07:36:47 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-17 07:36:47 +0000 |
commit | ec1b55e58ef1767afd329c2e44ebdea8fe502f89 (patch) | |
tree | adfc94d7e4701db4efd00e929bd152d74d90d531 /Build/source/texk/web2c/omegaware/opl2ofm.ch | |
parent | f83ff5e42379a04ed7d13704e1baff7ef5cedb81 (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.ch | 19 |
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; |