diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-23 10:08:04 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2009-09-23 10:08:04 +0000 |
commit | c61273a98b45bc285d4003a0fb7f25a7266836ac (patch) | |
tree | c246aa697900f5b78a08072ce90b8201b42c0749 /Build/source/texk/web2c/omegaware/ofm2opl.web | |
parent | 501c21503991e727adce74448dde352b807ef01e (diff) |
more texk/web2c/omegaware bugfixes for ofm2opl&Co
git-svn-id: svn://tug.org/texlive/trunk@15432 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/ofm2opl.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/ofm2opl.web | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.web b/Build/source/texk/web2c/omegaware/ofm2opl.web index 7ad21791472..8f4cc3fd963 100644 --- a/Build/source/texk/web2c/omegaware/ofm2opl.web +++ b/Build/source/texk/web2c/omegaware/ofm2opl.web @@ -771,6 +771,20 @@ else tfm[char_info(c)+5] := (tfm[char_info(c)+5] div 64)*64 + no_tag; end; +procedure check_unused(c:char_type); +var @!x:integer; +begin if ofm_level=1 then x:=tfm[char_info(c)+5] div 8 +else x:=tfm[char_info(c)+5] div 4; +if x<>0 then begin + if ofm_level=1 then x:=tfm[char_info(c)+5] mod 8 + else x:=tfm[char_info(c)+5] mod 4; + tfm[char_info(c)+5]:=x; + perfect:=false; if chars_on_line>0 then print_ln(' '); + chars_on_line:=0; print_ln('Ignoring non-zero unused char info bits'); +@.Ignoring non-zero unused...@> + end; +end; + function ctag(c:char_type):boolean; begin if not (ofm_level=1) then ctag:=false @@ -1924,6 +1938,7 @@ if width_index(c)>0 then begin print_hex(c); {progress report} left; out('CHARACTER'); out_char(c); out_ln; end; + if ofm_on then check_unused(c); @<Output the character's width@>; if height_index(c)>0 then @<Output the character's height@>; if depth_index(c)>0 then @<Output the character's depth@>; |