########################################## 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);}
########################################
#
# 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);
}