/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/***************************************************************************
 *            templateparser.cc
 *
 *  Mon May 12 08:36:24 CEST 2008
 *  Copyright 2008 Bent Bisballe Nyeng
 *  deva@aasimon.org
 ****************************************************************************/

/*
 *  This file is part of Pracro.
 *
 *  Pracro 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.
 *
 *  Pracro 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 Pracro; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.
 */
#include "templateparser.h"
#include "configuration.h"
#include "debug.h"

// For assert
#include <assert.h>

// For open and friends
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>

// For vprintf and friends
#include <stdarg.h>

#ifndef XML
// For XML
#include <config.h>
#endif/*XML*/

#include <errno.h>
#include <string.h>

#include "exception.h"

void TemplateParser::error(const char* fmt, ...)
{
  // TODO: Throw exception here.

  va_list argp;
  int s = 256;
  char *p = new char[s];
  /* See printf(3) for details on the loop how to get the right buffersize. */
  while(1) {
    va_start(argp, fmt);
    int n = vsnprintf(p, s, fmt, argp);
    va_end(argp);
    if(n > -1 && n < s)
      break;
    if(n > -1)  /* glibc 2.1 */
      s = n+1;  /* precisely what is needed */
    else        /* glibc 2.0 */
      s *= 2;   /* twice the old size */
    delete[] p;
    p = new char[s];
  }
  PRACRO_ERR_LOG(macro, "Error in TemplateParser: %s\n", p);
  delete[] p;
  throw Exception("Error in TemplateParser");
}

TemplateParser::TemplateParser(std::string course)
{
  state = UNDEFINED;
  t = new Template();
  current_macro = NULL;

  file = Conf::xml_basedir + "/templates/" + course + ".xml";

  PRACRO_DEBUG(macro, "Using template file: %s\n", file.c_str());

  fd = open(file.c_str(), O_RDONLY);
  if(fd == -1) error("Could not open file %s", file.c_str());
}

TemplateParser::~TemplateParser()
{
  if(fd != -1) close(fd);
  delete t;
}

void TemplateParser::characterData(std::string &data)
{
}

void TemplateParser::startTag(std::string name, std::map< std::string, std::string> attributes)
{
  // Enable macro parsing
  if(name == "course") {
    if(state != UNDEFINED) error("course found not a root node.");
    state = COURSE;

    assert(t); // A Template has not yet been allocated, cannot create course!

    t->course.attributes = attributes;

    return;
  }

  // Create macro and enable parsing of queries, maps and window
  if(name == "macro") {
    if(state != COURSE) error("macro found outside course.");
    state = MACRO;

    assert(t); // A Template has not yet been allocated, cannot create macro!
    
    Macro m;
    m.attributes = attributes;
    t->course.macros.push_back(m);
    current_macro = &(t->course.macros.back());

    return;
  }

  error("Unknown/illegal tag: %s", name.c_str());
}

void TemplateParser::endTag(std::string name)
{
  if(name == "course") state = UNDEFINED;
  if(name == "macro") {
    current_macro = NULL;
    state = COURSE;
  }
}

int TemplateParser::readData(char *data, size_t size)
{
  if(fd == -1) {
    PRACRO_ERR_LOG(macro, "Invalid file descriptor.\n");
    return 0;
  }
  ssize_t r = read(fd, data, size);
  if(r == -1) {
    PRACRO_ERR_LOG(macro, "Could not read...%s\n", strerror(errno));
    return 0;
  }
  return r;
}

void TemplateParser::parseError(char *buf, size_t len, std::string error, int lineno)
{
  fprintf(stderr, "TemplateParser[%s] error at line %d: %s\n", file.c_str(), lineno, error.c_str());
  fprintf(stderr, "\tBuffer %u bytes: [", len);
  if(fwrite(buf, len, 1, stderr) != len) {}
  fprintf(stderr, "]\n");
  fflush(stderr);
}

Template *TemplateParser::getTemplate()
{
  return t;
}

#ifdef TEST_TEMPLATEPARSER

void print_attributes(std::string prefix,
                      std::map< std::string, std::string > &att)
{
  std::map< std::string, std::string >::iterator i = att.begin();
  while(i != att.end()) {
    printf("%s %s = \"%s\"\n", prefix.c_str(), (*i).first.c_str(), (*i).second.c_str());
    i++;
  }
}

int main()
{
  TemplateParser parser("example");
  parser.parse();

  Template *t = parser.getTemplate();

  printf("[Template]:\n");
  print_attributes("\t-", t->attributes);

  printf("\t[Course]:\n");
  print_attributes("\t\t-", t->course.attributes);
  
  printf("\t\t[Macros]:\n");
  std::vector< Macro >::iterator i = t->course.macros.begin();

  while(i != t->course.macros.end()) {
    printf("\t\t\t[Macro]:\n");
    print_attributes("\t\t\t\t-", (*i).attributes);
    
    std::vector< Query >::iterator qi = (*i).queries.begin();
    while(qi != (*i).queries.end()) {
      printf("\t\t\t\t[Query]:\n");
      print_attributes("\t\t\t\t\t-", (*qi).attributes);
      qi++;
    }

    std::vector< Map >::iterator mi = (*i).maps.begin();
    while(mi != (*i).maps.end()) {
      printf("\t\t\t\t[Map]:\n");
      print_attributes("\t\t\t\t\t-", (*mi).attributes);
      mi++;
    }

    i++;
  }

  return 0;
}

#endif/*TEST_TEMPLATEPARSER*/