Initial commit

1 files changed, 39 insertions, 0 deletions

diff --git a/pkg/xtools/xtgids.x b/pkg/xtools/xtgids.x
new file mode 100644
index 00000000..ea56c36c
--- /dev/null
+++ b/pkg/xtools/xtgids.x
@@ -0,0 +1,39 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<ctotok.h>
+
+# XT_GIDS -- Get identifier tokens from a string and match with a dictionary.
+#
+# The input string is scanned for identifier tokens (see definition of
+# identifier token in ctotok) and each token is checked against the
+# dictionary string.  An array of YES/NO values for each dictionary entry,
+# up to a maximum of maxids, is returned.
+
+procedure xt_gids (str, dicstr, ids, maxids)
+
+char	str[ARB]		# Input string
+char	dicstr[ARB]		# Dictionary string
+int	ids[maxids]		# Identifier indices in dictionary
+int	maxids			# Maximum number of identifiers
+
+int	i, ip, token
+char	tokstr[SZ_LINE]
+
+int	ctotok(), strdic()
+
+begin
+	call amovki (NO, ids, maxids)
+
+	ip = 1
+	repeat {
+	    token = ctotok (str, ip, tokstr, SZ_LINE)
+	    switch (token) {
+	    case TOK_EOS:
+		return
+	    case TOK_IDENTIFIER:
+		i = strdic (tokstr, tokstr, SZ_LINE, dicstr)
+		if ((i > 0) && (i <= maxids))
+		    ids[i] = YES
+	    }
+	}
+end