25 lines
469 B
Brainfuck
25 lines
469 B
Brainfuck
# loop_arg.b
|
|
|
|
implement GreetEvenMoreImproved;
|
|
|
|
include "sys.m";
|
|
include "draw.m";
|
|
sys: Sys;
|
|
|
|
GreetEvenMoreImproved: module {
|
|
init: fn (ctxt: ref Draw->Context, args: list of string);
|
|
};
|
|
|
|
init(ctxt: ref Draw->Context, args: list of string) {
|
|
sys = load Sys Sys->PATH;
|
|
args = tl args;
|
|
for (s := ""; args != nil; args = tl args)
|
|
s += " " + hd args;
|
|
|
|
if (s != "")
|
|
sys->print("Hello %s \n", s[1:]);
|
|
|
|
if (s == "")
|
|
sys->print("Enter your name.\n");
|
|
}
|