[ruby-list:13214] Re: ロックでアドバイスをいただきたいのですが

前田です。

Keisuke Minami <[e-mail]> writes:

> >mod_rubyを使うとか(ぼそっ
> 
> そんな物があったんですか。
> 知らなかったです。

一応、ftp.netlab.co.jpのcontribに置いてあります。
最新のRubyでは以下のパッチが必要です。

diff -u -r1.2 apachelib.c
--- apachelib.c	1999/03/07 12:15:15	1.2
+++ apachelib.c	1999/03/18 02:12:24
@@ -47,12 +47,12 @@
 
 static VALUE apache_server_version(VALUE self)
 {
-    return rb_str_new2((char *) ap_get_server_version());
+    return rb_str_new2(ap_get_server_version());
 }
 
 static VALUE apache_server_built(VALUE self)
 {
-    return rb_str_new2((char *) ap_get_server_built());
+    return rb_str_new2(ap_get_server_built());
 }
 
 static VALUE apache_request(VALUE self)
@@ -266,7 +266,7 @@
     request_data *data;
 
     Data_Get_Struct(self, request_data, data);
-    return rb_str_new2((char *) data->request->hostname);
+    return rb_str_new2(data->request->hostname);
 }
 
 static VALUE request_unparsed_uri(VALUE self)
@@ -274,7 +274,7 @@
     request_data *data;
 
     Data_Get_Struct(self, request_data, data);
-    return rb_str_new2((char *) data->request->unparsed_uri);
+    return rb_str_new2(data->request->unparsed_uri);
 }
 
 static VALUE request_uri(VALUE self)
@@ -282,7 +282,7 @@
     request_data *data;
 
     Data_Get_Struct(self, request_data, data);
-    return rb_str_new2((char *) data->request->uri);
+    return rb_str_new2(data->request->uri);
 }
 
 static VALUE request_filename(VALUE self)
@@ -290,7 +290,7 @@
     request_data *data;
 
     Data_Get_Struct(self, request_data, data);
-    return rb_str_new2((char *) data->request->filename);
+    return rb_str_new2(data->request->filename);
 }
 
 static VALUE request_path_info(VALUE self)
@@ -299,7 +299,7 @@
 
     Data_Get_Struct(self, request_data, data);
     if (data->request->path_info)
-	return rb_str_new2((char *) data->request->path_info);
+	return rb_str_new2(data->request->path_info);
     else
 	return Qnil;
 }
@@ -334,10 +334,10 @@
 static VALUE request_content_length(VALUE self)
 {
     request_data *data;
-    char *s;
+    const char *s;
 
     Data_Get_Struct(self, request_data, data);
-    s = (char *) ap_table_get(data->request->headers_in, "Content-Length");
+    s = ap_table_get(data->request->headers_in, "Content-Length");
     return s ? rb_str2inum(s, 10) : Qnil;
 }
 
@@ -347,7 +347,7 @@
 
     Data_Get_Struct(self, request_data, data);
     if (data->request->content_type)
-	return rb_str_new2((char *) data->request->content_type);
+	return rb_str_new2(data->request->content_type);
     else
 	return Qnil;
 }
@@ -370,7 +370,7 @@
 
     Data_Get_Struct(self, request_data, data);
     if (data->request->content_encoding)
-	return rb_str_new2((char *) data->request->content_encoding);
+	return rb_str_new2(data->request->content_encoding);
     else
 	return Qnil;
 }
@@ -431,10 +431,10 @@
 static VALUE request_aref(VALUE self, VALUE key)
 {
     request_data *data;
-    char *val;
+    const char *val;
 
     Data_Get_Struct(self, request_data, data);
-    val = (char *) ap_table_get(data->request->headers_in, STR2CSTR(key));
+    val = ap_table_get(data->request->headers_in, STR2CSTR(key));
     return val ? rb_str_new2(val) : Qnil;
 }
 
