|
|
1.1 ! root 1: (* Copyright 1989 by AT&T Bell Laboratories *) ! 2: signature INTMAP = ! 3: sig ! 4: type 'a intmap ! 5: val namednew : string * int * exn -> '1a intmap ! 6: val new : int * exn -> '1a intmap ! 7: val add : '2a intmap -> int * '2a -> unit ! 8: val rem : 'a intmap -> int -> unit ! 9: val map : 'a intmap -> int -> 'a ! 10: val app : (int * 'a -> unit) -> 'a intmap -> unit ! 11: val intMapToList: 'a intmap -> (int * 'a) list ! 12: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.