879 |
} |
} |
880 |
|
|
881 |
while(1) { |
while(1) { |
882 |
if(myenv.in_string==NULL && myenv.interactive) { |
if(myenv.in_string==NULL) { |
883 |
nl(); |
if (myenv.interactive) { |
884 |
printstack(&myenv); |
if(myenv.err) { |
885 |
printf("> "); |
printf("(error %d)\n", myenv.err); |
886 |
|
} |
887 |
|
nl(); |
888 |
|
printstack(&myenv); |
889 |
|
printf("> "); |
890 |
|
} |
891 |
|
myenv.err=0; |
892 |
} |
} |
893 |
sx_72656164(&myenv); |
sx_72656164(&myenv); |
894 |
if(myenv.err) { |
if (myenv.err==4) { |
895 |
printf("(error %d) ", myenv.err); |
return EX_NOINPUT; |
|
if (myenv.err==4) |
|
|
return EX_NOINPUT; |
|
|
myenv.err=0; |
|
896 |
} else if(myenv.head!=NULL |
} else if(myenv.head!=NULL |
897 |
&& myenv.head->item->type==symb |
&& myenv.head->item->type==symb |
898 |
&& ((symbol*)(myenv.head->item->content.ptr))->id[0]==';') { |
&& ((symbol*)(myenv.head->item->content.ptr))->id[0]==';') { |
904 |
return EXIT_FAILURE; |
return EXIT_FAILURE; |
905 |
} |
} |
906 |
|
|
907 |
/* + */ |
/* "+" */ |
908 |
extern void sx_2b(environment *env) { |
extern void sx_2b(environment *env) { |
909 |
int a, b; |
int a, b; |
910 |
size_t len; |
size_t len; |
954 |
} |
} |
955 |
} |
} |
956 |
|
|
957 |
/* - */ |
/* "-" */ |
958 |
extern void sx_2d(environment *env) { |
extern void sx_2d(environment *env) { |
959 |
int a, b; |
int a, b; |
960 |
|
|
983 |
} |
} |
984 |
} |
} |
985 |
|
|
986 |
/* > */ |
/* ">" */ |
987 |
extern void sx_3e(environment *env) { |
extern void sx_3e(environment *env) { |
988 |
int a, b; |
int a, b; |
989 |
|
|
1134 |
eval(env); |
eval(env); |
1135 |
} |
} |
1136 |
|
|
1137 |
/* while */ |
/* "while" */ |
1138 |
extern void sx_7768696c65(environment *env) { |
extern void sx_7768696c65(environment *env) { |
1139 |
|
|
1140 |
int truth; |
int truth; |
1219 |
free_val(foo); |
free_val(foo); |
1220 |
} |
} |
1221 |
|
|
1222 |
/* 'to' */ |
/* "to" */ |
1223 |
extern void to(environment *env) { |
extern void to(environment *env) { |
1224 |
int i, start, ending; |
int i, start, ending; |
1225 |
stackitem *temp_head; |
stackitem *temp_head; |
1294 |
readline(env); if(env->err) return; |
readline(env); if(env->err) return; |
1295 |
|
|
1296 |
if(((char *)(env->head->item->content.ptr))[0]=='\0'){ |
if(((char *)(env->head->item->content.ptr))[0]=='\0'){ |
1297 |
env->err= 4; /* EOF */ |
env->err= 4; /* "" means EOF */ |
1298 |
return; |
return; |
1299 |
} |
} |
1300 |
|
|