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

Replace strdup - it is not portable. VC++ warning fixes.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10118 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2007-11-12 22:14:51 +00:00
commit 9bc992c0e4
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Lib/r/r.swg
View file

@ -95,32 +95,32 @@ SWIG_InitializeModule(0);
$1 = %reinterpret_cast(INTEGER($input), $1_ltype);
}
%typemap(in,noblock=1) char* {
$1 = %reinterpret_cast(strdup(CHAR(STRING_ELT($input, 0))), $1_ltype);
%typemap(in,noblock=1,fragment="SWIG_strdup") char* {
$1 = %reinterpret_cast(SWIG_strdup(CHAR(STRING_ELT($input, 0))), $1_ltype);
}
%typemap(freearg,noblock=1) char* {
free($1);
}
%typemap(in,noblock=1) char *[ANY] {
$1 = %reinterpret_cast(strdup(CHAR(STRING_ELT($input, 0))), $1_ltype);
%typemap(in,noblock=1,fragment="SWIG_strdup") char *[ANY] {
$1 = %reinterpret_cast(SWIG_strdup(CHAR(STRING_ELT($input, 0))), $1_ltype);
}
%typemap(freearg,noblock=1) char *[ANY] {
free($1);
}
%typemap(in,noblock=1) char[ANY] {
$1 = strdup(CHAR(STRING_ELT($input, 0)));
%typemap(in,noblock=1,fragment="SWIG_strdup") char[ANY] {
$1 = SWIG_strdup(CHAR(STRING_ELT($input, 0)));
}
%typemap(freearg,noblock=1) char[ANY] {
free($1);
}
%typemap(in,noblock=1) char[] {
$1 = strdup(CHAR(STRING_ELT($input, 0)));
%typemap(in,noblock=1,fragment="SWIG_strdup") char[] {
$1 = SWIG_strdup(CHAR(STRING_ELT($input, 0)));
}
%typemap(freearg,noblock=1) char[] {
@ -164,7 +164,7 @@ $1 = %static_cast(CHAR(STRING_ELT($input, 0))[0],$1_ltype);
%typemap(in,noblock=1) bool
"$1 = LOGICAL($input)[0];";
"$1 = LOGICAL($input)[0] ? true : false;";
%typemap(out,noblock=1) bool