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