summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/alephdir/eonewdir.ch
blob: 9cdab96ab09cbb02f1104eaf9b6c17340f21e342 (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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
% Backport some 1.23 dir primitives to 1.15
% namely, \boxdir
% NOT \nextfakemath, which requires too many changes

@x
@d assign_dir=register+1 {(\.{\\pagedir}, \.{\\textdir})}
@d max_internal=assign_dir
   {the largest code that can follow \.{\\the}}
@y
@d assign_next_fake_math=register+1 {(\.{\\nextfakemath})} {unused}
@d assign_box_dir=register+2 {(\.{\\boxdir})}
@d assign_dir=register+3 {(\.{\\pagedir}, \.{\\textdir})}
@d max_internal=assign_dir
   {the largest code that can follow \.{\\the}}
@z

@x
assign_int: scanned_result(new_eqtb_int(m))(int_val);
assign_dir: scanned_result(new_eqtb_int(m))(dir_val);
@y
assign_int: scanned_result(new_eqtb_int(m))(int_val);
assign_box_dir: begin
  scan_eight_bit_int;
  m:=cur_val;
  if box(m)<>null then cur_val:=box_dir(box(m))
  else cur_val:=0;
  cur_val_level:=dir_val;
  end;
assign_dir: scanned_result(new_eqtb_int(m))(dir_val);
@z

@x [47] m.1071
primitive("xleaders",leader_ship,x_leaders);
@!@:x_leaders_}{\.{\\xleaders} primitive@>
@y
primitive("xleaders",leader_ship,x_leaders);
@!@:x_leaders_}{\.{\\xleaders} primitive@>
primitive("boxdir",assign_box_dir,0);
@!@:box_dir}{\.{\\boxdir} primitive@>
@z

@x [47] m.1073
any_mode(make_box): begin_box(0);
@y
any_mode(make_box): begin_box(0);
any_mode(assign_box_dir): begin scan_eight_bit_int;
  cur_box:=box(cur_val);
  scan_optional_equals; scan_dir;
  if cur_box<>null then box_dir(cur_box):=cur_val;
  end;
@z