/* FIRST(statement)={AVID,SVID,IF,USING,INPUT,OUTPUT}
<statement> ->
<assignment statement>
| <selection statement>
| <iteration statement>
| <input statement>
| <output statement>
Author: Kwok Hong Kelvin Chan */
void statement(void){
switch(lookahead_token.code){
case AVID_T:
case SVID_T:
assignment_statement();
break;
case KW_T:
switch(lookahead_token.attribute.get_int) {
case IF:
selection_statement();
break;
case USING:
iteration_statement();
break;
case INPUT:
input_statement();
break;
case OUTPUT:
output_statement();
break;
default:
syn_printe();
break;
}
break;
default:
syn_printe();
break;
}
}
/*
* Production: Statement
* FIRST set: { AVID_T, SVID_T, KW_T (only IF, USING, INPUT, OUTPUT) }
*/
void statement(void) {
switch (lookahead.code) {
case AVID_T:
case SVID_T:
assignment_statement();
return;
case KW_T:
/* The token attribute must be IF, INPut, OUTPUT or USING */
switch (lookahead.attribute.kwt_idx) {
case IF:
selection_statement();
return;
case INPUT:
input_statement();
return;
case OUTPUT:
output_statement();
return;
case USING:
iteration_statement();
return;
/* If the keyword token does not match the above, print an error and return. */
default:
syn_printe();
return;
}
/* If nothing matches, print an error. */
default:
syn_printe();
return;
}
}
/*---------------------------------------------------------------------------*/
static uint8_t statement(void)
{
int token;
string_temp_free();
token = current_token;
/* LET may be omitted.. */
if (token != TOKENIZER_INTVAR && token != TOKENIZER_STRINGVAR)
accept_tok(token);
switch(token) {
case TOKENIZER_QUESTION:
case TOKENIZER_PRINT:
print_statement();
break;
case TOKENIZER_IF:
if_statement();
break;
case TOKENIZER_GO:
go_statement();
return 0;
case TOKENIZER_RETURN:
return_statement();
break;
case TOKENIZER_FOR:
for_statement();
break;
case TOKENIZER_POKE:
poke_statement();
break;
case TOKENIZER_NEXT:
next_statement();
break;
case TOKENIZER_STOP:
stop_statement();
break;
case TOKENIZER_REM:
rem_statement();
break;
case TOKENIZER_DATA:
data_statement();
break;
case TOKENIZER_RANDOMIZE:
randomize_statement();
break;
case TOKENIZER_OPTION:
option_statement();
break;
case TOKENIZER_INPUT:
input_statement();
break;
case TOKENIZER_RESTORE:
restore_statement();
break;
case TOKENIZER_DIM:
dim_statement();
break;
case TOKENIZER_CLS:
cls_statement();
break;
case TOKENIZER_LET:
case TOKENIZER_STRINGVAR:
case TOKENIZER_INTVAR:
let_statement();
break;
default:
DEBUG_PRINTF("ubasic.c: statement(): not implemented %d\n", token);
syntax_error();
}
return 1;
}
//static void statement(void)
void statement(void)
{
int token;
token = tokenizer_token();
switch(token) {
case TOKENIZER_PRINT:
print_statement();
break;
case TOKENIZER_IF:
if_statement();
break;
case TOKENIZER_GOTO:
goto_statement();
break;
case TOKENIZER_GOSUB:
gosub_statement();
break;
case TOKENIZER_RETURN:
return_statement();
break;
case TOKENIZER_FOR:
for_statement();
break;
case TOKENIZER_NEXT:
next_statement();
break;
case TOKENIZER_END:
end_statement();
break;
case TOKENIZER_PSET:
pset_statement();
break;
case TOKENIZER_CLS:
cls_statement();
break;
case TOKENIZER_REFRESH:
refresh_statement();
break;
case TOKENIZER_LIST:
list_statement();
break;
case TOKENIZER_LOAD:
load_statement();
break;
case TOKENIZER_SAVE:
save_statement();
break;
case TOKENIZER_FILES:
files_statement();
break;
case TOKENIZER_PEEK:
peek_statement();
break;
case TOKENIZER_POKE:
poke_statement();
break;
case TOKENIZER_WAIT:
wait_statement();
break;
case TOKENIZER_INPUT:
input_statement();
break;
case TOKENIZER_INP:
inp_statement();
break;
case TOKENIZER_INR:
inr_statement();
break;
case TOKENIZER_INA:
ina_statement();
break;
case TOKENIZER_REM:
rem_statement();
break;
case TOKENIZER_RUN:
run_statement();
break;
case TOKENIZER_ERROR:
tokenizer_error_print();
ended = 1;
glcd_DrawCursor();
break;
case TOKENIZER_LET:
accept(TOKENIZER_LET);
accept(TOKENIZER_VARIABLE);
accept(TOKENIZER_CR);
break;
/* Fall through. */
case TOKENIZER_VARIABLE:
let_statement();
break;
default:
exit(1);
}
}
