bool CmdRecogEquals( // SKIP EQUALCHAR IN COMMAND LINE
void )
{
switch( CmdPeekChar() ) {
case '=':
case '#':
CmdScanChar();
return( true );
break;
}
return( false );
}
bool CmdPathDelim( // SKIP EQUALCHAR # or ' ' IN COMMAND LINE
void )
{
switch( CmdPeekChar() ) {
case ' ':
CmdScanWhiteSpace();
CmdScanUngetChar();
return( true );
case '=':
case '#':
CmdScanChar();
return( true );
}
return( false );
}
static bool scanFBIopts // SCAN FBI/FBX OPTIONS
( FBI_KIND* a_kind // - addr[ option kinds ]
, FBI_KIND def_kind ) // - default kind
{
bool retn; // - return: 1 ==> ok, 0 ==> error
FBI_KIND kind; // - options scanned
kind = 0;
CmdRecogEquals();
for( ; ; ) {
if( CmdScanSwEnd()
|| CmdPeekChar() == '-' ) {
if( 0 == kind ) {
kind = def_kind;
}
retn = TRUE;
break;
}
switch( CmdScanChar() ) {
case 'v' :
kind |= FBI_VAR;
continue;
case 't' :
kind |= FBI_TYPE;
continue;
case 'f' :
kind |= FBI_FUN;
continue;
case 'm' :
kind |= FBI_MEMB_DATA;
continue;
case 'p' :
kind |= FBI_MACRO;
continue;
default :
BadCmdLine( ERR_INVALID_OPTION );
retn = FALSE;
break;
}
break;
}
*a_kind = kind;
return( retn );
}
