blob: ddc490b8d2b30c2fa79dcb19135b2e64f1d45271 (
plain)
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
|
Cfg : module {
PATH : con "/dis/lib/cfg.dis";
Attr : adt {
name : string;
value : string;
};
Tuple : adt {
lnum : int;
attrs : list of Attr;
lookup: fn (t : self ref Tuple, name : string) : string;
};
Record : adt {
tuples : list of ref Tuple;
lookup : fn (r : self ref Record, name : string) : (string, ref Tuple);
};
init : fn (path : string) : string;
reset: fn();
lookup : fn (name : string) : list of (string, ref Record);
getkeys : fn () : list of string;
parseline: fn(s: string, lno: int): (ref Tuple, string);
};
|
