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