Annotation of OpenXM_contrib/gnuplot/make_vms.com, Revision 1.1.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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>