27 lines
616 B
C
27 lines
616 B
C
|
typedef struct {
|
||
|
|
/* always tag_header(VECTOR_TYPE) */
|
||
|
|
CELL header;
|
||
|
|
/* untagged */
|
||
|
|
CELL top;
|
||
|
|
/* untagged */
|
||
|
|
ARRAY* array;
|
||
|
|
} VECTOR;
|
||
|
|
|
||
|
|
INLINE VECTOR* untag_vector(CELL tagged)
|
||
|
|
{
|
||
|
|
type_check(VECTOR_TYPE,tagged);
|
||
|
|
return (VECTOR*)UNTAG(tagged);
|
||
|
|
}
|
||
|
|
|
||
|
|
VECTOR* vector(FIXNUM capacity);
|
||
|
|
|
||
|
|
void primitive_vectorp(void);
|
||
|
|
void primitive_vector(void);
|
||
|
|
void primitive_vector_length(void);
|
||
|
|
void primitive_set_vector_length(void);
|
||
|
|
void primitive_vector_nth(void);
|
||
|
|
void vector_ensure_capacity(VECTOR* vector, int index);
|
||
|
|
void primitive_set_vector_nth(void);
|
||
|
|
void fixup_vector(VECTOR* vector);
|
||
|
|
void collect_vector(VECTOR* vector);
|