static bool scanOffNumber // SCAN A NUMBER
( unsigned *pvalue ) // - target
{
bool number_scanned;
unsigned value;
int c;
CmdRecogEquals();
number_scanned = FALSE;
value = 0;
for(;;) {
c = CmdScanLowerChar();
if( !isdigit( c ) ) {
CmdScanUngetChar();
break;
}
value *= 10;
value += c - '0';
number_scanned = TRUE;
}
if( number_scanned ) {
*pvalue = value;
}
return( number_scanned );
}
int CmdPeekChar( // PEEK AT NEXT CHARACTER, IN LOWER CASE
void )
{
int ch; // - character scanned
ch = CmdScanLowerChar();
CmdScanUngetChar();
return( ch );
}
bool CmdRecogLowerChar( // RECOGNIZE A LOWER CASE CHARACTER
int recog ) // - character to be recognized
{
bool retn; // - true ==> got it
if( recog == CmdScanLowerChar() ) {
retn = true;
} else {
CmdScanUngetChar();
retn = false;
}
return( retn );
}
int CmdScanWhiteSpace( // SCAN OVER WHITE SPACE
void )
{
int c; // - next character
for( ; ; ) {
c = CmdScanLowerChar();
if( c == '\n' ) continue;
if( c == '\r' ) continue;
if( isspace( c ) ) continue;
break;
}
return c;
}
int OPT_GET_LOWER // GET CHAR IN LOWERCASE
( void )
{
return( CmdScanLowerChar() );
}
