yaokai1117tiny up3e609ba11 years agoHistory
66 lines · 1.1 KB · Brainfuck
RawDownload
##########################################	The implemention of List.#	This program can be called in inferno shell, to list all the files in distributed file system.#	An example of this command is: "list".##	@author Kai Yao(yaokai)#########################################  implement List; include "sys.m";include "draw.m";include "dfsclient.m";include "dfsutil.m";include "arg.m"; sys : Sys;dfsclient : DFSClient;dfsutil : DFSUtil;arg : Arg; DFSFile : import dfsutil;DFSChunk : import dfsutil;DFSNode : import dfsutil; List : module {	init : fn(ctxt : ref Draw->Context, args : list of string);}; init(ctxt : ref Draw->Context, args : list of string){	sys = load Sys Sys->PATH;	dfsutil = load DFSUtil DFSUtil->PATH;	dfsclient = load DFSClient DFSClient->PATH;	arg = load Arg Arg->PATH; 	dfsutil->init();	dfsclient->init(); 	lflag := 0;#	arg->init(args);#	while ((c := arg->opt()) != 0)#	case c {#			'l' => lflag = 1;#			* => {#				sys->print("unknown option (%c)\n", c);#				exit;#			}#		}		strSrc := dfsclient->listFiles();#	strList := sys->tokenize(strSrc, "\n"); 	sys->print("%s", strSrc);}