428 |
extern void eval(environment *env) |
extern void eval(environment *env) |
429 |
{ |
{ |
430 |
funcp in_func; |
funcp in_func; |
431 |
|
value* temp_val; |
432 |
|
stackitem* iterator; |
433 |
|
|
434 |
if(env->head==NULL) { |
if(env->head==NULL) { |
435 |
printerr("Too Few Arguments"); |
printerr("Too Few Arguments"); |
436 |
env->err=1; |
env->err=1; |
454 |
toss(env); |
toss(env); |
455 |
if(env->err) return; |
if(env->err) return; |
456 |
(*in_func)(env); |
(*in_func)(env); |
457 |
|
return; |
458 |
|
} |
459 |
|
|
460 |
|
/* If it's a list */ |
461 |
|
if(env->head->item->type==list) { |
462 |
|
temp_val= env->head->item; |
463 |
|
env->head->item->refcount++; |
464 |
|
toss(env); |
465 |
|
if(env->err) return; |
466 |
|
iterator= (stackitem*)temp_val->content.ptr; |
467 |
|
while(iterator!=NULL && iterator->item!=NULL) { |
468 |
|
push_val(&(env->head), iterator->item); |
469 |
|
if(env->head->item->type==symb |
470 |
|
&& strcmp(";", ((symbol*)(env->head->item->content.ptr))->id)==0) { |
471 |
|
toss(env); |
472 |
|
if(env->err) return; |
473 |
|
eval(env); |
474 |
|
} |
475 |
|
iterator= iterator->next; |
476 |
|
} |
477 |
|
free_val(temp_val); |
478 |
} |
} |
479 |
} |
} |
480 |
|
|
481 |
/* Reverse a list */ |
/* Reverse (flip) a list */ |
482 |
extern void rev(environment *env){ |
extern void rev(environment *env){ |
483 |
stackitem *old_head, *new_head, *item; |
stackitem *old_head, *new_head, *item; |
484 |
|
|
561 |
rest= malloc(inlength); |
rest= malloc(inlength); |
562 |
|
|
563 |
do { |
do { |
564 |
|
/* If comment */ |
565 |
|
if((convert= sscanf(in_line, "#%[^\n\r]", rest))) { |
566 |
|
free(temp); free(rest); |
567 |
|
return; |
568 |
|
} |
569 |
|
|
570 |
/* If string */ |
/* If string */ |
571 |
if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest))) { |
if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest))) { |
572 |
push_cstring(&(env->head), temp); |
push_cstring(&(env->head), temp); |
645 |
return; |
return; |
646 |
} |
} |
647 |
|
|
648 |
|
rev(env); |
649 |
|
|
650 |
|
if(env->err) |
651 |
|
return; |
652 |
|
|
653 |
/* The first list element is the new stack head */ |
/* The first list element is the new stack head */ |
654 |
new_head= temp= env->head->item->content.ptr; |
new_head= temp= env->head->item->content.ptr; |
655 |
|
|
833 |
printf("okidok\n "); |
printf("okidok\n "); |
834 |
} |
} |
835 |
quit(&myenv); |
quit(&myenv); |
836 |
|
return EXIT_FAILURE; |
837 |
} |
} |