summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/omchar.ch
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/web2c/alephdir/omchar.ch
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/alephdir/omchar.ch')
-rw-r--r--Build/source/texk/web2c/alephdir/omchar.ch84
1 files changed, 84 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/alephdir/omchar.ch b/Build/source/texk/web2c/alephdir/omchar.ch
new file mode 100644
index 00000000000..9c18ce96750
--- /dev/null
+++ b/Build/source/texk/web2c/alephdir/omchar.ch
@@ -0,0 +1,84 @@
+% omchar.ch: Primitives to access the components of font metric files.
+%
+% This file is part of the Omega project, which
+% is based on the web2c distribution of TeX.
+%
+% Copyright (c) 1994--2000 John Plaice and Yannis Haralambous
+%
+% This library is free software; you can redistribute it and/or
+% modify it under the terms of the GNU Library General Public
+% License as published by the Free Software Foundation; either
+% version 2 of the License, or (at your option) any later version.
+%
+% This library is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+% Library General Public License for more details.
+%
+% You should have received a copy of the GNU Library General Public
+% License along with this library; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+%
+%---------------------------------------
+@x [26] m.416 l.8407 - Omega char dimensions
+primitive("dp",set_box_dimen,depth_offset);
+@!@:dp_}{\.{\\dp} primitive@>
+@y
+primitive("dp",set_box_dimen,depth_offset);
+@!@:dp_}{\.{\\dp} primitive@>
+primitive("charwd",set_box_dimen,(width_offset+3));
+@!@:charwd_}{\.{\\charwd} primitive@>
+primitive("charht",set_box_dimen,(height_offset+3));
+@!@:charht_}{\.{\\charht} primitive@>
+primitive("chardp",set_box_dimen,(depth_offset+3));
+@!@:chardp_}{\.{\\chardp} primitive@>
+primitive("charit",set_box_dimen,(depth_offset+4));
+@!@:charit_}{\.{\\charit} primitive@>
+@z
+%---------------------------------------
+@x [26] m.416 l.8425 - Omega char dimensions
+set_box_dimen: if chr_code=width_offset then print_esc("wd")
+else if chr_code=height_offset then print_esc("ht")
+else print_esc("dp");
+@y
+set_box_dimen: if chr_code=width_offset then print_esc("wd")
+else if chr_code=height_offset then print_esc("ht")
+else if chr_code=depth_offset then print_esc("dp")
+else if chr_code=(width_offset+3) then print_esc("charwd")
+else if chr_code=(height_offset+3) then print_esc("charht")
+else if chr_code=(depth_offset+3) then print_esc("chardp")
+else print_esc("charit");
+@z
+%---------------------------------------
+@x [26] m.419 l.8461 - Omega char dimensions
+begin scan_eight_bit_int;
+if box(cur_val)=null then cur_val:=0 @+else cur_val:=mem[box(cur_val)+m].sc;
+cur_val_level:=dimen_val;
+end
+@y
+if m<=3 then
+begin
+ scan_eight_bit_int;
+ if box(cur_val)=null then cur_val:=0 @+else
+ cur_val:=mem[box(cur_val)+m].sc;
+ cur_val_level:=dimen_val;
+end
+else
+begin
+ scan_char_num;
+ if m=(width_offset+3) then begin
+ cur_val:= char_width(main_f)(char_info(main_f)(cur_val))
+ end
+ else if m=(height_offset+3) then begin
+ cur_val:= char_height(main_f)(height_depth(char_info(main_f)(cur_val)))
+ end
+ else if m=(depth_offset+3) then begin
+ cur_val:= char_depth(main_f)(height_depth(char_info(main_f)(cur_val)))
+ end
+ else begin
+ cur_val:= char_italic(main_f)(char_info(main_f)(cur_val));
+ end;
+ cur_val_level:=dimen_val;
+end
+@z
+%---------------------------------------