ref: df03eca7e7cbfadf1cf8c8c5a94390eaa5013a8b
dir: /appl/lib/tcl_modhash.b/
implement Mod_Hashtab; include "sys.m"; include "draw.m"; include "tk.m"; include "tcl.m"; include "tcllib.m"; include "utils.m"; hashasu(key : string,n : int): int{ i, h : int; h=0; i=0; while(i<len key){ h = 10*h + key[i]; h = h%n; i++; } return h%n; } alloc(size : int) : ref MHash { h : MHash; t : list of H_link; t=nil; h.size= size; h.tab = array[size] of {* => t}; return ref h; } MHash.dump(h : self ref MHash) : string { retval :string; for (i:=0;i<h.size;i++){ tmp:=(h.tab)[i]; for(;tmp!=nil;tmp = tl tmp){ if ((hd tmp).name!=nil){ retval+=(hd tmp).name; retval[len retval]=' '; } } } if (retval!=nil) retval=retval[0:len retval-1]; return retval; } MHash.insert(h : self ref MHash,name: string, val:TclLib) : int { link : H_link; hash,found : int; nlist : list of H_link; nlist=nil; found=0; hash = hashasu(name,h.size); tmp:=(h.tab)[hash]; for(;tmp!=nil;tmp = tl tmp){ link=hd tmp; if (link.name==name){ found=1; link.val = val; } nlist = link :: nlist; } if (!found){ link.name=name; link.val=val; (h.tab)[hash]= link :: (h.tab)[hash]; }else (h.tab)[hash]=nlist; return 1; } MHash.find(h : self ref MHash,name : string) : (int, TclLib){ hash,flag : int; nlist : list of H_link; retval : TclLib; retval=nil; flag=0; nlist=nil; hash = hashasu(name,h.size); tmp:=(h.tab)[hash]; for(;tmp!=nil;tmp = tl tmp){ link:=hd tmp; if ((hd tmp).name==name){ flag = 1; retval = (hd tmp).val; } nlist = link :: nlist; } (h.tab)[hash]=nlist; return (flag,retval); } MHash.delete(h : self ref MHash,name : string) : int { hash,flag : int; nlist : list of H_link; flag=0; nlist=nil; hash = hashasu(name,h.size); tmp:=(h.tab)[hash]; for(;tmp!=nil;tmp = tl tmp){ link:=hd tmp; if (link.name==name) flag = 1; else nlist = link :: nlist; } (h.tab)[hash]=nlist; return flag; }