glpk-sys 0.3.0

GLPK bindings for Rust.
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
72
73
74
75
76
77
78
79
80
81

#![allow(non_upper_case_globals)]
#![allow(non_camel_case_types)]
#![allow(non_snake_case)]

include!(concat!(env!("OUT_DIR"), "/bindings.rs"));

#[cfg(test)]
mod tests {
    use super as glpk;
    use std::ffi::{CString, c_double, c_int};
    use std::ptr;

    #[test]
    fn smoke_test() {
        unsafe {
            let lp = glpk::glp_create_prob();

            glpk::glp_set_prob_name(lp, CString::new("sample").unwrap().as_ptr());
            glpk::glp_set_obj_dir(lp, glpk::GLP_MAX);
            glpk::glp_add_rows(lp, 3);

            glpk::glp_set_row_name(lp, 1, CString::new("p").unwrap().as_ptr());
            glpk::glp_set_row_bnds(lp, 1, glpk::GLP_UP, 0.0, 100.0);
            glpk::glp_set_row_name(lp, 2, CString::new("q").unwrap().as_ptr());
            glpk::glp_set_row_bnds(lp, 2, glpk::GLP_UP, 0.0, 600.0);
            glpk::glp_set_row_name(lp, 3, CString::new("r").unwrap().as_ptr());
            glpk::glp_set_row_bnds(lp, 3, glpk::GLP_UP, 0.0, 300.0);

            glpk::glp_add_cols(lp, 3);
            glpk::glp_set_col_name(lp, 1, CString::new("x1").unwrap().as_ptr());
            glpk::glp_set_col_bnds(lp, 1, glpk::GLP_LO, 0.0, 0.0);
            glpk::glp_set_obj_coef(lp, 1, 10.0);
            glpk::glp_set_col_name(lp, 2, CString::new("x2").unwrap().as_ptr());
            glpk::glp_set_col_bnds(lp, 2, glpk::GLP_LO, 0.0, 0.0);
            glpk::glp_set_obj_coef(lp, 2, 6.0);
            glpk::glp_set_col_name(lp, 3, CString::new("x3").unwrap().as_ptr());
            glpk::glp_set_col_bnds(lp, 3, glpk::GLP_LO, 0.0, 0.0);
            glpk::glp_set_obj_coef(lp, 3, 4.0);

            let mut ia: [c_int; 1001usize] = [0; 1001];
            let mut ja: [c_int; 1001usize] = [0; 1001];
            let mut ar: [c_double; 1001usize] = [0.0; 1001];

            ia[1] = 1;
            ja[1] = 1;
            ar[1] = 1.0; /* a[1,1] =  1 */
            ia[2] = 1;
            ja[2] = 2;
            ar[2] = 1.0; /* a[1,2] =  1 */
            ia[3] = 1;
            ja[3] = 3;
            ar[3] = 1.0; /* a[1,3] =  1 */
            ia[4] = 2;
            ja[4] = 1;
            ar[4] = 10.0; /* a[2,1] = 10 */
            ia[5] = 3;
            ja[5] = 1;
            ar[5] = 2.0; /* a[3,1] =  2 */
            ia[6] = 2;
            ja[6] = 2;
            ar[6] = 4.0; /* a[2,2] =  4 */
            ia[7] = 3;
            ja[7] = 2;
            ar[7] = 2.0; /* a[3,2] =  2 */
            ia[8] = 2;
            ja[8] = 3;
            ar[8] = 5.0; /* a[2,3] =  5 */
            ia[9] = 3;
            ja[9] = 3;
            ar[9] = 6.0; /* a[3,3] =  6 */

            glpk::glp_load_matrix(lp, 9, ia.as_ptr(), ja.as_ptr(), ar.as_ptr());

            glpk::glp_simplex(lp, ptr::null());
            let z = glpk::glp_get_obj_val(lp);

            assert!((z - 733.33333333).abs() < 1e-6);
            glpk::glp_delete_prob(lp);
        }
    }
}