diff options
author | Martin Schröder <martin@oneiros.de> | 2006-12-26 23:37:34 +0000 |
---|---|---|
committer | Martin Schröder <martin@oneiros.de> | 2006-12-26 23:37:34 +0000 |
commit | 812aa90acbef4930ae356ab194f3f2a8f573f6e4 (patch) | |
tree | a1b8b3d895238994c60580df9e6f0619b2034923 /Build/source/texk/web2c/pdfetexdir/pdfetex.ch2 | |
parent | e3bba99884ce591c9485122e96fff7071fc7c112 (diff) |
Import pdftex 1.40-rc4, which also changes the signature of
print_version_and_exit, and adds a new library (libs/obsdcompat).
git-svn-id: svn://tug.org/texlive/trunk@2959 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdfetexdir/pdfetex.ch2')
-rw-r--r-- | Build/source/texk/web2c/pdfetexdir/pdfetex.ch2 | 242 |
1 files changed, 0 insertions, 242 deletions
diff --git a/Build/source/texk/web2c/pdfetexdir/pdfetex.ch2 b/Build/source/texk/web2c/pdfetexdir/pdfetex.ch2 deleted file mode 100644 index 67ddf06edd9..00000000000 --- a/Build/source/texk/web2c/pdfetexdir/pdfetex.ch2 +++ /dev/null @@ -1,242 +0,0 @@ -% -% Copyright (c) 1996-2002 Han The Thanh, <thanh@pdftex.org> -% -% This file is part of pdfTeX. -% -% pdfTeX is free software; you can redistribute it and/or modify -% it under the terms of the GNU General Public License as published by -% the Free Software Foundation; either version 2 of the License, or -% (at your option) any later version. -% -% pdfTeX 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 General Public License for more details. -% -% You should have received a copy of the GNU General Public License -% along with pdfTeX; if not, write to the Free Software -% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -% -% $Id: //depot/Build/source.development/TeX/texk/web2c/pdfetexdir/pdfetex.ch2#20 $ -% -@x limbo -\def\pdfTeX{pdf\TeX} -@y -\def\pdfTeX{pdf\TeX} -\def\pdfeTeX{pdf\eTeX} -@z - -@x [2] -@d pdfTeX_banner=='This is pdfTeX, Version 3.141592',pdftex_version_string -@y -@d pdfeTeX_banner=='This is pdfeTeX, Version 3.141592',pdftex_version_string,eTeX_version_string - {printed when \pdfeTeX\ starts} -@# -@d pdfTeX_banner=='This is pdfTeX, Version 3.141592',pdftex_version_string -@z - -@x [2] -@d banner==pdfTeX_banner -@y -@d banner==pdfeTeX_banner -@z - -@x [230] -- first pdfTeX, then e-TeX additional token list parameters -@d toks_base=pdf_toks {table of 256 token list registers} -@# -@d etex_toks_base=tex_toks {base for \eTeX's token list parameters} -@y -@d etex_toks_base=pdf_toks {base for \eTeX's token list parameters} -@z - -@x [236] -- first pdfTeX, then e-TeX additional integer parameters -@d int_pars=pdf_int_pars {total number of integer parameters} -@# -@d etex_int_base=tex_int_pars {base for \eTeX's integer parameters} -@y -@d etex_int_base=pdf_int_pars {base for \eTeX's integer parameters} -@z - -@x [424] - else begin case m of - begin case m of -@y - else begin case m of -@z - -@x [424] - end; {there are no other cases} -@y -@z - -@x [468] -- first e-TeX, then pdfTeX additional command codes -@d pdftex_first_expand_code = 5 {base for \pdfTeX's command codes} -@y -@d pdftex_first_expand_code = etex_convert_codes {base for \pdfTeX's command codes} -@z - -@x [32f] -@!edge:scaled; {left edge of sub-box, or right edge of leader space} -@y -@!edge:scaled; {right edge of sub-box or leader space} -@!prev_p:pointer; {one step behind |p|} -@z - -@x [32f] -base_line:=cur_v; left_edge:=cur_h; -@y -base_line:=cur_v; -prev_p:=this_box+list_offset; -@<Initialize |hlist_out| for mixed...@>; -left_edge:=cur_h; -@z - -@x [32f] -decr(cur_s); -@y -@<Finish |hlist_out| for mixed...@>; -decr(cur_s); -@z - -@x [32f] - p:=link(p); -@y - prev_p:=link(prev_p); {N.B.: not |prev_p:=p|, |p| might be |lig_trick|} - p:=link(p); -@z - -@x [32f] -kern_node,math_node:cur_h:=cur_h+width(p); -@y -kern_node:cur_h:=cur_h+width(p); -math_node: @<Handle a math node in |hlist_out|@>; -@z - -@x [32f] -othercases do_nothing -@y -@/@<Cases of |hlist_out| that arise in mixed direction text only@>@; -othercases do_nothing -@z - -@x [32f] -next_p:p:=link(p); -@y -next_p:prev_p:=p; p:=link(p); -@z - -@x [32f] - temp_ptr:=p; edge:=cur_h; -@y - temp_ptr:=p; edge:=cur_h+width(p); - if cur_dir=right_to_left then cur_h:=edge; -@z - -@x [32f] - cur_h:=edge+width(p); cur_v:=base_line; -@y - cur_h:=edge; cur_v:=base_line; -@z - -@x [32f] -rule_wd:=rule_wd+cur_g; -@y -rule_wd:=rule_wd+cur_g; -if eTeX_ex then @<Handle a glue node for mixed...@>; -@z - -@x [32f] - edge:=cur_h+rule_wd; lx:=0; -@y - if cur_dir=right_to_left then cur_h:=cur_h-10; - edge:=cur_h+rule_wd; lx:=0; -@z - -@x [32f] - cur_h:=edge-10; goto next_p; -@y - if cur_dir=right_to_left then cur_h:=edge - else cur_h:=edge-10; - goto next_p; -@z - -@x [32f] -save_h:=cur_h; temp_ptr:=leader_box; -@y -save_h:=cur_h; temp_ptr:=leader_box; -if cur_dir=right_to_left then cur_h:=cur_h+leader_wd; -@z - -@x [32f] - cur_h:=left_edge+shift_amount(p); {shift the box right} -@y - if cur_dir=right_to_left then cur_h:=left_edge-shift_amount(p) - else cur_h:=left_edge+shift_amount(p); {shift the box right} -@z - -@x [32f] -if (rule_ht>0)and(rule_wd>0) then {we don't output empty rules} - pdf_set_rule(cur_h, cur_v, rule_wd, rule_ht); -@y -if (rule_ht>0)and(rule_wd>0) then {we don't output empty rules} - begin if cur_dir=right_to_left then cur_h:=cur_h-rule_wd; - pdf_set_rule(cur_h, cur_v, rule_wd, rule_ht); - cur_h:=left_edge; - end; -@z - -@x [32f] -begin cur_h:=left_edge+shift_amount(leader_box);@/ -@y -begin if cur_dir=right_to_left then - cur_h:=left_edge-shift_amount(leader_box) - else cur_h:=left_edge+shift_amount(leader_box); -@z - -@x [32f] -@<(\pdfTeX) Ship box |p| out@>; -@y -@<(\pdfTeX) Ship box |p| out@>; -if eTeX_ex then @<Check for LR anomalies at the end of |ship_out|@>; -@z - -@x -pdf_print("/Producer (pdfTeX-"); -@y -pdf_print("/Producer (pdfeTeX-"); -@z - -@x [649] -exit: {|hpack|} -@y -@z - -@x [651] - math_node: x:=x+width(p); -@y -@z - -@x - obj_xform_resources(k) := null; - scan_int; - if box(cur_val) = null then - pdf_error("ext1", "\pdfxform cannot be used with a void box"); - obj_xform_width(k) := width(box(cur_val)); - obj_xform_height(k) := height(box(cur_val)); - obj_xform_depth(k) := depth(box(cur_val)); - obj_xform_box(k) := box(cur_val); {save pointer to the box} - box(cur_val) := null; - pdf_last_xform := k; -@y - obj_xform_resources(k) := null; - scan_int; - fetch_box(p); - if p = null then - pdf_error("ext1", "\pdfxform cannot be used with a void box"); - obj_xform_width(k) := width(p); - obj_xform_height(k) := height(p); - obj_xform_depth(k) := depth(p); - obj_xform_box(k) := p; {save pointer to the box} - change_box(null); - pdf_last_xform := k; -@z |