format.h

Go to the documentation of this file.

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

#define INC_OSKI_CSR_FORMAT_H

#include <oski/mangle.h>

#if defined(DO_NAME_MANGLING)

#define oski_matCSR_t     MANGLE_(oski_matCSR_t)

#define oski_WrapCSR_funcpt MANGLE_(oski_wrapCSR_funcpt)
#define oski_CheckCSR_funcpt MANGLE_(oski_checkCSR_funcpt)
#define oski_StreamMatRepr_funcpt MANGLE_(oski_StreamMatRepr_funcpt)
#define oski_SortIndices_funcpt MANGLE_(oski_SortIndices_funcpt)
#define oski_ExpandCSRToFull_funcpt MANGLE_(oski_ExpandCSRToFull_funcpt)
#define oski_ConditionallyExpandCSRToFull_funcpt \
    MANGLE_(oski_ConditionallyExpandCSRToFull_funcpt)
#define oski_ChangeIndexBase_funcpt  MANGLE_(oski_ChangeIndexBase_funcpt)
#define oski_TransposeCSR_funcpt MANGLE_(oski_TransposeCSR_funcpt)
#define oski_CountZeroRowsCSR_funcpt MANGLE_(oski_CountZeroRowsCSR_funcpt)

#endif

typedef struct
{
  oski_index_t base_index;

  int has_unit_diag_implicit;

  int has_sorted_indices;

  struct
  {
    int is_upper;         
    int is_lower;         
  } stored;

  oski_index_t *ptr;       
  oski_index_t *ind;       
  oski_value_t *val;       
  int is_shared;       
}
oski_matCSR_t;


#include <oski/inmatprop.h>
#include <oski/matrix.h>

typedef double (*oski_StreamMatRepr_funcpt) (const void *mat,
                         const oski_matcommon_t * props);

typedef oski_matCSR_t *(*oski_ExpandCSRToFull_funcpt) (const oski_matCSR_t *
                               S,
                               const oski_matcommon_t
                               * props);

typedef int (*oski_ConditionallyExpandCSRToFull_funcpt) (const oski_matCSR_t *
                             S,
                             const
                             oski_matcommon_t *
                             props,
                             oski_matCSR_t **
                             p_mat_full);

typedef void (*oski_ChangeIndexBase_funcpt) (oski_matCSR_t * A,
                         const oski_matcommon_t * props,
                         const oski_index_t new_base);

typedef int (*oski_SortIndices_funcpt) (oski_matCSR_t * A, oski_index_t m);

typedef oski_matCSR_t *(*oski_TransposeCSR_funcpt) (const oski_matCSR_t * A,
                            const oski_matcommon_t *
                            props);

typedef oski_matCSR_t *(*oski_WrapCSR_funcpt) (oski_matcommon_t * out_props,
                           oski_index_t * Aptr,
                           oski_index_t * Aind,
                           oski_value_t * Aval,
                           oski_index_t num_rows,
                           oski_index_t num_cols,
                           oski_inmatpropset_t * props,
                           oski_copymode_t mode);

typedef oski_index_t (*oski_CountZeroRowsCSR_funcpt) (const oski_matCSR_t * A,
                              const oski_matcommon_t *
                              props);
#endif

#if defined(OSKI_UNBIND)
#  include <oski/mangle.h>
#  undef INC_OSKI_CSR_FORMAT_H
#  undef oski_matCSR_t
#  undef oski_WrapCSR_funcpt
#  undef oski_CheckCSR_funcpt
#  undef oski_StreamMatRepr_funcpt
#  undef oski_SortIndices_funcpt
#  undef oski_ExpandCSRToFull_funcpt
#  undef oski_ConditionallyExpandCSRToFull_funcpt
#  undef oski_ChangeIndexBase_funcpt
#  undef oski_TransposeCSR_funcpt
#  undef oski_CountZeroRowsCSR_funcpt
#endif

/* eof */

---