summaryrefslogtreecommitdiff
path: root/web/hyperfweb/hyperfweave.ch
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