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