diff options
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 |