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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
//------------------------------------------------------------------------------
// GB_cover_util.c: utilities for test coverage
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2020, All Rights Reserved.
// http://suitesparse.com See GraphBLAS/Doc/License.txt for license.
//------------------------------------------------------------------------------
// These functions are compiled along with the GraphBLAS mexFunctions, to
// allow them to copy the statement coverage counts to and from the MATLAB
// global workspace.
#include "GB_mex.h"
//------------------------------------------------------------------------------
// GB_cover_get: copy coverage counts from the MATLAB workspace
//------------------------------------------------------------------------------
// This function is called when a GraphBLAS mexFunction starts.
// GraphBLAS_grbcov is an int64 MATLAB array in the global MATLAB workspace.
// Its size is controlled by GB_cover_max, defined in GB_cover_finish.c. If the
// array is empty in the workspace, or if it doesn't exist, it is created with
// the correct size. Then the internal GB_cov array is copied into it.
void GB_cover_get ( )
{
// get GraphBLAS_grbcov from MATLAB global workspace
mxArray *GB_cov_matlab = NULL ;
GB_cov_matlab =
(mxArray *) mexGetVariablePtr ("global", "GraphBLAS_grbcov") ;
if (GB_cov_matlab == NULL || mxIsEmpty (GB_cov_matlab))
{
// doesn't exist; create it and set it to zero
GB_cov_matlab = mxCreateNumericMatrix (1, GB_cover_max,
mxINT64_CLASS, mxREAL) ;
// copy it back to the global MATLAB workspace
mexPutVariable ("global", "GraphBLAS_grbcov", GB_cov_matlab) ;
}
// it should exist now, but double-check
if (GB_cov_matlab == NULL || mxIsEmpty (GB_cov_matlab))
{
mexErrMsgTxt ("GB_cov_matlab still null!") ;
}
// get a pointer to the content of the GraphBLAS_grbcov array in the
// MATLAB workspace
int64_t *g = (int64_t *) mxGetData (GB_cov_matlab) ;
// getting paranoid here; this should never happen
if (g == NULL) mexErrMsgTxt ("g null!") ;
// if (GB_cov == NULL) mexErrMsgTxt ("GB_cov is NULL!") ;
// copy the count from the MATLAB GraphBLAS_grbcov into GB_cov
memcpy (GB_cov, g, GB_cover_max * sizeof (int64_t)) ;
}
//------------------------------------------------------------------------------
// GB_cover_put: copy coverage counts back to the MATLAB workspace
//------------------------------------------------------------------------------
// This function is called when a GraphBLAS mexFunction finishes. It copies
// the updated statement coverage counters in the GB_cov array back to the
// GraphBLAS_grbcov array in the MATLAB global workspace where it can be
// analyzed.
void GB_cover_put ( )
{
// printf ("GB_cover_put: %d\n", GB_cover_max) ;
// create a MATLAB array with the right size
mxArray * GB_cov_matlab = mxCreateNumericMatrix (1, GB_cover_max,
mxINT64_CLASS, mxREAL) ;
// copy the updated GB_cov counter array into the MATLAB array
int64_t *g = (int64_t *) mxGetData (GB_cov_matlab) ;
memcpy (g, GB_cov, GB_cover_max * sizeof (int64_t)) ;
// put the MATLAB array into the global workspace, overwriting the
// version that was already there
mexPutVariable ("global", "GraphBLAS_grbcov", GB_cov_matlab) ;
}
|
