R/cplex_longparamAPI.R

In cplexAPI: R Interface to C API of IBM ILOG CPLEX

#------------------------------------------------------------------------------#
#                     R Interface to C API of IBM ILOG CPLEX                   #
#------------------------------------------------------------------------------#

#  cplex_longparamAPI.R
#  R Interface to C API of IBM ILOG CPLEX Version 12.1 to 12.10.
#
#  Copyright (C) 2011-2014 Gabriel Gelius-Dietrich, Dpt. for Bioinformatics,
#  Institute for Informatics, Heinrich-Heine-University, Duesseldorf, Germany.
#  All right reserved.
#  Email: geliudie@uni-duesseldorf.de
#
#  This file is part of cplexAPI.
#
#  CplexAPI is free software: you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation, either version 3 of the License, or
#  (at your option) any later version.
#
#  CplexAPI is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with cplexAPI.  If not, see <http://www.gnu.org/licenses/>.


#------------------------------------------------------------------------------#
#                    the interface (CPX_PARAMTYPE_LONG)                        #
#------------------------------------------------------------------------------#

setLongParmCPLEX <- function(env, parm, value) {

    status <- .Call("setLongParm", PACKAGE = "cplexAPI",
                    cplexPointer(env),
                    as.integer(parm),
                    #as.integer(value)
                    as.numeric(value)
              )
    return(status)

}


#------------------------------------------------------------------------------#

getLongParmCPLEX <- function(env, parm) {

    value <- .Call("getLongParm", PACKAGE = "cplexAPI",
                   cplexPointer(env),
                   as.integer(parm)
             )

    return(cplexError(value))
}


#------------------------------------------------------------------------------#

getInfoLongParmCPLEX <- function(env, parm) {

    param <- .Call("getInfoLongParm", PACKAGE = "cplexAPI",
                   cplexPointer(env),
                   as.integer(parm)
             )

    return(cplexError(param))
}