X-Git-Url: https://git.verplant.org/?a=blobdiff_plain;f=src%2Flisp%2Fparser.cpp;h=294d9aa3833faf0f34a66653701848b2f24f3cd8;hb=12a28b64dcce9c7ff706451b4f3aecd201cc8a5f;hp=dbed7ac2fe6b79a1fdd95ffdc3619ee1d5287ebe;hpb=07ddaed2a657e4d2a3d038fed223fc5827159caf;p=supertux.git diff --git a/src/lisp/parser.cpp b/src/lisp/parser.cpp index dbed7ac2f..294d9aa38 100644 --- a/src/lisp/parser.cpp +++ b/src/lisp/parser.cpp @@ -1,12 +1,10 @@ -// $Id$ -// // SuperTux // Copyright (C) 2006 Matthias Braun // -// This program 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 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 3 of the License, or +// (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of @@ -14,41 +12,47 @@ // 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 +// along with this program. If not, see . #include #include -#include -#include -#include -#include "tinygettext/tinygettext.hpp" +#include "lisp/lisp.hpp" +#include "lisp/parser.hpp" +#include "obstack/obstackpp.hpp" #include "physfs/physfs_stream.hpp" -#include "parser.hpp" -#include "lisp.hpp" +#include "tinygettext/tinygettext.hpp" -namespace lisp -{ +#include "supertux/gameconfig.hpp" -Parser::Parser(bool translate) - : lexer(0), dictionary_manager(0), dictionary(0) +namespace lisp { + +Parser::Parser(bool translate) : + lexer(0), + filename(), + dictionary_manager(0), + dictionary(0), + token(), + obst() { if(translate) { dictionary_manager = new TinyGetText::DictionaryManager(); dictionary_manager->set_charset("UTF-8"); + if (g_config && (g_config->locale != "")) + dictionary_manager->set_language(g_config->locale); } + + obstack_init(&obst); } Parser::~Parser() { + obstack_free(&obst, NULL); delete lexer; delete dictionary_manager; } -static std::string dirname(std::string filename) +static std::string dirname(const std::string& filename) { std::string::size_type p = filename.find_last_of('/'); if(p == std::string::npos) @@ -57,10 +61,12 @@ static std::string dirname(std::string filename) return filename.substr(0, p+1); } -Lisp* +const Lisp* Parser::parse(const std::string& filename) { - IFileStream in(filename); + IFileStreambuf ins(filename); + std::istream in(&ins); + if(!in.good()) { std::stringstream msg; msg << "Parser problem: Couldn't open file '" << filename << "'."; @@ -71,47 +77,52 @@ Parser::parse(const std::string& filename) dictionary_manager->add_directory(dirname(filename)); dictionary = & (dictionary_manager->get_dictionary()); } - - return parse(in); + + return parse(in, filename); } -Lisp* -Parser::parse(std::istream& stream) +const Lisp* +Parser::parse(std::istream& stream, const std::string& sourcename) { delete lexer; lexer = new Lexer(stream); + this->filename = sourcename; token = lexer->getNextToken(); - Lisp* result = new Lisp(Lisp::TYPE_CONS); + + Lisp* result = new(obst) Lisp(Lisp::TYPE_CONS); result->v.cons.car = read(); result->v.cons.cdr = 0; - + delete lexer; lexer = 0; - return result; + return result; } -Lisp* +void +Parser::parse_error(const char* msg) const +{ + std::stringstream emsg; + emsg << "Parse Error at '" << filename << "' line " << lexer->getLineNumber() + << ": " << msg; + throw std::runtime_error(emsg.str()); +} + +const Lisp* Parser::read() { Lisp* result; switch(token) { case Lexer::TOKEN_EOF: { - std::stringstream msg; - msg << "Parse Error at line " << lexer->getLineNumber() << ": " - << "Unexpected EOF."; - throw std::runtime_error(msg.str()); + parse_error("Unexpected EOF."); } case Lexer::TOKEN_CLOSE_PAREN: { - std::stringstream msg; - msg << "Parse Error at line " << lexer->getLineNumber() << ": " - << "Unexpected ')'."; - throw std::runtime_error(msg.str()); + parse_error("Unexpected ')'."); } case Lexer::TOKEN_OPEN_PAREN: { - result = new Lisp(Lisp::TYPE_CONS); - + result = new(obst) Lisp(Lisp::TYPE_CONS); + token = lexer->getNextToken(); if(token == Lexer::TOKEN_CLOSE_PAREN) { result->v.cons.car = 0; @@ -120,25 +131,25 @@ Parser::read() } if(token == Lexer::TOKEN_SYMBOL && - strcmp(lexer->getString(), "_") == 0) { + strcmp(lexer->getString(), "_") == 0) { // evaluate translation function (_ str) in place here token = lexer->getNextToken(); if(token != Lexer::TOKEN_STRING) - throw std::runtime_error("Expected string after '(_'"); - - result = new Lisp(Lisp::TYPE_STRING); + parse_error("Expected string after '(_'"); + + result = new(obst) Lisp(Lisp::TYPE_STRING); if(dictionary) { std::string translation = dictionary->translate(lexer->getString()); - result->v.string = new char[translation.size()+1]; + result->v.string = new(obst) char[translation.size()+1]; memcpy(result->v.string, translation.c_str(), translation.size()+1); } else { - size_t len = strlen(lexer->getString()) + 1; - result->v.string = new char[len]; + size_t len = strlen(lexer->getString()) + 1; + result->v.string = new(obst) char[len]; memcpy(result->v.string, lexer->getString(), len); } token = lexer->getNextToken(); if(token != Lexer::TOKEN_CLOSE_PAREN) - throw std::runtime_error("Expected ')' after '(_ string'"); + parse_error("Expected ')' after '(_ string'"); break; } @@ -149,40 +160,41 @@ Parser::read() cur->v.cons.cdr = 0; break; } - cur->v.cons.cdr = new Lisp(Lisp::TYPE_CONS); - cur = cur->v.cons.cdr; + Lisp *newcur = new(obst) Lisp(Lisp::TYPE_CONS); + cur->v.cons.cdr = newcur; + cur = newcur; } while(1); break; } case Lexer::TOKEN_SYMBOL: { - result = new Lisp(Lisp::TYPE_SYMBOL); + result = new(obst) Lisp(Lisp::TYPE_SYMBOL); size_t len = strlen(lexer->getString()) + 1; - result->v.string = new char[len]; + result->v.string = new(obst) char[len]; memcpy(result->v.string, lexer->getString(), len); break; } case Lexer::TOKEN_STRING: { - result = new Lisp(Lisp::TYPE_STRING); + result = new(obst) Lisp(Lisp::TYPE_STRING); size_t len = strlen(lexer->getString()) + 1; - result->v.string = new char[len]; + result->v.string = new(obst) char[len]; memcpy(result->v.string, lexer->getString(), len); break; } case Lexer::TOKEN_INTEGER: - result = new Lisp(Lisp::TYPE_INTEGER); + result = new(obst) Lisp(Lisp::TYPE_INTEGER); sscanf(lexer->getString(), "%d", &result->v.integer); break; case Lexer::TOKEN_REAL: - result = new Lisp(Lisp::TYPE_REAL); + result = new(obst) Lisp(Lisp::TYPE_REAL); sscanf(lexer->getString(), "%f", &result->v.real); break; case Lexer::TOKEN_TRUE: - result = new Lisp(Lisp::TYPE_BOOLEAN); + result = new(obst) Lisp(Lisp::TYPE_BOOLEAN); result->v.boolean = true; break; case Lexer::TOKEN_FALSE: - result = new Lisp(Lisp::TYPE_BOOLEAN); + result = new(obst) Lisp(Lisp::TYPE_BOOLEAN); result->v.boolean = false; break; @@ -196,3 +208,5 @@ Parser::read() } } // end of namespace lisp + +/* EOF */