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
|
$ ! @(#)preinstall.com 19.1 (ESO-IPG) 02/25/03 13:57:20
$ !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$ !
$ ! .COPYRIGHT (c) 1991 European Southern Observatory
$ ! .ENVIRONMENT VMS
$ ! .AUTHOR Carlos Guirao - [ESO/IPG]
$ ! .IDENT PREINSTALL.COM
$ ! .COMMENTS VMS preinstall procedure in [MIDAS.TEST.LIBSRC.ST]
$ ! .REMARKS Generated by hand. Check for the new alpha-vms system.
$ ! .DATE 93.01.18: Implementation
$ ! .DATE 94.02.17: add fsyvmsb.mar KB
$ !
$ !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
$ !
$ SET NOON
$ VERIFY = F$VERIFY(1)
$ !
$ CC testvms
$ LINK testvms
$ RUN testvms
$ OPEN/READ LOG_FILE test.log
$ READ/END_OF_FILE=ERROR LOG_FILE RECORD
$ NN = F$LOCATE("ALPHA_VMS",RECORD)
$ IF NN .EQ. F$LENGTH(RECORD) THEN GOTO NO_ALPHA
$ CLOSE LOG_FILE
$ COPY fsyalpha.mar fsy1.mar
$ COPY fsyalphc.mar fsy2.mar
$ COPY fsyalphd.mar fsy3.mar
$ COPY fsyalphe.mar fsy4.mar
$ COPY fsyalphb.mar fsy5.mar
$ GOTO CONTINUE
$ !
$ ERROR:
$ CLOSE LOG_FILE
$ WRITE SYS$OUTPUT "ERROR: TEST.LOG IS EMPTY"
$ EXIT
$ !
$ NO_ALPHA:
$ CLOSE LOG_FILE
$ COPY fsyvmsa.mar fsy1.mar
$ COPY fsyvmsc.mar fsy2.mar
$ COPY fsyvmsd.mar fsy3.mar
$ COPY fsyvmse.mar fsy4.mar
$ COPY fsyvmsb.mar fsy5.mar
$ !
$ CONTINUE:
$ COPY osyvmsa.c osyc.c
$ COPY osyvmsb.c fsy.c
$ MACRO fsy1
$ MACRO fsy2
$ MACRO fsy3
$ MACRO fsy4
$ MACRO fsy5
$ LIB/REPLACE libst fsy1.obj,fsy2.obj,fsy3.obj,fsy4.obj,fsy5.obj
$ IF VERIFY .EQ. 0 THEN SET NOVERIFY
|
