code: purgatorio

ref: 6042bb8adffe111049edfcb8b2eb1ad84814ed69
dir: /appl/cmd/tokenize.b/

View raw version 
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);
}