arsrsrc.cpp

Go to the documentation of this file.

#include "SdlArs.h"

static deque<Ars::Form *>       Stack;

namespace Ars
{

icstring &strip( icstring &s )
{
        icstring::size_type     idx = s.find_first_not_of( "\t \n" );
        if( idx != string::npos )
                s = s.substr( idx );
        int i = (s.length() - 1);
        while( i > 0 && (s[i] == ' ' || s[i] == '\t' || s[i] == '\n') ) i--;
        s = s.substr( 0 , i + 1 );

        return s;
}

SDL_mutex *rsrcMutex = 0;

const bool AddCallBack( const string str , void *f )
{
        return ArsApplication::lbGetter.insert( make_pair( icstring( str.c_str() ) , f ) ).second;
}
        
Rsrc::Rsrc( const string &aFilename )
: buffer( 0 )
{
        string  fname = aFilename.empty() ? Cfg::GetCfg().GetCfgString( "Paths" , string( "Dlg-" ) + ArsApplication::GetCoordStr() ) : aFilename;
        if( fname[0] == '@' )
                fname = Cfg::GetCfg( aFilename ).GetFilename();

        FILE    *fd = fopen( fname.c_str() , "r" );
        if( fd )
        {
                fseek( fd , 0 , SEEK_END );
                long    flen = ftell( fd );
                fseek( fd , 0 , SEEK_SET );

                if( flen )
                {
                        buffer = new char[ flen + 1];
                        memset( buffer , 0 , flen + 1 );
                        fread( buffer , flen , sizeof( char ) , fd );
                }
                fclose( fd );
        }
}

Rsrc::~Rsrc( void )
{
        if( buffer )
                delete buffer;
        buffer = 0;
}

/*
<rsrc-file> ::= <comb-list> EOF

<comb-list> ::= <comb-list> <rsrc-form>
                        ::= <rsrc-form>
                        ::= '; <comment>

<rsrc-form>     ::= '( 'NAME <list-of-objects> ')

<list-of-objects>       ::= <list-of-objects> <rsrc-object>
                                        ::= <rsrc-object>

<rsrc-object> ::= '( 'NAME <x> <y> <w> <h> <s_expression> ')

<s_expression>  ::= <s_expression> <element>
                                ::= <s_expression>

<element>       ::= <empty>
                        ::= '( "NAME '. <value> ')
                        ::= <rsrc-object>
*/
Form *Rsrc::Load( const string &aSection , const int aId )
{
        Form    *f = GetAddr( aId );
        if( f )
                return f;
        icstring        tmp = aSection.c_str();
        tmp = FindCombination( tmp );
        icstring        DlgStr = strip( tmp );
        f = new Form( aId );

        while( !DlgStr.empty() )
        {
                icstring        obdef = GetList( DlgStr );
                if( !obdef.empty() )
                {
                        icstring        sid = GetId( obdef );
                        Window  *wnd = 0;
                        //      Call the window create....
                        for( vector<cbObjCreateType>::iterator it = ArsApplication::objCreate.begin() ; it != ArsApplication::objCreate.end() ; ++it )
                                if( (wnd = (*it)( sid )) != 0 )
                                        break;
                        if( wnd == 0 )
                                wnd = new Window();

                        wnd->Init( obdef );
                        f->push_back( wnd );
                }
        }
        Stack.push_back( f );

        return f;
}

Form *Rsrc::GetAddr( const int id )
{
        deque<Form *>::iterator at = find_if( Stack.begin() , Stack.end() , bind2nd( mem_fun( &Form::HasId ) , &id ) );
        if( at != Stack.end() )
                return *at;

        return 0;
}

void Rsrc::SetAddr( Form *f )
{
        Stack.push_back( f );
}

const bool Rsrc::Free( const int id )
{
        if( !Stack.empty() )
        {
                deque<Form *>::iterator at = find_if( Stack.begin() , Stack.end() , bind2nd( mem_fun( &Form::HasId ) , &id ) );
                if( at != Stack.end() )
                {
                        Form    *f = *at;
                        Stack.erase( at );

                        delete f;
                        return true;
                }
        }
        return false;
}

icstring Rsrc::FindCombination( const icstring &aSection )
{
        char    *s = buffer , *s2 = 0;
        bool found = false;
        while( !found && s && *s )
        {
                while( *s && *s != '(' )        
                {
                        if( *s == ';' || (*s == '/' && s[1] == '/') )
                                while( *s && *s != '\n' )
                                        s++;
                        s++;
                }
                int     cnt = 1;
                s2 = ++s;
                while( *s2 && cnt )
                {
                        if( *s2 == '(' )
                                cnt += 1;
                        else if( *s2 == '\"' )
                                while( *++s2 != '\"' )  ;
                        else if( *s2 == ')' )
                                cnt -= 1;
                        s2 += 1;
                }

                s2 -= 2;
                if( aSection == icstring( s , aSection.length() ) )
                        found = true;
                else
                        s = s2 + 2;
        }
        
        if( found && s < s2 )
        {
                while( *s && *s != '(' )        s++;

                if( s < s2 )
                        return icstring( s , s2 - s );
        }

        return "";
}

//      Static functionalities... must be mutexed
icstring Rsrc::FindCrdOf( icstring aStr , const icstring &car )
{
        SDL_mutexP( rsrcMutex );
        icstring        ans = GetList( aStr );
        while( !ans.empty() )
                if( GetId( ans ) == car )
                        break;
                else
                        ans = GetList( aStr );

        ans = strip( ans );
        SDL_mutexV( rsrcMutex );

        return ans;
}

icstring Rsrc::GetId( icstring &aStr )
{
        SDL_mutexP( rsrcMutex );
        int     i = 0;
        while( aStr[i] && !isalnum( aStr[i] ) ) i += 1;
        icstring        ans;

        if( aStr[i] )
        {
                while( aStr[i] && (isalnum( aStr[i] ) || aStr[i] == '_') )
                        ans += aStr[i++];
        }
        aStr = aStr.substr( i );
        SDL_mutexV( rsrcMutex );
        return ans;
}

int Rsrc::GetInt( icstring &aStr , const int aDefault )
{
        SDL_mutexP( rsrcMutex );
        int     i = 0;
        while( aStr[i] && !(isdigit( aStr[i] ) || aStr[i] == '-') )     i += 1;

        int     ans = aDefault;
        if( aStr.substr( i , 2 ) == "0x" || aStr.substr( i , 2 ) == "0X" )
                sscanf( aStr.substr( i + 2 ).c_str () , "%x" , &ans );
        else
                sscanf( aStr.substr( i ).c_str () , "%d" , &ans );
        
        while( aStr[i] && (isxdigit( aStr[i] ) || aStr[i] == '-') )     i += 1;
        aStr = aStr.substr( i );
        SDL_mutexV( rsrcMutex );

        return ans;
}

double Rsrc::GetDbl( icstring &aStr , const double aDefault )
{
        SDL_mutexP( rsrcMutex );
        int     i = 0;
        while( aStr[i] && !(isdigit( aStr[i] ) || aStr[i] == '-') )     i += 1;

        double  ans = aDefault;
        sscanf( aStr.substr( i ).c_str () , "%lf" , &ans );
        
        while( aStr[i] && (isdigit( aStr[i] ) || aStr[i] == '-' || aStr[i] == '.') )    i += 1;
        aStr = aStr.substr( i );
        SDL_mutexV( rsrcMutex );

        return ans;
}

string Rsrc::GetStr( icstring &aStr , const std::string aDefault )
{
        SDL_mutexP( rsrcMutex );
        string::size_type       idx = 0;
        while( aStr[idx] && aStr[idx] != '\"' ) idx++;
        
        if( aStr[idx] == '\"' )
        {
                string  ans;

                aStr = aStr.substr( idx + 1 );
                idx = 0;
                while( aStr[idx] && aStr[idx] != '\"' )
                        if( aStr[idx] == '\\' )
                                idx += 2;
                        else
                                idx += 1;
                ans = aStr.substr( 0 , idx ).c_str();
                aStr = aStr.substr( idx + 1 );

                if( !ans.empty() )
                {
                        while( (idx = ans.find( "\\n" )) != string::npos )
                        {
                                string  rslt = ans.substr( 0 , idx);
                                rslt += "\n";
                                rslt += ans.substr( idx + 2 );
                                ans = rslt;
                        }
                        while( (idx = ans.find( "\\t" )) != string::npos )
                        {
                                string  rslt = ans.substr( 0 , idx );
                                rslt += "\t";
                                rslt += ans.substr( idx + 2 );
                                ans = rslt;
                        }
                        while( (idx = ans.find( "\\\"" )) != string::npos )
                        {
                                string  rslt = ans.substr( 0 , idx);
                                rslt += "\"";
                                rslt += ans.substr( idx + 2 );
                                ans = rslt;
                        }
                }
                else
                {
                        SDL_mutexV( rsrcMutex );
                        return aDefault;
                }
                SDL_mutexV( rsrcMutex );
                return ans;
        }
        SDL_mutexV( rsrcMutex );
        return aDefault;
}

icstring Rsrc::GetList( icstring &aStr )
{
        SDL_mutexP( rsrcMutex );
        icstring::size_type     idx = aStr.find( "(" );
        icstring        ans;
        if( idx != string::npos && aStr[idx] == '(' )
        {
                aStr = aStr.substr( idx + 1 );
                int     cnt = 1 , i = -1;
                while( cnt && aStr[++i] )
                {
                        if( aStr[i] == '\"' )
                        {
                                i += 1;
                                while( aStr[i] && aStr[i] != '\"' )             i++;
                        }
                        else if( aStr[i] == ')' )
                                cnt -= 1;
                        else if( aStr[i] == '(' )
                                cnt += 1;
                }
                ans = aStr.substr( 0 , i++ );
                aStr = aStr.substr( i );
        }
        SDL_mutexV( rsrcMutex );
        return strip( ans );
}

RGBColor Rsrc::GetColor( icstring &aStr , const RGBColor &defaultColor )
{
        SDL_mutexP( rsrcMutex );
        int     c = GetInt( aStr ,  (defaultColor.alpha << 24 | defaultColor.red << 16 | defaultColor.green << 8 | defaultColor.blue) );
        SDL_mutexV( rsrcMutex );
        return RGBColor( (unsigned char)( (c >> 16) & 0xff ) , (unsigned char)( (c >> 8) & 0xff ) , (unsigned char)( c & 0xff ) , (unsigned char)( c & 0xff000000 ? (c >> 24) & 0xff : 0xff ) );
}

int Rsrc::GetMnemo( icstring &aStr , map<icstring,unsigned long> &aMnemo , const int aDefault )
{
        SDL_mutexP( rsrcMutex );
        string::size_type       idx = 0;
        
        while( aStr[idx] && !isalpha( aStr[idx] ) )     idx++;
        icstring        ans = aStr.substr( idx );
        aStr = aStr.substr( idx );

        int     val = aDefault;

        while( (idx = ans.find( "|" )) != string::npos )
        {
                icstring        s = ans.substr( 0 , idx );
                if( aMnemo.find( s ) != aMnemo.end() )
                        val |= aMnemo[strip( s )];
                else
                        val |= GetInt( s );
                ans = ans.substr( idx + 1 );
        }
        if( aMnemo.find( ans ) != aMnemo.end() )
                val |= aMnemo[strip( ans )];
        else if( aMnemo.find( ans ) != aMnemo.end() )
                val |= GetInt( ans );

        SDL_mutexV( rsrcMutex );

        return val;
}


}

---