/var/www/hormigaproject.com.ar/files/src/coreinterface.cpp

Go to the documentation of this file.

/*
# Hormiga - Software de cálculo programable.
#
# Copyright (C) 2008, 2009 Leonardo Román, Hugo J. Curti, Norma  Ercoli,
# Universidad Nacional del Centro de la Provincia de Buenos Aires
# (UNCPBA)
#
# Este programa es parte de Hormiga.
#
# Hormiga es software libre. Puede redistribuirlo y/o modificarlo
# bajo los términos de la Licencia Pública General de GNU según es
# publicada por la Free Software Foundation, versión 2. Vea el archivo
# COPIA (español, no oficial) o COPYING (inglés, oficial) en directorio
# raíz.
#
# Hormiga se distribuye con la esperanza de que sea útil, pero SIN
# NINGUNA GARANTÍA, incluso sin la garantía MERCANTIL implícita o sin
# garantizar la CONVENIENCIA PARA UN PROPÓSITO PARTICULAR. Véase la
# Licencia Pública General de GNU para más detalles.
#
# Debería haber recibido una copia de la Licencia Pública General junto
# con Hormiga. Si no ha sido así, escriba a la Free Software
# Foundation, Inc., en 675 Mass Ave, Cambridge, MA 02139, EEUU.
# Añada también información sobre cómo contactar con usted mediante
# correo electrónico y postal.
#
# This file is part of Hormiga.
#
# Hormiga is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# as published by the Free Software Foundation; see the file COPYING
# in the top directory for details.
#
# Hormiga 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 Hormiga; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
# USA
*/

#include "coreinterface.h"

#include <QDir>

#include "parser/parser_functions.h"
#include "yy_lex.h"
#include "yy_yacc.h"

#ifdef ENABLE_NLS
#include <libintl.h>
#endif
CoreInterface::CoreInterface()
{
    this->coreFunctions = NULL ;

    // The next is used by "QSettings"
    //QCoreApplication::setOrganizationDomain("ximon.com.ar");
    QCoreApplication::setOrganizationName( MY_ORGANIZATION );
    QCoreApplication::setApplicationName( APPLICATION_NAME );
    this->settings = new QSettings( QSettings::IniFormat ,
                                    QSettings::SystemScope ,
                                    MY_ORGANIZATION , APPLICATION_NAME ) ;
    if ( QMetaType::type("T_STRING") == 0 )
        qRegisterMetaType<T_STRING>("T_STRING") ;
    this->hashCalc = new T_HASH_CALC( QCryptographicHash::Md5 );
    this->clear() ;

    // Support for internationalization (only needed under windows)...
    // Where the dictionaries are ?
#ifdef ENABLE_NLS
    bindtextdomain ("bison-runtime" , LOCALES_DIR ) ;
#endif
}

CoreInterface::~CoreInterface()
{
    while ( this->stList.count() )
        delete this->stList.takeLast() ;
    delete this->coreFunctions ;
    delete this->settings ;
    delete this->hashCalc ;
}

SymbolTable* CoreInterface::beginEnviroment ()
{
    this->st = new SymbolTable( this->st ) ;
    this->stList.append( this->st ) ;
    return ( this->st ) ;
}

SymbolTable* CoreInterface::getCurrentEnviroment ()
{
    return ( this->st ) ;
}

SymbolTable* CoreInterface::endCurrentEnviroment ()
{
    if ( this->st != NULL )
        this->st = this->st->getParentSymbolTable() ;
    return this->st ;
}

bool CoreInterface::markFile ( T_STRING &fullFileName )
{
    if ( this->markedFiles.contains ( fullFileName ) )
        return ( false ) ;
    this->markedFiles.append( fullFileName ) ;
    return ( true ) ;
}

QStringList CoreInterface::getModulesDirs ()
{
    QDir dir ( this->loadedProgramFile ) ;
    dir.cdUp() ; // Convert fileName to it's dirName.
    QStringList def ;
    def.append( DEFAULT_MODULES_PATH ) ; // the default if not config file.
    // Try to load the config file (or use 'def' else)...
    def = this->settings->value( "Core/Modules_Path" , def ).toStringList() ;
    def.append ( dir.absolutePath() ) ; // Try in program's dir too...
    return def ;
}

T_HASH_CALC* CoreInterface::getHashCalculator ()
{
    return hashCalc ;
}

/* Slots */
extern int yyparse( yyscan_t scanner , CoreInterface* core ) ;
void CoreInterface::loadFile ( T_STRING &fname )
{
    FILE *toLoad = fopen( fname.toAscii().data() , "r" ) ;
    if ( ! toLoad )
    {
        this->notifyMessage( 2, QString(
                tr("ERROR!! Can not open file: '%1'.")
                ).arg( fname ) );
        return ;
    }
    this->clear() ;
    this->loadedProgramFile = fname ;
    FlexExtraData fn ; fn.core = this ;
    fn.fileName.prepend( fname ) ;
    yyscan_t scanner ;
    yylex_init_extra ( &fn , &scanner ) ;
    yyset_in ( toLoad , scanner ) ;

    this->markFile ( fname ) ;
    int rc = yyparse( scanner, this ) ;
    yylex_destroy ( scanner ) ;
    if ( rc != 0 )
    {
        this->notifyMessage( 2, QString(
                tr("ERROR!! While loading file '%1'. Code: %2")
                ).arg( fname ).arg( rc ) );
    }
    fclose ( toLoad ) ;
}

void CoreInterface::clear ()
{
    this->actualProcesingStep = NULL ;
    this->st = NULL ;
    this->markedFiles.clear() ;
    while ( this->stList.count() )
        delete this->stList.takeLast() ;
    if ( this->coreFunctions != NULL )
        delete this->coreFunctions ;
    this->coreFunctions = new CoreFunctionsBuilder ;
    this->loadedProgramFile.clear() ;
    this->hashCalc->reset() ;

    /* Create a default enviroment */
    this->beginEnviroment () ;
}

void CoreInterface::notifyStepCreated ( Step* newStep )
{
    emit stepCreated(newStep) ;
    QObject::connect ( newStep , SIGNAL ( message(int,T_STRING) ) ,
                           this , SLOT ( notifyMessage(int,T_STRING)) ) ;
}

void CoreInterface::notifyMessage ( int severity , T_STRING msg )
{
    printf ( "%s" , msg.toAscii().data() ) ;
    fflush(stdout);
    emit coreMessage( msg , severity ) ;
}

void CoreInterface::yyerror ( int severity , yyscan_t scanner , T_STRING msg )
{
    QString level = tr( "ERROR!!" ) ;
    if ( severity < 2 )
        level = tr( "WARNING!!" ) ;
    msg = QString( tr("%1: in file '%2' at line %3 while parsing token '%4': %5\n") )
                .arg( level )
                .arg( yyget_extra( scanner )->fileName.first() )
                .arg( yyget_lineno ( scanner ) )
                .arg( yyget_text ( scanner ) )
                .arg( msg ) ;
    this->notifyMessage( severity , msg ) ;
}