call initialize

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

4 files changed, 44 insertions, 13 deletions

diff --git a/ext/curses/curses.c b/ext/curses/curses.c
index 7826450e8c..4c29202277 100644
--- a/ext/curses/curses.c
+++ b/ext/curses/curses.c
@@ -390,11 +390,15 @@ window_s_new(class, lines, cols, top, left)
     VALUE top;
     VALUE left;
 {
+    VALUE w;
     WINDOW *window;
     
     window = newwin(NUM2INT(lines), NUM2INT(cols), NUM2INT(top), NUM2INT(left));
     wclear(window);
-    return prep_window(class, window);
+    w = prep_window(class, window);
+    obj_call_init(w);
+
+    return w;
 }
 
 /* def subwin(lines, cols, top, left) */
diff --git a/ext/dbm/dbm.c b/ext/dbm/dbm.c
index cb6a63475a..98c406ace0 100644
--- a/ext/dbm/dbm.c
+++ b/ext/dbm/dbm.c
@@ -83,6 +83,7 @@ fdbm_s_open(argc, argv, class)
     obj = Data_Make_Struct(class,struct dbmdata,0,free_dbm,dbmp);
     dbmp->di_dbm = dbm;
     dbmp->di_size = -1;
+    obj_call_init(obj);
 
     return obj;
 }
diff --git a/ext/md5/md5init.c b/ext/md5/md5init.c
index 348f64bcda..894f52a849 100644
--- a/ext/md5/md5init.c
+++ b/ext/md5/md5init.c
@@ -74,6 +74,7 @@ md5_new(argc, argv, class)
     if (!NIL_P(arg)) {
 	md5_update(obj, arg);
     }
+    obj_call_init(obj);
 
     return obj;
 }
diff --git a/ext/socket/socket.c b/ext/socket/socket.c
index fc82854a4d..0b3090124a 100644
--- a/ext/socket/socket.c
+++ b/ext/socket/socket.c
@@ -540,8 +540,11 @@ static VALUE
 tcp_s_open(class, host, serv)
     VALUE class, host, serv;
 {
+    VALUE s;
     Check_SafeStr(host);
-    return open_inet(class, host, serv, INET_CLIENT);
+    s = open_inet(class, host, serv, INET_CLIENT);
+    obj_call_init(s);
+    return s;
 }
 
 #ifdef SOCKS
@@ -550,6 +553,7 @@ socks_s_open(class, host, serv)
     VALUE class, host, serv;
 {
     static init = 0;
+    VALUE s;
 
     if (init == 0) {
 	SOCKSinit("ruby");
@@ -557,7 +561,9 @@ socks_s_open(class, host, serv)
     }
 	
     Check_SafeStr(host);
-    return open_inet(class, host, serv, INET_SOCKS);
+    s = open_inet(class, host, serv, INET_SOCKS);
+    obj_call_init(s);
+    return s;
 }
 #endif
 
@@ -567,12 +573,14 @@ tcp_svr_s_open(argc, argv, class)
     VALUE *argv;
     VALUE class;
 {
-    VALUE arg1, arg2;
+    VALUE arg1, arg2, s;
 
     if (rb_scan_args(argc, argv, "11", &arg1, &arg2) == 2)
-	return open_inet(class, arg1, arg2, INET_SERVER);
+	s = open_inet(class, arg1, arg2, INET_SERVER);
     else
-	return open_inet(class, 0, arg1, INET_SERVER);
+	s = open_inet(class, 0, arg1, INET_SERVER);
+    obj_call_init(s);
+    return s;
 }
 
 static VALUE
@@ -801,7 +809,11 @@ static VALUE
 udp_s_open(class)
     VALUE class;
 {
-    return sock_new(class, socket(AF_INET, SOCK_DGRAM, 0));
+    VALUE s;
+
+    s = sock_new(class, socket(AF_INET, SOCK_DGRAM, 0));
+    obj_call_init(s);
+    return s;
 }
 
 static void
@@ -944,7 +956,10 @@ static VALUE
 unix_s_sock_open(sock, path)
     VALUE sock, path;
 {
-    return open_unix(sock, path, 0);
+    VALUE s;
+    s = open_unix(sock, path, 0);
+    obj_call_init(s);
+    return s;
 }
 
 static VALUE
@@ -965,10 +980,13 @@ unix_path(sock)
 }
 
 static VALUE
-unix_svr_s_open(class, path)
-    VALUE class, path;
+unix_svr_s_open(sock, path)
+    VALUE sock, path;
 {
-    return open_unix(class, path, 1);
+    VALUE s;
+    s = open_unix(sock, path, 1);
+    obj_call_init(s);
+    return s;
 }
 
 static VALUE
@@ -1121,18 +1139,25 @@ sock_s_open(class, domain, type, protocol)
 {
     int fd;
     int d, t;
+    VALUE s;
 
     setup_domain_and_type(domain, &d, type, &t);
     fd = socket(d, t, NUM2INT(protocol));
     if (fd < 0) rb_sys_fail("socket(2)");
-    return sock_new(class, fd);
+    s = sock_new(class, fd);
+    obj_call_init(s);
+
+    return s;
 }
 
 static VALUE
 sock_s_for_fd(class, fd)
     VALUE class, fd;
 {
-    return sock_new(class, NUM2INT(fd));
+    VALUE s = sock_new(class, NUM2INT(fd));
+
+    obj_call_init(s);
+    return s;
 }
 
 static VALUE