summaryrefslogtreecommitdiff
path: root/systems/tex-extensions/clasen/margin/margin-post-web2c.ch
blob: 2329dae6fbec9ca949b6df5bb9aa7b82decc1219 (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
@x
@!margin_char:array[internal_font_number] of integer;
@y
@!margin_char:^integer;
@z

@x
margin_char[null_font]:=-1;
@y
@z

@x
dump_things(skew_char[null_font], font_ptr+1-null_font);
@y
dump_things(skew_char[null_font], font_ptr+1-null_font);
dump_things(margin_char[null_font], font_ptr+1-null_font);
@z

@x
xmalloc_array(skew_char, font_max);
@y
xmalloc_array(skew_char, font_max);
xmalloc_array(margin_char, font_max);
@z

@x
undump_things(skew_char[null_font], font_ptr+1-null_font);
@y
undump_things(skew_char[null_font], font_ptr+1-null_font);
undump_things(margin_char[null_font], font_ptr+1-null_font);
@z

@x
  xmalloc_array(skew_char, font_max);
@y
  xmalloc_array(skew_char, font_max);
  xmalloc_array(margin_char, font_max);
@z

@x
  hyphen_char[null_font]:="-"; skew_char[null_font]:=-1;
@y
  hyphen_char[null_font]:="-"; skew_char[null_font]:=-1;
  margin_char[null_font]:=-1;
@z