Repatch (from linux) of OSX IRAF

1 files changed, 162 insertions, 0 deletions

diff --git a/unix/hlib/iraf32.h b/unix/hlib/iraf32.h
new file mode 100644
index 00000000..e2d29a8c
--- /dev/null
+++ b/unix/hlib/iraf32.h
@@ -0,0 +1,162 @@
+# IRAF.H -- Basic IRAF Definitions.  These definitions are automatically
+# included in every SPP program.  See also lib$mach.h.
+
+# Generic constants.
+define	ARB		999999999
+define	ERR		-1
+define	EOF		-2
+define	BOF		-3
+define	EOT		-4
+define	BOFL		BOF
+define	EOFL		EOF
+define	EOS		0
+define	NO		0
+define	YES		1
+define	OK		0
+define	NULL		0
+
+# File I/O.
+define	READ_ONLY	1		# file access modes
+define	READ_WRITE	2
+define	WRITE_ONLY	3
+define	APPEND		4
+define	NEW_FILE	5
+define	TEMP_FILE	6
+define	NEW_COPY	7
+define	NEW_IMAGE	5		# nice synonyms for NEW_FILE
+define	NEW_STRUCT	5
+define	NEW_TAPE	5
+define	TEXT_FILE	11		# file types
+define	BINARY_FILE	12
+define	DIRECTORY_FILE	13
+define	STATIC_FILE	14
+define	SYMLINK_FILE	15
+define	SPOOL_FILE	(-2)
+define	RANDOM		1		# advice for imagefiles
+define	SEQUENTIAL	2
+define	CLIN		1		# STDIN of the ptask
+define	CLOUT		2		# STDOUT of the ptask
+define	STDIN		3		# pseudo files (MAXOFILES + i)
+define	STDOUT		4
+define	STDERR		5
+define	STDGRAPH	6
+define	STDIMAGE	7
+define	STDPLOT		8
+
+
+# Language Datatypes.
+define	SZ_BOOL		2		# sizes of the primitive types in chars
+define	SZ_CHAR		1
+define	SZ_SHORT	1
+define	SZ_INT		2
+define	SZ_LONG		2
+define	SZ_REAL		2
+define	SZ_DOUBLE	4
+define	SZ_COMPLEX	4
+define	SZ_POINTER	2
+define	SZ_STRUCT	2
+define	SZ_USHORT	1
+define	SZ_FNAME	255		# max chars in a file name
+define	SZ_PATHNAME	511		# OS dependent file names
+define	SZ_LINE		1023		# max chars in a line
+define	SZ_COMMAND	2047		# max size command block
+
+define  SZ_MII_SHORT    1		# size of MII data in SPP chars
+define  SZ_MII_LONG     2
+define  SZ_MII_REAL     2
+define  SZ_MII_DOUBLE   4
+define  SZ_MII_INT      SZ_MII_LONG
+
+define	SZ_INT32	2		# FIXED -- Do not change!
+define	SZ_LONG32	2
+define	SZ_STRUCT32	2
+
+define	TY_BOOL		1		# codes for type arguments, sizeof
+define	TY_CHAR		2
+define	TY_SHORT	3
+define	TY_INT		4
+define	TY_LONG		5
+define	TY_REAL		6
+define	TY_DOUBLE	7
+define	TY_COMPLEX	8
+define	TY_POINTER	9
+define	TY_STRUCT	10		# last (regular) type code
+define	TY_USHORT	11		# for image i/o
+define	TY_UBYTE	12		# (special) for image i/o
+
+# Indefinite values.
+define	INDEFS		(-32767)
+define	INDEFL		(-2147483647)
+define	INDEFI		INDEFL
+define	INDEFR		1.6e38
+define	INDEFD		1.6d308
+define	INDEFX		(INDEF,INDEF)
+define	INDEF		INDEFR
+
+define	IS_INDEFS	(($1)==INDEFS)
+define	IS_INDEFL	(($1)==INDEFL)
+define	IS_INDEFI	(($1)==INDEFI)
+define	IS_INDEFR	(($1)==INDEFR)
+define	IS_INDEFD	(($1)==INDEFD)
+define	IS_INDEFX	(real($1)==INDEFR)
+define	IS_INDEF	(($1)==INDEFR)
+
+# Useful macros for pointer conversions in data structures.
+define	P2C	((($1)-1)*2+1)
+define	P2S	((($1)-1)*2+1)
+define	P2I	($1)
+define	P2L	($1)
+define	P2R	($1)
+define	P2D	((($1)-1)/2+1)
+define	P2X	((($1)-1)/2+1)
+
+define	P2P	($1)			# no-op
+
+# Map the following onto host Fortran intrinsic functions if possible,
+# else onto the andi, ori, etc. portable VOS functions.
+
+# define and	andi
+# define or	ori
+# define xor	xori
+# define not	noti
+
+# Name conversions (to avoid conflicts with host system).  Must agree with
+# defines in hlib$libc/xnames.h.
+
+define	access	xfaccs
+define	calloc	xcallc
+define	close	xfcloe
+define	delete	xfdele
+define	error	xerror
+define	flush	xffluh
+define	getc	xfgetc
+define	getchar	xfgetr
+define	malloc	xmallc
+define	mfree	xmfree
+define	mktemp	xmktep
+define	note	xfnote
+define	open	xfopen
+define	poll	xfpoll
+define	printf	xprinf
+define	putc	xfputc
+define	putchar	xfputr
+define	qsort	xqsort
+define	read	xfread
+define	realloc	xrealc
+define	seek	xfseek
+define	sizeof	xsizef
+define	strcat	xstrct
+define	strcmp	xstrcp
+define	strcpy	xstrcy
+define	strlen	xstrln
+define	ungetc	xfungc
+define	write	xfwrie
+define  fatal   xfatal
+define  fchdir  xfchdr
+define  fscan   xfscan
+define  getopt  xgtopt
+define  getpid  xgtpid
+define  getuid  xgtuid
+define  rename  xfrnam
+define  reset   xreset
+define  scan    xxscan