.ENABLE SUBSTITUTION
.SETS DIR <DIRECT>
.SETS UIC <UIC>
.IF DIR <> "[]" .SETS UIC <LOGUIC>
.SETS CLI <CLI>
.IF CLI NE "MCR" MCR SET /CLI=TI:MCR
SET /NONAMED
SET /UIC=[5,24]
; CXDOC.CMD
;
; Build Library RUNOFF on RSX-11M, run as an indirect command file
;
;			(Warning: untested)
;
; Extract info from library MACRO sources.
;
INS [5,26]GETRNO/TASK=...GTR
GTR    >CX.RNO   -M -H CXHDR.RNO *.MAC
;
; Build kwik indexes
;
INS [5,26]GETKWK/TASK=...GTK
GTK    >CX.TMP      *.MAC
;
INS [5,26]KWIK/TASK=...KWK
KWK -T 10 -W 64 <CX.TMP   >CXIX.TMP
PIP CX.TMP;*/DE
;
; Mark funny bytes in the index.
;
INS [5,26]RNOIDX/TASK=...FXX
FXX <CXIX.TMP >CXIX.FIX
PIP CXIX.TMP;*/DE
;
; Form RUNOFF source files, appending index
;
PIP CX.RNO/NV/ME=CX.RNO,CXIX.FIX
PIP CX.RNO/PU
PIP CX.DOC;*/DE/NM
PIP CXIX.FIX;*/DE
;
; Process with RUNOFF
;
.IFNINS RNO INS $RNO
RNO CX/UL:L/-SP=CX
;
REM ...GTR
REM ...GTK
REM ...KWK
REM ...FXX
;
; Done.
;
.IF DIR = "[]" .GOTO DONE
SET /NAMED
SET /DEF='DIR'
.DONE:
SET /UIC='UIC'
SET /CLI=TI:'CLI'
.EXIT 1