diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-01-08 15:03:48 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2010-01-08 15:03:48 +0000 |
commit | ef3d3d2a405439fbfb04894c5185025dcd0a7f46 (patch) | |
tree | 91b1f27c7b9cbf7bfdb9e6870f4cf5e35cc6b07c /Build/source/texk/web2c/omegaware/opl2ofm.ch | |
parent | a17ac4e834bdda29ee580bb9f77f23cd086ba109 (diff) |
texk/web2c/omegaware: minor bug fixes and additional test case
git-svn-id: svn://tug.org/texlive/trunk@16639 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 | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Build/source/texk/web2c/omegaware/opl2ofm.ch b/Build/source/texk/web2c/omegaware/opl2ofm.ch index ff626c22e37..67172f602bd 100644 --- a/Build/source/texk/web2c/omegaware/opl2ofm.ch +++ b/Build/source/texk/web2c/omegaware/opl2ofm.ch @@ -100,12 +100,25 @@ rewritebin (tfm_file, tfm_name); @d index == index_var @z -@x [103] No output (except errors) unless verbose. +@x [116] No output (except errors) unless verbose. @<Print |c| in hex notation@>; @y if verbose then @<Print |c| in hex notation@>; @z +@x [119] No output (except errors) unless verbose. +@<Print |c| in hex notation@>; +@y +if verbose then @<Print |c| in hex notation@>; +@z +@x +print('-'); print_hex(c+crange); +@y +if verbose then begin + print('-'); print_hex(c+crange); + end; +@z + % [27, 28] Change strings to C char pointers. The Pascal strings are % indexed starting at 1, so we pad with a blank. @x |