-
Notifications
You must be signed in to change notification settings - Fork 105
/
basics.ML
71 lines (59 loc) · 1.71 KB
/
basics.ML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
(*
* Copyright 2020, Data61, CSIRO (ABN 41 687 119 230)
*
* SPDX-License-Identifier: BSD-2-Clause
*)
(* provide an inputLine function à la old version of the Basis Library *)
structure StrictCBasics =
struct
fun inputLine istr = case TextIO.inputLine istr of
NONE => ""
| SOME s => s
(*
val inputLine = TextIO.inputLine
*)
(* fix for Isabelle library change *)
fun assoc x = uncurry (AList.lookup (op =)) x;
(* recreated from Isabelle library change *)
fun assert p msg = if p then () else error msg;
fun list_compare cfn =
let fun comp ([],[]) = EQUAL
| comp ([], _) = LESS
| comp (_, []) = GREATER
| comp (h1::t1, h2::t2) =
case cfn (h1,h2) of EQUAL => comp (t1,t2) | x => x
in comp end;
fun pair_compare (acmp, bcmp) ((a1, b1), (a2, b2)) =
case acmp(a1, a2) of
EQUAL => bcmp(b1, b2)
| x => x
fun option_compare _ (NONE, SOME _) = LESS
| option_compare _ (NONE, NONE) = EQUAL
| option_compare _ (SOME _, NONE) = GREATER
| option_compare cmp (SOME x, SOME y) = cmp(x,y)
fun measure_cmp f (x,y) = Int.compare(f x, f y)
fun inv_img_cmp f c (x,y) = c (f x, f y)
end;
open StrictCBasics
signature FLIP_TABLE =
sig
type key
type 'a table
val flip : key list table -> key list table
end
functor FlipTable(structure Table : TABLE) : FLIP_TABLE =
struct
type key = Table.key
type 'a table = 'a Table.table
fun flip table = let
fun foldthis (k:key,elems:key list) acc =
List.foldl (fn (e,acc) => Table.cons_list (e,k) acc) acc elems
in
Table.fold foldthis table Table.empty
end
end
local
structure FlipSymTab = FlipTable(structure Table = Symtab)
in
val flip_symtab = FlipSymTab.flip
end