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

Fix R return by C++11 const ref enum classes

Browse source
This commit is contained in:
William S Fulton 2019-03-18 17:49:24 +00:00
commit 39e3c3b9d7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/r/r.swg
View file

@ -196,7 +196,7 @@ unsigned char *OUTPUT
%{ temp = ($*1_ltype)INTEGER($input)[0]; %{ temp = ($*1_ltype)INTEGER($input)[0];
$1 = &temp; %} $1 = &temp; %}
%typemap(out) const enum SWIGTYPE & %{ $result = Rf_ScalarInteger(*$1); %} %typemap(out) const enum SWIGTYPE & %{ $result = Rf_ScalarInteger((int)*$1); %}
%typemap(memberin) char[] %{ %typemap(memberin) char[] %{
if ($input) strcpy($1, $input); if ($input) strcpy($1, $input);