summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ofm2opl.web
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-23 10:08:04 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2009-09-23 10:08:04 +0000
commitc61273a98b45bc285d4003a0fb7f25a7266836ac (patch)
treec246aa697900f5b78a08072ce90b8201b42c0749 /Build/source/texk/web2c/omegaware/ofm2opl.web
parent501c21503991e727adce74448dde352b807ef01e (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.web15
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@>;