/* $Id$ */
// Copyright (C) 2000, International Business Machines
// Corporation and others.  All Rights Reserved.
// This code is licensed under the terms of the Eclipse Public License (EPL).

#include "CoinPragma.hpp"
#include "ClpMessage.hpp"
/// Structure for use by ClpMessage.cpp
typedef struct {
  CLP_Message internalNumber;
  int externalNumber; // or continuation
  char detail;
  const char *message;
} Clp_message;
static Clp_message clp_us_english[] = {
  { CLP_SIMPLEX_FINISHED, 0, 1, "Optimal - objective value %g" },
  { CLP_SIMPLEX_INFEASIBLE, 1, 1, "Primal infeasible - objective value %g" },
  { CLP_SIMPLEX_UNBOUNDED, 2, 1, "Dual infeasible - objective value %g" },
  { CLP_SIMPLEX_STOPPED, 3, 1, "Stopped - objective value %g" },
  { CLP_SIMPLEX_ERROR, 4, 1, "Stopped due to errors - objective value %g" },
  { CLP_SIMPLEX_INTERRUPT, 5, 1, "Stopped by event handler - objective value %g" },
  { CLP_SIMPLEX_STATUS, 6, 1, "%d  Obj %g%? Primal inf %g (%d)%? Dual inf %g (%d)%? w.o. free dual inf (%d)" },
  { CLP_DUAL_BOUNDS, 25, 3, "Looking optimal checking bounds with %g" },
#if ABC_NORMAL_DEBUG > 1
  { CLP_SIMPLEX_ACCURACY, 60, 1, "Primal error %g, dual error %g" },
#else
  { CLP_SIMPLEX_ACCURACY, 60, 3, "Primal error %g, dual error %g" },
#endif
  { CLP_SIMPLEX_BADFACTOR, 7, 2, "Singular factorization of basis - status %d" },
  { CLP_SIMPLEX_BOUNDTIGHTEN, 8, 3, "Bounds were tightened %d times" },
  { CLP_SIMPLEX_INFEASIBILITIES, 9, 1, "%d infeasibilities" },
  { CLP_SIMPLEX_FLAG, 10, 3, "Flagging variable %c%d" },
  { CLP_SIMPLEX_GIVINGUP, 11, 2, "Stopping as close enough" },
  { CLP_DUAL_CHECKB, 12, 2, "New dual bound of %g" },
  { CLP_DUAL_ORIGINAL, 13, 3, "Going back to original objective" },
  { CLP_SIMPLEX_PERTURB, 14, 1, "Perturbing problem by %g%% of %g - largest nonzero change %g ( %g%%) - largest zero change %g" },
  { CLP_PRIMAL_ORIGINAL, 15, 2, "Going back to original tolerance" },
  { CLP_PRIMAL_WEIGHT, 16, 2, "New infeasibility weight of %g" },
  { CLP_PRIMAL_OPTIMAL, 17, 2, "Looking optimal with tolerance of %g" },
  { CLP_SINGULARITIES, 18, 2, "%d total structurals rejected in initial factorization" },
  { CLP_MODIFIEDBOUNDS, 19, 1, "%d variables/rows fixed as scaled bounds too close" },
  { CLP_RIMSTATISTICS1, 20, 2, "Absolute values of scaled objective range from %g to %g" },
  { CLP_RIMSTATISTICS2, 21, 2, "Absolute values of scaled bounds range from %g to %g, minimum gap %g" },
  { CLP_RIMSTATISTICS3, 22, 2, "Absolute values of scaled rhs range from %g to %g, minimum gap %g" },
  { CLP_POSSIBLELOOP, 23, 2, "Possible loop - %d matches (%x) after %d checks" },
  { CLP_SMALLELEMENTS, 24, 1, "Matrix will be packed to eliminate %d small elements" },
  { CLP_DUPLICATEELEMENTS, 26, 1, "Matrix will be packed to eliminate %d duplicate elements" },
  { CLP_SIMPLEX_HOUSE1, 101, 32, "dirOut %d, dirIn %d, theta %g, out %g, dj %g, alpha %g" },
  { CLP_SIMPLEX_HOUSE2, 102, 4, "%d %g In: %c%d Out: %c%d%? dj ratio %g distance %g%? dj %g distance %g" },
  { CLP_SIMPLEX_NONLINEAR, 103, 4, "Primal nonlinear change %g (%d)" },
  { CLP_SIMPLEX_FREEIN, 104, 32, "Free column in %d" },
  { CLP_SIMPLEX_PIVOTROW, 105, 32, "Pivot row %d" },
  { CLP_DUAL_CHECK, 106, 4, "Btran alpha %g, ftran alpha %g" },
  { CLP_PRIMAL_DJ, 107, 4, "For %c%d btran dj %g, ftran dj %g" },
  { CLP_PACKEDSCALE_INITIAL, 1001, 2, "Initial range of elements is %g to %g" },
  { CLP_PACKEDSCALE_WHILE, 1002, 3, "Range of elements is %g to %g" },
  { CLP_PACKEDSCALE_FINAL, 1003, 2, "Final range of elements is %g to %g" },
  { CLP_PACKEDSCALE_FORGET, 1004, 2, "Not bothering to scale as good enough" },
  { CLP_INITIALIZE_STEEP, 1005, 3, "Initializing steepest edge weights - old %g, new %g" },
  { CLP_UNABLE_OPEN, 6001, 0, "Unable to open file %s for reading" },
  { CLP_BAD_BOUNDS, 6002, 1, "%d bad bound pairs or bad objectives were found - first at %c%d" },
  { CLP_BAD_MATRIX, 6003, 1, "Matrix has %d large values, first at column %d, row %d is %g" },
  { CLP_LOOP, 6004, 1, "Can't get out of loop - stopping" },
  { CLP_IMPORT_RESULT, 27, 1, "Model was imported from %s in %g seconds" },
  { CLP_IMPORT_ERRORS, 3001, 1, " There were %d errors when importing model from %s" },
  { CLP_EMPTY_PROBLEM, 3002, 1, "Empty problem - %d rows, %d columns and %d elements" },
  { CLP_CRASH, 28, 1, "Crash put %d variables in basis, %d dual infeasibilities" },
  { CLP_END_VALUES_PASS, 29, 1, "End of values pass after %d iterations" },
  { CLP_QUADRATIC_BOTH, 108, 32, "%s %d (%g) and %d (%g) both basic" },
  { CLP_QUADRATIC_PRIMAL_DETAILS, 109, 32, "coeff %g, %g, %g - dj %g - deriv zero at %g, sj at %g" },
  { CLP_IDIOT_ITERATION, 30, 1, "%d infeas %g, obj %g - mu %g, its %d, %d interior" },
  { CLP_INFEASIBLE, 3003, 1, "Analysis indicates model infeasible or unbounded" },
  { CLP_MATRIX_CHANGE, 31, 2, "Matrix can not be converted into %s" },
  { CLP_TIMING, 32, 1, "%s objective %.10g - %d iterations time %.2f2%?, Presolve %.2f%?, Idiot %.2f%?" },
  { CLP_INTERVAL_TIMING, 33, 2, "%s took %.2f seconds (total %.2f)" },
  { CLP_SPRINT, 34, 1, "Pass %d took %d iterations, objective %g, dual infeasibilities %g( %d)" },
  { CLP_BARRIER_ITERATION, 35, 1, "%d Primal %g Dual %g Complementarity %g - %d fixed, rank %d" },
  { CLP_BARRIER_OBJECTIVE_GAP, 36, 3, "Feasible - objective gap %g" },
  { CLP_BARRIER_GONE_INFEASIBLE, 37, 2, "Infeasible" },
  { CLP_BARRIER_CLOSE_TO_OPTIMAL, 38, 2, "Close to optimal after %d iterations with complementarity %g" },
  { CLP_BARRIER_COMPLEMENTARITY, 39, 2, "Complementarity %g - %s" },
  { CLP_BARRIER_EXIT2, 40, 1, "Exiting - using solution from iteration %d" },
  { CLP_BARRIER_STOPPING, 41, 1, "Exiting on iterations" },
  { CLP_BARRIER_EXIT, 42, 1, "Optimal %s" },
  { CLP_BARRIER_SCALING, 43, 3, "Scaling %s by %g" },
  { CLP_BARRIER_MU, 44, 3, "Changing mu from %g to %g" },
  { CLP_BARRIER_INFO, 45, 3, "Detail - %s" },
  { CLP_BARRIER_END, 46, 1, "At end primal/dual infeasibilities %g/%g, complementarity gap %g, objective %g" },
  { CLP_BARRIER_ACCURACY, 47, 2, "Relative error in phase %d, %d passes %g => %g" },
  { CLP_BARRIER_SAFE, 48, 2, "Initial safe primal value %g, objective norm %g" },
  { CLP_BARRIER_NEGATIVE_GAPS, 49, 3, "%d negative gaps summing to %g" },
  { CLP_BARRIER_REDUCING, 50, 2, "Reducing %s step from %g to %g" },
  { CLP_BARRIER_DIAGONAL, 51, 3, "Range of diagonal values is %g to %g" },
  { CLP_BARRIER_SLACKS, 52, 3, "%d slacks increased, %d decreased this iteration" },
  { CLP_BARRIER_DUALINF, 53, 3, "Maximum dual infeasibility on fixed is %g" },
  { CLP_BARRIER_KILLED, 54, 3, "%d variables killed this iteration" },
  { CLP_BARRIER_ABS_DROPPED, 55, 2, "Absolute error on dropped rows is %g" },
  { CLP_BARRIER_ABS_ERROR, 56, 2, "Primal error is %g and dual error is %g" },
  { CLP_BARRIER_FEASIBLE, 57, 2, "Infeasibilities - bound %g , primal %g ,dual %g" },
  { CLP_BARRIER_STEP, 58, 2, "Steps - primal %g ,dual %g , mu %g" },
  { CLP_BARRIER_KKT, 6005, 0, "Quadratic barrier needs a KKT factorization" },
  { CLP_RIM_SCALE, 59, 1, "Automatic rim scaling gives objective scale of %g and rhs/bounds scale of %g" },
  { CLP_SLP_ITER, 58, 1, "Pass %d objective %g - drop %g, largest delta %g" },
  { CLP_COMPLICATED_MODEL, 3004, 1, "Can not use addRows or addColumns on CoinModel as mixed, %d rows, %d columns" },
  { CLP_BAD_STRING_VALUES, 3005, 1, "%d string elements had no values associated with them" },
  { CLP_CRUNCH_STATS, 61, 2, "Crunch %d (%d) rows, %d (%d) columns and %d (%d) elements" },
  { CLP_PARAMETRICS_STATS, 62, 1, "Theta %g - objective %g" },
  { CLP_PARAMETRICS_STATS2, 63, 2, "Theta %g - objective %g, %s in, %s out" },
#ifndef NO_FATHOM_PRINT
  { CLP_FATHOM_STATUS, 63, 2, "Fathoming node %d - %d nodes (%d iterations) - current depth %d" },
  { CLP_FATHOM_SOLUTION, 64, 1, "Fathoming node %d - solution of %g after %d nodes at depth %d" },
  { CLP_FATHOM_FINISH, 65, 1, "Fathoming node %d (depth %d) took %d nodes (%d iterations) - maximum depth %d" },
#endif
  { CLP_GENERAL, 1000, 1, "%s" },
  { CLP_GENERAL2, 1001, 2, "%s" },
  { CLP_GENERAL_WARNING, 3006, 1, "%s" },
  { CLP_DUMMY_END, 999999, 0, "" }
};
static Clp_message uk_english[] = {
  { CLP_SIMPLEX_FINISHED, 0, 1, "Optimal - objective value %g,\
 okay CLP can solve some LPs but you really need Xpress from Dash Associates :-)" },
  { CLP_DUMMY_END, 999999, 0, "" }
};
/* Constructor */
ClpMessage::ClpMessage(Language language)
  : CoinMessages(sizeof(clp_us_english) / sizeof(Clp_message))
{
  language_ = language;
  strcpy(source_, "Clp");
  class_ = 1; //solver
  Clp_message *message = clp_us_english;

  while (message->internalNumber != CLP_DUMMY_END) {
    CoinOneMessage oneMessage(message->externalNumber, message->detail,
      message->message);
    addMessage(message->internalNumber, oneMessage);
    message++;
  }
  // Put into compact form
  toCompact();

  // now override any language ones

  switch (language) {
  case uk_en:
    message = uk_english;
    break;

  default:
    message = NULL;
    break;
  }

  // replace if any found
  if (message) {
    while (message->internalNumber != CLP_DUMMY_END) {
      replaceMessage(message->internalNumber, message->message);
      message++;
    }
  }
}

/* vi: softtabstop=2 shiftwidth=2 expandtab tabstop=2
*/