3 VECTOR* vector(FIXNUM capacity)
5 VECTOR* vector = (VECTOR*)allot_object(VECTOR_TYPE,sizeof(VECTOR));
7 vector->array = array(capacity,F);
11 void primitive_vectorp(void)
13 check_non_empty(env.dt);
14 env.dt = tag_boolean(typep(VECTOR_TYPE,env.dt));
17 void primitive_vector(void)
19 env.dt = tag_object(vector(to_fixnum(env.dt)));
22 void primitive_vector_length(void)
24 env.dt = tag_fixnum(untag_vector(env.dt)->top);
27 void primitive_set_vector_length(void)
29 VECTOR* vector = untag_vector(env.dt);
30 FIXNUM length = to_fixnum(dpop());
33 range_error(tag_object(vector),length,vector->top);
34 else if(length > vector->array->capacity)
35 vector->array = grow_array(vector->array,length,F);
36 env.dt = dpop(); /* don't forget this! */
39 void primitive_vector_nth(void)
41 VECTOR* vector = untag_vector(env.dt);
42 CELL index = to_fixnum(dpop());
44 if(index < 0 || index >= vector->top)
45 range_error(tag_object(vector),index,vector->top);
46 env.dt = array_nth(vector->array,index);
49 void vector_ensure_capacity(VECTOR* vector, int index)
51 ARRAY* array = vector->array;
52 CELL capacity = array->capacity;
54 array = grow_array(array,index * 2 + 1,F);
55 vector->top = index + 1;
56 vector->array = array;
59 void primitive_set_vector_nth(void)
61 VECTOR* vector = untag_vector(env.dt);
62 FIXNUM index = to_fixnum(dpop());
64 check_non_empty(value);
67 range_error(tag_object(vector),index,vector->top);
68 else if(index >= vector->top)
69 vector_ensure_capacity(vector,index);
71 /* the following does not check bounds! */
72 set_array_nth(vector->array,index,value);
74 env.dt = dpop(); /* don't forget this! */
77 void fixup_vector(VECTOR* vector)
79 vector->array = (ARRAY*)((CELL)vector->array
80 + (active->base - relocation_base));
83 void collect_vector(VECTOR* vector)
85 vector->array = copy_array(vector->array);