/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by teddy, Fri Feb 8 05:12:37 2002 UTC revision 1.61 by teddy, Fri Feb 8 05:37:54 2002 UTC
# Line 983  extern void sx_2d(environment *env) { Line 983  extern void sx_2d(environment *env) {
983    env->head->item->content.val -= a;    env->head->item->content.val -= a;
984  }  }
985    
986    /* > */
987    extern void sx_3e(environment *env) {
988      int a;
989    
990      if((env->head)==NULL || env->head->next==NULL) {
991        printerr("Too Few Arguments");
992        env->err=1;
993        return;
994      }
995      
996      if(env->head->item->type!=integer
997         || env->head->next->item->type!=integer) {
998        printerr("Bad Argument Type");
999        env->err=2;
1000        return;
1001      }
1002      a=env->head->item->content.val;
1003      toss(env);
1004      if(env->err) return;
1005      env->head->item->content.val = (env->head->item->content.val > a);
1006    }
1007    
1008  /* Return copy of a value */  /* Return copy of a value */
1009  value *copy_val(value *old_value){  value *copy_val(value *old_value){
1010    stackitem *old_item, *new_item, *prev_item;    stackitem *old_item, *new_item, *prev_item;
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26