1 (* ========================================================================= *) |
|
2 (* THE WAITING SET OF CLAUSES *) |
|
3 (* Copyright (c) 2002-2007 Joe Hurd, distributed under the BSD License *) |
|
4 (* ========================================================================= *) |
|
5 |
|
6 signature Waiting = |
|
7 sig |
|
8 |
|
9 (* ------------------------------------------------------------------------- *) |
|
10 (* A type of waiting sets of clauses. *) |
|
11 (* ------------------------------------------------------------------------- *) |
|
12 |
|
13 type parameters = |
|
14 {symbolsWeight : real, |
|
15 literalsWeight : real, |
|
16 modelsWeight : real, |
|
17 modelChecks : int, |
|
18 models : Model.parameters list} |
|
19 |
|
20 type waiting |
|
21 |
|
22 type distance |
|
23 |
|
24 (* ------------------------------------------------------------------------- *) |
|
25 (* Basic operations. *) |
|
26 (* ------------------------------------------------------------------------- *) |
|
27 |
|
28 val default : parameters |
|
29 |
|
30 val new : parameters -> Clause.clause list -> waiting |
|
31 |
|
32 val size : waiting -> int |
|
33 |
|
34 val pp : waiting Parser.pp |
|
35 |
|
36 (* ------------------------------------------------------------------------- *) |
|
37 (* Adding new clauses. *) |
|
38 (* ------------------------------------------------------------------------- *) |
|
39 |
|
40 val add : waiting -> distance * Clause.clause list -> waiting |
|
41 |
|
42 (* ------------------------------------------------------------------------- *) |
|
43 (* Removing the lightest clause. *) |
|
44 (* ------------------------------------------------------------------------- *) |
|
45 |
|
46 val remove : waiting -> ((distance * Clause.clause) * waiting) option |
|
47 |
|
48 end |
|