* error.c (rb_typed_struct_is_kind_of): new function to see if the

  given typed struct.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@23983 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 10 insertions, 0 deletions

diff --git a/error.c b/error.c
index 04ea58de11..537b1742fd 100644
--- a/error.c
+++ b/error.c
@@ -316,6 +316,16 @@ rb_check_type(VALUE x, int t)
     }
 }
 
+int
+rb_typed_struct_is_kind_of(VALUE obj, const rb_data_type_t *data_type)
+{
+    if (SPECIAL_CONST_P(obj) || BUILTIN_TYPE(obj) != T_DATA ||
+	!RTYPEDDATA_P(obj) || RTYPEDDATA_TYPE(obj) != data_type) {
+	return 0;
+    }
+    return 1;
+}
+
 void *
 rb_check_typed_struct(VALUE obj, const rb_data_type_t *data_type)
 {