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

(GUILE::close): Fix bug: Use "swig" for `module_name' if unset.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@584 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Thien-Thi Nguyen 2000-07-20 19:49:28 +00:00
commit 6e4e6f3598
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -20,7 +20,7 @@ static char cvsroot[] = "$Header$";
* *
* guile.cxx * guile.cxx
* *
* Definitions for adding functions to Guile 3.0 * Definitions for adding functions to Guile
***********************************************************************/ ***********************************************************************/
#include "mod11.h" #include "mod11.h"
@ -328,11 +328,14 @@ GUILE::close (void)
Printf (f_init, "}\n\n"); Printf (f_init, "}\n\n");
char module_name[256]; char module_name[256];
if (package) if (!module)
sprintf(module_name,"%s/%s", package,module); sprintf(module_name, "swig");
else else {
strcpy(module_name,module); if (package)
sprintf(module_name,"%s/%s", package,module);
else
strcpy(module_name,module);
}
emit_linkage (module_name); emit_linkage (module_name);
} }
@ -785,7 +788,7 @@ GUILE::declare_const (char *name, char *, DataType *type, char *value)
void void
GUILE::usage_var (char *iname, DataType *t, DOHString *usage) GUILE::usage_var (char *iname, DataType *t, DOHString *usage)
{ {
Printv(usage, "(", iname, " [value])", 0); Printv(usage, "(", iname, " [value])", 0);
if (!((t->type != T_USER) || (t->is_pointer))) { if (!((t->type != T_USER) || (t->is_pointer))) {
Printf(usage," - unsupported"); Printf(usage," - unsupported");