summaryrefslogtreecommitdiff
path: root/appl/svc/httpd/contents.m
blob: e8a3927b6dedb627e3b38889eb01c710ff1468e9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Contents: module
{
	PATH:		con	"/dis/svc/httpd/contents.dis";

	Content: adt{
		generic: string;
		specific: string;
		q: real;
	};
	
	contentinit: fn(log : ref Sys->FD);
	mkcontent: fn(specific,generic : string): ref Content;
	uriclass:  fn(name : string): (ref Content, ref Content);
	checkcontent: fn(me: ref Content,oks :list of ref Content, 
			clist : string): int;
};