Beispiel #1
0
static void ProcName( void )
/**************************/
{
    int index;

    if( !MakeToken( SEP_NO, true ) ) {
        return;
    }
    if( !ProcessKeyList( ApplicationTypes, CmdFile->token, CmdFile->len ) ) {
        if( GotModName ) {
            Warning( "module name multiply defined", OPTION_SLOT );
        } else {
            AddStringOption( "modname", CmdFile->token, CmdFile->len );
            GotModName = true;
        }
    }
    for( index = 0; index < 2; index++ ) {
        if( !MakeToken( SEP_NO, true ) ) {
            return;
        }
        if( !ProcessKeyList( ApplicationTypes, CmdFile->token, CmdFile->len ) ) {
            DirectiveError();
        }
    }
}
Beispiel #2
0
static void ProcLibrary( void )
/*****************************/
{
    bool gotprivate;

    gotprivate = ProcessKeyword( LibraryTypes );
    FmtInfo = DLL_INITGLOBAL;
    if( !MakeToken( SEP_NO, true ) ) {
        return;
    }
    if( !IsInitType() ) {
        if( CmdFile->len > 8 ) {
            Warning( "module name too large", OPTION_SLOT );
        } else if( GotModName ) {
            Warning( "module name multiply defined" , OPTION_SLOT );
        } else {
            AddStringOption( "modname", CmdFile->token, CmdFile->len );
            GotModName = true;
        }
        if( !MakeToken( SEP_NO, true ) ) {
            return;
        }
    }
    if( !IsInitType() ) {
        DirectiveError();
    }
    if( !gotprivate ) {
        ProcessKeyword( LibraryTypes );
    }
}
Beispiel #3
0
static void ProcStub( void )
/**************************/
{
    if( !MakeToken( SEP_QUOTE, true ) ) {
        Warning( "argument for stub not valid", OPTION_SLOT );
    } else {
        AddStringOption( "stub", CmdFile->token, CmdFile->len );
    }
}
Beispiel #4
0
static void ProcOld( void )
/*************************/
{
    if( !MakeToken( SEP_QUOTE, TRUE ) ) {
        Warning( "argument for old not valid", OPTION_SLOT );
    } else {
        AddStringOption( "old", CmdFile->token, CmdFile->len );
    }
}