.ENABLE SUBSTITUTION .ENABLE GLOBAL ; ; This command file extracts the files necessary to build ; MULPLT and RASTER, as well as extracting the documentation, ; help files and symbol libraries. ; .; .; Figure out where things live .; .IFNDF $SOURC .ASKS [::"SY:"] $SOURC What is the source device .IFNDF $DEST .ASKS [::"SY:"] $DEST What is the destination device .IFNDF $LIST .ASKS [::"NL:"] $LIST What is the list device .; .; Now question the FORTRAN compiler in use, and compile or not .; .IFNDF $FTN .ASKS [::"F77"] $FTN Which FORTRAN are you using .IFNDF $NOCOM .ASK $NOCOM Extract modules only .SETS FD "/NOTR/CO:25" .IF $FTN = "FOR" .SETS FD "/-SN" .IFT $NOCOM .GOTO NOFOR .IFNDF $FORSW .ASKS [::"'FD'"] $FORSW FORTRAN compilation switch .NOFOR: .; .; Now for the build, and build options .; .IFNDF $BUILD .ASK $BUILD Task build either MULPLT or RASTER .IFF $BUILD .GOTO NOBLD .IFNDF $BLDOP .ASKS [::"LIBR=FCSRES:RO"] $BLDOP Task build option .NOBLD: .IFNDF $CLEAN .ASK $CLEAN Clean up the sourcs .; .; install things that might be needed .; .IFNINS ...MAC INS $MAC .IFNINS ...LBR INS $LBR .IFNINS ...'$FTN' INS $'$FTN' .; .; Check the FORTRAN - if FOR, need to get the INCLUDE program .; .IF $FTN NE "FOR" .GOTO FOROK .TESTFILE '$SOURC'INCLUDE.TSK .IF EQ 1 .GOTO FOROK ; ; Since you are using FORTRAN IV (FOR), the INCLUDE program must ; be used to process the INCLUDE statements in the source code. ; LBR '$SOURC'INCLUDE='$SOURC'MULPLT.ULB/EX:INCLUD '$FTN' '$SOURC'INCLUDE='$SOURC'INCLUDE TKB '$SOURC'INCLUDE='$SOURC'INCLUDE .FOROK: .; .; Now on with the normal building of whatever .; .ASK MSULIB Build the MSULIB library .ASK MULPLT Build the MULPLT task .ASK RASTER Build the RASTER task .ASK SYMBOL Build the Symbol libraries .ASK MULDOC Build the MULPLT documentation .ASK FIGURE Extract the MULPLT figures .ASK MULHLP Extract the MULPLT help files ; .IFT MSULIB LBR MSULIB.CMD=MSULIB.ULB/EX:MSULIB .IFT MSULIB @MSULIB ; .IFT MULPLT LBR MULPLT.CMD=MULPLT.ULB/EX:MULCMD .IFT MULPLT @MULPLT ; .IFT RASTER LBR RASTER.CMD=RASTER.ULB/EX:RASCMD .IFT RASTER @RASTER ; .IFT SYMBOL LBR SYMBOL.CMD=SYMBOL.ULB/EX:SYMBOL .IFT SYMBOL @SYMBOL ; .IFT MULDOC LBR MULDOC.CMD=MULPLTDOC.ULB/EX:MULDOC .IFT MULDOC @MULDOC ; .IFT FIGURE LBR FIGURE.CMD=MULPLTFIG.ULB/EX:FIGURE .IFT FIGURE @FIGURE ; .IFT MULHLP LBR MULHLP.CMD=MULPLTHLP.ULB/EX:MULHLP .IFT MULHLP @MULHLP ; ; All done - move any *.TSK files to LB:[1,54] ; *.HLP files to LB:[1,2] ; *.SYM files to SB:[10,10] ; ; Print any documentation files (*.DOC) ; Use MULPLT for the figures (*.PDL, *.SPF, *.DAT) ;