forked from endlesssoftware/netlib
-
Notifications
You must be signed in to change notification settings - Fork 0
/
kitinstal.com
executable file
·88 lines (81 loc) · 2.08 KB
/
kitinstal.com
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
$! [NETLIB]KITINSTAL.COM
$!
$! KITINSTAL procedure for installing NETLIB.
$!
$! 31-JAN-1991 V1.0 Madison Initial coding.
$! 05-FEB-1991 V1.0-1 Madison Two parts for integration into other kits.
$! 21-SEP-1994 V1.1 Madison Moved AXP objects to separate save set.
$! 23-APR-1998 V1.2 Madison Check for something actually installed.
$! 19-NOV-2012 V1.3 Sneddon Reinstate VAX support.
$!
$ ON CONTROL_Y THEN GOTO NETLIB_CONTROL_Y
$ ON WARNING THEN GOTO NETLIB_FAIL
$!
$ IF P1 .EQS. "VMI$_INSTALL" THEN GOTO NETLIB_INSTALL
$ EXIT VMI$_UNSUPPORTED
$!
$NETLIB_CONTROL_Y:
$ VMI$CALLBACK CONTROL_Y
$!
$NETLIB_FAIL:
$ NETLIB_STATUS == $STATUS
$ IF F$TRNLNM ("NETLIB_STUP") .NES. "" THEN CLOSE NETLIB_STUP
$ EXIT 'NETLIB_STATUS
$!
$NETLIB_INSTALL:
$!
$ IF P2 THEN SET VERIFY
$!
$ NETLIB_SAY := WRITE SYS$OUTPUT
$!
$ tmp = F$GETSYI("ARCH_NAME")
$ IF tmp .EQS. "VAX"
$ THEN
$ NETLIB_AXP = 0
$ NETLIB_I64 = 0
$ NETLIB_VAX = 1
$ ENDIF
$!
$ IF tmp .EQS. "Alpha"
$ THEN
$ NETLIB_AXP = 1
$ NETLIB_I64 = 0
$ NETLIB_VAX = 0
$ ENDIF
$!
$ IF tmp .EQS. "IA64"
$ THEN
$ NETLIB_AXP = 0
$ NETLIB_I64 = 1
$ NETLIB_VAX = 0
$ ENDIF
$!
$!
$ VMI$CALLBACK CHECK_NET_UTILIZATION NETLIB_ENOUGHDISK 3000 30 3000
$ IF .NOT. NETLIB_ENOUGHDISK THEN EXIT VMI$_FAILURE
$!
$ VMI$CALLBACK SET SAFETY CONDITIONAL 5000
$!
$!
$ TYPE SYS$INPUT:
NETLIB Installation Procedure
Copyright © 1992,1994,1996-2005 by MadGoat Software.
All Rights Reserved.
Redistribution for no commercial gain is permitted.
$!
$!
$ VMI$CALLBACK SET PURGE ASK
$ @VMI$KWD:NETLIB_INSTALL 'P1 'P2 'P3 'P4 'P5 'P6 'P7 'P8
$ NETLIB_STATUS == $STATUS
$ IF NETLIB_STATUS .EQ. VMI$_SUCCESS .AND. "''NETLIB_INSTALLED'" .EQS. "YES"
$ THEN
$ TYPE SYS$INPUT
All NETLIB images have been linked. Remember to edit your system
startup command procedure to add the following commmand:
$ @SYS$STARTUP:NETLIB_STARTUP
to ensure that the NETLIB logical names are defined and the
NETLIB shareable images are installed at system startup.
$!
$ ENDIF
$!
$ EXIT 'NETLIB_STATUS