summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/omegaware/ofm2opl.web
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2013-12-12 10:39:22 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2013-12-12 10:39:22 +0000
commitb179b3a423007409b4c01ebe096f60405f5e6098 (patch)
tree032a801a8d25419d796a6209488ee18dd7233945 /Build/source/texk/web2c/omegaware/ofm2opl.web
parent810f5585f86a1262961819e148d4cca2d8b787f1 (diff)
omegaware: All four WEB programs can now handle char codes up to 0x10ffff
git-svn-id: svn://tug.org/texlive/trunk@32388 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/omegaware/ofm2opl.web')
-rw-r--r--Build/source/texk/web2c/omegaware/ofm2opl.web25
1 files changed, 15 insertions, 10 deletions
diff --git a/Build/source/texk/web2c/omegaware/ofm2opl.web b/Build/source/texk/web2c/omegaware/ofm2opl.web
index 6769c20bba1..848861a6c34 100644
--- a/Build/source/texk/web2c/omegaware/ofm2opl.web
+++ b/Build/source/texk/web2c/omegaware/ofm2opl.web
@@ -119,15 +119,20 @@ procedure initialize; {this procedure gets things started properly}
@ The following parameters can be changed at compile time to extend or
reduce \.{TFtoPL}'s capacity.
+@d char_max=@"FFFF
+@d xchar_max=char_max+1
+@d xxchar_max=xchar_max+1
+@d xxxchar_max=xxchar_max+1
+
@<Constants...@>=
@!tfm_size=2000000; {maximum length of |tfm| data, in bytes}
@!lig_size=800000; {maximum length of |lig_kern| program, in words}
@!hash_size=130003; {preferably a prime number, a bit larger than the number
of character pairs in lig/kern steps}
@!hash_mult=16007; {another prime}
-@!max_char=65535; {the largest character number in a font}
-@!xmax_char=65536; {|max_char|+1}
-@!xxmax_char=65537;{|max_char|+2}
+@!max_char=char_max; {the largest character number in a font}
+@!xmax_char=xchar_max; {|max_char|+1}
+@!xxmax_char=xxchar_max;{|max_char|+2}
@!xmax_label=80001;{must be greater than |max_lig_steps|}
@ Here are some macros for common programming idioms.
@@ -461,11 +466,11 @@ bytes, |tfm[0..(4*lf-1)]|.
@<Types...@>=
@!byte=0..255; {unsigned eight-bit quantity}
-@!index=-1000..tfm_size; {address of a byte in |tfm|}
-@!char_type=0..65535;
-@!xchar_type=0..65536;
-@!xxchar_type=0..65537;
-@!xxxchar_type=0..65538;
+@!index=0..tfm_size; {address of a byte in |tfm|}
+@!char_type=0..char_max;
+@!xchar_type=0..xchar_max;
+@!xxchar_type=0..xxchar_max;
+@!xxxchar_type=0..xxxchar_max;
@
@<Glob...@>=
@@ -593,8 +598,8 @@ else begin
eval_four_bytes(font_dir);
nlw:=2*nl;
neew:=2*ne;
- top_char:=65535;
- top_width:=65535;
+ top_char:=char_max;
+ top_width:=char_max;
top_height:=255;
top_depth:=255;
top_italic:=255;