/* -*- C++ -*-

 *

 * This file is a part of LEMON, a generic C++ optimization library

 *

 * Copyright (C) 2003-2006

 * Egervary Jeno Kombinatorikus Optimalizalasi Kutatocsoport

 * (Egervary Research Group on Combinatorial Optimization, EGRES).

 *

 * Permission to use, modify and distribute this software is granted

 * provided that this copyright notice appears in all copies. For

 * precise terms see the accompanying LICENSE file.

 *

 * This software is provided "AS IS" with no warranty of any kind,

 * express or implied, and with no claim as to its suitability for any

 * purpose.

 *

 */

#include<iostream>

#include<lemon/lp_soplex.h>

#include <soplex/soplex.h>

///\file

///\brief Implementation of the LEMON-SOPLEX lp solver interface.

namespace lemon {

  LpSoplex::LpSoplex() : LpSolverBase() {

    rows.setIdHandler(relocateIdHandler);

    cols.setIdHandler(relocateIdHandler);

    soplex = new soplex::SoPlex;

    solved = false;

  }

  LpSoplex::~LpSoplex() {

    delete soplex;

  }

  LpSolverBase &LpSoplex::_newLp() {

    LpSoplex* newlp = new LpSoplex();

    return *newlp;

  }

  LpSolverBase &LpSoplex::_copyLp() {

    LpSoplex* newlp = new LpSoplex();

    ((soplex::SPxLP&)*(newlp->soplex)) = *soplex;

    return *newlp;

  }

  int LpSoplex::_addCol() {

    soplex::LPCol col;

    col.setLower(-soplex::infinity);

    col.setUpper(soplex::infinity);

    soplex->addCol(col);

    colNames.push_back(std::string());

    primal_value.push_back(0.0);

    solved = false;

    return soplex->nCols() - 1;

  }

  int LpSoplex::_addRow() {

    soplex::LPRow row;

    row.setLhs(-soplex::infinity);

    row.setRhs(soplex::infinity);

    soplex->addRow(row);

    dual_value.push_back(0.0);

    solved = false;

    return soplex->nRows() - 1;

  }

  void LpSoplex::_eraseCol(int i) {

    soplex->removeCol(i);

    colNames[i] = colNames.back();

    colNames.pop_back();

    primal_value[i] = primal_value.back();

    primal_value.pop_back();

    solved = false;

  }

  void LpSoplex::_eraseRow(int i) {

    soplex->removeRow(i);

    dual_value[i] = dual_value.back();

    dual_value.pop_back();

    solved = false;

  }

  void LpSoplex::_getColName(int col, std::string &name) {

    name = colNames[col]; 

  }

  void LpSoplex::_setColName(int col, const std::string &name) {

    colNames[col] = name; 

  }

  void LpSoplex::_setRowCoeffs(int i, LpRowIterator b, LpRowIterator e) {

    for (int j = 0; j < soplex->nCols(); ++j) {

      soplex->changeElement(i, j, 0.0);

    }

    for(LpRowIterator it = b; it != e; ++it) {

      soplex->changeElement(i, it->first, it->second);

    }

    solved = false;

  }

  void LpSoplex::_setColCoeffs(int j, LpColIterator b, LpColIterator e) {

    for (int i = 0; i < soplex->nRows(); ++i) {

      soplex->changeElement(i, j, 0.0);

    }

    for(LpColIterator it = b; it != e; ++it) {

      soplex->changeElement(it->first, j, it->second);

    }

    solved = false;

  }

  void LpSoplex::_setCoeff(int i, int j, Value value) {

    soplex->changeElement(i, j, value);

    solved = false;

  }

  LpSoplex::Value LpSoplex::_getCoeff(int i, int j) {

    return soplex->rowVector(i)[j];

  }

  void LpSoplex::_setColLowerBound(int i, Value value) {

    soplex->changeLower(i, value != -INF ? value : -soplex::infinity); 

    solved = false;

  }

  LpSoplex::Value LpSoplex::_getColLowerBound(int i) {

    double value = soplex->lower(i);

    return value != -soplex::infinity ? value : -INF;

  }

