blob: 00b5ddb72ae7fcc75d56366e27945a42552ded27 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
% $Id$
% enctex1.ch is applied first.
% Then this change is applied for pdfTeX et al. (but not TeX),
% assuming that tracingstacklevels.ch, partoken.ch, and showstream.ch
% have been included, as specified in the *.am files.
% encTeX: \mubytein \mubyteout \mubytelog and \specialout
@x [17.236] l.4954
@d web2c_int_pars=web2c_int_base+6 {total number of web2c's integer parameters}
@y
@d mubyte_in_code=web2c_int_base+6{if positive then reading mubytes is active}
@d mubyte_out_code=web2c_int_base+7{if positive then printing mubytes is active}
@d mubyte_log_code=web2c_int_base+8{if positive then print mubytes to log and terminal}
@d spec_out_code=web2c_int_base+9 {if positive then print specials by mubytes}
@d web2c_int_pars=web2c_int_base+10 {total number of web2c's integer parameters}
@z
% see pdftex.web for more about this.
@x [53.1353] - encTeX: late \special stores specialout and mubyteout values
begin new_whatsit(latespecial_node,write_node_size); write_stream(tail):=null;
p:=scan_toks(false,false); write_tokens(tail):=def_ref;
@y
begin new_whatsit(latespecial_node,write_node_size);
if spec_out + mubyte_zero < 0 then write_stream(tail) := 0
else if spec_out + mubyte_zero >= 2*mubyte_zero then
write_stream(tail) := 2*mubyte_zero - 1
else write_stream(tail) := spec_out + mubyte_zero;
if mubyte_out + mubyte_zero < 0 then write_mubyte(tail) := 0
else if mubyte_out + mubyte_zero >= 2*mubyte_zero then
write_mubyte(tail) := 2*mubyte_zero - 1
else write_mubyte(tail) := mubyte_out + mubyte_zero;
if (spec_out = 2) or (spec_out = 3) then
if (mubyte_out > 2) or (mubyte_out = -1) or (mubyte_out = -2) then
write_noexpanding := true;
p:=scan_toks(false,false); write_tokens(tail):=def_ref;
write_noexpanding := false;
@z
|