Script.cpp

Aller à la documentation de ce fichier.

/*! \file Script.cpp
    \brief Interpréteur de script.

    Interprete des scripts structurés en fonctions.

    \author     aerith (www.aerith.fr)
    \version    1.0
    \date       20/11/2007
*/

#include    "Script.h"

MUTEX           Script::ScriptMutex;
unsigned int    Script::ScriptInstance = 0;

Script::Script()
{
    if(!ScriptInstance)
        MutexInit(&ScriptMutex);

    ScriptInstance++;

    NoLine = 0;
    NoCar = 0;
}

Script::~Script()
{
    while(Functions.size())
        DelFunction(Functions.size() - 1);
    Functions.clear();

    ScriptInstance--;

    if(!ScriptInstance)
        MutexStop(&ScriptMutex);
}

void    Script::LogError(char *pDesc)
{
    FILE    *File;

    File = fopen("ScriptError.log", "a");
    if(File)
    {
        fprintf(File, "Line %i, Car %i => %s\n", NoLine, NoCar, pDesc);

        fclose(File);
    }
    else
        perror("Canot open Script's errors log file\n");
}

int     Script::AddFunction(char *pName, unsigned int iNb, SCRIPT_ROUTINE pFunction)
{
    unsigned int    i = Functions.size();

    Functions.push_back(new ScriptFunc);

    if((i + 1) != Functions.size())
        return ERROR_C_MEMORY;
    else
    {
        Functions.back()->Name = new char[strlen(pName) + 1];
        strcpy(Functions.back()->Name, pName);
        Functions.back()->NbParam = iNb;
        Functions.back()->Function = pFunction;
    }

    return ERROR_C_NOERROR;
}

int     Script::DelFunction(unsigned int iPos)
{

    if(iPos < Functions.size())
    {
        delete [] Functions[iPos]->Name;
        delete Functions[iPos];
        Functions.erase(Functions.begin() + iPos);
    }
    
    return ERROR_C_NOERROR;
}

int     Script::DelFunction(char *pName)
{
    unsigned int    i;

    for(i = 0; i < Functions.size(); i++)
        if(!strcmp(Functions[i]->Name, pName))
            return DelFunction(i);

    return ERROR_C_NOERROR;
}

char    *Script::GetName(unsigned int iPos)
{
    if(iPos < Functions.size())
        return Functions[iPos]->Name;

    return NULL;
}

int     Script::GetNbParam(unsigned int iPos)
{
    if(iPos < Functions.size())
        return Functions[iPos]->NbParam;

    return 0;
}

int     Script::GetNbParam(char *pName)
{
    unsigned int    i;

    for(i = 0; i < Functions.size(); i++)
        if(!strcmp(Functions[i]->Name, pName))
            return Functions[i]->NbParam;

    return 0;
}

int     Script::GetNbFunction()
{
    return Functions.size();
}

String  Script::ParseFile(char *pName)
{
    FILE    *File;
    char    Buffer[SCRIPT_BUFFER + 1];
    String  In;
    String  Out;
    BEGIN

    MutexLock(&ScriptMutex);

    File = fopen(pName, "r");
    if(File)
    {
        NoLine = 0;
        NoCar = 0;

        while(!feof(File) && !CERROR)
        {
            if(fgets(Buffer, SCRIPT_BUFFER, File))
            {
                In = Buffer;
                Out = Parse(In);
            }
        }

        fclose(File);
    }
    ENDTRY(ERROR_C_DATA_FILE)

    MutexUnLock(&ScriptMutex);
    
    PERROR
    
    return Out;
}

String  Script::Parse(String In)
{
    char            *pIn;
    String          Name;
    ScriptParam     Params;
    String          Out;
    String          Temp;
    unsigned int    NoFunc = 0;
    bool            fComent = 0;
    bool            fParam = 0;
    bool            fFunc = 0;
    bool            fQuit = 0;
    BEGIN

    pIn = In.Data;
    Name = "";
    Out = "";
    Params.Vars = &Vars;

    do
    {
        switch(*pIn)
        {
            case '#'    : //commentaire
                if(!fParam)
                    fComent = 1;
                else
                    Name += *pIn;
                break;

            case '\n'   : //changement de ligne
                fComent = 0;
                NoLine++;
                NoCar = 0;
                break;

            case '\0'   : //fin de fichier
                if(fFunc || fParam)
                {
                    LogError("End of file found\n");
                    CERROR = ERROR_C_SYNTAX;
                }
                break;

            case '\"'   : //chaine de carractère de paramètre
                if(!fComent)
                {
                    if(!fFunc)
                    {
                        LogError("Parameter found outside a function\n");
                        CERROR = ERROR_C_SYNTAX;
                        break;
                    }

                    if(fParam)
                    {
                        Params.Params.push_back(Name);
                        Name = "";
                    }

                    fParam = !fParam;
                }
                break;

            case '('    : //début des paramètres
                if(!fParam && !fComent)
                {
                    if(fFunc)
                    {
                        LogError("Function's name missing\n");
                        CERROR = ERROR_C_SYNTAX;
                        break;
                    }

                    for(NoFunc = 0; NoFunc < Functions.size(); NoFunc++)
                    {
                        if(strcpy(Functions[NoFunc]->Name, Name.Data))
                            break;
                    }

                    if(NoFunc == Functions.size())
                    {
                        LogError("Function not found\n");
                        CERROR = ERROR_C_FUNCTION;
                        break;
                    }
                    else
                    {
                        Name = "";
                        fFunc = 1;
                    }
                }
                break;

            case ')'    :
                if(!fParam && !fComent)
                {
                    if(!fFunc)
                    {
                        fQuit = 1;
                        break;
                    }

                    if(Params.Params.size() != Functions[NoFunc]->NbParam)
                    {
                        LogError("Parameter count\n");
                        CERROR = ERROR_C_PARAMETER;
                        break;
                    }

                    Out = (String)Functions[NoFunc]->Function(Params);
                    fFunc = 0;
                }
                break;

            default     :
                if(!fComent)
                {
                    if(fParam)
                        Name += *pIn;
                    else
                    {
                        if(fFunc)
                        {
                            if(IsAlphaNumCar(*pIn))
                            {
                                Temp = pIn;
                                Name = Parse(Temp);
                                Params.Params.push_back(Name);
                                Name = "";
                            }
                        }
                        else
                            Name += *pIn;
                    }
                }
                break;
        }//switch

        if(!fQuit)
        {
            pIn++;
            NoCar++;
        }
    }
    while(*pIn && !CERROR && !fQuit);

    PERROR

    return Out;
}

---