/**
 * @module cprogram
 * @author Guenther Neuwirth (0626638), Manuel Mausz (0728348)
 * @brief  TODO
 * @date   12.05.2009
 */

#include <boost/algorithm/string.hpp>
#include <boost/algorithm/string/split.hpp>
#ifdef DEBUG
# include <iostream>
# include <iomanip>
#endif
#include "cprogram.h"
#include "instructions.h"

using namespace std;

CProgram::CProgram()
{
  m_instrset.insert(new CInstructionInc);
}

/*----------------------------------------------------------------------------*/

CProgram::~CProgram()
{
  /* free instruction set */
  set<CInstruction *>::iterator it;
  for (it = m_instrset.begin(); it != m_instrset.end(); ++it)
    delete *it;

  /* free instruction */
  for (iterator it = begin(); it != end(); ++it)
    delete *it;
}

/*----------------------------------------------------------------------------*/

void CProgram::compile(std::istream& in)
{
  if (!in.good())
    return;

  string line;
  unsigned i = 0;
  while (!in.eof() && in.good())
  {
    ++i;

    /* read stream per line */
    getline(in, line);
    if (line.empty())
      continue;

    boost::trim(line);

    /* ignore comments */
    if (line.find_first_of('#') == 0)
      continue;

    /* get instruction name */
    size_t pos = line.find_first_of(' ');
    string instrname = line.substr(0, pos);

    /* search and create instruction */
    CInstruction *instrptr = NULL;
    set<CInstruction *>::iterator it;
    for (it = m_instrset.begin(); it != m_instrset.end(); ++it)
    {
      if (*(*it) == instrname)
      {
        instrptr = *it;
        break;
      }
    }
    if (instrptr == NULL)
    {
      stringstream sstr;
      sstr << "Unknown instruction '" << instrname << "' on line " << i << ".";
      throw runtime_error(sstr.str());
    }

    /* create instruction */
    CInstruction *instr = instrptr->factory();

    /* parse instruction parameters */
    string params = (pos == string::npos) ? "" : line.substr(pos + 1);
    boost::trim(params);
    list<string> instrparams;
    boost::split(instrparams, params, boost::is_any_of(", "), boost::token_compress_on);

    /* let instruction parse the parameters. catch+throw exception */
    try
    {
      instr->compile(instrparams);
    }
    catch(runtime_error& ex)
    {
      stringstream sstr;
      sstr << "Unable to compile instruction '" << instrname
           << "' (line " << i << "): " << ex.what();
      throw runtime_error(sstr.str());
    }

    push_back(instr);
  }
}

/*----------------------------------------------------------------------------*/

#if DEBUG
void CProgram::dump(std::ostream& out)
{
  out << "[PROGRAM DUMP]" << endl;
  unsigned i = 0;
  for(iterator it = begin(); it < end(); ++it)
  {
    out << "[" << std::setw(4) << std::setfill('0') << i << "]  "
        << *(*it) << endl;
    ++i;
  }
}
#endif

/* vim: set et sw=2 ts=2: */