From a80b30041671d2b97c205e50c29fb25f35a292f0 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 2 May 2014 01:34:41 +0000 Subject: symbol/type.c: bug_static_p bug_dynamic_p * ext/-test-/symbol/type.c (bug_static_p, bug_dynamic_p): methods for debug, which predicate the given symbol type. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@45779 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/-test-/symbol/type.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'ext/-test-/symbol') diff --git a/ext/-test-/symbol/type.c b/ext/-test-/symbol/type.c index 17f2d6824b..c6dbdd1f8e 100644 --- a/ext/-test-/symbol/type.c +++ b/ext/-test-/symbol/type.c @@ -41,10 +41,24 @@ bug_id2str(VALUE self, VALUE sym) return rb_id2str(SYM2ID(sym)); } +static VALUE +bug_static_p(VALUE self, VALUE sym) +{ + return STATIC_SYM_P(sym) ? Qtrue : Qfalse; +} + +static VALUE +bug_dynamic_p(VALUE self, VALUE sym) +{ + return DYNAMIC_SYM_P(sym) ? Qtrue : Qfalse; +} + void Init_type(VALUE klass) { FOREACH_ID_TYPES(declare_symbol_type_p); rb_define_singleton_method(klass, "attrset", bug_sym_attrset, 1); rb_define_singleton_method(klass, "id2str", bug_id2str, 1); + rb_define_singleton_method(klass, "static?", bug_static_p, 1); + rb_define_singleton_method(klass, "dynamic?", bug_dynamic_p, 1); } -- cgit v1.2.3