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

Added Dieter Baron's patch for optional arguments.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@80 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-01-13 16:35:44 +00:00
commit c2e7ecacfe
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Source/Modules1.1/guile.cxx
View file

@ -246,6 +246,7 @@ void GUILE::create_function(char *name, char *iname, DataType *d, ParmList *l)
Parm *p; Parm *p;
int pcount; int pcount;
int reqargs;
char wname[256]; char wname[256];
char source[64]; char source[64];
char target[64]; char target[64];
@ -297,11 +298,15 @@ void GUILE::create_function(char *name, char *iname, DataType *d, ParmList *l)
i = 0; i = 0;
p = l->get_first(); p = l->get_first();
reqargs = pcount - l->numopt();
while (p != 0) { while (p != 0) {
// Produce names of source and target // Produce names of source and target
sprintf(source,"s_%d",i); sprintf(source,"s_%d",i);
sprintf(target,"_arg%d",i); sprintf(target,"_arg%d",i);
if (i >= reqargs)
fprintf(f_wrappers," if (!SCM_UNBNDP(s_%d)) {\n", i);
if ((tm = typemap_lookup("in","guile",p->t,p->name,source,target))) { if ((tm = typemap_lookup("in","guile",p->t,p->name,source,target))) {
// Yep. Use it instead of the default // Yep. Use it instead of the default
fprintf(f_wrappers,"%s\n", tm); fprintf(f_wrappers,"%s\n", tm);
@ -383,6 +388,10 @@ void GUILE::create_function(char *name, char *iname, DataType *d, ParmList *l)
// Yep. Use it instead of the default // Yep. Use it instead of the default
cleanup << tm << "\n"; cleanup << tm << "\n";
} }
if (i >= reqargs)
fprintf(f_wrappers," }\n");
p = l->get_next(); p = l->get_next();
i++; i++;
} }
@ -469,8 +478,8 @@ void GUILE::create_function(char *name, char *iname, DataType *d, ParmList *l)
fprintf(f_wrappers,"}\n"); fprintf(f_wrappers,"}\n");
// Now register the function // Now register the function
fprintf(f_init,"\t gh_new_procedure(\"%s\", _wrap_gscm_%s, %d, 0, 0);\n", fprintf(f_init,"\t gh_new_procedure(\"%s\", _wrap_gscm_%s, %d, %d, 0);\n",
iname, wname, pcount); iname, wname, reqargs, pcount-reqargs);
// Make a documentation entry for this // Make a documentation entry for this