1 files changed, 45 insertions, 0 deletions
diff --git a/atarist/perlglob.c b/atarist/perlglob.c
new file mode 100644
index 0000000000..002639ede2
--- /dev/null
+++ b/atarist/perlglob.c
@@ -0,0 +1,45 @@
+/*
+ * glob and echo any globbed args
+ *
+ *  ++jrb  bammi@cadence.com
+ */
+
+#include <stdio.h>
+
+#if __STDC__
+# include <compiler.h>
+#else
+# define __PROTO(X) ()
+#endif
+
+char	**glob __PROTO((char *patt, int decend_dir));
+int	contains_wild __PROTO((char *patt));
+void	free_all __PROTO((void));
+
+
+int main(argc, argv)
+int argc;
+char **argv;
+{
+    --argc; ++argv;
+    while(argc--)
+    {
+	char *word = *argv;
+	char **list;
+	int did_some = 0;
+
+	if(contains_wild(word) && (list = glob(word, 0)))
+	{
+	    while(*list)
+	    {
+		fputs(*list, stdout);
+	        if(*++list) putchar(' ');
+	    }
+	    free_all();
+	    did_some = 1;
+	}
+	if(*++argv && did_some) putchar(' ');
+    }
+    putchar('\0');
+    return 0;
+}