ref: c0a28bad03c29788d9fc18b5ab56c13a6222bf7d
dir: /appl/cmd/tokenize.b/
implement Tokenize; include "sys.m"; sys: Sys; include "draw.m"; Tokenize: module { init: fn(nil: ref Draw->Context, nil: list of string); }; stderr: ref Sys->FD; usage() { sys->fprint(stderr, "Usage: tokenize string delimiters\n"); raise "fail: usage"; } init(nil: ref Draw->Context, args : list of string) { sys = load Sys Sys->PATH; stderr = sys->fildes(2); if(args != nil) args = tl args; if(len args != 2) usage(); (nil, l) := sys->tokenize(hd args, hd tl args); for(; l != nil; l = tl l) sys->print("%s\n", hd l); }