1 .* ***********************************************************
2 .* * *
3 .* * *
4 .* * Copyright, C Honeywell Information Systems Inc., 1981 *
5 .* * *
6 .* * *
7 .* ***********************************************************
8 .* MACRO PACKAGE GLOBAL INITIALIZATION
9 .*
10 .* Define and set values for the package.
11 .* Setup page layout according to entry
12 .*
13 .* ..init footer_info extra_header default page layout
14 .* ..init_plm footer_info extra_header OLD PLM page layout
15 .* ..init_mpm footer_info extra_header OLD MPM page layout
16 .* ..init_photo footer_info extra_header NEW PLM/MPM page layout
17 .*
18 .indctl on
19 .srv MACRO_INIT ;.* define the flag
20 .ts %MACRO_INIT% ;.* already initialized?
21 .go SET_INIT ;.* yep
22 .* DEFINE MACRO VARIABLES
23 .* Set for typewriter/lineprinter first
24 .* using old MPM/PLM values
25 .srv DOT_PAGE 0
26 .srv L0_DEPTH 14 ;.* page depth for section heading
27 .srv LABELSPACE 1
28 .srv MPM_SPACE 0
29 .srv LASTHITFILENAME ""
30 .srv LAYOUT "initprose"
31 .srv ORDER_NUMBER ;.srv PAGE_HEADERN 0
32 .*
33 .ts %ArgCount% > 0
34 .srv ORDER_NUMBER "%Arg1%"
35 .*
36 .if %ArgCount% = 2
37 .then .srv TOC_HEADER_INFO "%Arg2%"
38 .else .srv TOC_HEADER_INFO
39 .endif
40 .*
41 .if "%TOC_HEADER_INFO%" ^= ""
42 .then .ur .ifi break_title "%TOC_HEADER_INFO%"
43 .srv I 1
44 .la TITLE_LOOP
45 .ur .ur .srv PAGE_HEADER%I% "%%TITLE%I%%%"
46 .srv I %I% + 1
47 .ts %I% <= %TITLEN%
48 .go TITLE_LOOP
49 .srv PAGE_HEADERN %TITLEN%
50 .endif
51 .*
52 .srv PAD "^?" ;.* octal 177
53 .srv PAGENO_SET 0
54 .srv PAR_INDENT 5 ;.* paragraph indentation
55 .srv WHICH_INDENT 0
56 .srv SECTION_MARK ""
57 .srv TEXT_TYPE "prose"
58 .srv DOCUMENT_TYPE ""
59 .srv TOCING "";.srv TABING "";.srv FIGING ""
60 .srv TABLE_SECTION "";.srv FIGURE_SECTION ""
61 .srv TABLE_COUNT 0;.srv FIGURE_COUNT 0
62 .srv LEFT_GUTTER 0 ;.* onecol.compin will change this
63 .src EX_LINENO 1 ;.* line counter for examples
64 .* Special graphics
65 .srv BULLET "Í" ;.* 315
66 .srv COPYRIGHT "Ã" ;.* 303
67 .srv DAGGER "±" ;.* 261
68 .srv DDAGGER "Á" ;.* 301
69 .srv DELTA "Ä" ;.* 304
70 .srv EM "
71 " ;.* 412
72 .srv EN "^L" ;.* 414
73 .srv NABLA "¬" ;.* 254
74 .srv PI "Ð" ;.* 320
75 .srv pi "ð" ;.* 360
76 .srv SQUARE "ý" ;.* 375
77 .srv TM "^O" ;.* 417
78 .srv LQT "^Q" ;.* left quote - 421
79 .srv RQT "^R" ;.* right quote - 422
80 .srv ITd "<9d>" ;.* italic d - 235
81 .srv ITn "<9e>" ;.* italic n - 236
82 .srv ITx "<9f>" ;.* italic x - 237
83 .srv SPp " " ;.* printing space - 240
84 .* User settable variables
85 .srv draft "DRAFT: MAY BE CHANGED "
86 .srv draft_date "%Date%"
87 .srv section "";.srv style "";.srv add_date "";.srv add_letter ""
88 .inl;.fin;.alb ;.* force defaults
89 .hla ;.fla;.chl;.cfl ;.* clear possible headers & footers
90 .* Now changes/other stuff for new MPM/PLM
91 .if "%InputFileName%" = "init_photo"
92 .then .srv PAR_INDENT 4
93 .endif
94 .* and stuff for photosetters
95 .if "%DeviceClass%" = "bitmap"
96 .then .srv LABELSPACE 0.5 ;.* 6/pt
97 .sr pt12 1.667 ;.sr pt10 1.389 ;.sr pt6 0.833
98 .sr pt60 5 ;.sr pt24 3.333
99 .srv PAR_INDENT 20000/7200 ;.* 20pt for photoset
100 .srv L0_DEPTH 7
101 .endif
102 .*
103 .la SET_INIT
104 .srv MACRO_INIT -1 ;.* we are now all set
105 .* ENTRY VECTOR
106 .ur .go %InputFileName%
107 .* INIT_PLM ENTRY
108 .la init_plm
109 .ts "%DOCUMENT_TYPE%" ^= "plm"
110 .ifi plm_prose_layout
111 .srv DOCUMENT_TYPE "plm"
112 .go ret
113 .* INIT_MPM ENTRY
114 .la init_mpm
115 .ts "%DOCUMENT_TYPE%" ^= "mpm"
116 .ifi mpm_prose_layout
117 .srv MPM_SPACE 1
118 .srv DOCUMENT_TYPE "mpm"
119 .go ret
120 .* INIT_PHOTO ENTRY
121 .la init_photo
122 .ts "%DOCUMENT_TYPE%" ^= "photo"
123 .ifi photo_prose_layout
124 .srv DOCUMENT_TYPE "photo"
125 .go ret
126 .* GENERAL INIT
127 .la init
128 .ts "%DOCUMENT_TYPE%" ^= "init"
129 .ifi init_prose_layout
130 .srv DOCUMENT_TYPE "init"
131 .go ret
132 .*
133 .la ret
134 .indctl
135 .rt