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();
}
}
}
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 );
}
}
static void ProcStub( void )
/**************************/
{
if( !MakeToken( SEP_QUOTE, true ) ) {
Warning( "argument for stub not valid", OPTION_SLOT );
} else {
AddStringOption( "stub", CmdFile->token, CmdFile->len );
}
}
static void ProcOld( void )
/*************************/
{
if( !MakeToken( SEP_QUOTE, TRUE ) ) {
Warning( "argument for old not valid", OPTION_SLOT );
} else {
AddStringOption( "old", CmdFile->token, CmdFile->len );
}
}