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

 *

 */

#ifndef GLEMON_XML_H

#define GLEMON_XML_H

#include <iostream>

#include <string>

#include <vector>

#include <list>

#include <map>

#include <lemon/error.h>

#include <lemon/dim2.h>

namespace lemon {

  class XmlIo 

  {

    bool _writeMode;

  public:

    ///Check if XmlIo is in write mode.

    bool write() { return _writeMode;}

    ///Check if XmlIo is in read mode.

    bool read() { return !_writeMode;}

    std::ostream& os;

    int level;

  protected:

    void indent(int level) {

      os << std::endl;

      for(int i=0;i<level;i++) os << ' ';

    }

    void tag(const std::string &_tag) {

      os << '<' << _tag << '>';

    }

    void etag(const std::string &_tag) {

      os << "</" << _tag << '>';

    }

    void itag(const std::string &_tag) { indent();tag(_tag); }

    void ietag(const std::string &_tag) { indent();etag(_tag); }

    void beginTag(const std::string &_tag) {

      itag(_tag);

      level++;

    }

    void endTag(const std::string &_tag) {

      level--;

      ietag(_tag);

    }

  public:

    ///Indent the line according to its level.

    ///\warning It can only be used in write mode.

    ///

    void indent()

    {

      if(write())

	if(level>=0) indent(level);

	else level=0;

      else throw LogicError();	

    }

    ///Read/write a tag

    ///Read/write a tag.

    ///In write mode it does not start a new line.

    class ContTag

    {

      XmlIo &ix;

      const std::string _tag;

    public:

      ///\e

      ///\e

      ///

      ContTag(XmlIo &_ix,const std::string &_t) :

	ix(_ix), _tag(_t)

      {

	if(ix.write()) ix.tag(_tag);

	else ix.useTag(_tag);

      }

      ~ContTag() { 

	if(ix.write()) ix.etag(_tag);

	else if(!std::uncaught_exception()) ix.useTag('/'+_tag);      

      }

    };

    ///Read/write a tag

    ///Read/write a tag.

    ///The whole \<foo\> ... \</foo\> will be placed in a single line.

    class LineTag

    {

      XmlIo &ix;

      const std::string _tag;

    public:

      ///\e

      ///\e

      ///

      LineTag(XmlIo &_ix,const std::string &_t) :

	ix(_ix), _tag(_t)

      {

	if(ix.write()) ix.itag(_tag);

	else ix.useTag(_tag);

      }

      ~LineTag() { 

	if(ix.write()) ix.etag(_tag);

	else if(!std::uncaught_exception()) ix.useTag('/'+_tag);

      }

    };

    ///Read/write a tag

    ///Read/write a tag.

    ///

    class Tag

    {

      XmlIo &ix;

      const std::string _tag;

    public:

      ///\e

      ///\e

      ///

      Tag(XmlIo &_ix,const std::string &_t) :

	ix(_ix), _tag(_t)

      {

	if(ix.write()) ix.beginTag(_tag);

	else ix.useTag(_tag);

      }

      ~Tag() {

	if(ix.write()) ix.endTag(_tag);

	else if(!std::uncaught_exception()) ix.useTag('/'+_tag);

      }

    };

  private:

    std::istream& is;

    std::string next_tag;

    int line_number;

    void skipWhiteSpaces()

    {

      if(write()) throw LogicError();

      {

	char c;

	while (is.get(c) && std::isspace(c,is.getloc()))

	  if(c=='\n') line_number++;

	is.unget();

      }

    }

  protected:

    /// Use the next tag.

    ///\e

    ///

    void useTag() {next_tag.clear();}

    ///Use the next tag and check if it is equal with \c _tag

    ///\e

    ///

    void useTag(const std::string &_tag) {

      if(nextTag()==_tag) useTag();

      else throw DataFormatError("",line_number,"Unexpected token name");

    }

  public:

    ///Return the next tag (if a tag follows on the stream).

    ///\warning It can only be used in read mode.

    ///

    const std::string &nextTag() 

    {

      if(write()) throw LogicError();

      else if(next_tag.empty()) {

	char c;

	skipWhiteSpaces();

	if(!is.get(c) || c!='<')

	  throw DataFormatError("",line_number,"Bad format");

	next_tag.clear();

	while (is.get(c) && c!='>') next_tag.push_back(c);

	if(c!='>')

	  throw DataFormatError("",line_number,"Bad format");

      }

      return next_tag;

    }

    /**********************************************************************/

    ///\e

    ///\e

    ///

    XmlIo(std::ostream& _os) : _writeMode(true), os(_os),

			       level(-1),

			       is(std::cin) {}

    ///\e

    ///

    XmlIo(std::istream& _is) : _writeMode(false),

			       os(std::cout), is(_is),

			       line_number(1) {}

    ~XmlIo() { if(write()) os<< std::endl; }

