Current section
Files
Jump to
Current section
Files
sune.escript
#! /usr/bin/env escript
%%! -sname stina
-record(allan, {a,x,y}).
main(Args) ->
io:format("~p\n~p\n", [init:get_arguments(),init:get_plain_arguments()]),
io:format("~p\n~p\n", [Args,#allan{a=Args,x=length(Args)}]),
a(Args).
a([A | Args]) ->
log(a, Args),
b(Args);
a([]) ->
ok.
b([A | Args]) ->
log(b, Args),
c(Args);
b([]) ->
ok.
c([A | Args]) ->
log(c, Args),
a(Args);
c([]) ->
ok.
log(F, Args) ->
io:format("~p ~p\n", [F, Args]).