/*
 * Copyright (C) 2008 iptego GmbH
 *
 * This file is part of SEMS, a free SIP media server.
 *
 * SEMS 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 2 of the License, or
 * (at your option) any later version. This program is released under
 * the GPL with the additional exemption that compiling, linking,
 * and/or using OpenSSL is allowed.
 *
 * For a license to use the SEMS software under conditions
 * other than those described here, or to purchase support for this
 * software, please contact iptel.org by e-mail at the following addresses:
 *    info@iptel.org
 *
 * SEMS 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 this program; if not, write to the Free Software 
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
#include "DSMStateDiagramCollection.h"

#include "DSMChartReader.h"
#include <fstream>
using std::ifstream;

DSMStateDiagramCollection::DSMStateDiagramCollection() {
}

DSMStateDiagramCollection::~DSMStateDiagramCollection() {
}

bool DSMStateDiagramCollection::readFile(const string& filename, const string& name,
					 const string& load_path, string& s) {
  DBG("loading DSM '%s' from '%s'\n", name.c_str(), filename.c_str());

  ifstream ifs(filename.c_str());
  if (!ifs.good()) {
    ERROR("loading state diagram '%s'\n",
	  filename.c_str());
    return false;
  }

  while (ifs.good() && !ifs.eof()) {
    string r;
    getline(ifs, r);
    // skip comments: lines starting with -- or #
    size_t fpos  = r.find_first_not_of(" \t");
    if (fpos != string::npos) {
      if ((r.length() > fpos+1 && r.substr(fpos, 2) == "--") ||
	  ((r.length() >= fpos+1 && r.substr(fpos, 1) == "#" && r.substr(fpos, 8) != "#include") ))
	continue;

      if (r.length() > fpos+1 && 
	  r.substr(fpos, 8) == "#include") {
	r = r.substr(fpos+8);
	r = trim(r, "'\" ");
	if (r.empty()) {
	  ERROR("missing include file name!\n");
	  return false;
	}

	string current_load_path;
	string include_name;
	if (r[0]=='/') {
	  include_name = r;
	  size_t ppos = r.rfind("/");
	  current_load_path = r.substr(0, ppos) + "/";
	} else {
	  current_load_path = load_path;
	  include_name = load_path+"/"+r;
	}
	if (!readFile(include_name, name, current_load_path, s))
	  return false;
	continue;
      }
	
    }

    s += r + "\n";
  }
  return true;
}

bool DSMStateDiagramCollection::loadFile(const string& filename, const string& name,
					 const string& load_path,
					 const string& mod_path, bool debug_dsm, bool check_dsm) {

  string s;
  if (!readFile(filename, name, load_path, s))
    return false;

  if (debug_dsm) {
    DBG("dsm text\n------------------\n%s\n------------------\n", s.c_str());
  }

  diags.push_back(DSMStateDiagram(name));
  DSMChartReader cr;
  if (!cr.decode(&diags.back(), s, mod_path, this, mods)) {
    ERROR("DonkeySM decode script error!\n");
    return false;
  }
  if (check_dsm) {
    string report;
    if (!diags.back().checkConsistency(report)) {
      WARN("consistency check failed on '%s' from file '%s':\n", 
	   name.c_str(), filename.c_str());
      WARN("------------------------------------------\n"
	   "%s\n"
	   "------------------------------------------\n", report.c_str());
    } else {
      DBG("DSM '%s' passed consistency check\n", name.c_str());
    }
  }

  return true;
}

bool DSMStateDiagramCollection::hasDiagram(const string& name) {
  for (vector<DSMStateDiagram>::iterator it=
	 diags.begin(); it != diags.end(); it++) 
    if (it->getName() == name)
      return true;
  
  return false;
}

vector<string> DSMStateDiagramCollection::getDiagramNames() {
  vector<string> res; 
  for (vector<DSMStateDiagram>::iterator it=
	 diags.begin(); it != diags.end(); it++) 
    res.push_back(it->getName());
  return res;
}

void DSMStateDiagramCollection::addToEngine(DSMStateEngine* e) {
  DBG("adding %zd diags to engine\n", diags.size());
  for (vector <DSMStateDiagram>::iterator it = 
	 diags.begin(); it != diags.end(); it++) 
    e->addDiagram(&(*it));
  
  e->addModules(mods);
}