summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ovp2ovf.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/ovp2ovf.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/ovp2ovf.ch')
-rw-r--r--Build/source/texk/web2c/omegaware/ovp2ovf.ch17
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;