wiki:PerlSwig

PerlSwig

To re-SWIG Mapscript with a different version of SWIG

<contributed by Stephen Lime>:

(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 PerlMapScript

Last modified 13 years ago Last modified on Jan 29, 2009, 9:36:49 AM