[ruby-list:10140] xtoolkit patch

RUby から Motif を使ってみようと思って、xtoolkit-0.0 を使おうとしたので
すが、ruby-1.1c6 ではそのままでは make できませんでした。

色々いじって、なんとか動くようにできたので、パッチ形式にしてみました。
ただし、Solaris 2.6 でしか確認してません。

このパッチを適用後、次の手順でインストールできます。

1. cd xtoolkit/ext/xtoolkit
2. ruby ./extconf.rb
3. grep include /usr/include/Xm/XmAll.h |\
   ruby -ne '$_ =~ /<(.*)>/; print File.open("/usr/include/#{$1}").read' |\
   ruby ./mkconst.rb > motif.const
   # これはSolaris2.6 の場合です。環境に応じて適当に変更してください。
4. make
5. make install
--
民斗 <[e-mail]>

---<cut>------<cut>------<cut>------<cut>------<cut>------<cut>------<cut>---

diff -ur xtoolkit.orig/ext/xtoolkit/depend xtoolkit/ext/xtoolkit/depend
--- xtoolkit.orig/ext/xtoolkit/depend	Mon Dec  1 04:31:52 1997
+++ xtoolkit/ext/xtoolkit/depend	Fri Oct 16 01:07:20 1998
@@ -1,3 +1,3 @@
 athena.o: athena.c
 motif.o: motif.c
-xt.o: xt.c xtoolkit.h ../../ruby.h ../../config.h ../../defines.h
+xt.o: xt.c xtoolkit.h
diff -ur xtoolkit.orig/ext/xtoolkit/extconf.rb xtoolkit/ext/xtoolkit/extconf.rb
--- xtoolkit.orig/ext/xtoolkit/extconf.rb	Sun Nov 30 21:53:28 1997
+++ xtoolkit/ext/xtoolkit/extconf.rb	Fri Oct 16 01:31:17 1998
@@ -1,3 +1,4 @@
+require "mkmf"
 include FileTest
 
 $CFLAGS = "-Wall"
diff -ur xtoolkit.orig/ext/xtoolkit/mkconst.rb xtoolkit/ext/xtoolkit/mkconst.rb
--- xtoolkit.orig/ext/xtoolkit/mkconst.rb	Mon Dec  1 00:06:25 1997
+++ xtoolkit/ext/xtoolkit/mkconst.rb	Fri Oct 16 01:41:55 1998
@@ -1,6 +1,7 @@
 $mod = "mMotif"
 $prefix = "Xm"
 $in_enum = false
+m = {}
 
 while gets
   case $_
@@ -12,6 +13,8 @@
     if $in_enum and /^\s*#{$prefix}([A-Za-z_0-9]+)/
       xc = $1.upcase
       rc = if xc =~ /^[0-9]/ then "N" + xc else xc end
+      if m[rc] then next end
+      m[rc] = true
       if rc.length < 18
 	print "    rb_define_const(#{$mod}, \"#{rc}\", INT2NUM(Xm#{xc}));\n"
       else
diff -ur xtoolkit.orig/ext/xtoolkit/xt.c xtoolkit/ext/xtoolkit/xt.c
--- xtoolkit.orig/ext/xtoolkit/xt.c	Mon Dec  1 04:51:47 1997
+++ xtoolkit/ext/xtoolkit/xt.c	Fri Oct 16 01:06:41 1998
@@ -196,19 +196,20 @@
 
 static VALUE Application_initialize(VALUE self, VALUE name)
 {
-    extern VALUE Progname;
-    extern VALUE Argv;
+    extern VALUE rb_progname;
+    extern VALUE rb_argv;
     XtAppContext app;
     Widget widget;
-    int i, argc = RARRAY(Argv)->len + 1;
+    int i, argc = RARRAY(rb_argv)->len + 1;
     char **argv;
 
     Check_Type(name, T_STRING);
     argv = (char **) alloca(sizeof(char *) * argc);
-    argv[0] = RSTRING(Progname)->ptr;
+    argv[0] = RSTRING(rb_progname)->ptr;
     for (i = 1; i < argc; i++) {
-	argv[i] = RSTRING(RARRAY(Argv)->ptr[i - 1])->ptr;
+	argv[i] = RSTRING(RARRAY(rb_argv)->ptr[i - 1])->ptr;
     }
+    XtSetLanguageProc(NULL, NULL, NULL);
     widget = XtOpenApplication(&app,
 			       RSTRING(name)->ptr,
 			       NULL,