PerlSwig
== To re-SWIG Mapscript with a different version of SWIG ==
:
(currently (<=3.6, 3.7?) distributed with 1.1)
cd mapscript/perl
swig -perl5 -shadow mapscript.i
(thanks Steve Lime)
Then build as usual.
[Thu Mar 6 16:04:11 EST 2003] Jason Thaxter notes that the README note for perl says to use SWIG Version 1.1 (Build 883), but that didn't work, while version 1.3.17u (current release) seems to create a working module, though with a number of warnings about deprecated SWIG tags...
Patch required to eliminate mod_perl & strict fatal errors
http://mapserver.gis.umn.edu/data2/wilma/mapserver-users/0205/msg00068.html
or a direct link to the SWIG archives
http://mailman.cs.uchicago.edu/pipermail/swig/2000-March/001227.html
Offsite discussion redarding the use of null strings as file names
> Steve Lime writes:
> > Um, yup it is. Simply switching:
> >
> > if (arg1->name) free((char*)arg1->name);
> > arg1->name = (char *) malloc(strlen(arg2)+1);
> > strcpy((char*)arg1->name,arg2);
> >
> > to:
> >
> > if (arg1->name) free((char*)arg1->name);
> > if(arg2) {
> > arg1->name = (char *) malloc(strlen(arg2)+1);
> > strcpy((char*)arg1->name,arg2);
> > } else
> > arg1->name = NULL;
> >
> > Seems to fix things. Now, how to get these changes made?
> >
>
> This is probably being controlled by a typemap in Lib/swig.swg.
> I'll take a look.
>
You can try sticking this in your interface (or making mods in
swig.swg).
Cheers,
Dave
!#perl
/* Default typemap for handling char * members */
#ifdef __cplusplus
%typemap(memberin) char * {
if ($1) delete [] $1;
if ($input) {
$1 = ($1_type) (new char[strlen($input)+1]);
strcpy((char *) $1,$input);
} else {
$1 = 0;
}
}
%typemap(memberin,warning="451:Setting const char * member may leak memory.") const char * {
if ($input) {
$1 = ($1_type) (new char[strlen($input)+1]);
strcpy((char *) $1,$input);
} else {
$1 = 0;
}
}
%typemap(globalin) char * {
if ($1) delete [] $1;
if ($input) {
$1 = ($1_type) (new char[strlen($input)+1]);
strcpy((char *) $1,$input);
} else {
$1 = 0;
}
}
%typemap(globalin,warning="451:Setting const char * variable may leak memory.") const char * {
if ($input) {
$1 = ($1_type) (new char[strlen($input)+1]);
strcpy((char *) $1,$input);
} else {
$1 = 0;
}
}
#else
%typemap(memberin) char * {
if ($1) free((char*)$1);
if ($input) {
$1 = ($1_type) malloc(strlen($input)+1);
strcpy((char*)$1,$input);
} else {
$1 = 0;
}
}
%typemap(memberin,warning="451:Setting const char * member may leak memory.") const char * {
if ($input) {
$1 = ($1_type) malloc(strlen($input)+1);
strcpy((char*)$1,$input);
} else {
$1 = 0;
}
}
%typemap(globalin) char * {
if ($1) free((char*)$1);
if ($input) {
$1 = ($1_type) malloc(strlen($input)+1);
strcpy((char*)$1,$input);
} else {
$1 = 0;
}
}
%typemap(globalin,warning="451:Setting const char * variable may leak memory.") const char * {
if ($input) {
$1 = ($1_type) malloc(strlen($input)+1);
strcpy((char*)$1,$input);
} else {
$1 = 0;
}
}
#endif
back to PerlMapScrip
