1 files changed, 44 insertions, 0 deletions
diff --git a/pkg/lists/words.x b/pkg/lists/words.x
new file mode 100644
index 00000000..42f4f97e
--- /dev/null
+++ b/pkg/lists/words.x
@@ -0,0 +1,44 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# WORDS -- Break the input up into a series of words or strings.  A word
+# is a sequence of characters delimited by whitespace or newline.  A string
+# is delimited by single or double quotes, and may not span more than a single
+# line.
+
+procedure t_words()
+
+int	fd, list, last_nscan
+pointer	sp, fname, word
+int	clpopni(), clgfil(), fscan(), nscan(), open()
+
+begin
+	call smark (sp)
+	call salloc (fname, SZ_FNAME, TY_CHAR)
+	call salloc (word, SZ_LINE, TY_CHAR)
+
+	list = clpopni ("files")
+
+	while (clgfil (list, Memc[fname], SZ_FNAME) != EOF) {
+	    fd = open (Memc[fname], READ_ONLY, TEXT_FILE)
+
+	    # We do not know how may "words" there are on a line; get words
+	    # until no more.
+	    while (fscan (fd) != EOF)
+		repeat {
+		    # When nscan() does not increment after a call to gargwrd(),
+		    # we are all done.
+		    last_nscan = nscan()
+		    call gargwrd (Memc[word], SZ_LINE)
+		    if (nscan() > last_nscan) {
+			call printf ("%s\n")
+			    call pargstr (Memc[word])
+		    } else
+			break
+		}
+
+	    call close (fd)
+	}
+
+	call clpcls (list)
+	call sfree (sp)
+end