Repatch (from linux) of OSX IRAF

11 files changed, 363 insertions, 0 deletions

diff --git a/sys/vops/achtgen/acht.x b/sys/vops/achtgen/acht.x
new file mode 100644
index 00000000..ae67ceae
--- /dev/null
+++ b/sys/vops/achtgen/acht.x
@@ -0,0 +1,32 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT -- General data type conversion based on the generic routines
+# The data types are BUcsilrdx.
+
+procedure acht (a, b, nelem, ty_a, ty_b)
+
+char	a[ARB], b[ARB]
+int	ty_a, ty_b, nelem
+
+begin
+ 	switch (ty_a) {
+	case TY_UBYTE:
+	    call achtb (a, b, nelem, ty_b)
+	case TY_USHORT:
+	    call achtu (a, b, nelem, ty_b)
+	case TY_CHAR:
+	    call achtc (a, b, nelem, ty_b)
+	case TY_SHORT:
+	    call achts (a, b, nelem, ty_b)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achti (a, b, nelem, ty_b)
+	case TY_LONG:
+	    call achtl (a, b, nelem, ty_b)
+	case TY_REAL:
+	    call achtr (a, b, nelem, ty_b)
+	case TY_DOUBLE:
+	    call achtd (a, b, nelem, ty_b)
+	case TY_COMPLEX:
+	    call achtx (a, b, nelem, ty_b)
+	}
+end
diff --git a/sys/vops/achtgen/achtb.x b/sys/vops/achtgen/achtb.x
new file mode 100644
index 00000000..0d8cb8a7
--- /dev/null
+++ b/sys/vops/achtgen/achtb.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtb (a, b, nelem, ty_b)
+
+char	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtbb (a, b, nelem)
+	case TY_USHORT:
+	    call achtbu (a, b, nelem)
+	case TY_CHAR:
+	    call achtbc (a, b, nelem)
+	case TY_SHORT:
+	    call achtbs (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtbi (a, b, nelem)
+	case TY_LONG:
+	    call achtbl (a, b, nelem)
+	case TY_REAL:
+	    call achtbr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtbd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtbx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtc.x b/sys/vops/achtgen/achtc.x
new file mode 100644
index 00000000..370a0174
--- /dev/null
+++ b/sys/vops/achtgen/achtc.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtc (a, b, nelem, ty_b)
+
+char	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtcb (a, b, nelem)
+	case TY_USHORT:
+	    call achtcu (a, b, nelem)
+	case TY_CHAR:
+	    call achtcc (a, b, nelem)
+	case TY_SHORT:
+	    call achtcs (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtci (a, b, nelem)
+	case TY_LONG:
+	    call achtcl (a, b, nelem)
+	case TY_REAL:
+	    call achtcr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtcd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtcx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtd.x b/sys/vops/achtgen/achtd.x
new file mode 100644
index 00000000..6f784749
--- /dev/null
+++ b/sys/vops/achtgen/achtd.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtd (a, b, nelem, ty_b)
+
+double	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtdb (a, b, nelem)
+	case TY_USHORT:
+	    call achtdu (a, b, nelem)
+	case TY_CHAR:
+	    call achtdc (a, b, nelem)
+	case TY_SHORT:
+	    call achtds (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtdi (a, b, nelem)
+	case TY_LONG:
+	    call achtdl (a, b, nelem)
+	case TY_REAL:
+	    call achtdr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtdd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtdx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achti.x b/sys/vops/achtgen/achti.x
new file mode 100644
index 00000000..49df790e
--- /dev/null
+++ b/sys/vops/achtgen/achti.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achti (a, b, nelem, ty_b)
+
+int	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtib (a, b, nelem)
+	case TY_USHORT:
+	    call achtiu (a, b, nelem)
+	case TY_CHAR:
+	    call achtic (a, b, nelem)
+	case TY_SHORT:
+	    call achtis (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtii (a, b, nelem)
+	case TY_LONG:
+	    call achtil (a, b, nelem)
+	case TY_REAL:
+	    call achtir (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtid (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtix (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtl.x b/sys/vops/achtgen/achtl.x
new file mode 100644
index 00000000..bf9cc0fa
--- /dev/null
+++ b/sys/vops/achtgen/achtl.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtl (a, b, nelem, ty_b)
+
+long	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtlb (a, b, nelem)
+	case TY_USHORT:
+	    call achtlu (a, b, nelem)
+	case TY_CHAR:
+	    call achtlc (a, b, nelem)
+	case TY_SHORT:
+	    call achtls (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtli (a, b, nelem)
+	case TY_LONG:
+	    call achtll (a, b, nelem)
+	case TY_REAL:
+	    call achtlr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtld (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtlx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtr.x b/sys/vops/achtgen/achtr.x
new file mode 100644
index 00000000..add1fdf4
--- /dev/null
+++ b/sys/vops/achtgen/achtr.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtr (a, b, nelem, ty_b)
+
+real	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtrb (a, b, nelem)
+	case TY_USHORT:
+	    call achtru (a, b, nelem)
+	case TY_CHAR:
+	    call achtrc (a, b, nelem)
+	case TY_SHORT:
+	    call achtrs (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtri (a, b, nelem)
+	case TY_LONG:
+	    call achtrl (a, b, nelem)
+	case TY_REAL:
+	    call achtrr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtrd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtrx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achts.x b/sys/vops/achtgen/achts.x
new file mode 100644
index 00000000..c0aa0026
--- /dev/null
+++ b/sys/vops/achtgen/achts.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achts (a, b, nelem, ty_b)
+
+short	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtsb (a, b, nelem)
+	case TY_USHORT:
+	    call achtsu (a, b, nelem)
+	case TY_CHAR:
+	    call achtsc (a, b, nelem)
+	case TY_SHORT:
+	    call achtss (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtsi (a, b, nelem)
+	case TY_LONG:
+	    call achtsl (a, b, nelem)
+	case TY_REAL:
+	    call achtsr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtsd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtsx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtu.x b/sys/vops/achtgen/achtu.x
new file mode 100644
index 00000000..5edffe96
--- /dev/null
+++ b/sys/vops/achtgen/achtu.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtu (a, b, nelem, ty_b)
+
+short	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtub (a, b, nelem)
+	case TY_USHORT:
+	    call achtuu (a, b, nelem)
+	case TY_CHAR:
+	    call achtuc (a, b, nelem)
+	case TY_SHORT:
+	    call achtus (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtui (a, b, nelem)
+	case TY_LONG:
+	    call achtul (a, b, nelem)
+	case TY_REAL:
+	    call achtur (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtud (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtux (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/achtx.x b/sys/vops/achtgen/achtx.x
new file mode 100644
index 00000000..c0d8e04d
--- /dev/null
+++ b/sys/vops/achtgen/achtx.x
@@ -0,0 +1,34 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# ACHT_ -- Convert an array of type _ to some other datatype.
+# Data types are BUcsilrdx.
+
+procedure achtx (a, b, nelem, ty_b)
+
+complex	a[ARB]
+char	b[ARB]
+int	nelem
+int	ty_b
+
+begin
+	switch (ty_b) {
+	case TY_UBYTE:
+	    call achtxb (a, b, nelem)
+	case TY_USHORT:
+	    call achtxu (a, b, nelem)
+	case TY_CHAR:
+	    call achtxc (a, b, nelem)
+	case TY_SHORT:
+	    call achtxs (a, b, nelem)
+	case TY_INT, TY_POINTER, TY_STRUCT:
+	    call achtxi (a, b, nelem)
+	case TY_LONG:
+	    call achtxl (a, b, nelem)
+	case TY_REAL:
+	    call achtxr (a, b, nelem)
+	case TY_DOUBLE:
+	    call achtxd (a, b, nelem)
+	case TY_COMPLEX:
+	    call achtxx (a, b, nelem)
+	}
+end
diff --git a/sys/vops/achtgen/mkpkg b/sys/vops/achtgen/mkpkg
new file mode 100644
index 00000000..48b7c157
--- /dev/null
+++ b/sys/vops/achtgen/mkpkg
@@ -0,0 +1,25 @@
+# The files in this directory are the higher level type conversion routines.
+# The most general routine is ACHT, which can convert an array of any of the
+# nine datatypes UBcsilrdx to any of the other types (it will cause 100
+# additional subroutines to be linked).  One level down in the structure tree
+# are the ACHTx routines, which will convert an array of type X to any other
+# type.  At the bottom are the ACHTxy routines, which convert from type X
+# to type Y; these procedures are in vops$ak and osb$.
+
+$checkout libvops.a lib$
+$update   libvops.a
+$checkin  libvops.a lib$
+$exit
+
+libvops.a:
+	acht.x
+	achtb.x
+	achtc.x
+	achtd.x
+	achti.x
+	achtl.x
+	achtr.x
+	achts.x
+	achtu.x
+	achtx.x
+	;