1Srvbrowse: module 2{ 3 PATH: con "/dis/grid/lib/srvbrowse.dis"; 4 5 services : list of ref Registries->Service; 6 7 init : fn (); 8 refreshservices : fn (filter: list of list of (string, string)); 9 servicepath2Service : fn (path, qid: string): list of ref Registries->Service; 10 servicepath2Dir : fn (path: string, qid: int): (array of ref sys->Dir, int); 11 getresname : fn (srvc: ref Registries->Service): (string, string); 12 getqid : fn (srvc: ref Registries->Service): string; 13 find : fn (filter: list of list of (string, string)): list of ref Registries->Service; 14 addservice: fn (srvc: ref Registries->Service); 15 searchwin: fn (ctxt: ref Draw->Context, chanout: chan of string, filter: list of list of (string, string)); 16};