30 lines
485 B
Brainfuck
30 lines
485 B
Brainfuck
# greet.b
|
|
implement GreetImproved;
|
|
|
|
include "arg.m";
|
|
include "sys.m";
|
|
include "draw.m";
|
|
sys: Sys;
|
|
arg: Arg;
|
|
|
|
GreetImproved: module {
|
|
init: fn(ctxt: ref Draw->Context, args: list of string);
|
|
};
|
|
|
|
greet: fn(name: string): string;
|
|
|
|
greet(name: string): string {
|
|
return "Hello, " + name + "\n";
|
|
}
|
|
|
|
init (ctxt: ref Draw->Context, args: list of string) {
|
|
sys = load Sys Sys->PATH;
|
|
arg = load Arg Arg->PATH;
|
|
|
|
arg->init(args);
|
|
input := arg->arg();
|
|
|
|
sys->print("%s", greet(input));
|
|
|
|
}
|