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%"(1,2)
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