vector.h

Go to the documentation of this file.

#if !defined(INC_OSKI_VECTOR_H) && !defined(OSKI_UNBIND)

#define INC_OSKI_VECTOR_H

#include <oski/mangle.h>

#if defined(DO_MANGLE_NAMES)

#define oski_vecstruct_t  MANGLE_(oski_vecstruct_t)

#endif

typedef struct
{
  oski_index_t num_rows;    
  oski_index_t num_cols;    
  oski_storage_t orient;    
  oski_index_t stride;      
  oski_index_t rowinc;        
  oski_index_t colinc;        
  oski_value_t *val;        
}
oski_vecstruct_t;

#define MAKE_VECSTRUCT_INIT(m, n, orient, stride, rowinc, colinc, val) \
    {m, n, orient, stride, rowinc, colinc, val}

#define VECRM_GET(v, i, j, s)   (v)[(i)*(s) + (j)]

#define VECCM_GET(v, i, j, s)   (v)[(i) + (j)*(s)]

#define VECVIEW_GET(x, i, j)  \
    (((x)->orient == LAYOUT_ROWMAJ) \
        ? VECRM_GET((x)->val, i, j, (x)->stride) \
        : VECCM_GET((x)->val, i, j, (x)->stride) \
    )

#define IS_VECVIEW_COLVEC(x)  ((x)->num_cols == 1)

#define IS_VECVIEW_COLVEC_STRIDE1(x) \
    ( \
        IS_VECVIEW_COLVEC(x) \
        && ( \
            (((x)->orient == LAYOUT_ROWMAJ) && ((x)->stride == 1)) \
            || (((x)->orient == LAYOUT_COLMAJ)) \
        ) \
    )

#endif /* !defined(INC_OSKI_VECTOR_H) */

#if defined(OSKI_UNBIND)
#  include <oski/mangle.h>
#  undef oski_vecstruct_t
#  undef MAKE_VECSTRUCT_INIT
#  undef VECRM_GET
#  undef VECCM_GET
#  undef VECVIEW_GET
#  undef IS_VECVIEW_COLVEC
#  undef IS_VECVIEW_COLVEC_STRIDE1
#endif

/* eof */

---