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

Diff of /stack/stack.c

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

revision 1.88 by teddy, Sat Feb 16 00:51:32 2002 UTC revision 1.89 by masse, Sun Feb 17 04:03:57 2002 UTC
# Line 87  value* new_val(environment *env) { Line 87  value* new_val(environment *env) {
87    value *nval= malloc(sizeof(value));    value *nval= malloc(sizeof(value));
88    stackitem *nitem= malloc(sizeof(stackitem));    stackitem *nitem= malloc(sizeof(stackitem));
89    
   if(env->gc_count >= env->gc_limit)  
     gc_init(env);  
   
90    nval->content.ptr= NULL;    nval->content.ptr= NULL;
91    
92    nitem->item= nval;    nitem->item= nval;
# Line 124  extern void gc_init(environment *env) { Line 121  extern void gc_init(environment *env) {
121    symbol *tsymb;    symbol *tsymb;
122    int i;    int i;
123    
124      if(env->gc_count < env->gc_limit)
125        return;
126    
127    while(iterator!=NULL) {    while(iterator!=NULL) {
128      iterator->item->gc_garb= 1;      iterator->item->gc_garb= 1;
129      iterator= iterator->next;      iterator= iterator->next;
# Line 178  extern void gc_init(environment *env) { Line 178  extern void gc_init(environment *env) {
178      }      }
179    }    }
180    
181    env->gc_limit= env->gc_count+20;    env->gc_limit= env->gc_count*2;
182    env->gc_ref= new_head;    env->gc_ref= new_head;
183  }  }
184    
# Line 534  extern void eval(environment *env) Line 534  extern void eval(environment *env)
534      in_func= (funcp)(env->head->item->content.ptr);      in_func= (funcp)(env->head->item->content.ptr);
535      toss(env);      toss(env);
536      if(env->err) return;      if(env->err) return;
537      return (*in_func)(env);      return in_func(env);
538    
539      /* If it's a list */      /* If it's a list */
540    case list:    case list:
# Line 889  int main(int argc, char **argv) Line 889  int main(int argc, char **argv)
889        toss(&myenv);             /* No error check in main */        toss(&myenv);             /* No error check in main */
890        eval(&myenv);        eval(&myenv);
891      }      }
892        gc_init(&myenv);
893    }    }
894    quit(&myenv);    quit(&myenv);
895    return EXIT_FAILURE;    return EXIT_FAILURE;
# Line 1143  extern void sx_7768696c65(environment *e Line 1144  extern void sx_7768696c65(environment *e
1144    } while(truth);    } while(truth);
1145  }  }
1146    
1147  /* "for"; For-loop */  
1148    /* "for"; for-loop */
1149  extern void sx_666f72(environment *env) {  extern void sx_666f72(environment *env) {
1150      value *loop;
1151      int foo1, foo2;
1152    
1153      if(env->head==NULL || env->head->next==NULL
1154         || env->head->next->next==NULL) {
1155        printerr("Too Few Arguments");
1156        env->err= 1;
1157        return;
1158      }
1159    
1160      if(env->head->next->item->type!=integer
1161         || env->head->next->next->item->type!=integer) {
1162        printerr("Bad Argument Type");
1163        env->err= 2;
1164        return;
1165      }
1166    
1167      loop= env->head->item;
1168      toss(env); if(env->err) return;
1169    
1170      foo2= env->head->item->content.val;
1171      toss(env); if(env->err) return;
1172    
1173      foo1= env->head->item->content.val;
1174      toss(env); if(env->err) return;
1175    
1176      if(foo1<=foo2) {
1177        while(foo1<=foo2) {
1178          push_int(env, foo1);
1179          push_val(env, loop);
1180          eval(env); if(env->err) return;
1181          foo1++;
1182        }
1183      } else {
1184        while(foo1>=foo2) {
1185          push_int(env, foo1);
1186          push_val(env, loop);
1187          eval(env); if(env->err) return;
1188          foo1--;
1189        }
1190      }
1191    }
1192    
1193    /* Variant of for-loop */
1194    extern void foreach(environment *env) {
1195        
1196    value *loop, *foo;    value *loop, *foo;
1197    stackitem *iterator;    stackitem *iterator;
Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26