[ruby-list:7782] xtoolkit-0.0 patch

中村 のりつぐです。

xtoolkit-0.0 がコンパイル時に悲鳴をあげて気持ち悪いので、
ruby-1.1b9 用に patch を作ってみました。


--- xtoolkit.h.org	Mon Dec  1 03:44:28 1997
+++ xtoolkit.h	Tue Apr 28 21:53:47 1998
@@ -5,8 +5,6 @@
 
 extern VALUE cData;
 
-extern void ArgError(char *format, ...);
-extern void TypeError(char *format, ...);
 extern VALUE obj_alloc(VALUE class);
 extern VALUE rb_define_class_under(VALUE under, char *name, VALUE super);
 extern VALUE f_lambda(void);
--- xt.c.org	Mon Dec  1 04:51:47 1997
+++ xt.c	Tue Apr 28 21:45:54 1998
@@ -196,18 +196,18 @@
 
 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;
     }
     widget = XtOpenApplication(&app,
 			       RSTRING(name)->ptr,


       中村典嗣  E-mail: [e-mail]