Return to make_vms.com CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/make_vms.com, Revision 1.1

1.1     ! maekawa     1: $!
        !             2: $! GNUPLOT make program for VMS, Vers. 1.2, 1996/07/03
        !             3: $! (Rolf Niepraschk, niepraschk@ptb.de)
        !             4: $!
        !             5: $! This command procedure compiles and links GNUPLOT with MMS or MMK or
        !             6: $! invokes the dcl procedure BUILDVMS.COM
        !             7: $!
        !             8: $! Usage: @MAKE_VMS P1 [P2]
        !             9: $!    P1 = compiler ("DECC" or "VAXC" or "GNUC" or special make file if P2 = "")
        !            10: $!         default is "DECC"
        !            11: $!    P2 = special make file (eg. for testing), default is "DESCRIP.MMS"
        !            12: $!
        !            13: $ SAY = "WRITE SYS$OUTPUT"
        !            14: $ IF F$GETSYI("ARCH_TYPE") .NE. 1
        !            15: $ THEN
        !            16: $   AXP = 1
        !            17: $ ENDIF
        !            18: $!
        !            19: $ P1 = F$EDIT(P1,"UPCASE")
        !            20: $ IF P2 .NES. ""
        !            21: $ THEN D_FILE = P2
        !            22: $ ELSE D_FILE := DESCRIP.MMS
        !            23: $ ENDIF
        !            24: $!
        !            25: $ COMPILER := DECC
        !            26: $!
        !            27: $ IF (P1 .EQS. "DECC") .OR. (P1 .EQS. "")
        !            28: $ THEN
        !            29: $   DECC = 1
        !            30: $   COMPILER := DECC
        !            31: $ ELSE
        !            32: $   IF P1 .EQS. "VAXC"
        !            33: $   THEN
        !            34: $     VAXC = 1
        !            35: $     COMPILER := VAXC
        !            36: $   ENDIF
        !            37: $ ELSE
        !            38: $   IF P1 .EQS. "GNUC"
        !            39: $   THEN
        !            40: $     GNUC = 1
        !            41: $     COMPILER := VAXC
        !            42: $   ENDIF
        !            43: $ ELSE
        !            44: $   D_FILE = P1
        !            45: $   DECC = 1
        !            46: $ ENDIF
        !            47: $!
        !            48: $ DCL_PROC = "BUILDVMS.COM"
        !            49: $ COMMAND = ""
        !            50: $ IF F$TYPE(MMK) .NES. ""
        !            51: $   THEN COMMAND = "MMS"
        !            52: $ ELSE
        !            53: $   IF F$SEARCH("SYS$SYSTEM:MMS.EXE") .NES. "" THEN COMMAND = "MMS"
        !            54: $ ENDIF
        !            55: $!
        !            56: $ IF COMMAND .NES. ""
        !            57: $ THEN
        !            58: $   SAY "Make Gnuplot with ''COMMAND' and ''COMPILER'."
        !            59: $   SAY ""
        !            60: $   'COMMAND' /DESCRIPTION='D_FILE' /IGNORE=WARNING
        !            61: $ ELSE
        !            62: $   SAY "Make Gnuplot with DCL procedure ''DCL_PROC'."
        !            63: $   SAY ""
        !            64: $   @'DCL_PROC'
        !            65: $ ENDIF
        !            66: $ EXIT