|
|
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.