### This is a list of hand-coded defs for lpx.R -- the translator doesn't get 
### these right.

# glpk   api: int lpx_get_mat_row(LPX *lp, int i, int ind[], double val[]);
# R_glpk api: SEXP R_lpx_get_mat_row(SEXP lp, SEXP i)
lpx_get_mat_row =
function(lp, i)
{
    return(.Call("R_lpx_get_mat_row", lp, as.integer(i), PACKAGE=.glpkPackageName))
}
# glpk   api: int lpx_get_mat_col(LPX *lp, int j, int ind[], double val[]);
# R_glpk api: SEXP R_lpx_get_mat_col(SEXP lp, SEXP j)
lpx_get_mat_col =
function(lp, j)
{
    return(.Call("R_lpx_get_mat_col", lp, as.integer(j), PACKAGE=.glpkPackageName))
}

# glpk   api: LPX *lpx_read_model(char *model, char *data, char *output);
# R_glpk api: SEXP R_lpx_read_model(SEXP model, SEXP data, SEXP output)
lpx_read_model =
function(model, data=NULL, output=NULL)
{
    ret = .Call("R_lpx_read_model", as.character(model), data, output, PACKAGE=.glpkPackageName);
    return(ret)
}

