summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pdftexdir/pdftex2.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir/pdftex2.ch')
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex2.ch89
1 files changed, 0 insertions, 89 deletions
diff --git a/Build/source/texk/web2c/pdftexdir/pdftex2.ch b/Build/source/texk/web2c/pdftexdir/pdftex2.ch
deleted file mode 100644
index 227cb474242..00000000000
--- a/Build/source/texk/web2c/pdftexdir/pdftex2.ch
+++ /dev/null
@@ -1,89 +0,0 @@
-% WEB change file containing pdftex codes that are conveninent to be here
-% instead of pdftex.ch due to changes files coming after pdftex.ch (hz.ch &
-% vadjust.ch)
-%
-% Copyright (c) 1996-2005 Han Th\^e\llap{\raise 0.5ex\hbox{\'{}}} Th\`anh, <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/pdftexdir/pdftex2.ch#5 $
-
-@x [230] - tagcode
-@d ef_code_base == 4
-@y
-@d ef_code_base == 4
-@d tag_code == 5
-@z
-
-@x [230] - tagcode
- ef_code_base: scanned_result(get_ef_code(n, k))(int_val);
-@y
- ef_code_base: scanned_result(get_ef_code(n, k))(int_val);
- tag_code: scanned_result(get_tag_code(n, k))(int_val);
-@z
-
-@x [???] - tagcode
-function init_font_base(v: integer): integer;
-@y
-procedure set_tag_code(f: internal_font_number; c: eight_bits; i: integer);
-var fixedi:integer;
-begin
- if is_valid_char(c) then
- begin fixedi := abs(fix_int(i,-7,0));
- if fixedi >= 4 then begin
- if char_tag(char_info(f)(c)) = ext_tag then
- op_byte(char_info(f)(c)) := (op_byte(char_info(f)(c))) - ext_tag;
- fixedi := fixedi - 4;
- end;
- if fixedi >= 2 then begin
- if char_tag(char_info(f)(c)) = list_tag then
- op_byte(char_info(f)(c)) := (op_byte(char_info(f)(c))) - list_tag;
- fixedi := fixedi - 2;
- end;
- if fixedi >= 1 then begin
- if char_tag(char_info(f)(c)) = lig_tag then
- op_byte(char_info(f)(c)) := (op_byte(char_info(f)(c))) - lig_tag;
- end;
- end;
-end;
-
-function init_font_base(v: integer): integer;
-@z
-
-@x [1253] - tagcode
- ef_code_base: set_ef_code(f, p, cur_val);
-@y
- ef_code_base: set_ef_code(f, p, cur_val);
- tag_code: set_tag_code(f, p, cur_val);
-@z
-
-@x [1254] - tagcode
-primitive("efcode",assign_font_int,ef_code_base);
-@!@:ef_code_}{\.{\\efcode} primitive@>
-@y
-primitive("efcode",assign_font_int,ef_code_base);
-@!@:ef_code_}{\.{\\efcode} primitive@>
-primitive("tagcode",assign_font_int,tag_code);
-@!@:tag_code_}{\.{\\tagcode} primitive@>
-@z
-
-@x [1255]
-ef_code_base: print_esc("efcode");
-@y
-ef_code_base: print_esc("efcode");
-tag_code: print_esc("tagcode");
-@z