[ruby-dev:7501] [PATCH] mswin32 tcltklib for Tcl/Tk 8.0jp

小松です。

mswin32のTcl/Tk 8.0 日本語化パッチ用のパッチです。

Tcl/Tk 8.0 日本語化パッチのWindows用バイナリ (tcltk805jp.zip) を
    http://www.sra.co.jp/people/m-hirano/tcltkjp/
からもってきて、[ruby-dev:7500]のパッチをあてた状態で、
環境変数LIBとINCLUDEを適当に設定して、

    set CONFIGURE_ARGS=--with-tklib=tk80jp --with-tcllib=tcl80jp
    cd win32
    ntsetup
    nmake
    nmake install

で確認しました。

Index: ext/tcltklib/extconf.rb
===================================================================
RCS file: /home/cvs/ruby/ext/tcltklib/extconf.rb,v
retrieving revision 1.1.1.2.2.2
diff -u -p -r1.1.1.2.2.2 extconf.rb
--- ext/tcltklib/extconf.rb	1999/07/28 09:26:52	1.1.1.2.2.2
+++ ext/tcltklib/extconf.rb	1999/07/30 12:15:44
@@ -39,8 +39,8 @@ def find_tk(tklib)
 end
 
 if have_header("tcl.h") && have_header("tk.h") &&
-    find_library("X11", "XOpenDisplay",
-		 "/usr/X11/lib", "/usr/X11R6/lib", "/usr/openwin/lib") &&
+    (/mswin32/ =~ RUBY_PLATFORM || find_library("X11", "XOpenDisplay",
+	"/usr/X11/lib", "/usr/X11R6/lib", "/usr/openwin/lib")) &&
     find_tcl(tcllib) &&
     find_tk(tklib)
   create_makefile("tcltklib")
Index: ext/tcltklib/tcltklib.c
===================================================================
RCS file: /home/cvs/ruby/ext/tcltklib/tcltklib.c,v
retrieving revision 1.1.1.2.2.7
diff -u -p -r1.1.1.2.2.7 tcltklib.c
--- ext/tcltklib/tcltklib.c	1999/07/22 10:37:25	1.1.1.2.2.7
+++ ext/tcltklib/tcltklib.c	1999/07/30 12:15:45
@@ -4,6 +4,10 @@
  *		Oct. 24, 1997	Y. Matsumoto
  */
 
+#if defined(NT)
+# include <windows.h>
+#endif
+
 #include <stdio.h>
 #include <string.h>
 #include <tcl.h>

--
小松克行 / Katsuyuki Komatsu <[e-mail]>