1 files changed, 90 insertions, 0 deletions
diff --git a/sys/qpoe/qpgpsym.x b/sys/qpoe/qpgpsym.x
new file mode 100644
index 00000000..b18199e2
--- /dev/null
+++ b/sys/qpoe/qpgpsym.x
@@ -0,0 +1,90 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	"qpoe.h"
+
+# QP_GPSYM -- Lookup the named parameter in the symbol table and return
+# a pointer to the symstruct describing the parameter as the function value.
+# NULL is returned if the parameter is not defined, or if the named symbol is
+# not a parameter.  Global parameter aliases are recursively expanded.
+# Local macros are not expanded at this level, since local macros are stored
+# as parameters themselves.
+
+pointer procedure qp_gpsym (qp, param)
+
+pointer	qp			#I QPOE descriptor
+char	param[ARB]		#I parameter name
+
+int	n
+pointer	sp, pname, sym, st, sm
+pointer	stfind(), strefsbuf(), qm_symtab()
+errchk	syserrs
+
+#pointer	ip
+#int	fd, nchars
+#int	fm_getfd(), read()
+#errchk	fm_getfd, read, seek
+
+begin
+	call smark (sp)
+	call salloc (pname, SZ_FNAME, TY_CHAR)
+
+	st = QP_ST(qp)
+	sm = qm_symtab (QP_QM(qp))
+	call strcpy (param, Memc[pname], SZ_FNAME)
+
+	# First expand any aliases in the global macro symbol table.
+	sym = stfind (sm, param)
+	for (n=1;  sym != NULL;  n=n+1) {
+	    if (and (S_FLAGS(sym), SF_DELETED) != 0)
+		break
+	    call strcpy (strefsbuf(sm,S_OFFSET(sym)), Memc[pname], SZ_FNAME)
+	    sym = stfind (sm, Memc[pname])
+	    if (n > MAX_INDIR)
+		call syserrs (SYS_QPMRECUR, param)
+	}
+
+	# Lookup the symbol in the datafile local symbol table.  Datafile
+	# local macros cannot be expanded in parameter references, since
+	# the macros are themselves stored as parameters (if macro parameters
+	# were expanded in parameter references, there would be no simple
+	# way to access the macro parameters themselves).
+
+	sym = stfind (st, Memc[pname])
+
+#	Disable expansion of datafile-local macro defines.
+#	if (sym != NULL) {
+#	    for (n=0;  S_DTYPE(sym) == TY_MACRO;  n=n+1) {
+#		if (and (S_FLAGS(sym), SF_DELETED) != 0) {
+#		    break
+#
+#		} else if (S_LFILE(sym) > 0) {
+#		    # Macro value stored as data.
+#		    fd = fm_getfd (QP_FM(qp), S_LFILE(sym), READ_ONLY, 0)
+#
+#		    call seek (fd, S_OFFSET(sym))
+#		    nchars = max (0, read (fd, Memc[pname], S_NELEM(sym)))
+#		    Memc[pname+nchars] = EOS
+#		    ip = pname
+#
+#		    call fm_retfd (QP_FM(qp), S_LFILE(sym))
+#
+#		} else {
+#		    # Macro value stored in symbol table.
+#		    ip = strefsbuf (st, S_OFFSET(sym))
+#		}
+#
+#		# Macro recursion.
+#		if (n > MAX_INDIR)
+#		    call syserrs (SYS_QPMRECUR, param)
+#	    }
+#	}
+
+	# Don't "find" the symbol if it has been deleted.
+	if (sym != NULL)
+	    if (and (S_FLAGS(sym), SF_DELETED) != 0)
+		sym = NULL
+
+	call sfree (sp)
+	return (sym)
+end