1Contents: module 2{ 3 PATH: con "/dis/svc/httpd/contents.dis"; 4 5 Content: adt{ 6 generic: string; 7 specific: string; 8 q: real; 9 }; 10 11 contentinit: fn(log : ref Sys->FD); 12 mkcontent: fn(specific,generic : string): ref Content; 13 uriclass: fn(name : string): (ref Content, ref Content); 14 checkcontent: fn(me: ref Content,oks :list of ref Content, 15 clist : string): int; 16}; 17