    XmlIo &operator()(const int &v) 

    { 

      if(write()) os << v;

      else {

	skipWhiteSpaces();

	if(!(is >> const_cast<int &>(v))) 

	  throw DataFormatError("",line_number,"Not an 'int'");

      }

      return *this;

    }

    XmlIo &operator()(const double &v) 

    {

      if(write()) os << v;

      else {

	skipWhiteSpaces();

	if(!(is >> const_cast<double &>(v))) 

	  throw DataFormatError("",line_number,"Not an 'double'");

      }

      return *this;

    }

    XmlIo &operator()(const std::string &v)

    {

      if(write())

	for(std::string::const_iterator i=v.begin();i!=v.end();++i)

	  switch(*i) {

	  case '\\':

	    os << "\\\\";

	    break;

	  case '<':

	    os << "\\<";

	    break;

	  case '&':

	    os << "\\&";

	    break;

	  case '\n':

	    os << "\\n";

	    break;

	  default:

	    os<<*i;

	    break;

	  }

      else {

	std::string &w = const_cast<std::string &>(v);

	w.clear();

	char c;

	while (is.get(c) && c!='<')

	  if(c=='\\')

	    if(!is.get(c))

	      throw DataFormatError("",line_number,"Bad string");

	    else switch(c) {

	    case 'n':

	      w.push_back('\n');

	      break;

	    default:

	      w.push_back(c);

	      break;

	    }

	  else {

	    if(c=='\n') line_number++;

	    w.push_back(c);

	  }

	if(c!='<')

	  throw DataFormatError("",line_number,"Unexpected eof");

	is.unget();

      }

      return *this;

    }

    XmlIo &operator()(const std::string &_tag,const int &v) 

    { 

      LineTag t(*this,_tag);

      (*this)(v);

      return *this;

    }

    XmlIo &operator()(const std::string &_tag,const double &v) 

    {

      LineTag t(*this,_tag);

      (*this)(v);

      return *this;

    }

    XmlIo &operator()(const std::string &_tag,const std::string &v)

    {

      LineTag t(*this,_tag);

      (*this)(v);

      return *this;

    }

    ///\e

    ///\e

    ///

    template<class V>

    XmlIo &operator()(const std::string &_tag,const V &v)

    {

      Tag t(*this,_tag);

      xml(*this,const_cast<V &>(v));

      return *this;

    }

    ///\e

    ///\e

    ///

    template<class V>

    XmlIo &operator()(const V &v)

    {

      xml(*this,const_cast<V &>(v));

      return *this;

    }

    };

  //////////////////////////////////////////////////////////////////////

  //////////////////////////////////////////////////////////////////////

  ///\e

  ///\relates XmlIo

  ///

  template<class A>

  void xml(XmlIo &x,std::auto_ptr<A> &v)

  {

    if(x.write()) v=new A;

    x(*v);

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class A,class B>

  void xml(XmlIo &x,std::pair<A,B> &v)

  {

    x("first",v.first);

    x("second",v.second);

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class T>

  void xml(XmlIo &x,std::list<T> &v)

  {

    if(x.write())

      for(typename std::list<T>::const_iterator it=v.begin();

	  it!=v.end();++it) x("item",*it);

    else while(x.nextTag()=="item")

      {

	v.push_back(T());

	x("item",v.back());

      }

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class T>

  void xml(XmlIo &x,std::vector<T> &v)

  {

    if(x.write())

      for(typename std::vector<T>::const_iterator it=v.begin();

	  it!=v.end();++it) x("item",*it);

    else while(x.nextTag()=="item")

      {

	v.push_back(T());

	x("item",v.back());      

      }

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class K,class V>

  void xml(XmlIo &x,std::map<K,V> &v)

  {

    if(x.write()) 

      for(typename std::map<K,V>::const_iterator it=v.begin();

	  it!=v.end();++it) x("item",*it);

    else while(x.nextTag()=="item")

      {

	typename std::map<K,V>::value_type it;

	x("item",it);

	v.insert(it);

      }

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class T>

  void xml(XmlIo &x,lemon::dim2::Point<T> &v)

  {

    { XmlIo::LineTag t(x,"x"); x(v.x); }

    { XmlIo::ContTag t(x,"y"); x(v.y); }

  }

  ///\e

  ///\relates XmlIo

  ///

  template<class T>

  void xml(XmlIo &x,lemon::dim2::BoundingBox<T> &v)

  {

    if(x.write()) {

      if(!v.empty()) {

	x("point",v.bottomLeft());

	if(v.bottomLeft()!=v.topRight()) x("point",v.topRight());

      }

    }

    else {

      v.clear();

      while(x.nextTag()=="point") {

	lemon::dim2::Point<T> co;

	x("point",co);

	v.add(co);

      }

    }

  }

}

#endif