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

fix fnc_ptr wrap for functions with ref,enums,etc

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6280 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2004-10-01 21:45:28 +00:00
commit 526e70e592
1 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Source/Swig/stype.c
View file

@ -512,6 +512,7 @@ SwigType_ltype(SwigType *s) {
List *elements;
int nelements, i;
int firstarray = 1;
int notypeconv = 0;
result = NewString("");
tc = Copy(s);
@ -535,6 +536,10 @@ SwigType_ltype(SwigType *s) {
/* Now, walk the type list and start emitting */
for (i = 0; i < nelements; i++) {
element = Getitem(elements,i);
/* when we see a function, we need to preserve the following types */
if (SwigType_isfunction(element)) {
notypeconv = 1;
}
if (SwigType_isqualifier(element)) {
/* Do nothing. Ignore */
} else if (SwigType_ispointer(element)) {
@ -544,13 +549,25 @@ SwigType_ltype(SwigType *s) {
Append(result,element);
firstarray = 0;
} else if (SwigType_isreference(element)) {
Append(result,"p.");
if (notypeconv) {
Append(result,element);
} else {
Append(result,"p.");
}
firstarray = 0;
} else if (SwigType_isarray(element) && firstarray) {
Append(result,"p.");
if (notypeconv) {
Append(result,element);
} else {
Append(result,"p.");
}
firstarray = 0;
} else if (SwigType_isenum(element)) {
Append(result,"int");
if (notypeconv) {
Append(result,element);
} else {
Append(result,"int");
}
} else {
Append(result,element);
}