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

New way of sharing type information between modules for chicken, mzscheme,

Browse source 
ruby, tcl, and perl.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6332 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-10-05 22:43:41 +00:00
commit 9dead7a11d
13 changed files with 203 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

8
SWIG/Source/Modules/chicken.cxx
View file

@ -230,10 +230,6 @@ CHICKEN::top(Node *n)
Printf(f_runtime, "/* -*- buffer-read-only: t -*- vi: set ro: */\n");
Swig_banner(f_runtime);
if (NoInclude) {
Printf(f_runtime, "#define SWIG_NOINCLUDE\n");
}
/* Set module name */
realmodule = Copy(Getattr(n,"name"));
module = Copy(realmodule);
@ -390,10 +386,10 @@ CHICKEN::top(Node *n)
int
CHICKEN::importDirective(Node *n)
{
String *modname = Getattr(n,"module");
/*String *modname = Getattr(n,"module");
if (modname) {
Printf(f_scm,"(declare (uses %s))\n", modname);
}
}*/
return Language::importDirective(n);
}

6
SWIG/Source/Modules/mzscheme.cxx
View file

@ -149,10 +149,6 @@ public:
Printf(f_runtime, "/* -*- buffer-read-only: t -*- vi: set ro: */\n");
Swig_banner (f_runtime);
if (NoInclude) {
Printf(f_runtime, "#define SWIG_NOINCLUDE\n");
}
module = Getattr(n,"name");
Language::top(n);
@ -583,7 +579,7 @@ public:
// Make a static variable;
Printf (var_name, "_wrap_const_%s", Swig_name_mangle(iname));
Printf (var_name, "_wrap_const_%s", Swig_name_mangle(Getattr(n,"sym:name")));
// Build the name for scheme.
Printv(proc_name, iname,NIL);