1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* Begin new command/AF/subroutine description
9 .*
10 .* Generates a 14pt. bold flush outside index slug from Arg1.
11 .* Emits a level 1 TOC entry with Arg1.
12 .* Emits Arg1 in 12pt. bold flush left to the page.
13 .*
14 .* ..module arg1
15 .* ..slug_off Cancel index slug
16 .*
17 .indctl on
18 .ur .go %InputFileName%
19 .go ret
20
21 .la module
22 .ts %ArgCount% > 0 ;.* be sure theres an argument
23 .go ARG_OK
24 .err No module name given.
25 .go ret
26
27 .la ARG_OK
28 .brp ;.* eject pending page
29 .in 0 ;.* restore left margin
30 .*
31 .* entry to cancel slugs/box headers
32 .la slug_off
33 .ifi set_page_header ;.* cancel existing slug/box header
34 .ts "%InputFileName%" = "slug_off"
35 .go ret
36 .*
37 .ts "%DeviceClass%" = "bitmap"
38 .go SET_SLUG
39 .* Set box header
40 .srv TITLE1 "%Parameter%"
41 .srv TITLEN 1
42 .srv FORM 5 ;.* form is exact
43 .*.srv COLON_INDEX 0
44 .ifi setbox
45 .hbb a ;.* build the page head box
46 .all
47 .inl 0
48 .ur |%BOX_LINE%||%BOX_LINE%|
49 .spf
50 .srv TITLEI 1
51 .la TITLE_LOOP
52 .ur .ur |%PAD%%%BOX_WORD%TITLEI%%%||%PAD%%%BOX_WORD%TITLEI%%%|
53 .srv TITLEI %TITLEI% + 1
54 .ts %TITLEI% <= %TITLEN%
55 .go TITLE_LOOP
56 .ur |%BOX_LINE%||%BOX_LINE%|
57 .hbe
58 .go SET_NAME
59
60 .la SET_SLUG
61 .ur .hlo |||%.fnt HBR 14%%Arg1%%.fnt%| ;.* set new slug
62 .ur .hle |%.fnt HBR 14%%Arg1%%.fnt%|
63 .srv MODULE -1
64 .*
65 .la SET_NAME
66 .ur .tlh %LABELSPACE% 0 |%.fnt HBR 12%Name: %Arg1%%.fnt%|
67 .* ;.* generate TOC entry
68 .if "%TOCING%" ^= ""
69 .then .srv TOC_CBAR "%ChangeBar%"
70 .ur .ifi l1toc "%Arg1%"
71 .endif
72 .*
73 .la ret
74 .indctl