315 |
printf(" "); |
printf(" "); |
316 |
stack_head=stack_head->next; |
stack_head=stack_head->next; |
317 |
} |
} |
318 |
printf("] "); |
printf("]"); |
319 |
break; |
break; |
320 |
default: |
default: |
321 |
printf("#<unknown %p>", (stack_head->item->content.ptr)); |
printf("#<unknown %p>", (stack_head->item->content.ptr)); |
454 |
} |
} |
455 |
} |
} |
456 |
|
|
457 |
|
/* Reverse a list */ |
458 |
|
extern void rev(environment *env){ |
459 |
|
stackitem *old_head, *new_head, *item; |
460 |
|
|
461 |
|
if((env->head)==NULL) { |
462 |
|
printerr("Too Few Arguments"); |
463 |
|
env->err=1; |
464 |
|
return; |
465 |
|
} |
466 |
|
|
467 |
|
if(env->head->item->type!=list) { |
468 |
|
printerr("Bad Argument Type"); |
469 |
|
env->err=2; |
470 |
|
return; |
471 |
|
} |
472 |
|
|
473 |
|
old_head=(stackitem *)(env->head->item->content.ptr); |
474 |
|
new_head=NULL; |
475 |
|
while(old_head != NULL){ |
476 |
|
item=old_head; |
477 |
|
old_head=old_head->next; |
478 |
|
item->next=new_head; |
479 |
|
new_head=item; |
480 |
|
} |
481 |
|
env->head->item->content.ptr=new_head; |
482 |
|
} |
483 |
|
|
484 |
/* Make a list. */ |
/* Make a list. */ |
485 |
extern void pack(environment *env) |
extern void pack(environment *env) |
486 |
{ |
{ |
521 |
temp->item= pack; |
temp->item= pack; |
522 |
|
|
523 |
push(&(env->head), temp); |
push(&(env->head), temp); |
524 |
|
rev(env); |
525 |
} |
} |
526 |
|
|
527 |
/* Parse input. */ |
/* Parse input. */ |
797 |
} |
} |
798 |
printf("okidok\n "); |
printf("okidok\n "); |
799 |
} |
} |
800 |
|
quit(&myenv); |
|
exit(EXIT_SUCCESS); |
|
801 |
} |
} |