14 lines
369 B
Text
14 lines
369 B
Text
% 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
|