R/RcppExports.R

Defines functions glpk_init glpk_kill glpk_add_cols glpk_add_rows glpk_set_col_kind glpk_set_col_bnd glpk_set_row_bnd glpk_set_mat_row glpk_set_obj_coefs glpk_set_obj_dir glpk_solve_simplex glpk_solve_MIP glpk_get_mip_col_val glpk_get_col_prim glpk_set_irowgen_callback glpk_mip_obj_val glpk_get_num_cols glpk_get_num_rows

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

glpk_init <- function() {
    .Call(`_rmpk_glpk_glpk_init`)
}

glpk_kill <- function(ptr) {
    invisible(.Call(`_rmpk_glpk_glpk_kill`, ptr))
}

glpk_add_cols <- function(ptr, cols) {
    .Call(`_rmpk_glpk_glpk_add_cols`, ptr, cols)
}

glpk_add_rows <- function(ptr, rows) {
    .Call(`_rmpk_glpk_glpk_add_rows`, ptr, rows)
}

glpk_set_col_kind <- function(ptr, column_idx, type) {
    invisible(.Call(`_rmpk_glpk_glpk_set_col_kind`, ptr, column_idx, type))
}

glpk_set_col_bnd <- function(ptr, column_idx, type, lb, ub) {
    invisible(.Call(`_rmpk_glpk_glpk_set_col_bnd`, ptr, column_idx, type, lb, ub))
}

glpk_set_row_bnd <- function(ptr, row_idx, type, lb, ub) {
    invisible(.Call(`_rmpk_glpk_glpk_set_row_bnd`, ptr, row_idx, type, lb, ub))
}

glpk_set_mat_row <- function(ptr, row_idx, indexes, values) {
    invisible(.Call(`_rmpk_glpk_glpk_set_mat_row`, ptr, row_idx, indexes, values))
}

glpk_set_obj_coefs <- function(ptr, col_idx, value) {
    invisible(.Call(`_rmpk_glpk_glpk_set_obj_coefs`, ptr, col_idx, value))
}

glpk_set_obj_dir <- function(ptr, dir) {
    invisible(.Call(`_rmpk_glpk_glpk_set_obj_dir`, ptr, dir))
}

glpk_solve_simplex <- function(ptr) {
    invisible(.Call(`_rmpk_glpk_glpk_solve_simplex`, ptr))
}

glpk_solve_MIP <- function(ptr) {
    invisible(.Call(`_rmpk_glpk_glpk_solve_MIP`, ptr))
}

glpk_get_mip_col_val <- function(ptr, column_idx) {
    .Call(`_rmpk_glpk_glpk_get_mip_col_val`, ptr, column_idx)
}

glpk_get_col_prim <- function(ptr, column_idx) {
    .Call(`_rmpk_glpk_glpk_get_col_prim`, ptr, column_idx)
}

glpk_set_irowgen_callback <- function(ptr, fun) {
    invisible(.Call(`_rmpk_glpk_glpk_set_irowgen_callback`, ptr, fun))
}

glpk_mip_obj_val <- function(ptr) {
    .Call(`_rmpk_glpk_glpk_mip_obj_val`, ptr)
}

glpk_get_num_cols <- function(ptr) {
    .Call(`_rmpk_glpk_glpk_get_num_cols`, ptr)
}

glpk_get_num_rows <- function(ptr) {
    .Call(`_rmpk_glpk_glpk_get_num_rows`, ptr)
}
dirkschumacher/rmpk.glpk documentation built on Nov. 4, 2019, 10:54 a.m.