$ ! @(#)preinstall.com	17.1.1.1 (ESO-IPG) 01/25/02 17:36: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