From ebf910f755944db75a1b0d7700e63ac55f54c9dd Mon Sep 17 00:00:00 2001
From: Joseph Wang <joequant@gmail.com>
Date: Thu, 8 May 2008 02:39:52 +0000
Subject: [PATCH] remove numerical conversion in corecions

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10425 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/r/rtype.swg | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/Lib/r/rtype.swg b/Lib/r/rtype.swg
index 60efcc6eb..9206b5e3e 100644
--- a/Lib/r/rtype.swg
+++ b/Lib/r/rtype.swg
@@ -45,9 +45,9 @@
 %typemap(scoercein) unsigned int, unsigned int *, unsigned int &
   %{  $input = as($input, "integer");     %}
 %typemap(scoercein) double, double *, double &
-  %{  $input = as($input, "numeric");     %}
+  %{ %}
 %typemap(scoercein) float, float *, float &
-  %{  $input = as($input, "numeric");     %}
+  %{ %}
 %typemap(scoercein) char, char *, char &
   %{  $input = as($input, "character");     %}
 %typemap(scoercein) string, string *, string &
@@ -61,6 +61,11 @@
 %typemap(scoercein) enum SWIGTYPE *
   %{  $input = enumToInteger($input, "$R_class") %}
 
+
+%typemap(scoercein) SWIGTYPE, SWIGTYPE *, SWIGTYPE &  
+  %{ %}
+
+/*
 %typemap(scoercein) SWIGTYPE * 
   %{ $input = coerceIfNotSubclass($input, "$R_class") %}
 
@@ -69,7 +74,7 @@
 
 %typemap(scoercein) SWIGTYPE  
   %{ $input = coerceIfNotSubclass($input, "$&R_class") %}
-
+*/
 
 %typemap(scoercein) SWIGTYPE[ANY]  
  %{