Data commit

Task/Command-line-arguments/CLU/command-line-arguments.clu

@@ -0,0 +1,14 @@
+% This program needs to be merged with PCLU's "useful.lib",
+% where get_argv lives.
+%
+% pclu -merge $CLUHOME/lib/useful.lib -compile cmdline.clu
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+
+    args: sequence[string] := get_argv()
+
+    for arg: string in sequence[string]$elements(args) do
+        stream$putl(po, "arg: " || arg)
+    end
+end start_up