Charles.Forsyth20060303a828770d19 years agoHistory
28 lines · 470 B · Brainfuck
RawDownload
implement Src; include "sys.m";	sys: Sys;include "draw.m";include "dis.m";	dis: Dis; Src: module{	init: fn(nil: ref Draw->Context, argv: list of string);}; init(nil: ref Draw->Context, argv: list of string){	sys = load Sys Sys->PATH;	dis = load Dis Dis->PATH; 	if(dis != nil){		dis->init();		for(argv = tl argv; argv != nil; argv = tl argv){			src := dis->src(hd argv);			if(src == nil)				src = "?";			sys->print("%s:	%s\n", hd argv, src);		}	}}