ref: 3b9c359adee736531f204ac53500edf16d7c0fb2
dir: /module/cfgfile.m/
# # simple adt that operates on whitespace separated config files # such as /services/webget/config # CfgFile: module { PATH: con "/dis/lib/cfgfile.dis"; ConfigFile: adt { getcfg: fn(me: self ref ConfigFile,field:string):list of string; setcfg: fn(me: self ref ConfigFile,field:string,val:string); delete: fn(me: self ref ConfigFile,field:string); flush: fn(me: self ref ConfigFile): string; # ----- private ------ lines: list of string; file: string; readonly: int; }; init: fn(file:string):ref ConfigFile; verify: fn(defaultpath: string, path: string) :ref Sys->FD; };