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

Handle `ltdlmod' linkage.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@776 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-08-31 21:39:21 +00:00
commit 7d38dfa1ab
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -283,9 +283,18 @@ GUILE::emit_linkage (char *module_name)
case GUILE_LSTYLE_LTDLMOD: case GUILE_LSTYLE_LTDLMOD:
Printf (f_init, "\n/* Linkage: ltdlmod */\n"); Printf (f_init, "\n/* Linkage: ltdlmod */\n");
Replace(module_func,"/", "_", DOH_REPLACE_ANY); Replace(module_func,"/", "_", DOH_REPLACE_ANY);
Insert(module_func,0, "scm_init"); Insert(module_func,0, "scm_init_");
Append(module_func,"_module"); Append(module_func,"_module");
/* TODO */ Printf (f_init, "SCM\n%s (void)\n{\n", module_func);
{
DOHString *mod = NewString(module_name);
Replace(mod,"/", " ", DOH_REPLACE_ANY);
Printf (f_init, " scm_register_module_xxx (\"%s\", (void *) SWIG_init);\n",
mod);
Printf (f_init, " return SCM_UNSPECIFIED;\n");
Delete(mod);
}
Printf (f_init, "}\n");
break; break;
case GUILE_LSTYLE_HOBBIT: case GUILE_LSTYLE_HOBBIT:
Printf (f_init, "\n/* Linkage: hobbit */\n"); Printf (f_init, "\n/* Linkage: hobbit */\n");