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

fix for perl + multiple modules

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7863 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-11-24 00:54:10 +00:00
commit 4267a26ecd
4 changed files with 45 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

17
SWIG/Source/Modules/perl5.cxx
View file

@ -325,27 +325,26 @@ public:
Printf(f_header,"%s\n", magic);
String *type_table = NewString("");
SwigType_emit_type_table(f_runtime,type_table);
/* Patch the type table to reflect the names used by shadow classes */
if (blessed) {
Iterator cls;
for (cls = First(classlist); cls.item; cls = Next(cls)) {
if (Getattr(cls.item,"perl5:proxy")) {
SwigType *type = Copy(Getattr(cls.item,"classtype"));
String *pname = Getattr(cls.item,"perl5:proxy");
if (pname) {
SwigType *type = Getattr(cls.item,"classtypeobj");
if (!type) continue; /* If unnamed class, no type will be found */
type = Copy(type);
SwigType_add_pointer(type);
String *mangle = NewStringf("\"%s\"", SwigType_manglestr(type));
String *rep = NewStringf("\"%s\"", Getattr(cls.item,"perl5:proxy"));
Replaceall(type_table,mangle,rep);
Delete(mangle);
Delete(rep);
String *mangled = SwigType_manglestr(type);
SwigType_remember_mangleddata(mangled, NewStringf("\"%s\"",pname));
Delete(type);
Delete(mangled);
}
}
}
SwigType_emit_type_table(f_runtime,type_table);
Printf(f_wrappers,"%s",type_table);
Delete(type_table);

1
SWIG/Source/Swig/swig.h
View file

@ -292,6 +292,7 @@ extern int SwigType_isclass(SwigType *t);
extern void SwigType_attach_symtab(Symtab *syms);
extern void SwigType_remember(SwigType *t);
extern void SwigType_remember_clientdata(SwigType *t, const String_or_char *clientdata);
extern void SwigType_remember_mangleddata(String *mangled, const String_or_char *clientdata);
extern void (*SwigType_remember_trace(void (*tf)(SwigType *, String *, String *)))(SwigType *, String *, String *);
extern void SwigType_emit_type_table(File *f_headers, File *f_table);
extern int SwigType_type(SwigType *t);

16
SWIG/Source/Swig/typesys.c
View file

@ -1379,10 +1379,19 @@ static Hash *r_mangled = 0; /* Hash mapping mangled types to full
static Hash *r_resolved = 0; /* Hash mapping resolved types to mangled types */
static Hash *r_ltype = 0; /* Hash mapping mangled names to their local c type */
static Hash *r_clientdata = 0; /* Hash mapping resolved types to client data */
static Hash *r_mangleddata = 0; /* Hash mapping mangled types to client data */
static Hash *r_remembered = 0; /* Hash of types we remembered already */
static void (*r_tracefunc)(SwigType *t, String *mangled, String *clientdata) = 0;
void SwigType_remember_mangleddata(String *mangled, const String_or_char *clientdata) {
if (!r_mangleddata) {
r_mangleddata = NewHash();
}
Setattr(r_mangleddata, mangled, clientdata);
}
void SwigType_remember_clientdata(SwigType *t, const String_or_char *clientdata) {
String *mt;
SwigType *lt;
@ -1566,6 +1575,11 @@ String *SwigType_clientdata_collect(String *ms) {
Hash *mh;
String *clientdata = 0;
if (r_mangleddata) {
clientdata = Getattr(r_mangleddata,ms);
if (clientdata) return clientdata;
}
mh = Getattr(r_mangled,ms);
if (mh) {
Iterator ki;
@ -1875,7 +1889,7 @@ SwigType_emit_type_table(File *f_forward, File *f_table) {
} else {
nt = NewStringf("%s|%s", rn, ln);
}
Printf(types, "\"%s\", \"%s\", 0, 0, %s, 0};\n", ki.item, nt, cd);
Printf(types, "\"%s\", \"%s\", 0, 0, (void*)%s, 0};\n", ki.item, nt, cd);
el = SwigType_equivalent_mangle(ki.item,0,0);
for (ei = First(el); ei.item; ei = Next(ei)) {