summaryrefslogtreecommitdiff
path: root/hash.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2015-11-10 07:57:17 (GMT)
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2015-11-10 07:57:17 (GMT)
commitfbe967ec02cb65a7efa3fb8f3d747cf6f620dde1 (patch)
treec01bf08a7dfae15b3519ece7383fe0d74f005fff /hash.c
parent911b1c6b06a89603dfc9976a021b85e505221b7b (diff)
hash.c: to_proc
* hash.c (rb_hash_to_proc): new method Hash#to_proc. [Feature #11653] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@52520 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'hash.c')
-rw-r--r--hash.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/hash.c b/hash.c
index beaaad6..5b1abbd 100644
--- a/hash.c
+++ b/hash.c
@@ -2766,6 +2766,18 @@ rb_hash_gt(VALUE hash, VALUE other)
return hash_le(other, hash);
}
+static VALUE
+hash_proc_call(VALUE key, VALUE hash, int argc, const VALUE *argv, VALUE passed_proc)
+{
+ return rb_hash_aref(hash, key);
+}
+
+static VALUE
+rb_hash_to_proc(VALUE hash)
+{
+ return rb_proc_new(hash_proc_call, hash);
+}
+
static int path_tainted = -1;
static char **origenviron;
@@ -4132,6 +4144,7 @@ Init_Hash(void)
rb_define_method(rb_cHash,"to_a", rb_hash_to_a, 0);
rb_define_method(rb_cHash,"inspect", rb_hash_inspect, 0);
rb_define_alias(rb_cHash, "to_s", "inspect");
+ rb_define_method(rb_cHash,"to_proc", rb_hash_to_proc, 0);
rb_define_method(rb_cHash,"==", rb_hash_equal, 1);
rb_define_method(rb_cHash,"[]", rb_hash_aref, 1);