version 1.11, 1997/03/31 17:48:47
|
version 1.12, 1997/04/01 07:59:09
|
Line 4 LINELENGTH 78;
|
Line 4 LINELENGTH 78;
|
|
|
COUNTERS |
COUNTERS |
ItemCounter : Rank of List_Item; |
ItemCounter : Rank of List_Item; |
AnchorCounter : Set 1 on BODY Add 1 on Anchor; |
AnchorCounter; |
|
|
CONST |
CONST |
TmpFileName = '/tmp/amaya.tmp'; |
TmpFileName = '/tmp/amaya.tmp'; |
DoubleQuote = '"'; |
DoubleQuote = '"'; |
DashLine = '--------------------------------------------------------------'; |
DashLine = '--------------------------------------------------------------'; |
VAR |
VAR |
OUT_AnchorCounter : Value(AnchorCounter); |
OUT_AnchorCounter : '[' Value(AnchorCounter) ']'; |
TmpFile : TmpFileName; |
TmpFile : TmpFileName; |
|
|
RULES |
RULES |
Line 68 RULES
|
Line 68 RULES
|
|
|
|
|
BODY: BEGIN |
BODY: BEGIN |
|
Set AnchorCounter 0; |
Indent +4; |
Indent +4; |
Indent -4 After; |
Indent -4 After; |
{ --- print the List of References ---} |
{ --- print the List of References ---} |
Line 388 RULES
|
Line 389 RULES
|
Anchor: BEGIN |
Anchor: BEGIN |
If HREF_ AND NOT InternalLink |
If HREF_ AND NOT InternalLink |
BEGIN |
BEGIN |
Create In TmpFile '['; |
Add AnchorCounter 1; |
Create In TmpFile OUT_AnchorCounter; |
Create In TmpFile OUT_AnchorCounter; |
Create In TmpFile '] '; |
|
Create Attributes; |
Create Attributes; |
Create IN TmpFile '\12' After; |
Create IN TmpFile '\12' After; |
#ifdef ANCHOR_PREFIX |
#ifdef ANCHOR_PREFIX |
Create '[' ; |
|
Create OUT_AnchorCounter; |
Create OUT_AnchorCounter; |
Create ']'; |
|
Create Content; |
Create Content; |
Remove; |
Remove; |
#else |
#else |
Create '[' After; |
|
Create OUT_AnchorCounter After; |
Create OUT_AnchorCounter After; |
Create ']' After; |
|
#endif |
#endif |
END; |
END; |
END; |
END; |