896 |
push_int(&(env->head), env->err); |
push_int(&(env->head), env->err); |
897 |
} |
} |
898 |
|
|
899 |
|
extern void read(environment*); |
900 |
|
|
901 |
int main() |
int main() |
902 |
{ |
{ |
903 |
environment myenv; |
environment myenv; |
|
char in_string[100]; |
|
904 |
|
|
905 |
init_env(&myenv); |
init_env(&myenv); |
906 |
|
|
907 |
printf("okidok\n "); |
while(1) { |
908 |
|
fprintf(stderr, "okidok\n "); |
909 |
while(fgets(in_string, 100, stdin) != NULL) { |
read(&myenv); |
|
stack_read(&myenv, in_string); |
|
910 |
if(myenv.err) { |
if(myenv.err) { |
911 |
printf("(error %d) ", myenv.err); |
printf("(error %d) ", myenv.err); |
912 |
myenv.err=0; |
myenv.err=0; |
913 |
|
} else if(myenv.head->item->type==symb |
914 |
|
&& ((symbol*)(myenv.head->item->content.ptr))->id[0]==';') { |
915 |
|
toss(&myenv); /* No error check in main */ |
916 |
|
eval(&myenv); |
917 |
} |
} |
|
printf("okidok\n "); |
|
918 |
} |
} |
919 |
quit(&myenv); |
quit(&myenv); |
920 |
return EXIT_FAILURE; |
return EXIT_FAILURE; |