Repatch (from linux) of OSX IRAF

1 files changed, 27 insertions, 0 deletions

diff --git a/sys/pmio/pmascii.x b/sys/pmio/pmascii.x
new file mode 100644
index 00000000..3e85d0af
--- /dev/null
+++ b/sys/pmio/pmascii.x
@@ -0,0 +1,27 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<pmset.h>
+include	<plio.h>
+
+# PM_ASCIIDUMP -- Dump a two dimensional region of a mask as a printable ASCII
+# character array on the output stream.  Intended as a simple debugging tool;
+# see also PM_SAVEIM.
+
+procedure pm_asciidump (pl, vs, ve, outfd)
+
+pointer	pl			#I mask descriptor
+long	vs[ARB]			#I ll vector (only first two elements used)
+long	ve[ARB]			#I ur vector (only first two elements used)
+int	outfd			#I output file
+
+include	"pmio.com"
+
+begin
+	if (PM_MAPXY(pl) == NO)
+	    call pl_asciidump (pl, vs, ve, outfd)
+	else {
+	    call imaplv (PM_REFIM(pl), vs, v1, PM_MAXDIM)
+	    call imaplv (PM_REFIM(pl), ve, v2, PM_MAXDIM)
+	    call pl_asciidump (pl, v1, v2, outfd)
+	}
+end