1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* TAB MACROS
9 .* ENTRY VECTOR
10 .indctl on
11 .srv TOC_PART "tab"
12 .srv TOC_CBAR "%ChangeBar%"
13 .ur .go %InputFileName%
14 .* TURN TABING ON
15 .la tab_on
16 .ts "%TABING%" ^= ""
17 .go ret
18 .srv TABING "TAB_ON"
19 .ifi toc_setup
20 .go ret
21 .* COUNT, EMIT TOC LINE & TITLE
22 .la tab
23 .la dot_tab
24 .ur .ifi break_title "%Parameter%"
25 .*
26 .ts "%InputFileName%" = "tab"
27 .ifi tab_get_no 1
28 .ts "%InputFileName%" = "dot_tab"
29 .ifi dot_tab_get_no 1
30 .*
31 .brb
32 .ur .ur .spt %%1 + %LABELSPACE% + %MPM_SPACE%%%
33 .srv TITLE1 "Table %table%. %TITLE1%"
34 .*
35 .tbb
36 .srv I 1
37 .fif
38 .alc
39 .la TAB_LOOP
40 .ur .ur %%TITLE%I%%%
41 .srv I %I% + 1
42 .ts %I% <= %TITLEN%
43 .go TAB_LOOP
44 .fin
45 .alb
46 .ur .ur .spf %%%LABELSPACE% + %MPM_SPACE%%%
47 .tbe
48 .*
49 .la tab_output_index
50 .ts "%TABING%" = ""
51 .go TAB_STEP_INDEX
52 .*
53 .ur .wrt %FileName%.tab.compin .1Table %table%.
54 .ur .wrt %FileName%.tab.compin .bbc 2
55 .ur .wrt %FileName%.tab.compin .inl 1
56 .ur .ifi toc_entry "%TITLE%"
57 .*
58 .la TAB_STEP_INDEX
59 .srv NEXT_TAB_NO %NEXT_TAB_NO% + %TAB_INCR%
60 .srv NEXT_TAB_DOT_NO %NEXT_TAB_DOT_NO% + %TAB_DOT_INCR%
61 .go ret
62 .* TAB_INDEX
63 .la tab_index
64 .la dot_tab_index
65 .srv TITLE "%Parameter%"
66 .ts "%InputFileName%" = "tab_index"
67 .ifi tab_get_no 1
68 .ts "%InputFileName%" = "dot_tab_index"
69 .ifi dot_tab_get_no 1
70 .go tab_output_index
71 .* RETURN Nth NEXT TAB NO.
72 .la tab_get_no
73 .la dot_tab_get_no
74 .srv TABLE_SECTION;.srv NEXT_TAB_NO;.srv NEXT_TAB_DOT_NO
75 .srv TAB_INCR 0;.srv TAB_DOT_INCR 0
76 .ts "%TABLE_SECTION%" = "%section%"
77 .go INCR_TAB_CT
78 .srv TABLE_SECTION "%section%"
79 .srv NEXT_TAB_NO 0;.srv NEXT_TAB_DOT_NO 0
80 .*
81 .la INCR_TAB_CT
82 .ts "%InputFileName%" ^= "tab_get_no"
83 .go CHECK_DOT_TABS
84 .srv TAB_INCR %Parameter%
85 .srv TABLE_COUNT %NEXT_TAB_NO% + %TAB_INCR%
86 .srv NEXT_TAB_DOT_NO 0
87 .go INCR_TAB_JOIN
88 .*
89 .la CHECK_DOT_TABS
90 .ts %NEXT_TAB_NO% > 0
91 .go DOT_TABS_OK
92 .err No prior table.
93 .go ret
94 .*
95 .la DOT_TABS_OK
96 .srv TAB_DOT_INCR %Parameter%
97 .ur .srv TABLE_COUNT %NEXT_TAB_NO%.%%%NEXT_TAB_DOT_NO% + %TAB_DOT_INCR%%%
98 .*
99 .la INCR_TAB_JOIN
100 .srv table "%section%-%TABLE_COUNT%"
101 .ts "%section%" = ""
102 .srv table "%TABLE_COUNT%"
103 .go ret
104 .* TAB HEADER
105 .la tab_header
106 .brb
107 .spt 3
108 .fif
109 .if "%DeviceClass%" = "bitmap"
110 .then .fnt CSBI 14
111 .tlh 3 0 |||Tables|
112 .fnt
113 .else .tlh 2 ||TABLES||
114 .endif
115 .cbf ;.* in case preceding entry has a cbar
116 .fnt CSR 9
117 .fla |%add_date%|%PageNo%|%ORDER_NUMBER%%add_letter%|
118 .fnt
119 .*
120 .la ret
121 .indctl
122 .rt