/* -*- 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 <mapstorage.h>

#include <mapselector.h>

#include <algobox.h>

#include <dijkstrabox.h>

#include <lemon/dijkstra.h>

//No Suurballe in Lemon 1.0

//#include <lemon/suurballe.h>

#include <lemon/path.h>

enum {INPUT, OUTPUT, MAP_NUM};

DijkstraBox::DijkstraBox(std::vector<std::string> t):AlgoBox()

{

  init(t);

}

SuurballeBox::SuurballeBox(std::vector<std::string> t):DijkstraBox(t)

{

  Gtk::Adjustment * adjustment=new Gtk::Adjustment(2, 1, 20, 1, 5);

  num_set = new Gtk::SpinButton(*adjustment, 5,0);

  Gtk::Label * label=new Gtk::Label("No. of paths to find: ");

//   hbox.pack_start(*label);

//   hbox.pack_start(*num_set);

//   hbox.show_all_children();

  table.attach(*label, 0,1,2,3);

  table.attach(*num_set, 1,2,2,3);

//   pack_start(hbox);

}

void DijkstraBox::run()

{

  if(

      tabcbt.get_active_text()!="" &&

      (arcmapcbts[INPUT])->get_active_text()!="" &&

      (arcmapcbts[OUTPUT])->get_active_text()!="" &&

      source.get_active_text()!="" &&

      target.get_active_text()!=""

    )

  {

    const Digraph &g=mapstorage->digraph;

    Node from, to;

    get_from_to(from, to, (Digraph&)g);

    std::ostringstream o;

    if(!(from==to))

    {

      std::string inputmapName = arcmapcbts[INPUT]->get_active_text();

      std::string outputmapName = arcmapcbts[OUTPUT]->get_active_text();

      MapStorage::NumericArcMap& inputmap = mapstorage->getNumericArcMap(inputmapName);

      MapStorage::NumericArcMap& outputmap = mapstorage->getNumericArcMap(outputmapName);

      //zero out output map

      for (ArcIt i(g); i!=INVALID; ++i)

      {

        outputmap[i]=0;

      }

      Dijkstra<Digraph, MapStorage::NumericArcMap > dijkstra(g, inputmap);

      dijkstra.run(from, to);

      if(dijkstra.reached(to))

      {

        Node n=to;

        int length=0;

        while (n!=INVALID && n!=from)

        {

          Arc e=dijkstra.predArc(n);

          outputmap[e]=1;

          n=dijkstra.predNode(n);

          length++;

        }

        o << "Result: " << length << " long path, with cost " << dijkstra.dist(to);

      }

      else

      {

        o << "Result: failed to find shortest path between ";

        o << source.get_active_text() << " and " << target.get_active_text();

      }

      resultlabel.set_text(o.str());

      mapstorage->mapChanged(true, (arcmapcbts[OUTPUT])->get_active_text());

      //   mapstorage->changeActiveMap(true, E_COLOR,

      // 			      (arcmapcbts[OUTPUT])->get_active_text());

      //   mapstorage->changeActiveMap(true, E_TEXT,

      // 			      (arcmapcbts[INPUT])->get_active_text());

    }

  }

}

void SuurballeBox::run()

{

  if(

     tabcbt.get_active_text()!="" &&

     (arcmapcbts[INPUT])->get_active_text()!="" &&

     (arcmapcbts[OUTPUT])->get_active_text()!="" &&

     source.get_active_text()!="" &&

     target.get_active_text()!=""

     )

    {

      const Digraph &g=mapstorage->digraph;

      Node from, to;

      get_from_to(from, to, (Digraph&)g);

      std::ostringstream o;

      if(!(from==to))

	{

          MapStorage::NumericArcMap& inputmap=

	    mapstorage->getNumericArcMap(arcmapcbts[INPUT]->get_active_text());

          MapStorage::NumericArcMap& outputmap=

	    mapstorage->getNumericArcMap(arcmapcbts[OUTPUT]->get_active_text());

	  //zero out output map

	  for (ArcIt i(g); i!=INVALID; ++i)

	    {

	      outputmap[i]=0;

	    }

	  //No Suurballe in Lemon 1.0

	  //Suurballe<Digraph, MapStorage::NumericArcMap > sb((Digraph&)g, inputmap, from, to);

	  int found=0;

	  //No Suurballe in Lemon 1.0

	  //found=sb.run(num_set->get_value_as_int());

	  if(found)

	    {

	      for(int j=0;j<found;j++)

		{

		  Path<Digraph> path;

		  //No Suurballe in Lemon 1.0

		  //path=sb.path(j);

		  for(int k=0;k<path.length();k++)

		    {

		      outputmap[path.nth(k)]=j+1;

		    }

		}

	      o << "Result: found " << found << " paths between ";

	      o << source.get_active_text() << " and " << target.get_active_text();

	    }

	  else

	    {

	      o << "Result: failed to find shortest path between ";

	      o << source.get_active_text() << " and " << target.get_active_text();

	    }

	  resultlabel.set_text(o.str());

	  mapstorage->mapChanged(true, (arcmapcbts[OUTPUT])->get_active_text());

	  //   mapstorage->changeActiveMap(true, E_COLOR,

	  // 			      (arcmapcbts[OUTPUT])->get_active_text());

	  //   mapstorage->changeActiveMap(true, E_TEXT,

	  // 			      (arcmapcbts[INPUT])->get_active_text());

	}

    }

}

void DijkstraBox::build_box()

{

  //if active tab is changed, labels of digraph nodes had to be loaded into comboboxes

  //this can be done after the maps are loaded into ComboBoxes

  signal_upon_maplist_updated().connect(sigc::mem_fun(*this, &DijkstraBox::maplists_updated));

  addMapSelector("Cost map: ", true, NUM);

  addMapSelector("Arcs of path here: ", true, NUM);

  Gtk::Label * source_label=new Gtk::Label("Source: ");

  Gtk::Label * target_label=new Gtk::Label("Target: ");

  table.attach(*source_label, 0,1,0,1);

  table.attach(*target_label, 0,1,1,2);

  table.attach(source, 1,2,0,1);

  table.attach(target, 1,2,1,2);

  pack_start(table);

  resultlabel.set_text("Result: algorithm is not run yet.");

  pack_start(resultlabel);

}

void SuurballeBox::build_box()

{

}

void DijkstraBox::maplists_updated()

{

  if(tabcbt.get_active_text()!="")

    {

      source.clear();

      target.clear();

      const Digraph &g=mapstorage->digraph;

      for (NodeIt i(g); i!=INVALID; ++i)

	{

	  std::ostringstream text;

	  text << mapstorage->getLabel(i);

	  source.prepend_text(text.str());

	  target.prepend_text(text.str());

	}

    }

}

void DijkstraBox::get_from_to(Node & from, Node & to, Digraph & g)

{

  int assigned=0;

  for (NodeIt i(g); (i!=INVALID) && (assigned<2); ++i)

    {

      std::ostringstream text;

      text << mapstorage->getLabel(i);

      if(!(text.str().compare(source.get_active_text())))

	{

	  from=i;

	  assigned++;

	}

      if(!(text.str().compare(target.get_active_text())))

	{

	  to=i;

	  assigned++;

	}

    }

}