blob: 9abf263a0aa50fa18c36b16f817e2a9a2e43647d (
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
|
-- -- hyperfweave.ch -- --
@x
@ Here is a macro that outputs a module number in decimal notation. The
number to be converted by |out_mod| is known to be less than |def_flag|, so
it cannot have more than five decimal digits. If the module is changed, we
output~`\.{\\*}' just after the number.
@<Part 2@>=@[
SRTN out_mod FCN((n))
sixteen_bits n C1("Module number.")@;
{
char s[6];
sprintf(s,"%u",n); OUT_STR(s);
if(chngd_module[n]) OUT_STR("\\*");
}
@y
@ Here is a macro that outputs a module number in decimal notation. The
number to be converted by |out_mod| is known to be less than |def_flag|, so
it cannot have more than five decimal digits. If the module is changed, we
output~`\.{\\*}' just after the number.
This one surrounds the module number by a macro call. It is up to
some fwebmac modification what to do with it. The intended use
is to hypertex a web. See |'Hyperfweb.tex'| for reference.
@<Part 2@>=@[
SRTN out_mod FCN((n))
sixteen_bits n C1("Module number.")@;
{
char s[6];
sprintf(s,"\\HySR{%u}",n); OUT_STR(s);
if(chngd_module[n]) OUT_STR("\\*");
}
@z
|
