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

Diff of /stack/stack.c

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

revision 1.93 by masse, Fri Mar 8 16:09:30 2002 UTC revision 1.94 by masse, Sat Mar 9 09:58:31 2002 UTC
# Line 2073  extern void mod(environment *env) Line 2073  extern void mod(environment *env)
2073    
2074    if((env->head)==NULL || env->head->next==NULL) {    if((env->head)==NULL || env->head->next==NULL) {
2075      printerr("Too Few Arguments");      printerr("Too Few Arguments");
2076      env->err=1;      env->err= 1;
2077      return;      return;
2078    }    }
2079        
# Line 2091  extern void mod(environment *env) Line 2091  extern void mod(environment *env)
2091    printerr("Bad Argument Type");    printerr("Bad Argument Type");
2092    env->err=2;    env->err=2;
2093  }  }
2094    
2095    /* "div" */
2096    extern void sx_646976(environment *env)
2097    {
2098      int a, b;
2099      
2100      if((env->head)==NULL || env->head->next==NULL) {
2101        printerr("Too Few Arguments");
2102        env->err= 1;
2103        return;
2104      }
2105    
2106      if(env->head->item->type==integer
2107         && env->head->next->item->type==integer) {
2108        a= env->head->item->content.i;
2109        toss(env); if(env->err) return;
2110        b= env->head->item->content.i;
2111        toss(env); if(env->err) return;
2112        push_int(env, (int)b/a);
2113    
2114        return;
2115      }
2116    
2117      printerr("Bad Argument Type");
2118      env->err= 2;
2119    }
Legend:
Removed from v.1.93  
changed lines
  Added in v.1.94
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26