diff -u -r1.2 ruby_module.c
--- ruby_module.c	1999/03/07 12:15:15	1.2
+++ ruby_module.c	1999/03/18 02:13:02
@@ -24,6 +24,10 @@
 #include <stdlib.h>
 #include <string.h>
 
+#ifdef WIN32
+#include <windows.h>
+#endif
+
 #include "httpd.h"
 #include "http_config.h"
 #include "http_core.h"
@@ -36,6 +40,7 @@
 
 #include "ruby.h"
 #include "rubyio.h"
+#include "util.h"
 #include "version.h"
 
 #include "ruby_module.h"
@@ -127,7 +132,7 @@
 
 #if MODULE_MAGIC_NUMBER >= 19980507
     ap_add_version_component(MOD_RUBY_STRING_VERSION);
-    snprintf(ruby_version, BUFSIZ, "Ruby/%s(%s)", RUBY_VERSION, VERSION_DATE);
+    snprintf(ruby_version, BUFSIZ, "Ruby/%s(%s)", RUBY_VERSION, RUBY_RELEASE_DATE);
     ap_add_version_component(ruby_version);
 #endif
 
@@ -164,7 +169,7 @@
     ruby_server_config *conf =
 	(ruby_server_config *) ap_pcalloc(p, sizeof(ruby_server_config));
 
-    conf->required_files = ap_make_array(p, 1, sizeof(char *));
+    conf->required_files = ap_make_array(p, 1, sizeof(char*));
     conf->exported_envtbl = ap_make_table(p, 1);
     return conf;
 }
@@ -180,16 +185,42 @@
 
 static void mr_clearenv()
 {
+#ifdef WIN32
+    char *orgp, *p;
+
+    orgp = p = GetEnvironmentStrings();
+
+    if (p == NULL)
+	return;
+
+    while (*p) {
+	char buf[1024];
+	char *q;
+
+	strncpy(buf, p, sizeof buf);
+	q = strchr(buf, '=');
+	if (q)
+	    *(q+1) = '\0';
+
+	putenv(buf);
+	p += strlen(p) + 1;
+    }
+
+    FreeEnvironmentStrings(orgp);
+#else
     if (environ == origenviron) {
 	environ = ALLOC_N(char*, 1);
     }
     else {
 	char **p;
 
-	for (p = environ; *p; p++) free(*p);
+	for (p = environ; *p; p++) {
+	    if (*p) free(*p);
+	}
 	REALLOC_N(environ, char*, 1);
     }
     *environ = NULL;
+#endif
 }
 
 static void mr_setenv(const char *name, const char *value)
@@ -458,12 +489,12 @@
     return rb_stdin;
 }
 
-struct wa_arg {
+struct wcb_arg {
     request_rec *r;
     FILE *fp;
 };
 
-static VALUE write_client_block0(struct wa_arg *arg)
+static VALUE write_client_block0(struct wcb_arg *arg)
 {
     char buff[HUGE_STRING_LEN];
     int len;
@@ -490,7 +521,7 @@
 
 static int write_client_block(request_rec *r)
 {
-    struct wa_arg arg;
+    struct wcb_arg arg;
     int state;
     int pipes[2];
     FILE *file;
@@ -551,7 +582,7 @@
     VALUE thread;
     ruby_dir_config *dconf = NULL;
     int retval, state;
-    char *kcode_orig = NULL;
+    const char *kcode_orig = NULL;
 
     (void) ap_acquire_mutex(mod_ruby_mutex);
 

> でも前にmod_perlに苦労させられた記憶が・・・。
> 何故かリクエストした内容とまったく別の画面がまれに現れてしまって
> 使い物にならなかったんです。
> mod_rubyの方ではそういう現象は発見されていませんよね。

一応手元ではまともに動いているようなのですが、まだテストは不十分です。
# バグ報告は歓迎します。

-- 
前田 修吾