1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#include "mongoose_mex.hpp"
#include "Mongoose_Sanitize.hpp"
using namespace Mongoose;
void mexFunction
(
int nargout,
mxArray *pargout [ ],
int nargin,
const mxArray *pargin [ ]
)
{
const char* usage = "Usage: A_safe = sanitize(A, [makeBinary=false])";
if (nargin < 1 || nargin > 2 || nargout > 1)
{
mexErrMsgTxt(usage);
}
bool makeBinary = false;
if (nargin == 2)
{
makeBinary = (bool) mxGetScalar(pargin[1]);
}
const mxArray *A_matlab = pargin[0];
cs *A = (cs *) SuiteSparse_malloc(1, sizeof(cs));
A = cs_mex_get_sparse (A, 0, 1, A_matlab);
cs *A_safe = sanitizeMatrix(A, false, makeBinary);
A->p = NULL;
A->i = NULL;
A->x = NULL;
cs_spfree(A);
pargout[0] = cs_mex_put_sparse (&A_safe) ;
}
|
