;
; MAKFNLIS filnam MAKES UP A LIST OF FUNCTION NAMES, AND IT'S USE
;
;
;
.ENABLE SUBSTITUTION
.ENABLE QUIET
;
;
; OPEN THE FILE AND CLEAR THE GLOBAL OBJECT FILE
;
INS $GETKWK/TASK=...cr5
.SETS DEFDEV ""
.SETS DEFUIC ""
.SETS DEFEXT ".LIS"
@FNAMEPARS/LO 'P1'
.SETS INDFIL FILE+".IND"
.SETS OLDDEV DEV
.SETS OLDUIC UIC

PIP 'INDFIL';*/DE
;
.OPENR 'FILNAM'
;
; LOOP ARROUND GETTING THE 
.READLP:
.READ FNAM
.IFT <EOF> .GOTO LPEX
.SETS DEFDEV OLDDEV
.SETS DEFUIC OLDUIC
.SETS DEFEXT ".C"
@FNAMEPARS/LO 'FNAM'
cr5 >'FILE'.TMP -C 'FILNAM'
.IF <EXSTAT> <> 1 .GOTO COMERR
PIP 'INDFIL'='INDFIL','FILE'.TMP
PIP 'FILE'.TMP;*/DE
PIP 'INDFIL'/PU
;
;
.GOTO READLP
;
; CLOSE THE FILE
;
.LPEX:
.CLOSE
REM ...CR5
;
.EXIT
;
; WE HAVE A COMPILE ERROR
;
.COMERR:
.CLOSE
.OPEN TI:
.DATA
.DATA
.DATA ******** DOCUMENT ERROR ON 'FNAM' WHILE MAKING 'P1' *********
.DATA
.DATA
.CLOSE
.EXIT
;