void CMPolynomial::level1(double& result) // logical
{
register int op;
double hold;
level2(result);
while (islogical(token)) {
op = token;
get_token();
level2(hold);
logical(op,result,hold);
}
}
void GetFORTRANBlock( ss_block *ss_new, char *start, int text_col )
{
int length = 0;
if( start[0] == '\0' ) {
if( text_col == 0 ) {
// line is empty -
// do not flag following line as having anything to do
// with an unterminated string from previous line
flags.inString = false;
}
getBeyondText( ss_new );
return;
}
if( iscomment( firstChar ) ) {
getComment( ss_new, start );
return;
}
if( text_col <= 4 ) {
getLabelOrWS( ss_new, start, text_col );
return;
}
if( text_col == 5 ) {
getContinuationOrWS( ss_new, start );
return;
}
if( flags.inString ) {
getLiteral( ss_new, start, 0 );
return;
}
if( isspace( start[0] ) ) {
getWhiteSpace( ss_new, start );
return;
}
switch( start[0] ) {
case '!':
getComment( ss_new, start );
return;
case '\'':
getLiteral( ss_new, start, 1 );
return;
case '.':
if( isdigit( start[1] ) ) {
getFloat( ss_new, start, 1, AFTER_DOT );
return;
}
length = islogical( start );
if( length > 0 ) {
getSymbol( ss_new, length );
return;
}
}
if( issymbol( start[0] ) ) {
getSymbol( ss_new, 1 );
return;
}
if( isdigit( *start ) ) {
getNumber( ss_new, start );
return;
}
if( isalpha( *start ) || (*start == '_') || (*start == '$') ) {
getText( ss_new, start );
return;
}
getInvalidChar( ss_new );
}
