/Users/paul/Documents/phlogo/core/FileProcessor.cpp

/*
 *  FileProcessor.cpp
 *
 *  Author: Paul Hamilton
 *      Date: 11 Aug 2011
 *
 */
#include "FileProcessor.h"
        
#include "Exceptions.h"
#include "Interpreter.h"

#include <boost/filesystem/operations.hpp>
#include <boost/algorithm/string.hpp>

using namespace std;
using namespace boost;
using namespace boost::filesystem;

namespace phlogo {

path FileProcessor::locateFile(path p, path fn) {
    
    path f = p / fn;
    if (!exists(f)) {
        f = path("../../..") / p / fn;
        if (!exists(f)) {
            f = path("..") / p / fn;
            if (!exists(f)) {
                BOOST_THROW_EXCEPTION( bad_testsuite_exception() << errinfo_name(f.c_str()) );
            }
        }
    }
    
    return f;
}

void FileProcessor::parseLine(const string &s, Interpreter *itp, World *world) {
    
    string line = s;
    trim(line);
    if (line.length() > 0 && line[0] != '#') {
        if (line.find("defun") == 0) {
            string remain = line.substr(6);
            size_t i = remain.find_first_of("\t ");
            if (i != string::npos) {
                string funcname = remain.substr(0, i);
                remain = remain.substr(i);
                i = remain.find_first_not_of("\t ");
                string args = "";
                if (i != string::npos)
                    args = remain.substr(i);
                itp->defun(funcname, args);
            }
            else {
                itp->defun(remain, "");
            }
        }
        else if (line.find("end") == 0) {
            itp->end();
        }
        else
            itp->run(world, line);
    }
}
    
void FileProcessor::parseFile(boost::filesystem::path f, LineProcessor *processor) {
    
        ifstream is(f.c_str());
    char buf[10 * 1024];
    while (!is.eof()) {
        is.getline(buf, sizeof(buf));
        string line(buf);
        processor->process(line);
    }
}
    
void LogoLineProcessor::process(const std::string &line) {
    FileProcessor::parseLine(line, _itp, _world);
}
    
}