$ !SET VERIFY $ SET ON $ !-------------------------------------------------------------------------- $ ! $ ! S Y S _ U T I L I T Y : W A T C H D O G . B L D $ ! $ ! Purpose: $ ! Compiles and Links Watchdog Program $ ! $ ! Original: G. H. Walrod III $ ! Modification: $ ! V4.0-0 Add Multi Version Section so User $ ! have the Option. $ ! 12/06/85 George H. Walrod III $ ! $ ! V4.0-2 Made it So That Recompling is a neccessary $ ! 02/18/86 George H. Walrod III $ ! $ ! V4.1-0 Add Exeception Routines $ ! 02/19/86 George H. Walrod III $ ! $ !-------------------------------------------------------------------------- $ WRITE SYS$OUTPUT "This Command file is used to Build WATCHDOG" $ WRITE SYS$OUTPUT " " $ ! $ ! Inquire VMS Version Number $ ! $ INQUIRE version - "Are you building WATCHDOG for VMS versions lower than 4.0(def: N) " $ IF version .EQS. "" THEN version = "N" $ WRITE SYS$OUTPUT " " $ ! $ ! Inquire for Recompile with Debug $ ! $ INQUIRE debugger - "DO YOU NEED THE DEBUGGER(def: N) " $ IF debugger .EQS. "" THEN debugger = "N" $ WRITE SYS$OUTPUT " " $ debug_link = "/NOTRACEBACK" $ macro_debug = " " $ debug_comp = " " $ IF F$EXTRACT(0,1,debugger) .NES. "Y" THEN GOTO CHECK_DLINES $ debug_comp = "/DEBUG/NOOPTIMIZE" $ macro_debug = "/DEBUG" $ debug_link = "/DEBUG/TRACEBACK" $ ! $ ! Inquire for Recompile with D_LINES $ ! $CHECK_DLINES: $ INQUIRE dlines - "DO YOU NEED THE D_LINES OPTION(def: N) " $ IF dlines .EQS. "" THEN dlines = "N" $ WRITE SYS$OUTPUT " " $ IF F$EXTRACT(0,1,dlines) .NES. "Y" THEN GOTO SETSRC_PROGRAM $ debug_comp = "''debug_comp'/D_LINES" $ ! $ ! Set Version of Watchdog Source $ ! $SETSRC_PROGRAM: $ WRITE SYS$OUTPUT "SETTING VMS VERSION FOR COMPILE" $ IF version .EQS. "N" THEN GOTO SETSRC_4X $ COPY WATCHDOG.F3X WATCHDOG.FOR $ GOTO COMPILE_PROGRAM $SETSRC_4X: $ COPY WATCHDOG.F4X WATCHDOG.FOR $ ! $ ! Compile WATCHDOG.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Watchdog" $ FORTRAN/LIST/CROSS/CONTIN=99 WATCHDOG.FOR 'debug_comp' $ ! $ ! Assemble WATCHSYM.MAR $ ! $ WRITE SYS$OUTPUT "Assembling Watchsym Macro" $ MACRO/LIST WATCHSYM.MAR $ LIBRARY/CREATE WATCHDOG WATCHSYM $ IF VERSION .NES. "N" THEN GOTO LINK_PROGRAM $ ! $ ! Assemble GETPID.MAR $ ! $ WRITE SYS$OUTPUT "Assembling Getpid Macro For 4.X" $ MACRO/LIST GETPID.MAR 'macro_debug' $ LIBRARY WATCHDOG GETPID $ ! $ ! Compile ACCTCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Acctcheck" $ FORTRAN/LIST/CROSS/CONTIN=99 ACCTCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG ACCTCHECK $ ! $ ! Compile CHECKEOLN.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Checkeoln" $ FORTRAN/LIST/CROSS/CONTIN=99 CHECKEOLN.FOR 'debug_comp' $ LIBRARY WATCHDOG CHECKEOLN $ ! $ ! Compile CHECKSUB.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Checksub" $ FORTRAN/LIST/CROSS/CONTIN=99 CHECKSUB.FOR 'debug_comp' $ LIBRARY WATCHDOG CHECKSUB $ ! $ ! Assemble CHKNETDEV.MAR $ ! $ WRITE SYS$OUTPUT "Assembling Chknetdev Macro" $ MACRO/LIST CHKNETDEV.MAR 'macro_debug' $ LIBRARY WATCHDOG CHKNETDEV $ ! $ ! Compile GETRECORD.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Getrecord" $ FORTRAN/LIST/CROSS/CONTIN=99 GETRECORD.FOR 'debug_comp' $ LIBRARY WATCHDOG GETRECORD $ ! $ ! Compile GETVALUE.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Getvalue" $ FORTRAN/LIST/CROSS/CONTIN=99 GETVALUE.FOR 'debug_comp' $ LIBRARY WATCHDOG GETVALUE $ ! $ ! Compile GETWORD.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Getword" $ FORTRAN/LIST/CROSS/CONTIN=99 GETWORD.FOR 'debug_comp' $ LIBRARY WATCHDOG GETWORD $ ! $ ! Assemble GETPRCCNT.MAR $ ! $ WRITE SYS$OUTPUT "Assembling Getprccnt Macro" $ MACRO/LIST GETPRCCNT.MAR 'macro_debug' $ LIBRARY WATCHDOG GETPRCCNT $ ! $ ! Compile IMAGCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Imagcheck" $ FORTRAN/LIST/CROSS/CONTIN=99 IMAGCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG IMAGCHECK $ ! $ ! Compile PROCCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Proccheck" $ FORTRAN/LIST/CROSS/CONTIN=99 PROCCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG PROCCHECK $ ! $ ! Compile WATCHPARSE.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Watchparse" $ FORTRAN/LIST/CROSS/CONTIN=99 WATCHPARSE.FOR 'debug_comp' $ LIBRARY WATCHDOG WATCHPARSE $ ! $ ! Compile TERMCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Termcheck" $ FORTRAN/LIST/CROSS/CONTIN=99 TERMCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG TERMCHECK $ ! $ ! Compile UICCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Uiccheck" $ FORTRAN/LIST/CROSS/CONTIN=99 UICCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG UICCHECK $ ! $ ! Compile USERCHECK.FOR $ ! $COMPILE_PROGRAM: $ WRITE SYS$OUTPUT "Recompiling Usercheck" $ FORTRAN/LIST/CROSS/CONTIN=99 USERCHECK.FOR 'debug_comp' $ LIBRARY WATCHDOG USERCHECK $ ! $ ! LINK WATCHDOG $ ! $LINK_PROGRAM: $ WRITE SYS$OUTPUT "Linking Watchdog" $ getpid_macro = ", SYS$SYSTEM:SYS.STB/SELECTIVE" $ IF VERSION .NES. "N" THEN getpid_macro = " " $ LINK WATCHDOG, WATCHDOG/INCLUDE=WATCHSYM/LIBRARY/SELECTIVE - 'getpid_macro' 'debug_link' $ ! $ ! EXITING $ ! $ WRITE SYS$OUTPUT "Complete" $ EXIT