From 7e827e66944e4a04c64eb72dde794e81e9d0d1b0 Mon Sep 17 00:00:00 2001 From: nobu Date: Fri, 24 Sep 2004 19:05:07 +0000 Subject: * hash.c: iterator functions for hash_foreach() should return enum st_retval. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6960 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 11 ++++++++--- hash.c | 32 ++++++++++++++++---------------- 2 files changed, 24 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index 01a40a942e..9dd166cd2b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Sat Sep 25 04:04:52 2004 Nobuyoshi Nakada + + * hash.c: iterator functions for hash_foreach() should return enum + st_retval. + Sat Sep 25 01:52:49 2004 Yukihiro Matsumoto * struct.c (rb_struct_s_members): wrong call of struct_members. @@ -287,7 +292,7 @@ Fri Sep 17 15:01:57 2004 Hidetoshi NAGAI * ext/tk/lib/multi-tk.rb: support calling 'mainloop' on slave interpreters (however, the 'real' eventloop must be run on the - Default Master IP) + Default Master IP) * ext/tk/lib/remote-tk.rb: follow the changes of ext/tk/lib/multi-tk.rb @@ -513,7 +518,7 @@ Sun Sep 12 23:53:17 2004 Hirokazu Yamamoto Sun Sep 12 02:41:58 2004 Hidetoshi NAGAI - * ext/tcltklib/tcltklib.c: add TclTkIp#allow_ruby_exit? and + * ext/tcltklib/tcltklib.c: add TclTkIp#allow_ruby_exit? and allow_ruby_exit= * ext/tk/lib/multi-tk.rb: ditto. @@ -562,7 +567,7 @@ Fri Sep 10 02:43:54 2004 Dave Thomas Thu Sep 9 13:58:56 2004 Hidetoshi NAGAI - * ext/tcltklib/tcltklib.c (ip_init): change flag value for setting + * ext/tcltklib/tcltklib.c (ip_init): change flag value for setting 'argv' and 'argv0' variable * ext/tk/lib/remote-tk.rb: follow changes of multi-tk.rb diff --git a/hash.c b/hash.c index 3615b409c9..3bde16eecf 100644 --- a/hash.c +++ b/hash.c @@ -318,7 +318,7 @@ to_hash(hash) return rb_convert_type(hash, T_HASH, "Hash", "to_hash"); } -static int +static enum st_retval rb_hash_rehash_i(key, value, tbl) VALUE key, value; st_table *tbl; @@ -537,7 +537,7 @@ rb_hash_default_proc(hash) return Qnil; } -static int +static enum st_retval key_i(key, value, args) VALUE key, value; VALUE *args; @@ -628,7 +628,7 @@ struct shift_var { VALUE val; }; -static int +static enum st_retval shift_i(key, value, var) VALUE key, value; struct shift_var *var; @@ -802,7 +802,7 @@ rb_hash_select(hash) return result; } -static int +static enum st_retval clear_i(key, value, dummy) VALUE key, value, dummy; { @@ -866,7 +866,7 @@ rb_hash_aset(hash, key, val) return val; } -static int +static enum st_retval replace_i(key, val, hash) VALUE key, val, hash; { @@ -1084,7 +1084,7 @@ rb_hash_each(hash) return hash; } -static int +static enum st_retval to_a_i(key, value, ary) VALUE key, value, ary; { @@ -1141,7 +1141,7 @@ rb_hash_sort(hash) return entries; } -static int +static enum st_retval inspect_i(key, value, str) VALUE key, value, str; { @@ -1235,7 +1235,7 @@ rb_hash_to_hash(hash) return hash; } -static int +static enum st_retval keys_i(key, value, ary) VALUE key, value, ary; { @@ -1268,7 +1268,7 @@ rb_hash_keys(hash) return ary; } -static int +static enum st_retval values_i(key, value, ary) VALUE key, value, ary; { @@ -1327,7 +1327,7 @@ rb_hash_has_key(hash, key) return Qfalse; } -static int +static enum st_retval rb_hash_search_value(key, value, data) VALUE key, value, *data; { @@ -1370,7 +1370,7 @@ struct equal_data { st_table *tbl; }; -static int +static enum st_retval equal_i(key, val1, data) VALUE key, val1; struct equal_data *data; @@ -1460,7 +1460,7 @@ rb_hash_eql(hash1, hash2) return hash_equal(hash1, hash2, Qtrue); } -static int +static enum st_retval rb_hash_invert_i(key, value, hash) VALUE key, value; VALUE hash; @@ -1492,7 +1492,7 @@ rb_hash_invert(hash) return h; } -static int +static enum st_retval rb_hash_update_i(key, value, hash) VALUE key, value; VALUE hash; @@ -1502,7 +1502,7 @@ rb_hash_update_i(key, value, hash) return ST_CONTINUE; } -static int +static enum st_retval rb_hash_update_block_i(key, value, hash) VALUE key, value; VALUE hash; @@ -2273,7 +2273,7 @@ env_invert() return rb_hash_invert(env_to_hash()); } -static int +static enum st_retval env_replace_i(key, val, keys) VALUE key, val, keys; { @@ -2303,7 +2303,7 @@ env_replace(env, hash) return env; } -static int +static enum st_retval env_update_i(key, val) VALUE key, val; { -- cgit v1.2.3