1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* MAJOR MODULE DESCRIPTION LABELS
9 .*
10 .* Emits module description labels
11 .*
12 .* ..command "command usage line" SYNTAX AS A COMMAND
13 .* ..active_function "AF usage line" SYNTAX AS AN ACTIVE FUNCTION
14 .* ..AF "AF usage line" SYNTAX AS AN ACTIVE FUNCTION
15 .* ..argument_list ARGUMENTS
16 .* ..arg_list ARGUMENTS
17 .* ..controlargument_list CONTROL ARGUMENTS
18 .* ..ctlarg_list CONTROL ARGUMENTS
19 .* ..notes NOTES
20 .* ..examples EXAMPLES
21 .* ..request_list REQUESTS
22 .* ..rqst_list REQUESTS
23 .* ..subroutine_usage USAGE SYNTAX
24 .* ..subr_usage USAGE SYNTAX
25 .*
26 .indctl on
27 .ts "%InputFileName%" ^= "request_list" & "%InputFileName%" ^= "rqst_list"
28 .spt 2 ;.* put in separation
29 .ur .go %InputFileName%
30 .go ret
31
32 .la command
33 .la active_function
34 .la AF
35 .if %ArgCount% = 0
36 .then .err No usage given.
37 .go ret
38 .endif
39 .*
40 .tbb
41 .fnt HBI
42 .if "%InputFileName%" = "command"
43 .then ;.+SYNTAX AS A COMMAND
44 .else ;.+SYNTAX AS AN ACTIVE FUNCTION
45 .endif
46 .fnt
47 .ur .spf %LABELSPACE%
48 .ur .ur .inl +%%2 * %PAR_INDENT%%%
49 .*
50 .srv IARG 1
51 .fnt HR
52 .la ARG_LOOP
53 .ur .un %PAR_INDENT%
54 .ur .ur .srv BOLD_START %%%%index "%%Arg%IARG%%%" "~"%%%%
55 .ts %BOLD_START% > 0
56 .go ARG_BOLD
57 .ur .ur %%Arg%IARG%%%
58 .go ARG_COUNT
59 .*
60 .la ARG_BOLD
61 .ur .srv ARG_COPY "%%Arg%IARG%%%"
62 .srv ARG_LINE ""
63 .la BOLD_LOOP
64 .ur .ur .srv ARG_PART "%%%%before "%ARG_COPY%" "~"%%%%"
65 .*.ts "%ARG_PART%" ^= ""
66 .srv ARG_LINE "%ARG_LINE%%ARG_PART%"
67 .ur .ur .srv ARG_COPY "%%%%after "%ARG_COPY%" "~"%%%%"
68 .ur .ur .srv ARG_PART "%%%%before "%ARG_COPY%" "~"%%%%"
69 .if "%ARG_PART%" = " " ;.* white space?
70 .then .srv ARG_LINE "%ARG_LINE%%ARG_PART%"
71 .else .srv ARG_LINE "%ARG_LINE%%%.fnt HBI%%%ARG_PART%%%.fnt%%"
72 .endif
73 .ur .ur .srv ARG_COPY "%%%%after "%ARG_COPY%" "~"%%%%"
74 .ur .ts %%index "%ARG_COPY%" "~"%% > 0
75 .go BOLD_LOOP
76 .ts "%ARG_COPY%" ^= ""
77 .srv ARG_LINE "%ARG_LINE%%ARG_COPY%"
78 .ur .ur %ARG_LINE%
79 .*
80 .la ARG_COUNT
81 .srv IARG %IARG% + 1
82 .ts %IARG% <= %ArgCount%
83 .go ARG_LOOP
84 .fnt
85 .ur .ur .inl -%%2 * %PAR_INDENT%%%
86 .tbe
87 .go ret
88
89 .la argument_list
90 .la arg_list
91 .ur .tlh %LABELSPACE% 0 |%.fnt HBI%ARGUMENTS%.fnt%|
92 .ur .ur .inl %%2 * %PAR_INDENT%%%
93 .go ret
94
95 .la controlargument_list
96 .la ctlarg_list
97 .ur .tlh %LABELSPACE% 0 |%.fnt HBI%CONTROL ARGUMENTS%.fnt%|
98 ..p2f
99 .go ret
100
101 .la request_list
102 .la rqst_list
103 .brp
104 .srv LEFT_SLUG ""
105 .srv RIGHT_SLUG ""
106 .srv LEFT_PAGE ""
107 .hla 1 ;.* null header line
108 .ts "%DeviceClass%" = "bitmap"
109 .hla 1 || ;.* blank header line
110 .ur .ur .inl %%2 * %PAR_INDENT%%%
111 .go ret
112
113 .la examples
114 .ur .tlh %LABELSPACE% 0 |%.fnt HBI%EXAMPLES%.fnt%|
115 .go ret
116
117 .la notes
118 .ur .tlh %LABELSPACE% 0 |%.fnt HBI%NOTES%.fnt%|
119 .go ret
120
121 .la subroutine_usage
122 .la subr_usage
123 .ur .tlh %LABELSPACE% 0 |%.fnt HBI%USAGE SYNTAX%.fnt%|
124 .ur .ur .inl %%2 * %PAR_INDENT%%%
125 .go ret
126
127 .* Usage_dcl, dcl
128 .* Usage_call, call, only_call
129 .*.sr label "%InputFileName%"12
130 .*.ts "%DeviceClass%" ^= "bitmap"
131 .*.go not_bitmap
132 .*.srv CTL_INDENT 8
133 .*.srv CTL_ARG_INDENT 4.66
134 .*.ur .go %label%
135 .*.la not_bitmap
136 .*.srv CTL_INDENT 12
137 .*.srv CTL_ARG_INDENT 7
138 .* .ur .ts %COLCT%=1
139 .* .ur .go %label%
140 .* .srv CTL_INDENT 5.55555
141 .* .srv CTL_ARG_INDENT 3
142 .*.ur .go %label%
143 .*.la Us
144 .*.ur .sr function "%InputFileName%"7"%Parameter%"
145 .* .ur .sr function "%function% %Parameter%"
146 .*..l2h Usage
147 .*.go rest
148 .*.la on
149 .*.ur .sr function "%InputFileName%"6"%Parameter%"
150 .* .ur .sr function "%function% %Parameter%"
151 .*.go rest
152 .*.la dc
153 .*.la ca
154 .*.ur .sr function "%InputFileName% %Parameter%"
155 .*.spt .5 ;.* .spt 6/pt
156 .*.la rest
157 .*.ur .ur .in %%%PAR_INDENT% * 2%%
158 .*.ur .un %PAR_INDENT%
159 .*.all
160 .*.fnt ascii 9
161 .*.ur %function%
162 .*.spb .5 ;.* .spb 6/pt
163 .*.fnt
164 .*.alb
165 .*.ur .in %PAR_INDENT%
166 .*.ur .go %InputFileName%
167 .la only_call
168 .la Usage_dcl
169 .la dcl
170 .go ret
171 .*
172 *.la command
173 .la Usage_call
174 .la call
175 .src where_ct 1
176 where:
177 .brf
178 .ur .in %CTL_INDENT%
179 .go ret
180
181 .* example_head and example_head,too
182 .la exh
183 .spb .5 ;.* .spb 6/pt
184 .ts "%DeviceClass%" ^= "bitmap"
185 .in 12
186 .ts "%DeviceClass%"= "bitmap"
187 .in 5.5555
188 .la exh2
189 .ur .tlh 0 0 |*M*M%%.fnt ascii 9%%Parameter%%.fnt%|||
190 .*
191 .la ret
192 .indctl
193 .rt