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