The R Project SVN R-packages

Rev

Rev 3416 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

#ifndef CS_UTILS_H
#define CS_UTILS_H

#include "cs.h"
#include "Mutils.h"

typedef cs  *CSP ;

CSP Matrix_as_cs(CSP ans, SEXP x);
SEXP Matrix_cs_to_SEXP(CSP A, char *cl, int dofree);

#define AS_CSP(x) Matrix_as_cs((CSP)alloca(sizeof(cs)), x )

#if 0               /* unused */
css *Matrix_as_css(css *ans, SEXP x);
csn *Matrix_as_csn(csn *ans, SEXP x);
SEXP Matrix_css_to_SEXP(css *S, char *cl, int dofree, int m, int n);
SEXP Matrix_csn_to_SEXP(csn *N, char *cl, int dofree);
#endif  

#endif