1
#![allow(unreachable_patterns)]
2

            
3
use std::{
4
    collections::HashMap,
5
    ffi::CString,
6
    sync::Condvar,
7
    sync::{Mutex, MutexGuard},
8
};
9

            
10
use anyhow::anyhow;
11

            
12
use crate::ffi::{self};
13
use crate::{
14
    ast::{Constant, Constraint, Model, Var, VarDomain, VarName},
15
    error::{MinionError, RuntimeError},
16
    scoped_ptr::Scoped,
17
};
18

            
19
/// The callback function used to capture results from Minion as they are generated.
20
///
21
/// This function is called by Minion whenever a solution is found. The input to this function is
22
/// a`HashMap` of all named variables along with their value.
23
///
24
/// Callbacks should return `true` if search is to continue, `false` otherwise.
25
///
26
/// # Examples
27
///
28
/// Consider using a global mutex (or other static variable) to use returned solutions elsewhere.
29
///
30
/// For example:
31
///
32
/// ```
33
///   use minion_rs::ast::*;
34
///   use minion_rs::run_minion;
35
///   use std::{
36
///       collections::HashMap,
37
///       sync::{Mutex, MutexGuard},
38
///   };
39
///
40
///   // More elaborate data-structures are possible, but for sake of example store
41
///   // a vector of solution sets.
42
///   static ALL_SOLUTIONS: Mutex<Vec<HashMap<VarName,Constant>>>  = Mutex::new(vec![]);
43
///   
44
///   fn callback(solutions: HashMap<VarName,Constant>) -> bool {
45
///       let mut guard = ALL_SOLUTIONS.lock().unwrap();
46
///       guard.push(solutions);
47
///       true
48
///   }
49
///    
50
///   // Build and run the model.
51
///   let mut model = Model::new();
52
///
53
///   // ... omitted for brevity ...
54
/// # model
55
/// #     .named_variables
56
/// #     .add_var("x".to_owned(), VarDomain::Bound(1, 3));
57
/// # model
58
/// #     .named_variables
59
/// #     .add_var("y".to_owned(), VarDomain::Bound(2, 4));
60
/// # model
61
/// #     .named_variables
62
/// #     .add_var("z".to_owned(), VarDomain::Bound(1, 5));
63
/// #
64
/// # let leq = Constraint::SumLeq(
65
/// #     vec![
66
/// #         Var::NameRef("x".to_owned()),
67
/// #         Var::NameRef("y".to_owned()),
68
/// #         Var::NameRef("z".to_owned()),
69
/// #     ],
70
/// #     Var::ConstantAsVar(4),
71
/// # );
72
/// #
73
/// # let geq = Constraint::SumGeq(
74
/// #     vec![
75
/// #         Var::NameRef("x".to_owned()),
76
/// #         Var::NameRef("y".to_owned()),
77
/// #         Var::NameRef("z".to_owned()),
78
/// #     ],
79
/// #     Var::ConstantAsVar(4),
80
/// # );
81
/// #
82
/// # let ineq = Constraint::Ineq(
83
/// #     Var::NameRef("x".to_owned()),
84
/// #     Var::NameRef("y".to_owned()),
85
/// #     Constant::Integer(-1),
86
/// # );
87
/// #
88
/// # model.constraints.push(leq);
89
/// # model.constraints.push(geq);
90
/// # model.constraints.push(ineq);
91
///  
92
///   let res = run_minion(model, callback);
93
///   res.expect("Error occurred");
94
///
95
///   // Get solutions
96
///   let guard = ALL_SOLUTIONS.lock().unwrap();
97
///   let solution_set_1 = &(guard.get(0).unwrap());
98
///
99
///   let x1 = solution_set_1.get("x").unwrap();
100
///   let y1 = solution_set_1.get("y").unwrap();
101
///   let z1 = solution_set_1.get("z").unwrap();
102
/// #
103
/// # // TODO: this test would be better with an example with >1 solution.
104
/// # assert_eq!(guard.len(),1);
105
/// # assert_eq!(*x1,Constant::Integer(1));
106
/// # assert_eq!(*y1,Constant::Integer(2));
107
/// # assert_eq!(*z1,Constant::Integer(1));
108
/// ```
109
pub type Callback = fn(solution_set: HashMap<VarName, Constant>) -> bool;
110

            
111
// Use globals to pass things between run_minion and the callback function.
112
// Minion is (currently) single threaded anyways so the Mutexs' don't matter.
113

            
114
// the current callback function
115
static CALLBACK: Mutex<Option<Callback>> = Mutex::new(None);
116

            
117
// the variables we want to return, and their ordering in the print matrix
118
static PRINT_VARS: Mutex<Option<Vec<VarName>>> = Mutex::new(None);
119

            
120
static LOCK: (Mutex<bool>, Condvar) = (Mutex::new(false), Condvar::new());
121

            
122
#[no_mangle]
123
unsafe extern "C" fn run_callback() -> bool {
124
    // get printvars from static PRINT_VARS if they exist.
125
    // if not, return true and continue search.
126

            
127
    // Mutex poisoning is probably panic worthy.
128
    #[allow(clippy::unwrap_used)]
129
    let mut guard: MutexGuard<'_, Option<Vec<VarName>>> = PRINT_VARS.lock().unwrap();
130

            
131
    if guard.is_none() {
132
        return true;
133
    }
134

            
135
    let print_vars = match &mut *guard {
136
        Some(x) => x,
137
        None => unreachable!(),
138
    };
139

            
140
    if print_vars.is_empty() {
141
        return true;
142
    }
143

            
144
    // build nice solutions view to be used by callback
145
    let mut solutions: HashMap<VarName, Constant> = HashMap::new();
146

            
147
    for (i, var) in print_vars.iter().enumerate() {
148
        let solution_int: i32 = ffi::printMatrix_getValue(i as _);
149
        let solution: Constant = Constant::Integer(solution_int);
150
        solutions.insert(var.to_string(), solution);
151
    }
152

            
153
    #[allow(clippy::unwrap_used)]
154
    match *CALLBACK.lock().unwrap() {
155
        None => true,
156
        Some(func) => func(solutions),
157
    }
158
}
159

            
160
/// Run Minion on the given [Model].
161
///
162
/// The given [callback](Callback) is ran whenever a new solution set is found.
163

            
164
// Turn it into a warning for this function, cant unwarn it directly above callback wierdness
165
#[allow(clippy::unwrap_used)]
166
pub fn run_minion(model: Model, callback: Callback) -> Result<(), MinionError> {
167
    // Mutex poisoning is probably panic worthy.
168
    *CALLBACK.lock().unwrap() = Some(callback);
169

            
170
    let (lock, condvar) = &LOCK;
171
    let mut _lock_guard = condvar
172
        .wait_while(lock.lock().unwrap(), |locked| *locked)
173
        .unwrap();
174

            
175
    *_lock_guard = true;
176

            
177
    unsafe {
178
        // TODO: something better than a manual spinlock
179
        let search_opts = ffi::searchOptions_new();
180
        let search_method = ffi::searchMethod_new();
181
        let search_instance = ffi::instance_new();
182

            
183
        convert_model_to_raw(search_instance, &model)?;
184

            
185
        let res = ffi::runMinion(
186
            search_opts,
187
            search_method,
188
            search_instance,
189
            Some(run_callback),
190
        );
191

            
192
        ffi::searchMethod_free(search_method);
193
        ffi::searchOptions_free(search_opts);
194
        ffi::instance_free(search_instance);
195

            
196
        *_lock_guard = false;
197
        std::mem::drop(_lock_guard);
198

            
199
        condvar.notify_one();
200

            
201
        match res {
202
            0 => Ok(()),
203
            x => Err(MinionError::from(RuntimeError::from(x))),
204
        }
205
    }
206
}
207

            
208
unsafe fn convert_model_to_raw(
209
    instance: *mut ffi::ProbSpec_CSPInstance,
210
    model: &Model,
211
) -> Result<(), MinionError> {
212
    /*******************************/
213
    /*        Add variables        */
214
    /*******************************/
215

            
216
    /*
217
     * Add variables to:
218
     * 1. symbol table
219
     * 2. print matrix
220
     * 3. search vars
221
     *
222
     * These are all done in the order saved in the SymbolTable.
223
     */
224

            
225
    let search_vars = Scoped::new(ffi::vec_var_new(), |x| ffi::vec_var_free(x as _));
226

            
227
    // store variables and the order they will be returned inside rust for later use.
228
    #[allow(clippy::unwrap_used)]
229
    let mut print_vars_guard = PRINT_VARS.lock().unwrap();
230
    *print_vars_guard = Some(vec![]);
231

            
232
    for var_name in model.named_variables.get_variable_order() {
233
        let c_str = CString::new(var_name.clone()).map_err(|_| {
234
            anyhow!(
235
                "Variable name {:?} contains a null character.",
236
                var_name.clone()
237
            )
238
        })?;
239

            
240
        let vartype = model
241
            .named_variables
242
            .get_vartype(var_name.clone())
243
            .ok_or(anyhow!("Could not get var type for {:?}", var_name.clone()))?;
244

            
245
        let (vartype_raw, domain_low, domain_high) = match vartype {
246
            VarDomain::Bound(a, b) => Ok((ffi::VariableType_VAR_BOUND, a, b)),
247
            VarDomain::Bool => Ok((ffi::VariableType_VAR_BOOL, 0, 1)), // TODO: will this work?
248
            x => Err(MinionError::NotImplemented(format!("{:?}", x))),
249
        }?;
250

            
251
        ffi::newVar_ffi(
252
            instance,
253
            c_str.as_ptr() as _,
254
            vartype_raw,
255
            domain_low,
256
            domain_high,
257
        );
258

            
259
        let var = ffi::getVarByName(instance, c_str.as_ptr() as _);
260

            
261
        ffi::printMatrix_addVar(instance, var);
262

            
263
        // add to the print vars stored in rust so to remember
264
        // the order for callback function.
265

            
266
        #[allow(clippy::unwrap_used)]
267
        (*print_vars_guard).as_mut().unwrap().push(var_name.clone());
268

            
269
        ffi::vec_var_push_back(search_vars.ptr, var);
270
    }
271

            
272
    let search_order = Scoped::new(
273
        ffi::searchOrder_new(search_vars.ptr, ffi::VarOrderEnum_ORDER_STATIC, false),
274
        |x| ffi::searchOrder_free(x as _),
275
    );
276

            
277
    ffi::instance_addSearchOrder(instance, search_order.ptr);
278

            
279
    /*********************************/
280
    /*        Add constraints        */
281
    /*********************************/
282

            
283
    for constraint in &model.constraints {
284
        // 1. get constraint type and create C++ constraint object
285
        // 2. run through arguments and add them to the constraint
286
        // 3. add constraint to instance
287

            
288
        let constraint_type = get_constraint_type(constraint)?;
289
        let raw_constraint = Scoped::new(ffi::constraint_new(constraint_type), |x| {
290
            ffi::constraint_free(x as _)
291
        });
292

            
293
        constraint_add_args(instance, raw_constraint.ptr, constraint)?;
294
        ffi::instance_addConstraint(instance, raw_constraint.ptr);
295
    }
296

            
297
    Ok(())
298
}
299

            
300
unsafe fn get_constraint_type(constraint: &Constraint) -> Result<u32, MinionError> {
301
    match constraint {
302
        Constraint::SumGeq(_, _) => Ok(ffi::ConstraintType_CT_GEQSUM),
303
        Constraint::SumLeq(_, _) => Ok(ffi::ConstraintType_CT_LEQSUM),
304
        Constraint::Ineq(_, _, _) => Ok(ffi::ConstraintType_CT_INEQ),
305
        Constraint::Eq(_, _) => Ok(ffi::ConstraintType_CT_EQ),
306
        Constraint::Difference(_, _) => Ok(ffi::ConstraintType_CT_DIFFERENCE),
307
        Constraint::Div(_, _) => Ok(ffi::ConstraintType_CT_DIV),
308
        Constraint::DivUndefZero(_, _) => Ok(ffi::ConstraintType_CT_DIV_UNDEFZERO),
309
        Constraint::Modulo(_, _) => Ok(ffi::ConstraintType_CT_MODULO),
310
        Constraint::ModuloUndefZero(_, _) => Ok(ffi::ConstraintType_CT_MODULO_UNDEFZERO),
311
        Constraint::Pow(_, _) => Ok(ffi::ConstraintType_CT_POW),
312
        Constraint::Product(_, _) => Ok(ffi::ConstraintType_CT_PRODUCT2),
313
        Constraint::WeightedSumGeq(_, _, _) => Ok(ffi::ConstraintType_CT_WEIGHTGEQSUM),
314
        Constraint::WeightedSumLeq(_, _, _) => Ok(ffi::ConstraintType_CT_WEIGHTLEQSUM),
315
        Constraint::CheckAssign(_) => Ok(ffi::ConstraintType_CT_CHECK_ASSIGN),
316
        Constraint::CheckGsa(_) => Ok(ffi::ConstraintType_CT_CHECK_GSA),
317
        Constraint::ForwardChecking(_) => Ok(ffi::ConstraintType_CT_FORWARD_CHECKING),
318
        Constraint::Reify(_, _) => Ok(ffi::ConstraintType_CT_REIFY),
319
        Constraint::ReifyImply(_, _) => Ok(ffi::ConstraintType_CT_REIFYIMPLY),
320
        Constraint::ReifyImplyQuick(_, _) => Ok(ffi::ConstraintType_CT_REIFYIMPLY_QUICK),
321
        Constraint::WatchedAnd(_) => Ok(ffi::ConstraintType_CT_WATCHED_NEW_AND),
322
        Constraint::WatchedOr(_) => Ok(ffi::ConstraintType_CT_WATCHED_NEW_OR),
323
        Constraint::GacAllDiff(_) => Ok(ffi::ConstraintType_CT_GACALLDIFF),
324
        Constraint::AllDiff(_) => Ok(ffi::ConstraintType_CT_ALLDIFF),
325
        Constraint::AllDiffMatrix(_, _) => Ok(ffi::ConstraintType_CT_ALLDIFFMATRIX),
326
        Constraint::WatchSumGeq(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_GEQSUM),
327
        Constraint::WatchSumLeq(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_LEQSUM),
328
        Constraint::OccurrenceGeq(_, _, _) => Ok(ffi::ConstraintType_CT_GEQ_OCCURRENCE),
329
        Constraint::OccurrenceLeq(_, _, _) => Ok(ffi::ConstraintType_CT_LEQ_OCCURRENCE),
330
        Constraint::Occurrence(_, _, _) => Ok(ffi::ConstraintType_CT_OCCURRENCE),
331
        Constraint::LitSumGeq(_, _, _) => Ok(ffi::ConstraintType_CT_WATCHED_LITSUM),
332
        Constraint::Gcc(_, _, _) => Ok(ffi::ConstraintType_CT_GCC),
333
        Constraint::GccWeak(_, _, _) => Ok(ffi::ConstraintType_CT_GCCWEAK),
334
        Constraint::LexLeqRv(_, _) => Ok(ffi::ConstraintType_CT_GACLEXLEQ),
335
        Constraint::LexLeq(_, _) => Ok(ffi::ConstraintType_CT_LEXLEQ),
336
        Constraint::LexLess(_, _) => Ok(ffi::ConstraintType_CT_LEXLESS),
337
        Constraint::LexLeqQuick(_, _) => Ok(ffi::ConstraintType_CT_QUICK_LEXLEQ),
338
        Constraint::LexLessQuick(_, _) => Ok(ffi::ConstraintType_CT_QUICK_LEXLEQ),
339
        Constraint::WatchVecNeq(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_VECNEQ),
340
        Constraint::WatchVecExistsLess(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_VEC_OR_LESS),
341
        Constraint::Hamming(_, _, _) => Ok(ffi::ConstraintType_CT_WATCHED_HAMMING),
342
        Constraint::NotHamming(_, _, _) => Ok(ffi::ConstraintType_CT_WATCHED_NOT_HAMMING),
343
        Constraint::FrameUpdate(_, _, _, _, _) => Ok(ffi::ConstraintType_CT_FRAMEUPDATE),
344
        Constraint::NegativeTable(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_NEGATIVE_TABLE),
345
        Constraint::Table(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_TABLE),
346
        Constraint::GacSchema(_, _) => Ok(ffi::ConstraintType_CT_GACSCHEMA),
347
        Constraint::LightTable(_, _) => Ok(ffi::ConstraintType_CT_LIGHTTABLE),
348
        Constraint::Mddc(_, _) => Ok(ffi::ConstraintType_CT_MDDC),
349
        Constraint::NegativeMddc(_, _) => Ok(ffi::ConstraintType_CT_NEGATIVEMDDC),
350
        Constraint::Str2Plus(_, _) => Ok(ffi::ConstraintType_CT_STR),
351
        Constraint::Max(_, _) => Ok(ffi::ConstraintType_CT_MAX),
352
        Constraint::Min(_, _) => Ok(ffi::ConstraintType_CT_MIN),
353
        Constraint::NvalueGeq(_, _) => Ok(ffi::ConstraintType_CT_GEQNVALUE),
354
        Constraint::NvalueLeq(_, _) => Ok(ffi::ConstraintType_CT_LEQNVALUE),
355
        Constraint::Element(_, _, _) => Ok(ffi::ConstraintType_CT_ELEMENT),
356
        Constraint::ElementOne(_, _, _) => Ok(ffi::ConstraintType_CT_ELEMENT_ONE),
357
        Constraint::ElementUndefZero(_, _, _) => Ok(ffi::ConstraintType_CT_ELEMENT_UNDEFZERO),
358
        Constraint::WatchElement(_, _, _) => Ok(ffi::ConstraintType_CT_WATCHED_ELEMENT),
359
        Constraint::WatchElementOne(_, _, _) => Ok(ffi::ConstraintType_CT_WATCHED_ELEMENT_ONE),
360
        Constraint::WatchElementOneUndefZero(_, _, _) => {
361
            Ok(ffi::ConstraintType_CT_WATCHED_ELEMENT_ONE_UNDEFZERO)
362
        }
363
        Constraint::WatchElementUndefZero(_, _, _) => {
364
            Ok(ffi::ConstraintType_CT_WATCHED_ELEMENT_UNDEFZERO)
365
        }
366
        Constraint::WLiteral(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_LIT),
367
        Constraint::WNotLiteral(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_NOTLIT),
368
        Constraint::WInIntervalSet(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_ININTERVALSET),
369
        Constraint::WInRange(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_INRANGE),
370
        Constraint::WInset(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_INSET),
371
        Constraint::WNotInRange(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_NOT_INRANGE),
372
        Constraint::WNotInset(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_NOT_INSET),
373
        Constraint::Abs(_, _) => Ok(ffi::ConstraintType_CT_ABS),
374
        Constraint::DisEq(_, _) => Ok(ffi::ConstraintType_CT_DISEQ),
375
        Constraint::MinusEq(_, _) => Ok(ffi::ConstraintType_CT_MINUSEQ),
376
        Constraint::GacEq(_, _) => Ok(ffi::ConstraintType_CT_GACEQ),
377
        Constraint::WatchLess(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_LESS),
378
        Constraint::WatchNeq(_, _) => Ok(ffi::ConstraintType_CT_WATCHED_NEQ),
379
        Constraint::True => Ok(ffi::ConstraintType_CT_TRUE),
380
        Constraint::False => Ok(ffi::ConstraintType_CT_FALSE),
381

            
382
        #[allow(unreachable_patterns)]
383
        x => Err(MinionError::NotImplemented(format!(
384
            "Constraint not implemented {:?}",
385
            x,
386
        ))),
387
    }
388
}
389

            
390
unsafe fn constraint_add_args(
391
    i: *mut ffi::ProbSpec_CSPInstance,
392
    r_constr: *mut ffi::ProbSpec_ConstraintBlob,
393
    constr: &Constraint,
394
) -> Result<(), MinionError> {
395
    match constr {
396
        Constraint::SumGeq(lhs_vars, rhs_var) => {
397
            read_list(i, r_constr, lhs_vars)?;
398
            read_var(i, r_constr, rhs_var)?;
399
            Ok(())
400
        }
401
        Constraint::SumLeq(lhs_vars, rhs_var) => {
402
            read_list(i, r_constr, lhs_vars)?;
403
            read_var(i, r_constr, rhs_var)?;
404
            Ok(())
405
        }
406
        Constraint::Ineq(var1, var2, c) => {
407
            read_var(i, r_constr, var1)?;
408
            read_var(i, r_constr, var2)?;
409
            read_constant(r_constr, c)?;
410
            Ok(())
411
        }
412
        Constraint::Eq(var1, var2) => {
413
            read_var(i, r_constr, var1)?;
414
            read_var(i, r_constr, var2)?;
415
            Ok(())
416
        }
417
        Constraint::Difference((a, b), c) => {
418
            read_2_vars(i, r_constr, a, b)?;
419
            read_var(i, r_constr, c)?;
420
            Ok(())
421
        }
422
        Constraint::Div((a, b), c) => {
423
            read_2_vars(i, r_constr, a, b)?;
424
            read_var(i, r_constr, c)?;
425
            Ok(())
426
        }
427
        Constraint::DivUndefZero((a, b), c) => {
428
            read_2_vars(i, r_constr, a, b)?;
429
            read_var(i, r_constr, c)?;
430
            Ok(())
431
        }
432
        Constraint::Modulo((a, b), c) => {
433
            read_2_vars(i, r_constr, a, b)?;
434
            read_var(i, r_constr, c)?;
435
            Ok(())
436
        }
437
        Constraint::ModuloUndefZero((a, b), c) => {
438
            read_2_vars(i, r_constr, a, b)?;
439
            read_var(i, r_constr, c)?;
440
            Ok(())
441
        }
442
        Constraint::Pow((a, b), c) => {
443
            read_2_vars(i, r_constr, a, b)?;
444
            read_var(i, r_constr, c)?;
445
            Ok(())
446
        }
447
        Constraint::Product((a, b), c) => {
448
            read_2_vars(i, r_constr, a, b)?;
449
            read_var(i, r_constr, c)?;
450
            Ok(())
451
        }
452
        Constraint::WeightedSumGeq(a, b, c) => {
453
            read_constant_list(r_constr, a)?;
454
            read_list(i, r_constr, b)?;
455
            read_var(i, r_constr, c)?;
456
            Ok(())
457
        }
458
        Constraint::WeightedSumLeq(a, b, c) => {
459
            read_constant_list(r_constr, a)?;
460
            read_list(i, r_constr, b)?;
461
            read_var(i, r_constr, c)?;
462
            Ok(())
463
        }
464
        Constraint::CheckAssign(a) => {
465
            read_constraint(i, r_constr, (**a).clone())?;
466
            Ok(())
467
        }
468
        Constraint::CheckGsa(a) => {
469
            read_constraint(i, r_constr, (**a).clone())?;
470
            Ok(())
471
        }
472
        Constraint::ForwardChecking(a) => {
473
            read_constraint(i, r_constr, (**a).clone())?;
474
            Ok(())
475
        }
476
        Constraint::Reify(a, b) => {
477
            read_constraint(i, r_constr, (**a).clone())?;
478
            read_var(i, r_constr, b)?;
479
            Ok(())
480
        }
481
        Constraint::ReifyImply(a, b) => {
482
            read_constraint(i, r_constr, (**a).clone())?;
483
            read_var(i, r_constr, b)?;
484
            Ok(())
485
        }
486
        Constraint::ReifyImplyQuick(a, b) => {
487
            read_constraint(i, r_constr, (**a).clone())?;
488
            read_var(i, r_constr, b)?;
489
            Ok(())
490
        }
491
        Constraint::WatchedAnd(a) => {
492
            read_constraint_list(i, r_constr, a)?;
493
            Ok(())
494
        }
495
        Constraint::WatchedOr(a) => {
496
            read_constraint_list(i, r_constr, a)?;
497
            Ok(())
498
        }
499
        Constraint::GacAllDiff(a) => {
500
            read_list(i, r_constr, a)?;
501
            Ok(())
502
        }
503
        Constraint::AllDiff(a) => {
504
            read_list(i, r_constr, a)?;
505
            Ok(())
506
        }
507
        Constraint::AllDiffMatrix(a, b) => {
508
            read_list(i, r_constr, a)?;
509
            read_constant(r_constr, b)?;
510
            Ok(())
511
        }
512
        Constraint::WatchSumGeq(a, b) => {
513
            read_list(i, r_constr, a)?;
514
            read_constant(r_constr, b)?;
515
            Ok(())
516
        }
517
        Constraint::WatchSumLeq(a, b) => {
518
            read_list(i, r_constr, a)?;
519
            read_constant(r_constr, b)?;
520
            Ok(())
521
        }
522
        Constraint::OccurrenceGeq(a, b, c) => {
523
            read_list(i, r_constr, a)?;
524
            read_constant(r_constr, b)?;
525
            read_constant(r_constr, c)?;
526
            Ok(())
527
        }
528
        Constraint::OccurrenceLeq(a, b, c) => {
529
            read_list(i, r_constr, a)?;
530
            read_constant(r_constr, b)?;
531
            read_constant(r_constr, c)?;
532
            Ok(())
533
        }
534
        Constraint::Occurrence(a, b, c) => {
535
            read_list(i, r_constr, a)?;
536
            read_constant(r_constr, b)?;
537
            read_var(i, r_constr, c)?;
538
            Ok(())
539
        }
540
        //Constraint::LitSumGeq(_, _, _) => todo!(),
541
        //Constraint::Gcc(_, _, _) => todo!(),
542
        //Constraint::GccWeak(_, _, _) => todo!(),
543
        //Constraint::LexLeqRv(_, _) => todo!(),
544
        //Constraint::LexLeq(_, _) => todo!(),
545
        //Constraint::LexLess(_, _) => todo!(),
546
        //Constraint::LexLeqQuick(_, _) => todo!(),
547
        //Constraint::LexLessQuick(_, _) => todo!(),
548
        //Constraint::WatchVecNeq(_, _) => todo!(),
549
        //Constraint::WatchVecExistsLess(_, _) => todo!(),
550
        //Constraint::Hamming(_, _, _) => todo!(),
551
        //Constraint::NotHamming(_, _, _) => todo!(),
552
        //Constraint::FrameUpdate(_, _, _, _, _) => todo!(),
553
        //Constraint::NegativeTable(_, _) => todo!(),
554
        //Constraint::Table(_, _) => todo!(),
555
        //Constraint::GacSchema(_, _) => todo!(),
556
        //Constraint::LightTable(_, _) => todo!(),
557
        //Constraint::Mddc(_, _) => todo!(),
558
        //Constraint::NegativeMddc(_, _) => todo!(),
559
        //Constraint::Str2Plus(_, _) => todo!(),
560
        //Constraint::Max(_, _) => todo!(),
561
        //Constraint::Min(_, _) => todo!(),
562
        //Constraint::NvalueGeq(_, _) => todo!(),
563
        //Constraint::NvalueLeq(_, _) => todo!(),
564
        //Constraint::Element(_, _, _) => todo!(),
565
        //Constraint::ElementOne(_, _, _) => todo!(),
566
        //Constraint::ElementUndefZero(_, _, _) => todo!(),
567
        //Constraint::WatchElement(_, _, _) => todo!(),
568
        //Constraint::WatchElementOne(_, _, _) => todo!(),
569
        //Constraint::WatchElementOneUndefZero(_, _, _) => todo!(),
570
        //Constraint::WatchElementUndefZero(_, _, _) => todo!(),
571
        Constraint::WLiteral(a, b) => {
572
            read_var(i, r_constr, a)?;
573
            read_constant(r_constr, b)?;
574
            Ok(())
575
        }
576
        //Constraint::WNotLiteral(_, _) => todo!(),
577
        //Constraint::WInIntervalSet(_, _) => todo!(),
578
        //Constraint::WInRange(_, _) => todo!(),
579
        Constraint::WInset(a, b) => {
580
            read_var(i, r_constr, a)?;
581
            read_constant_list(r_constr, b)?;
582
            Ok(())
583
        }
584
        //Constraint::WNotInRange(_, _) => todo!(),
585
        //Constraint::WNotInset(_, _) => todo!(),
586
        //Constraint::Abs(_, _) => todo!(),
587
        Constraint::DisEq(a, b) => {
588
            read_var(i, r_constr, a)?;
589
            read_var(i, r_constr, b)?;
590
            Ok(())
591
        }
592
        //Constraint::MinusEq(_, _) => todo!(),
593
        //Constraint::GacEq(_, _) => todo!(),
594
        //Constraint::WatchLess(_, _) => todo!(),
595
        // TODO: ensure that this is a bool?
596
        Constraint::WatchNeq(a, b) => {
597
            read_var(i, r_constr, a)?;
598
            read_var(i, r_constr, b)?;
599
            Ok(())
600
        }
601

            
602
        Constraint::True => Ok(()),
603
        Constraint::False => Ok(()),
604
        #[allow(unreachable_patterns)]
605
        x => Err(MinionError::NotImplemented(format!("{:?}", x))),
606
    }
607
}
608

            
609
// DO NOT call manually - this assumes that all needed vars are already in the symbol table.
610
// TODO not happy with this just assuming the name is in the symbol table
611
unsafe fn read_list(
612
    instance: *mut ffi::ProbSpec_CSPInstance,
613
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
614
    vars: &Vec<Var>,
615
) -> Result<(), MinionError> {
616
    let raw_vars = Scoped::new(ffi::vec_var_new(), |x| ffi::vec_var_free(x as _));
617
    for var in vars {
618
        let raw_var = match var {
619
            Var::NameRef(name) => {
620
                let c_str = CString::new(name.clone()).map_err(|_| {
621
                    anyhow!(
622
                        "Variable name {:?} contains a null character.",
623
                        name.clone()
624
                    )
625
                })?;
626
                ffi::getVarByName(instance, c_str.as_ptr() as _)
627
            }
628
            Var::ConstantAsVar(n) => ffi::constantAsVar(*n),
629
        };
630

            
631
        ffi::vec_var_push_back(raw_vars.ptr, raw_var);
632
    }
633

            
634
    ffi::constraint_addList(raw_constraint, raw_vars.ptr);
635

            
636
    Ok(())
637
}
638

            
639
unsafe fn read_var(
640
    instance: *mut ffi::ProbSpec_CSPInstance,
641
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
642
    var: &Var,
643
) -> Result<(), MinionError> {
644
    let raw_vars = Scoped::new(ffi::vec_var_new(), |x| ffi::vec_var_free(x as _));
645
    let raw_var = match var {
646
        Var::NameRef(name) => {
647
            let c_str = CString::new(name.clone()).map_err(|_| {
648
                anyhow!(
649
                    "Variable name {:?} contains a null character.",
650
                    name.clone()
651
                )
652
            })?;
653
            ffi::getVarByName(instance, c_str.as_ptr() as _)
654
        }
655
        Var::ConstantAsVar(n) => ffi::constantAsVar(*n),
656
    };
657

            
658
    ffi::vec_var_push_back(raw_vars.ptr, raw_var);
659
    ffi::constraint_addList(raw_constraint, raw_vars.ptr);
660

            
661
    Ok(())
662
}
663

            
664
unsafe fn read_2_vars(
665
    instance: *mut ffi::ProbSpec_CSPInstance,
666
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
667
    var1: &Var,
668
    var2: &Var,
669
) -> Result<(), MinionError> {
670
    let mut raw_var = match var1 {
671
        Var::NameRef(name) => {
672
            let c_str = CString::new(name.clone()).map_err(|_| {
673
                anyhow!(
674
                    "Variable name {:?} contains a null character.",
675
                    name.clone()
676
                )
677
            })?;
678
            ffi::getVarByName(instance, c_str.as_ptr() as _)
679
        }
680
        Var::ConstantAsVar(n) => ffi::constantAsVar(*n),
681
    };
682
    let mut raw_var2 = match var2 {
683
        Var::NameRef(name) => {
684
            let c_str = CString::new(name.clone()).map_err(|_| {
685
                anyhow!(
686
                    "Variable name {:?} contains a null character.",
687
                    name.clone()
688
                )
689
            })?;
690
            ffi::getVarByName(instance, c_str.as_ptr() as _)
691
        }
692
        Var::ConstantAsVar(n) => ffi::constantAsVar(*n),
693
    };
694
    // todo: does this move or copy? I am confus!
695
    // TODO need to mkae the semantics of move vs copy / ownership clear in libminion!!
696
    // This shouldve leaked everywhere by now but i think libminion copies stuff??
697
    ffi::constraint_addTwoVars(raw_constraint, &mut raw_var, &mut raw_var2);
698
    Ok(())
699
}
700

            
701
unsafe fn read_constant(
702
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
703
    constant: &Constant,
704
) -> Result<(), MinionError> {
705
    let val: i32 = match constant {
706
        Constant::Integer(n) => Ok(*n),
707
        Constant::Bool(true) => Ok(1),
708
        Constant::Bool(false) => Ok(0),
709
        x => Err(MinionError::NotImplemented(format!("{:?}", x))),
710
    }?;
711

            
712
    ffi::constraint_addConstant(raw_constraint, val);
713

            
714
    Ok(())
715
}
716

            
717
unsafe fn read_constant_list(
718
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
719
    constants: &[Constant],
720
) -> Result<(), MinionError> {
721
    let raw_consts = Scoped::new(ffi::vec_int_new(), |x| ffi::vec_var_free(x as _));
722

            
723
    for constant in constants.iter() {
724
        let val = match constant {
725
            Constant::Integer(n) => Ok(*n),
726
            Constant::Bool(true) => Ok(1),
727
            Constant::Bool(false) => Ok(0),
728
            #[allow(unreachable_patterns)] // TODO: can there be other types?
729
            x => Err(MinionError::NotImplemented(format!("{:?}", x))),
730
        }?;
731

            
732
        ffi::vec_int_push_back(raw_consts.ptr, val);
733
    }
734

            
735
    ffi::constraint_addConstantList(raw_constraint, raw_consts.ptr);
736
    Ok(())
737
}
738

            
739
//TODO: check if the inner constraint is listed in the model or not?
740
//Does this matter?
741
// TODO: type-check inner constraints vars and tuples and so on?
742
unsafe fn read_constraint(
743
    instance: *mut ffi::ProbSpec_CSPInstance,
744
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
745
    inner_constraint: Constraint,
746
) -> Result<(), MinionError> {
747
    let constraint_type = get_constraint_type(&inner_constraint)?;
748
    let raw_inner_constraint = Scoped::new(ffi::constraint_new(constraint_type), |x| {
749
        ffi::constraint_free(x as _)
750
    });
751

            
752
    constraint_add_args(instance, raw_inner_constraint.ptr, &inner_constraint)?;
753

            
754
    ffi::constraint_addConstraint(raw_constraint, raw_inner_constraint.ptr);
755
    Ok(())
756
}
757

            
758
unsafe fn read_constraint_list(
759
    instance: *mut ffi::ProbSpec_CSPInstance,
760
    raw_constraint: *mut ffi::ProbSpec_ConstraintBlob,
761
    inner_constraints: &[Constraint],
762
) -> Result<(), MinionError> {
763
    let raw_inners = Scoped::new(ffi::vec_constraints_new(), |x| {
764
        ffi::vec_constraints_free(x as _)
765
    });
766
    for inner_constraint in inner_constraints.iter() {
767
        let constraint_type = get_constraint_type(inner_constraint)?;
768
        let raw_inner_constraint = Scoped::new(ffi::constraint_new(constraint_type), |x| {
769
            ffi::constraint_free(x as _)
770
        });
771

            
772
        constraint_add_args(instance, raw_inner_constraint.ptr, inner_constraint)?;
773
        ffi::vec_constraints_push_back(raw_inners.ptr, raw_inner_constraint.ptr);
774
    }
775

            
776
    ffi::constraint_addConstraintList(raw_constraint, raw_inners.ptr);
777
    Ok(())
778
}