##       Software from the book "Inferno Programming with Limbo"#       published by John Wiley & Sons, January 2003.##       p. Stanley-Marbell <pip@gemusehaken.org>#implement Loader; include "sys.m";include "draw.m"; sys : Sys; Loader : module{	init : fn (nil : ref Draw->Context, args : list of string);}; S : module{	s : fn();}; init (nil : ref Draw->Context, args : list of string){ 	sys = load Sys Sys->PATH;         	if (len args != 2)	{		sys->print("Usage :: pump <file.dis>\n");		exit;	}	path := hd tl args; 	pump := load S path;         	if (pump == nil)	{ 		sys->print("Loader :: %r\n");		sys->print("Usage -- pump <file.dis>\n"); 		exit;	}          	sys->print("Loading %s...\n", path);	pump->s();}