matcommon.h

Go to the documentation of this file.

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

#define INC_OSKI_MATCOMMON_H

#include <oski/common.h>
#include <oski/mangle.h>

#if defined(DO_NAME_MANGLING)

#define oski_matcommon_t    MANGLE_(oski_matcommon_t)
#define oski_matspecific_t  MANGLE_(oski_matspecific_t)

#define oski_TransposePatternProp MANGLE_(oski_TransposePatternProp)
#define oski_TransposeProps  MANGLE_(oski_TransposeProps)

#endif

typedef struct
{
  oski_index_t num_rows;        
  oski_index_t num_cols;        
  oski_index_t num_nonzeros;        
  int has_unit_diag;       
  struct
  {
    int is_symm;         
    int is_herm;         
    int is_tri_upper;
    int is_tri_lower;
  } pattern;
}
oski_matcommon_t;

#define OSKI_MATPROP_IS_SQUARE(props) ((props)->num_rows == (props)->num_cols)

#define OSKI_MATPROP_IS_TRI(props) \
    ((props)->pattern.is_tri_upper || (props)->pattern.is_tri_lower)

oski_inmatprop_t oski_TransposePatternProp (oski_inmatprop_t pattern);

void oski_TransposeProps (oski_matcommon_t * props);

/* ---------------------------------------------------------- */

typedef struct
{
  oski_id_t type_id;         
  void *repr;             
}
oski_matspecific_t;

#endif /* !defined(INC_OSKI_MATCOMMON_H) */

#if defined(OSKI_UNBIND)
#  include <oski/common.h>
#  include <oski/mangle.h>
#  undef INC_OSKI_MATCOMMON_H
#  undef oski_matcommon_t
#  undef oski_matspecific_t
#  undef oski_TransposePatternProp
#  undef oski_TransposeProps
#  undef OSKI_MATPROP_IS_SQUARE
#  undef OSKI_MATPROP_IS_TRI
#endif

/* eof */

---