x-vector.h

Go to the documentation of this file.

#ifndef X_VECTOR_H
#define X_VECTOR_H
 
/*
 *     ., .,
 *     {O,O}
 *     (   )
 *      " "
 */
 
#include "x-obj.h"
 
#define X_VECTOR_UNITS_LENGTH       1
 
#define x_vector_units(N)           (X_VECTOR_UNITS_LENGTH + (N))
 
#define X_VECTOR_LENGTH_STATIC_LEN  9
 
extern x_satom_t x_vector_length_objs[X_VECTOR_LENGTH_STATIC_LEN];
 
#define x_vector_length_obj(N)      ((x_obj_t *)x_vector_length_objs[(N)])
 
#define x_vectorlengthobj(V)        x_obj(x_obj_data_i((V), 0))
 
#define x_vectorlength(V)           x_atomint(x_vectorlengthobj((V)))
 
#define x_vector_i(V,I)             x_obj_data_i((V), X_VECTOR_UNITS_LENGTH + (I))
 
#define x_vectorobj(V,I)            x_obj(x_vector_i((V), (I)))
 
#define x_vectorfn(V,I)             x_fn(x_vector_i((V), (I)))
 
#define x_mksvector(B,N,...) \
    x_vector_make((B), NULL, X_OBJ_FLAG_NONE, (N), __VA_ARGS__)
 
x_obj_t *x_vector_make(x_obj_t *p_base, x_obj_t *p_type, x_obj_flag_t flags,
    x_int_t length, ...);
 
#endif /* X_VECTOR_H */