Initial commit

1 files changed, 140 insertions, 0 deletions

diff --git a/src/slalib/create.com b/src/slalib/create.com
new file mode 100755
index 0000000..161584c
--- /dev/null
+++ b/src/slalib/create.com
@@ -0,0 +1,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