Repatch (from linux) of OSX IRAF

1 files changed, 59 insertions, 0 deletions

diff --git a/sys/symtab/stenter.x b/sys/symtab/stenter.x
new file mode 100644
index 00000000..04294c97
--- /dev/null
+++ b/sys/symtab/stenter.x
@@ -0,0 +1,59 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"symtab.h"
+
+# STENTER -- Add a symbol to the symbol table.  If the named symbol is already
+# present in the table it will be redefined until STFREE is called to return
+# the storage allocated for the current symbol.  A pointer to the user part
+# of the symstruct is returned as the function value.
+
+pointer	procedure stenter (stp, key, u_symlen)
+
+pointer	stp			# symbol table descriptor
+char	key[ARB]		# symbol name
+int	u_symlen		# length of user part of symstruct (su)
+
+long	sum
+pointer	el, tp
+int	symlen, new_symbol, thread, ip
+int	stpstr(), stalloc()
+errchk	stalloc, stpstr
+
+begin
+	if (key[1] == EOS)
+	    call error (1, "stenter: null key string")
+
+	# Hash the key onto a thread in the index.
+	sum = 0
+	do ip = 1, MAX_HASHCHARS {
+	    if (key[ip] == EOS)
+		break
+	    sum = sum + (sum + key[ip])
+	}
+
+	thread = mod (sum, ST_INDEXLEN(stp))
+	tp = ST_INDEX(stp) + thread
+
+	# Allocate space in STAB.
+	symlen = LEN_SYMSTRUCT + u_symlen
+	new_symbol = stalloc (stp, symlen)
+
+	# Initialize symstruct.
+	el = ST_STABP(stp) + new_symbol
+	E_NEXTHASH(el)	= Memi[tp]
+	E_NEXTGLOB(el)	= ST_LASTSYMBOL(stp)
+	E_THREAD(el)    = thread
+	E_KEY(el)	= stpstr (stp, key, 0)
+
+	# Set the head of thread list and the head of the global list to
+	# point to the new symbol.  Flag the first key character (used to
+	# quickly determine that a key beginning with a certain character
+	# is not present in the table).
+
+	Memi[tp] = new_symbol
+	ST_LASTSYMBOL(stp) = new_symbol
+	ST_NSYMBOLS(stp) = ST_NSYMBOLS(stp) + 1
+	ST_ASCII(stp,key[1]) = 1
+
+	return (E_USERFIELDS(el))
+end