blob: 3dd469aee795d6e1b4dfa18774dfcfcffea27f9c (
plain) (
blame)
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
|
open Ctypes
module Types = Types_generated
module Functions (F : Ctypes.FOREIGN) = struct
open F
let glp_create_prob = foreign "glp_create_prob" (void @-> returning Types.glp_prob)
let glp_delete_prob = foreign "glp_delete_prob" (Types.glp_prob @-> returning void)
let glp_add_rows = foreign "glp_add_rows" (Types.glp_prob @-> int @-> returning void)
let glp_add_cols = foreign "glp_add_cols" (Types.glp_prob @-> int @-> returning void)
let glp_set_row_bnds = foreign "glp_set_row_bnds" (Types.glp_prob @-> int @-> int @-> double @-> double @-> returning void)
let glp_set_col_bnds = foreign "glp_set_col_bnds" (Types.glp_prob @-> int @-> int @-> double @-> double @-> returning void)
let glp_set_col_kind = foreign "glp_set_col_kind" (Types.glp_prob @-> int @-> int @-> returning void)
let glp_set_obj_coef = foreign "glp_set_obj_coef" (Types.glp_prob @-> int @-> double @-> returning void)
let glp_set_obj_dir = foreign "glp_set_obj_dir" (Types.glp_prob @-> int @-> returning void)
let glp_set_mat_col = foreign "glp_set_mat_col" (Types.glp_prob @-> int @-> int @-> ptr int @-> ptr double @-> returning void)
let glp_simplex = foreign "glp_simplex" (Types.glp_prob @-> Types.glp_smcp_ptr @-> returning void)
let glp_intopt = foreign "glp_intopt" (Types.glp_prob @-> Types.glp_iocp_ptr @-> returning void)
let glp_mip_status = foreign "glp_mip_status" (Types.glp_prob @-> returning int)
let glp_mip_obj_val = foreign "glp_mip_obj_val" (Types.glp_prob @-> returning double)
let glp_term_out = foreign "glp_term_out" (int @-> returning int)
end
|
