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/ovp2ovf.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/ovp2ovf.ch')
-rw-r--r-- | Build/source/texk/web2c/omegaware/ovp2ovf.ch | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.ch b/Build/source/texk/web2c/omegaware/ovp2ovf.ch index cad20f24a83..503a32fef37 100644 --- a/Build/source/texk/web2c/omegaware/ovp2ovf.ch +++ b/Build/source/texk/web2c/omegaware/ovp2ovf.ch @@ -82,6 +82,13 @@ rewritebin (vf_file, vf_name); rewritebin (tfm_file, tfm_name); @z +@x [24] 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 + % [89] `index' is not a good choice for an identifier on Unix systems. % Neither is `class', on AIX. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -103,7 +110,7 @@ if verbose then @<Print |c| in hex notation@>; @x @!HEX: packed array [1..32] of char; @y -@!HEX: c_string; +@!HEX: const_c_string; @z @x @@ -189,7 +196,13 @@ begin if fabs(x/design_units)>=16.0 then begin @d vout(#)==putbyte(#,vf_file) @z -@x [181] Be quiet unless verbose. +@x [204] Eliminate unused variables. +var @!krn_ptr:0..max_kerns; {an index into |kern|} +@!c:byte; {runs through all character codes} +@y +@z + +@x [181?] Be quiet unless verbose. read_input; print_ln('.');@/ @y read_input; |