Repatch (from linux) of OSX IRAF

1 files changed, 90 insertions, 0 deletions

diff --git a/pkg/xtools/skywcs/skstat.x b/pkg/xtools/skywcs/skstat.x
new file mode 100644
index 00000000..82d2f1c2
--- /dev/null
+++ b/pkg/xtools/skywcs/skstat.x
@@ -0,0 +1,90 @@
+include "skywcsdef.h"
+include "skywcs.h"
+
+
+# SK_STATD -- Get a double precision coordinate parameter.
+
+double procedure sk_statd (coo, param)
+
+pointer	coo			#I pointer to the coordinate structure
+int	param			#I the input parameter
+
+begin
+	switch (param) {
+	case S_VXOFF:
+	    return (SKY_VXOFF(coo))
+	case S_VYOFF:
+	    return (SKY_VYOFF(coo))
+	case S_VXSTEP:
+	    return (SKY_VXSTEP(coo))
+	case S_VYSTEP:
+	    return (SKY_VYSTEP(coo))
+	case S_EQUINOX:
+	    return (SKY_EQUINOX(coo))
+	case S_EPOCH:
+	    return (SKY_EPOCH(coo))
+	default:
+	    call error (0, "SKY_STATD: Unknown coordinate system parameter")
+	}
+end
+
+
+# SK_STATI -- Get an integer coordinate parameter.
+
+int procedure sk_stati (coo, param)
+
+pointer	coo			#I pointer to the coordinate structure
+int	param			#I the input parameter
+
+begin
+	switch (param) {
+	case S_CTYPE:
+	    return (SKY_CTYPE(coo))
+	case S_RADECSYS:
+	    return (SKY_RADECSYS(coo))
+	case S_WTYPE:
+	    return (SKY_WTYPE(coo))
+	case S_PLNGAX:
+	    return (SKY_PLNGAX(coo))
+	case S_PLATAX:
+	    return (SKY_PLATAX(coo))
+	case S_XLAX:
+	    return (SKY_XLAX(coo))
+	case S_YLAX:
+	    return (SKY_YLAX(coo))
+	case S_PIXTYPE:
+	    return (SKY_PIXTYPE(coo))
+	case S_NLNGAX:
+	    return (SKY_NLNGAX(coo))
+	case S_NLATAX:
+	    return (SKY_NLATAX(coo))
+	case S_NLNGUNITS:
+	    return (SKY_NLNGUNITS(coo))
+	case S_NLATUNITS:
+	    return (SKY_NLATUNITS(coo))
+	case S_STATUS:
+	    return (SKY_STATUS(coo))
+	default:
+	    call error (0, "SKY_STATI: Unknown coordinate system parameter")
+	}
+end
+
+
+
+# SK_STATS -- Get a character string coordinate parameter.
+
+procedure sk_stats (coo, param, value, maxch)
+
+pointer	coo			#I pointer to the coordinate structure
+int	param			#I the input parameter
+char	value			#O the output string
+int	maxch			#I the maximum size of the string
+
+begin
+	switch (param) {
+	case S_COOSYSTEM:
+	    call strcpy (SKY_COOSYSTEM(coo), value, maxch)
+	default:
+	    call error (0, "SKY_GETSTR: Unknown coordinate system parameter")
+	}
+end