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

Use the preprocessor to rename external functions of the SWIG runtime

Browse source 
API to follow the naming convention SWIG_<language>_<function>.  This
should allow linking more than one interpreter into a program.

Unify the pointer-conversion runtime API.

[Tcl]: Remove the "interp" argument of SWIG_NewInstanceObj,
SWIG_ConvertPtr, SWIG_ConvertPacked, and SWIG_ConvertPtrFromString.
The function SWIG_MustGetPtr is currently not supported.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5247 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2003-11-02 15:24:53 +00:00
commit 95a3a5a70e
2 changed files with 89 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -111,7 +111,7 @@ namespace std {
int i;
T* temp;
if (SWIG_ConvertPtr(interp, $input, (void **) &v, \
if (SWIG_ConvertPtr($input, (void **) &v, \
$&1_descriptor, 0) == 0){
$1 = *v;
} else {
@ -121,7 +121,7 @@ namespace std {
return TCL_ERROR;
$1 = std::vector<T>();
for (i = 0; i < nitems; i++) {
if ((SWIG_ConvertPtr(interp, listobjv[i],(void **) &temp,
if ((SWIG_ConvertPtr(listobjv[i],(void **) &temp,
$descriptor(T),0)) != 0) {
char message[] =
"list of type $descriptor(T) expected";
@ -140,7 +140,7 @@ namespace std {
int i;
T* temp;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$&1_descriptor, 0) == 0) {
$1 = v;
} else {
@ -150,7 +150,7 @@ namespace std {
return TCL_ERROR;
w = std::vector<T>();
for (i = 0; i < nitems; i++) {
if ((SWIG_ConvertPtr(interp, listobjv[i],(void **) &temp,
if ((SWIG_ConvertPtr(listobjv[i],(void **) &temp,
$descriptor(T),0)) != 0) {
char message[] =
"list of type $descriptor(T) expected";
@ -180,7 +180,7 @@ namespace std {
T* temp;
std::vector<T> *v;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$&1_descriptor, 0) == 0) {
/* wrapped vector */
$1 = 1;
@ -193,7 +193,7 @@ namespace std {
if (nitems == 0)
$1 = 1;
//check the first value to see if it is of correct type
else if ((SWIG_ConvertPtr(interp, listobjv[i],
else if ((SWIG_ConvertPtr(listobjv[i],
(void **) &temp,
$descriptor(T),0)) != 0)
$1 = 0;
@ -210,7 +210,7 @@ namespace std {
T* temp;
std::vector<T> *v;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$1_descriptor, 0) == 0){
/* wrapped vector */
$1 = 1;
@ -223,7 +223,7 @@ namespace std {
if (nitems == 0)
$1 = 1;
//check the first value to see if it is of correct type
else if ((SWIG_ConvertPtr(interp, listobjv[i],
else if ((SWIG_ConvertPtr(listobjv[i],
(void **) &temp,
$descriptor(T),0)) != 0)
$1 = 0;
@ -281,7 +281,7 @@ namespace std {
int i;
T temp;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$&1_descriptor, 0) == 0) {
$1 = *v;
} else {
@ -305,7 +305,7 @@ namespace std {
int i;
T temp;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$1_descriptor, 0) == 0) {
$1 = v;
} else {
@ -336,7 +336,7 @@ namespace std {
T temp;
std::vector<T> *v;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$&1_descriptor, 0) == 0){
/* wrapped vector */
$1 = 1;
@ -363,7 +363,7 @@ namespace std {
T temp;
std::vector<T> *v;
if(SWIG_ConvertPtr(interp, $input, (void **) &v, \
if(SWIG_ConvertPtr($input, (void **) &v, \
$1_descriptor, 0) == 0){
/* wrapped vector */
$1 = 1;