summaryrefslogtreecommitdiff
path: root/appl/ebook/strmap.m
blob: 36475f515b502ddfe3c48b5f1e98a445fcabf567 (plain)
1
2
3
4
5
6
7
8
9
10
11
12

Strmap: module {
	PATH: con "/dis/ebook/strmap.dis";
	Map: adt {
		i2s:	array of string;
		s2i:	array of list of (string, int);
	
		new:	fn(a: array of string): ref Map;
		s:	fn(map: self ref Map, i: int): string;
		i:	fn(map: self ref Map, s: string): int;
	};
};