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

Scilab: add generic support for STL set

Browse source
This commit is contained in:
Simon Marchetto 2013-07-17 16:56:00 +02:00
commit c66952a3f0
2 changed files with 26 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

100
Lib/scilab/std_set.i
View file

@ -1,84 +1,32 @@
/* /*
* C++ type: std::set<int> *
* Scilab 5 type: integer matrix * C++ type : STL set
*/ * Scilab type : matrix (for sets of primitive types) or list (for sets of all other types : pointers...)
*
*/
%include <sciint.swg> %fragment("StdSetTraits", "header", fragment="StdSequenceTraits")
%{
namespace swig {
template <class T>
struct traits_asptr<std::set<T> > {
static int asptr(const SciObject &obj, std::set<T> **set) {
return traits_asptr_stdseq<std::set<T> >::asptr(obj, set);
}
};
%typemap(in, fragment="SWIG_SciInt32_AsIntArrayAndSize") std::set<int>(std::set<int> temp) template <class T>
{ struct traits_from<std::set<T> > {
int* imatrix; static SciObject from(const std::set<T>& set) {
int nbRows; return traits_from_stdseq<std::set<T> >::from(set);
int nbCols; }
if (SWIG_SciInt32_AsIntArrayAndSize(pvApiCtx, $input, &nbRows, &nbCols, &imatrix, fname) != SWIG_ERROR) };
{
if ((nbRows > 1) && (nbCols > 1))
{
Scierror(999, _("%s: Wrong size for input argument #%d: An integer vector expected.\n"), fname, $input);
return SWIG_ERROR;
}
$1 = temp;
std::set<int>& tmpset = (std::set<int>&)$1;
std::copy(imatrix, imatrix + nbRows * nbCols, std::inserter(tmpset, tmpset.begin()));
} }
} %}
%typemap(in, fragment="SWIG_SciInt32_AsIntArrayAndSize") std::set<int>& (std::set<int> temp)
{
int* imatrix;
int nbRows;
int nbCols;
if (SWIG_SciInt32_AsIntArrayAndSize(pvApiCtx, $input, &nbRows, &nbCols, &imatrix, fname) != SWIG_ERROR)
{
if ((nbRows > 1) && (nbCols > 1))
{
Scierror(999, _("%s: Wrong size for input argument #%d: An integer vector expected.\n"), fname, $input);
return SWIG_ERROR;
}
$1 = &temp;
std::set<int>& tmpset = *$1;
std::copy(imatrix, imatrix + nbRows * nbCols, std::inserter(tmpset, tmpset.begin()));
}
}
%typemap(out, fragment="SWIG_SciInt32_FromIntArrayAndSize") std::set<int> #define %swig_set_methods(Type...) %swig_sequence_methods(Type)
{ #define %swig_set_methods_val(Type...) %swig_sequence_methods_val(Type);
int nbCols = $1.size();
int* imatrix = new int[nbCols];
std::copy($1.begin(), $1.end(), imatrix);
int ret = SWIG_SciInt32_FromIntArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), 1, nbCols, imatrix); %include <std/std_set.i>
delete[] imatrix;
if (ret != SWIG_ERROR)
{
AssignOutputVariable(pvApiCtx, outputPosition) = nbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition();
}
else
{
return SWIG_ERROR;
}
}
%typemap(argout) std::set<int>&
{
int nbCols = $1->size();
int* imatrix = new int[nbCols];
std::copy($1->begin(), $1->end(), imatrix);
int ret = SWIG_SciInt32_FromIntArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), 1, nbCols, imatrix);
delete[] imatrix;
if (ret != SWIG_ERROR)
{
AssignOutputVariable(pvApiCtx, outputPosition) = nbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition();
}
else
{
return SWIG_ERROR;
}
}

7
Lib/scilab/stl.i
View file

@ -1,8 +1,5 @@
/* initial STL definition. extended as needed in each language */ /* initial STL definition. extended as needed in each language */
%include std_common.i %include std_common.i
%include std_vector.i
%include std_string.i %include std_string.i
%include std_vector.i
%include std_set.i