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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
$!
$! - - - - - - -
$! C R E A T E
$! - - - - - - -
$!
$! Create SLALIB releases from source - VAX and Unix
$!
$! The command is @CREATE
$!
$! The default directory must be the one containing the source
$! modules. The VAX release will be inserted into [.RELEASE]
$! and the Unix release into [.UNIX]. Prior contents of any
$! pre-existing [.RELEASE] and [.UNIX] directories will be lost.
$!
$! P.T.Wallace Starlink 22 January 1998
$!
$!----------------------------------------------------------------------
$!
$! VMS
$!
$! Create an empty [.RELEASE] directory
$ IF F$SEARCH("RELEASE.DIR").EQS."" THEN $CREATE/DIR [.RELEASE]
$ IF F$SEARCH("[.RELEASE]*.*").NES."" THEN $DELETE [.RELEASE]*.*;*
$!
$! Copy the document and news item
$ COPY SUN67.TEX [.RELEASE]*.*
$ COPY SLA.NEWS [.RELEASE]*.*
$!
$! Initialise the text and object libraries
$ LIBR/CREATE/TEXT [.RELEASE]SLALIB.TLB
$ PURGE [.RELEASE]SLALIB.TLB
$ LIBR/CREATE [.RELEASE]SLALIB.OLB
$ PURGE [.RELEASE]SLALIB.OLB
$!
$! Update the libraries
$UPOBJ:
$ FILE = F$SEARCH("*.FOR")
$ IF FILE .EQS. "" THEN GOTO UPOBJX
$ NAME = F$PARSE(FILE,,,"NAME")
$ @PUT 'NAME'
$ GOTO UPOBJ
$UPOBJX:
$ @PUT GRESID.VAX
$ @PUT RANDOM.VAX
$ @PUT WAIT.VAX
$!
$! Compress
$ LIBR/COMP/DATA=REDUCE/TEXT/OUTPUT=[.RELEASE]SLALIB.TLB -
[.RELEASE]SLALIB.TLB
$ PURGE [.RELEASE]SLALIB.TLB
$ LIBR/COMP/OUTPUT=[.RELEASE]SLALIB.OLB [.RELEASE]SLALIB.OLB
$ PURGE [.RELEASE]SLALIB.OLB
$!
$!----------------------------------------------------------------------
$!
$! UNIX
$!
$! Create an empty [.UNIX] directory
$ IF F$SEARCH("UNIX.DIR").EQS."" THEN $CREATE/DIR [.UNIX]
$ IF F$SEARCH("[.UNIX]*.*").NES."" THEN $DELETE [.UNIX]*.*;*
$!
$! Copy the platform-independent Fortran source
$FLOOP:
$ FILE = F$SEARCH("*.FOR")
$ IF FILE.EQS."" THEN $GOTO FLOOPX
$ FILE=F$EXTRACT(0,F$LOCATE(";",FILE),FILE)
$ NAME = F$PARSE(FILE,,,"NAME")
$ IF NAME .EQS. "GRESID" THEN $GOTO FLOOP
$ IF NAME .EQS. "RANDOM" THEN $GOTO FLOOP
$ IF NAME .EQS. "WAIT" THEN $GOTO FLOOP
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT 'FILE' [.UNIX]'NAME'.F
$ GOTO FLOOP
$FLOOPX:
$!
$! Copy the platform specific source code
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.VAX [.UNIX]GRESID.VAX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.PCM [.UNIX]GRESID.PCM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.CNVX [.UNIX]GRESID.CNVX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.MIPS [.UNIX]GRESID.MIPS
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.SUN4 [.UNIX]GRESID.SUN4
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.LNX [.UNIX]GRESID.LNX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT GRESID.DEC [.UNIX]GRESID.DEC
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.VAX [.UNIX]RANDOM.VAX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.PCM [.UNIX]RANDOM.PCM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.CNVX [.UNIX]RANDOM.CNVX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.MIPS [.UNIX]RANDOM.MIPS
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.SUN4 [.UNIX]RANDOM.SUN4
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.LNX [.UNIX]RANDOM.LNX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RANDOM.DEC [.UNIX]RANDOM.DEC
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT RTL_RANDOM.C [.UNIX]RTL_RANDOM.C
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.VAX [.UNIX]WAIT.VAX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.PCM [.UNIX]WAIT.PCM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.CNVX [.UNIX]WAIT.CNVX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.MIPS [.UNIX]WAIT.MIPS
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.SUN4 [.UNIX]WAIT.SUN4
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.LNX [.UNIX]WAIT.LNX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT WAIT.DEC [.UNIX]WAIT.DEC
$!
$! Copy the miscellaneous files
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT MK [.UNIX]MK
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT MAKEFILE [.UNIX]MAKEFILE
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA_LINK [.UNIX]SLA_LINK
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA_LINK_ADAM [.UNIX]SLA_LINK_ADAM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SUN67.TEX [.UNIX]SUN67.TEX
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT READ.ME [.UNIX]READ.ME
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT SLA.NEWS [.UNIX]SLA.NEWS
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT PC.BAT [.UNIX]PC.BAT
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT REP.BAT [.UNIX]REP.BAT
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT CREATE.COM [.UNIX]CREATE.COM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT PUT.COM [.UNIX]PUT.COM
$ CONVERT/FDL=SYS$SYSTEM:UCX$CONVERT VAX_TO_UNIX.USH [.UNIX]VAX_TO_UNIX.
$! ^^^
$! The USH suffix prevents accidental
$! execution of the script when the
$! working directory is .RELEASE instead
$! of .UNIX
$!
$! Explain what to do next
$ COPY SYS$INPUT SYS$OUTPUT
To complete building the Unix release, please do the following:
1) Login to the Unix machine.
2) Locate the NFS-served directory corresponding to subdirectory
[.UNIX] of the current default directory.
3) For efficiency, and to avoid possible problems involving case
sensitivity in filenames, copy all the files in that directory
to a scratch directory on the Unix machine.
4) Type "vax_to_unix" to archive all the source files.
$!
$!----------------------------------------------------------------------
$!
$! Wrap up
$ PURGE [...]
$ SET FILE/TRUNCATE [...]*.*/EXCLUDE=CREATE.COM
$ EXIT
|
