The R Project SVN R-packages

#ifndef CHM_COMMON_H
#define CHM_COMMON_H

#include "CHOLMOD/Include/cholmod.h"
#include "Mutils.h"

cholmod_common c;

cholmod_sparse *as_cholmod_sparse(SEXP x);
cholmod_triplet *as_cholmod_triplet(SEXP x);
cholmod_dense *as_cholmod_dense(SEXP x);
cholmod_factor *as_cholmod_factor(SEXP x);

SEXP chm_factor_to_SEXP(cholmod_factor *f, int dofree);
SEXP chm_sparse_to_SEXP(cholmod_sparse *a, int dofree);
SEXP chm_triplet_to_SEXP(cholmod_triplet *a, int dofree);
SEXP chm_dense_to_SEXP(cholmod_dense *a, int dofree);

SEXP CHMfactor_validate(SEXP obj);
SEXP CHMsimpl_validate(SEXP obj);
SEXP CHMsuper_validate(SEXP obj);
#endif