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
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) INRIA
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
*
*/
#include <stdio.h>
#include "mex.h"
#define STRING "hello world"
void ABcopy (double *a, double *b, int mn);
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
mxArray *ptrB;
double *A, *B;
int m, n, it, strl;
char *str;
if (nrhs != 2)
{
mexErrMsgTxt("This function requires 2 inputs!");
}
if (nlhs > 3)
{
mexErrMsgTxt("This function requires at most 3 outputs!");
}
if (! mxIsNumeric(prhs[0]))
{
mexErrMsgTxt("First argument must be numeric matrix.");
}
if (! mxIsChar(prhs[1]))
{
mexErrMsgTxt("Second argument must be a string.");
}
m = mxGetM(prhs[0]);
n = mxGetN(prhs[0]);
A = mxGetPr(prhs[0]);
it = 0;
ptrB = mxCreateDoubleMatrix(n, m, it);
m = mxGetM(ptrB);
n = mxGetN(ptrB);
B = mxGetPr(ptrB);
ABcopy(A, B, m * n);
plhs[0] = prhs[0];
plhs[1] = ptrB;
m = mxGetM(prhs[1]);
strl = mxGetN(prhs[1]);
str = mxCalloc(m * strl + 1, sizeof(char));
mxGetString(prhs[1], str, m * strl);
plhs[2] = mxCreateString(str);
}
void ABcopy(a, b, mn)
double *a;
double *b;
int mn;
{
int i;
for ( i = 0 ; i < mn ; i++)
{
b[i] = a[i] + 33.0 + i;
}
}
|
