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/ovp2ovf.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/ovp2ovf.web')
-rw-r--r-- | Build/source/texk/web2c/omegaware/ovp2ovf.web | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Build/source/texk/web2c/omegaware/ovp2ovf.web b/Build/source/texk/web2c/omegaware/ovp2ovf.web index c489080383e..69c1ded4d6b 100644 --- a/Build/source/texk/web2c/omegaware/ovp2ovf.web +++ b/Build/source/texk/web2c/omegaware/ovp2ovf.web @@ -1652,11 +1652,13 @@ if r>0 then begin end; function get_integer:integer; {scans an integer property value} +var @!a:integer; {accumulator} begin get_four_bytes; -get_integer:=(c0*@"1000000)+(c1*@"10000)+(c2*@"100)+c3; +a:=c0; +if a>=@"80 then a:=a-@"100; +get_integer:=(a*@"1000000)+(c1*@"10000)+(c2*@"100)+c3; end; - @ @<Multiply by |r|...@>= begin if cur_char>="A" then cur_char:=cur_char+"0"+10-"A"; if cur_char>="0"+r then skip_error('Illegal digit') @@ -2235,8 +2237,8 @@ else if (cur_code<parameter_code)or(cur_code>=char_wd_code) then @.This property name doesn't belong...@> else begin if cur_code=parameter_code then c:=get_integer else c:=cur_code-parameter_code; - if c=0 then flush_error('PARAMETER index must not be zero') -@.PARAMETER index must not...@> + if c<1 then flush_error('PARAMETER index must be at least 1') +@.PARAMETER index must be...@> else if c>max_param_words then flush_error('This PARAMETER index is too big for my present table size') @.This PARAMETER index is too big...@> @@ -4133,7 +4135,7 @@ end. @!ofm_level:integer; @ @<Set init...@>= -ofm_level:=0; {Suppose that it is a level 0 OFM file} +ofm_level:=-1; {Suppose that it is a TFM file} @ @<Read OFM level code@>= begin @@ -5057,6 +5059,7 @@ begin @<Output the penalty headers@>; @<Output the ivalues@>; @<Output the fvalues@>; +@<Output the mvalues@>; @<Output the rules@>; @<Output the glues@>; @<Output the penalties@>; |