1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
Registries: module {
PATH: con "/dis/lib/registries.dis";
init: fn();
Attributes: adt {
attrs: list of (string, string);
get: fn(a: self ref Attributes, attr: string): string;
set: fn(a: self ref Attributes, attr, val: string);
new: fn(attrs: list of (string, string)): ref Attributes;
};
Attached: adt {
fd: ref Sys->FD;
signerpkhash: string;
localuser: string;
remoteuser: string;
};
Service: adt {
addr: string; # dial this to connect to the service.
attrs: ref Attributes; # information about the nature of the service.
attach: fn(s: self ref Service, user: string, keydir: string): ref Attached;
};
Registered: adt {
addr: string;
reg: ref Registry;
fd: ref Sys->FD;
};
Registry: adt {
dir: string;
indexfd: ref Sys->FD;
new: fn(dir: string): ref Registry;
connect: fn(svc: ref Service, user: string, keydir: string): ref Registry;
services: fn(r: self ref Registry): (list of ref Service, string);
find: fn(r: self ref Registry, a: list of (string, string)): (list of ref Service, string);
register: fn(r: self ref Registry, addr: string, attrs: ref Attributes, persist: int): (ref Registered, string);
unregister: fn(r: self ref Registry, addr: string): string;
};
};
|
