1 (*************************************************************************)
4 * (C
) 2002, Lucent Technologies
, Bell Labs
6 * author
: Matthias
Blume (blume@research
.bell
-labs
.com
)
8 structure StringKey
= struct
10 val compare
= String.compare
12 (*************************************************************************)
15 * (C
) 2002, Lucent Technologies
, Bell Labs
17 * author
: Matthias
Blume (blume@research
.bell
-labs
.com
)
19 structure StringSet
= RedBlackSetFn (StringKey
)
20 (*************************************************************************)
23 * (C
) 2002, Lucent Technologies
, Bell Labs
25 * author
: Matthias
Blume (blume@research
.bell
-labs
.com
)
27 structure StringMap
= RedBlackMapFn (StringKey
)
28 (*************************************************************************)
29 structure IntListKey
= struct
30 type ord_key
= int list
31 val compare
= List.collate
Int.compare
33 (*************************************************************************)
36 * (C
) 2002, Lucent Technologies
, Bell Labs
38 * author
: Matthias
Blume (blume@research
.bell
-labs
.com
)
40 structure IntListMap
= RedBlackMapFn (IntListKey
)
41 (*************************************************************************)
42 structure LargeIntKey
= struct
43 type ord_key
= LargeInt
.int
44 val compare
= LargeInt
.compare
46 (*************************************************************************)
47 structure LargeIntSet
= RedBlackSetFn (LargeIntKey
)
48 (*************************************************************************)