kermit.columbia.edu/kermit.columbia.edu.tar/kermit.columbia.edu/modcomp/bldker.

Text File | 1987-01-25 | 2KB | 94 lines

$PROD BLDKER,,,,NONE
$NOP
$IFN %1=HELP,P/$GOTO NOHELP
$GOTO HELP
$TAG ARGERR
$NOP ** MISSING A REQUIRED ARGUMENT **
$TAG HELP
$NOP
$NOP  *****  PROCEDURE TO COMPLETELY BUILD MODCOMP KERMIT *****
$NOP
$NOP    ***   ARG 1  = NAME OF SOURCE LIBRARY (NO DEFAULT)
$NOP    ***   ARG 2  = NAME OF OBJECT LIBRARY (NO DEFAULT)
$NOP    ***   ARG 3  = NAME OF LOAD MODULE FILE (NO DEFAULT)
$NOP    ***   ARG 4  = LIST OPTION; IF <> NONE, FORTRAN LISTINGS
$NOP    ***            AND A LINK MAP ARE PRODUCED (DEFAULT = %4)
$NOP
$NOP    *** EXAMPLE --> $BLDKER USL,UL,LM,LO
$NOP
$ENDDO
$NOP
$TAG NOHELP
$IFM %1,P/$GOTO ARGERR
$IFM %2,P/$GOTO ARGERR
$IFM %3,P/$GOTO ARGERR
$DOFR5 BUFEMP,%1,%4,,%2
$DOFR5 BUFILL,%1,%4,,%2
$DOFR5 CTL,%1,%4,,%2
$DOFR5 CTOI,%1,%4,,%2
$DOFR5 DGETCH,%1,%4,,%2
$DOFR5 DGETLI,%1,%4,,%2
$DOFR5 DPUTCH,%1,%4,,%2
$DOFR5 DPUTLI,%1,%4,,%2
$DOFR5 FINDLN,%1,%4,,%2
$DOFR5 FXFILE,%1,%4,,%2
$DOFR5 GETLIN,%1,%4,,%2
$DOFR5 PACK,%1,%4,,%2
$DOFR5 PARSER,%1,%4,,%2
$IF %4=NONE,P/$DOM5A POSUSL,%1,NOLO,%2
$IFN %4=NONE,P/$DOM5A POSUSL,%1,LO,%2
$DOFR5 RDATA,%1,%4,,%2
$DOFR5 RECSW,%1,%4,,%2
$DOFR5 RFILE,%1,%4,,%2
$DOFR5 RINIT,%1,%4,,%2
$DOFR5 RPACK,%1,%4,,%2
$DOFR5 RPAR,%1,%4,,%2
$DOFR5 RSTORE,%1,%4,,%2
$DOFR5 SBREAK,%1,%4,,%2
$DOFR5 SCONNE,%1,%4,,%2
$DOFR5 SCOPY,%1,%4,,%2
$DOFR5 SDATA,%1,%4,,%2
$DOFR5 SENDSW,%1,%4,,%2
$DOFR5 SEOF,%1,%4,,%2
$DOFR5 SFILE,%1,%4,,%2
$DOFR5 SHELP,%1,%4,,%2
$DOFR5 SINIT,%1,%4,,%2
$DOFR5 SKIPBL,%1,%4,,%2
$DOFR5 SPACK,%1,%4,,%2
$DOFR5 SPAR,%1,%4,,%2
$DOFR5 SQUIT,%1,%4,,%2
$DOFR5 SRECEI,%1,%4,,%2
$DOFR5 SSEND,%1,%4,,%2
$DOFR5 SSET,%1,%4,,%2
$DOFR5 SSTATU,%1,%4,,%2
$DOFR5 TOCHAR,%1,%4,,%2
$DOFR5 TPUTCH,%1,%4,,%2
$DOFR5 UFTINI,%1,%4,,%2
$DOFR5 UNCHAR,%1,%4,,%2
$DOFR5 UPPER,%1,%4,,%2
$DOFR5 KERMIT,%1,%4,,%2,,BLKD
$ASSIGN BI=%2,BO=BO,UL=%2
$REWIND BO
$EXECUTE LIB
 POSITION KERMIT
 GET KERMIT
 POSITION B:KERMIT
 COPY
 WEOF BO
 EXIT
$REWIND BO
$ASSIGN BI=BO
$EXECUTE M4EDIT
 LIB UL
 EDIT MAIN BI
 WEOF BO
 EXIT
$REWIND BO
$ASSIGN BI=BO
$EXECUTE TOC
 FILE %3
 OVERLAY KERMIT
 CATALOG
 EXIT
$ENDDO