extern void do_endwhile(void)
{
if (in_false_if())
{
do_endif(0);
input_unmark();
#ifdef DEBUG_WHILE
if (debugging)
{
outputs("//endwhile:");
outputd(curline());
outputs(",");
outputs(curfile());
outputs("\\\\");
}
#endif
out_at(curline(), curfile());
}
else
{
do_endif(0);
input_recover();
input_mark();
do_if(0);
}
}
static EORB_CPP_node *read_expr_10 (void)
{
char c;
char *w;
EORB_CPP_node *n;
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("~E10:");
}
#endif
while (1)
{
c = getnhsexpand();
switch (c)
{
case '-':
case '~':
case '!':
#ifdef DEBUG_EXPR
if (debugging)
{
outputc(c);
}
#endif
n = read_expr_10();
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("~");
}
#endif
return (newnode(0, c, n));
break;
case 'd':
Push(c);
input_mark();
w = read_ident();
if (strcmp(w, "defined") == 0)
{
c = getnonspace();
if (c == '(')
{
char *id;
id = read_ident();
if (id)
{
c = getnonspace();
if (c == ')')
{
input_unmark();
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("ifdef");
}
#endif
return (newname(id));
}
}
}
else if (isbsymchar(c))
{
char *id;
Push(c);
id = read_ident();
if (id)
{
input_unmark();
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("ifdef");
}
#endif
return (newname(id));
}
}
}
input_recover();
n = read_expr_11();
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("~");
}
#endif
return (n);
break;
default:
Push(c);
n = read_expr_11();
#ifdef DEBUG_EXPR
if (debugging)
{
outputs("~");
}
#endif
return (n);
break;
}
}
}
