jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add arrays_global_twodim testcase

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@11694 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Baozeng Ding 2009-09-17 13:25:47 +00:00
commit 394e632d6c
2 changed files with 62 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Examples/test-suite/scilab/arrays_global_twodim_runme.sci Normal file
View file

@ -0,0 +1,7 @@
exec loader.sce;
a = [1, 2, 3, 4; 5, 6, 7, 8;]
array_d_set(a);
if array_d_get() <> a then pause, end
exit

55
Lib/scilab/scitypemaps.swg
View file

@ -1234,6 +1234,61 @@
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) signed char [ANY][ANY],
char [ANY][ANY]{
createMatrixOfInteger8(iVarOut, $1_dim0, $1_dim1, (char *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) unsigned char [ANY][ANY] {
createMatrixOfUnsignedInteger8(iVarOut, $1_dim0, $1_dim1, (unsigned char *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) short [ANY][ANY] {
createMatrixOfInteger16(iVarOut, $1_dim0, $1_dim1, (short *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) unsigned short [ANY][ANY] {
createMatrixOfUnsignedInteger16(iVarOut, $1_dim0, $1_dim1, (unsigned short *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) int [ANY][ANY],
long [ANY][ANY] {
createMatrixOfInteger32(iVarOut, $1_dim0, $1_dim1, (int *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) unsigned int [ANY][ANY],
unsigned long [ANY][ANY] {
createMatrixOfUnsignedInteger32(iVarOut, $1_dim0, $1_dim1, (unsigned int *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) double [ANY][ANY] {
createMatrixOfDouble(iVarOut, $1_dim0, $1_dim1, (double *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) float [ANY][ANY] {
createMatrixOfDouble(iVarOut, $1_dim0, $1_dim1, (double *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) long long [ANY][ANY] {
createMatrixOfInteger64(iVarOut, $1_dim0, $1_dim1, (long long *)$result);
LhsVar(iOutNum) = iVarOut;
}
%typemap(varout,noblock=1) unsigned long long [ANY][ANY] {
createMatrixOfUnsignedInteger64(iVarOut, $1_dim0, $1_dim1, (unsigned long long *)$result);
LhsVar(iOutNum) = iVarOut;
}
/* Enums */
%typemap(varout,noblock=1) enum SWIGTYPE {
createMatrixOfInteger32(iVarOut, iRowsOut, iColsOut, (int *)&temp);