void Block(char *exit_label)
{
while ( (Look != 'e') && (Look !='l') && (Look !='u') ) {
Fin();
printf("# BLOCK start\n");
switch (Look) {
case 'i':
DoIf(exit_label);
break;
case 'w':
DoWhile();
break;
case 'p':
DoLoop();
break;
case 'r':
DoRepeat();
break;
case 'f':
DoFor();
break;
case 'd':
DoDo();
break;
case 'b':
DoBreak(exit_label);
break;
default:
Assignment();
break;
}
Fin();
printf("# BLOCK end\n");
}
}
void Block(char *L)
{
while (! strchr("elu", Look)) {
dprint("Block: get Look = %c\n", Look);
switch (Look) {
case 'i':
DoIf(L);
break;
case 'w':
DoWhile();
break;
case 'p':
DoLoop();
break;
case 'r':
DoRepeat();
break;
case 'f':
DoFor();
break;
case 'd':
DoDo();
break;
case 'b':
DoBreak(L);
default:
Assignment();
break;
}
/* this is for convinent, otherwise newline character will
cause an error */
/*Newline();*/
Fin();
}
}