  void LpSoplex::_setColUpperBound(int i, Value value) {

    soplex->changeUpper(i, value != INF ? value : soplex::infinity); 

    solved = false;

  }

  LpSoplex::Value LpSoplex::_getColUpperBound(int i) {

    double value = soplex->upper(i);

    return value != soplex::infinity ? value : INF;

  }

  void LpSoplex::_setRowBounds(int i, Value lb, Value ub) {

    soplex->changeRange(i, lb != -INF ? lb : -soplex::infinity,

                        ub != INF ? ub : soplex::infinity);

    solved = false;

  }

  void LpSoplex::_getRowBounds(int i, Value &lower, Value &upper) {

    lower = soplex->lhs(i);

    if (lower == -soplex::infinity) lower = -INF;

    upper = soplex->rhs(i);

    if (upper == -soplex::infinity) upper = INF;

  }

  void LpSoplex::_setObjCoeff(int i, Value obj_coef) {

    soplex->changeObj(i, obj_coef);

    solved = false;

  }

  LpSoplex::Value LpSoplex::_getObjCoeff(int i) {

    return soplex->obj(i);

  }

  void LpSoplex::_clearObj() {

    for (int i = 0; i < soplex->nCols(); ++i) {

      soplex->changeObj(i, 0.0);

    }

    solved = false;

  }

  LpSoplex::SolveExitStatus LpSoplex::_solve() {

    soplex::SPxSolver::Status status = soplex->solve();

    soplex::Vector pv(primal_value.size(), &primal_value[0]);

    soplex->getPrimal(pv);

    soplex::Vector dv(dual_value.size(), &dual_value[0]);

    soplex->getDual(dv);

    switch (status) {

    case soplex::SPxSolver::OPTIMAL:

    case soplex::SPxSolver::INFEASIBLE:

    case soplex::SPxSolver::UNBOUNDED:

      solved = true;

      return SOLVED;

    default:

      return UNSOLVED;

    }

  }

  LpSoplex::Value LpSoplex::_getPrimal(int i) {

    return primal_value[i];

  }

  LpSoplex::Value LpSoplex::_getDual(int i) {

    return dual_value[i];

  }

  LpSoplex::Value LpSoplex::_getPrimalValue() {

    return soplex->objValue();

  }

  bool LpSoplex::_isBasicCol(int i) {

    return soplex->getBasisColStatus(i) == soplex::SPxSolver::BASIC;

  }  

  LpSoplex::SolutionStatus LpSoplex::_getPrimalStatus() {

    if (!solved) return UNDEFINED;

    switch (soplex->status()) {

    case soplex::SPxSolver::OPTIMAL:

      return OPTIMAL;

    case soplex::SPxSolver::UNBOUNDED:

      return INFINITE;

    case soplex::SPxSolver::INFEASIBLE:

      return INFEASIBLE;

    default:

      return UNDEFINED;

    }

  }

  LpSoplex::SolutionStatus LpSoplex::_getDualStatus() {

    if (!solved) return UNDEFINED;

    switch (soplex->status()) {

    case soplex::SPxSolver::OPTIMAL:

      return OPTIMAL;

    case soplex::SPxSolver::UNBOUNDED:

      return INFEASIBLE;

    default:

      return UNDEFINED;

    }

  }

  LpSoplex::ProblemTypes LpSoplex::_getProblemType() {

    if (!solved) return UNKNOWN;

    switch (soplex->status()) {

    case soplex::SPxSolver::OPTIMAL:

      return PRIMAL_DUAL_FEASIBLE;

    case soplex::SPxSolver::UNBOUNDED:

      return PRIMAL_FEASIBLE_DUAL_INFEASIBLE;

    default:

      return UNKNOWN;

    }

  }

  void LpSoplex::_setMax() {

    soplex->changeSense(soplex::SPxSolver::MAXIMIZE);

    solved = false;

  }

  void LpSoplex::_setMin() {

    soplex->changeSense(soplex::SPxSolver::MINIMIZE);

    solved = false;

  }

  bool LpSoplex::_isMax() {

    return soplex->spxSense() == soplex::SPxSolver::MAXIMIZE;

  }

} //namespace lemon