You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.3 KiB
78 lines
2.3 KiB
/***************************************************************************
|
|
* Copyright (C) 2002 by Roberto Raggi *
|
|
* roberto@tdevelop.org *
|
|
* *
|
|
* 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. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#include "backgroundparser.h"
|
|
#include "problemreporter.h"
|
|
#include "AdaLexer.hpp"
|
|
#include "AdaParser.hpp"
|
|
#include "AdaAST.hpp"
|
|
#include <kdebug.h>
|
|
#include <tqfile.h>
|
|
|
|
#include <config.h>
|
|
|
|
#include <sstream>
|
|
|
|
BackgroundParser::BackgroundParser( ProblemReporter* reporter,
|
|
const TQString& source,
|
|
const TQString& filename )
|
|
: m_reporter( reporter ),
|
|
m_source( source.unicode(), source.length() ),
|
|
m_fileName( filename )
|
|
{
|
|
}
|
|
|
|
BackgroundParser::~BackgroundParser()
|
|
{
|
|
}
|
|
|
|
void BackgroundParser::run()
|
|
{
|
|
TQCString _fn = TQFile::encodeName(m_fileName);
|
|
std::string fn( _fn.data() );
|
|
|
|
std::istringstream stream( m_source.utf8().data() );
|
|
|
|
AdaLexer lexer( stream );
|
|
lexer.setFilename( fn );
|
|
lexer.setProblemReporter( m_reporter );
|
|
|
|
AdaParser parser( lexer );
|
|
parser.setFilename( fn );
|
|
parser.setProblemReporter( m_reporter );
|
|
|
|
// make an ast factory
|
|
antlr::ASTFactory ast_factory;
|
|
// initialize and put it in the parser...
|
|
parser.initializeASTFactory (ast_factory);
|
|
parser.setASTFactory (&ast_factory);
|
|
// parser.setASTNodeType ("RefAdaAST");
|
|
|
|
try{
|
|
lexer.resetErrors();
|
|
parser.resetErrors();
|
|
|
|
parser.compilation_unit();
|
|
|
|
} catch( antlr::ANTLRException& ex ){
|
|
kdDebug() << "*exception*: " << ex.toString().c_str() << endl;
|
|
m_reporter->reportError( TQString::fromLatin1( ex.getMessage().c_str() ),
|
|
m_fileName,
|
|
lexer.getLine(),
|
|
lexer.getColumn() );
|
|
}
|
|
|
|
kdDebug() << "BackgroundParser::run() FINISHED." << endl;
|
|
}
|
|
|
|
|
|
|