mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
01134984ef
* ext/-test-/symbol/init.c (sym_pinneddown_p): return ID value or nil for debugging. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@57605 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
31 lines
662 B
C
31 lines
662 B
C
#include "ruby.h"
|
|
|
|
#define init(n) {void Init_##n(VALUE klass); Init_##n(klass);}
|
|
|
|
static VALUE
|
|
sym_find(VALUE dummy, VALUE sym)
|
|
{
|
|
return rb_check_symbol(&sym);
|
|
}
|
|
|
|
static VALUE
|
|
sym_pinneddown_p(VALUE dummy, VALUE sym)
|
|
{
|
|
ID id = rb_check_id(&sym);
|
|
if (!id) return Qnil;
|
|
#ifdef ULL2NUM
|
|
return ULL2NUM(id);
|
|
#else
|
|
return ULONG2NUM(id);
|
|
#endif
|
|
}
|
|
|
|
void
|
|
Init_symbol(void)
|
|
{
|
|
VALUE mBug = rb_define_module("Bug");
|
|
VALUE klass = rb_define_class_under(mBug, "Symbol", rb_cSymbol);
|
|
rb_define_singleton_method(klass, "find", sym_find, 1);
|
|
rb_define_singleton_method(klass, "pinneddown?", sym_pinneddown_p, 1);
|
|
TEST_INIT_FUNCS(init);
|
|
}
|