From 5a0269c3bf2e85822d5901dfa7c442e4134da0bb Mon Sep 17 00:00:00 2001
From: Joseph Wang <joequant@gmail.com>
Date: Wed, 21 Mar 2012 15:44:01 +0000
Subject: [PATCH] fix typos and add more typecheck

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

diff --git a/Lib/r/rtype.swg b/Lib/r/rtype.swg
index ef65b8210..fb616ffbe 100644
--- a/Lib/r/rtype.swg
+++ b/Lib/r/rtype.swg
@@ -50,7 +50,7 @@
 %typemap("rtypecheck") bool, bool &
   %{ is.logical($arg) && length($arg) == 1 %}
 %typemap("rtypecheck") bool *
-  %{ is.logical($arg) % }
+  %{ is.logical($arg) %}
 
 /*
   Set up type checks to insure overloading precedence.
@@ -58,6 +58,12 @@
   they get called if length = 1
 */
 
+%typecheck(SWIG_TYPECHECK_BOOL) bool {}
+%typecheck(SWIG_TYPECHECK_UINT32) unsigned int {}
+%typecheck(SWIG_TYPECHECK_INTEGER) int {}
+%typecheck(SWIG_TYPECHECK_FLOAT) float {}
+%typecheck(SWIG_TYPECHECK_DOUBLE) double {}
+
 %typecheck(SWIG_TYPECHECK_BOOL_PTR) bool * {}
 %typecheck(SWIG_TYPECHECK_INT32_PTR) int * {}
 %typecheck(SWIG_TYPECHECK_FLOAT_PTR) float * {}