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 ); }