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

Fix for std::vector Tcl typemaps

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5877 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Luigi Ballabio 2004-04-21 14:12:40 +00:00
commit 30fe3353a5
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
SWIG/Lib/tcl/std_vector.i
View file

@ -122,9 +122,9 @@ namespace std {
$1 = std::vector<T>();
for (i = 0; i < nitems; i++) {
if ((SWIG_ConvertPtr(listobjv[i],(void **) &temp,
$descriptor(T),0)) != 0) {
$descriptor(T *),0)) != 0) {
char message[] =
"list of type $descriptor(T) expected";
"list of " #T " expected";
Tcl_SetResult(interp, message, TCL_VOLATILE);
return TCL_ERROR;
}
@ -151,9 +151,9 @@ namespace std {
w = std::vector<T>();
for (i = 0; i < nitems; i++) {
if ((SWIG_ConvertPtr(listobjv[i],(void **) &temp,
$descriptor(T),0)) != 0) {
$descriptor(T *),0)) != 0) {
char message[] =
"list of type $descriptor(T) expected";
"list of " #T " expected";
Tcl_SetResult(interp, message, TCL_VOLATILE);
return TCL_ERROR;
}
@ -168,7 +168,7 @@ namespace std {
T* ptr = new T((($1_type &)$1)[i]);
Tcl_ListObjAppendElement(interp, $result, \
SWIG_NewPointerObj(ptr,
$descriptor(T),
$descriptor(T *),
0));
}
}
@ -195,7 +195,7 @@ namespace std {
//check the first value to see if it is of correct type
else if ((SWIG_ConvertPtr(listobjv[i],
(void **) &temp,
$descriptor(T),0)) != 0)
$descriptor(T *),0)) != 0)
$1 = 0;
else
$1 = 1;
@ -225,7 +225,7 @@ namespace std {
//check the first value to see if it is of correct type
else if ((SWIG_ConvertPtr(listobjv[i],
(void **) &temp,
$descriptor(T),0)) != 0)
$descriptor(T *),0)) != 0)
$1 = 0;
else
$1 = 1;