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

Fixed handling of char types.

Browse source 
Added support for optional arguments.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@739 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-08-30 21:53:49 +00:00
commit 196f66f49c
3 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
SWIG/Source/Modules1.1/guile.cxx
View file

@ -474,6 +474,7 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
int i;
int numargs = 0;
int numopt = 0;
int pcount = 0;
// Make a wrapper name for this
char * wname = new char [strlen (prefix) + strlen (iname) + 2];
@ -484,7 +485,8 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
Replace(proc_name,"_", "-", DOH_REPLACE_ANY);
/* Emit locals etc. into f->code; figure out which args to ignore */
emit_args (d, l, f);
pcount = emit_args (d, l, f);
numopt = check_numopt(l);
/* Declare return variable */
@ -516,6 +518,8 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
else {
if (numargs!=0) Printf(f->def,", ");
Printf(f->def,"SCM s_%d", i);
if (i>=(pcount-numopt))
Printf(f->code," if (s_%d != GH_NOT_PASSED) {\n", i);
++numargs;
if (guile_do_typemap(f->code, "in", pt, pn,
source, target, numargs, proc_name, f, 0)) {
@ -533,6 +537,8 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
guile_do_doc_typemap(signature, "indoc", pt, pn,
numargs, proc_name, f);
}
if (i>=(pcount-numopt))
Printf(f->code," }\n");
}
/* Check if there are any constraints. */