1 //------------------------------------------------------------------------------
2 // GB_mex_semiring: parse a semiring, for testing; returns nothing
3 //------------------------------------------------------------------------------
4
5 // SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
6 // SPDX-License-Identifier: Apache-2.0
7
8 //------------------------------------------------------------------------------
9
10 #include "GB_mex.h"
11
12 #define USAGE "GB_mex_semiring (semiring_struct))"
13
14 #define FREE_ALL \
15 { \
16 GB_mx_put_global (true) ; \
17 }
18
mexFunction(int nargout,mxArray * pargout[],int nargin,const mxArray * pargin[])19 void mexFunction
20 (
21 int nargout,
22 mxArray *pargout [ ],
23 int nargin,
24 const mxArray *pargin [ ]
25 )
26 {
27
28 bool malloc_debug = GB_mx_get_global (true) ;
29 GrB_Semiring semiring = NULL ;
30
31 // printf ("user complex: %d\n", Complex != GxB_FC64) ;
32
33 // check inputs
34 if (nargin < 1 || nargin > 2 || nargout > 0)
35 {
36 mexErrMsgTxt ("Usage: " USAGE) ;
37 }
38
39 bool user_complex = (Complex != GxB_FC64) ;
40
41 GB_mx_mxArray_to_Semiring (&semiring, pargin [0], "semiring", GrB_FP64,
42 user_complex) ;
43
44 int GET_SCALAR (1, int, pr, GxB_COMPLETE) ;
45
46 GrB_Info info = GB_Semiring_check (semiring, "semiring", pr, NULL) ;
47 if (info != GrB_SUCCESS)
48 {
49 mexErrMsgTxt ("semiring fail") ;
50 }
51 FREE_ALL ;
52 }
53
54