##       Software from the book "Inferno Programming with Limbo"#       published by John Wiley & Sons, January 2003.##       p. Stanley-Marbell <pip@gemusehaken.org>#implement Liner; include "sys.m";include "draw.m";include "bufio.m"; sys : Sys;bufio : Bufio;Iobuf : import bufio;                Liner : module{	init : fn(ctxt : ref Draw->Context, argv : list of string);}; init (nil : ref Draw->Context, argv : list of string){	param := tl argv;	while (param != nil)	{		liner(hd param); 		param = tl param;	}} liner(filename : string){	lines : list of string;	temp_line : string; 	sys = load Sys Sys->PATH;	bufio = load Bufio Bufio->PATH;             	file_buf := bufio->open(filename,sys->ORDWR);	while ()	{		temp_line = file_buf.gets('\n');		if (temp_line == "")			break;		else			lines = temp_line::lines; 	} 	file_buf.seek(0,0);	lines = reorder(lines);                	i := 1;	while (lines != nil)	{		file_buf.puts(string i +"\t"+ hd lines);		lines = tl lines;		i++;	} 	file_buf.flush();}                reorder(flist : list of string) : list of string{	rlist : list of string;                	while (flist != nil)	{		rlist = hd flist::rlist;		flist = tl flist;	}                	return rlist;}