[#4754] Now,I am starting ruby. — mamoru@... (Mamoru Matushita)

先日、初めて投稿したつもりだったのですが間違えて

14 messages 1997/10/02

[#4891] mixin - singleton method inheritance, const etc... — shugo@... (Shugo Maeda)

前田です。

13 messages 1997/10/10

[#5000] ruby 1.0-971015 released — matz@... (Yukihiro Matsumoto)

まつもと ゆきひろです

14 messages 1997/10/15

[#5056] RubyでOODB — hisanori@...

松尾です。

20 messages 1997/10/20
[#5057] Re: RubyでOODB — matz@... (Yukihiro Matsumoto) 1997/10/20

まつもと ゆきひろです

[#5065] Re: RubyでOODB — hisanori@... 1997/10/20

松尾です。

[#5066] Re: RubyでOODB — matz@... (Yukihiro Matsumoto) 1997/10/20

まつもと ゆきひろです

[ruby-list:5133] Re: ruby & tk(wish)

From: matz@... (Yukihiro Matsumoto)
Date: 1997-10-24 10:32:55 UTC
List: ruby-list #5133
まつもと ゆきひろです

In message "[ruby-list:5132] Re: ruby & tk(wish)"
    on 97/10/24, Yuji Shigehiro <sigehiro@asama.rd.ecip.osaka-u.ac.jp> writes:

|しげひろです. (ひらがなにしました (^^))

はやってますねえ.

|> Subject: [ruby-list:4677] Re: tcltk library
|> Message-Id: <199709260414.NAA27484@picachu.netlab.co.jp>
|> |メールが多すぎて忘れたのですが、
|> うーん,[4516]のextconf.rbで直るものだと思っていたのですが.
|> |[ruby-list:4516] の extconf.rb は使ってます。
|> ということなんですねえ.
|
|となりました...

そうか.そうでしたね.ぼけてるなあ.

今日tk.rbをtcltklib.soベースにしようと思って手をいれました.
こういうextconf.rbではどうでしょう?

その他も直しましたが,これは後で公開します.
で,バグがあったので,パッチを当てて下さい.

--
# extconf.rb for tcltklib

def search_file(var, include, *path)
  for i in path.reverse!
    ary = Dir[i+"/"+include]
    if ary.size > 0
      path = ary.pop
      var << File.dirname(path)
      return File.basename(path)
    end
  end
end

$includes = []
search_file($includes, 
	    "tcl.h",
	    "/usr/include/tcl*",
	    "/usr/include",
	    "/usr/local/include/tcl*",
	    "/usr/local/include")
search_file($includes, 
	    "tk.h",
	    "/usr/include/tk*",
	    "/usr/include",
	    "/usr/local/include/tk*",
	    "/usr/local/include")
search_file($includes, 
	    "Xlib.h",
	    "/usr/include",
	    "/usr/X11*/include",
	    "/usr/include/X11",
	    "/usr/X11*/include/X11")

$CFLAGS = "-Wall " + $includes.collect{|path| "-I" + path}.join(" ")

$libraries = []
tcllibfile = search_file($libraries,
			 "libtcl{,7*,8*}.{a,so}",
			 "/usr/lib",
			 "/usr/local/lib")
tcllibfile.sub!(/^lib/, '')
tcllibfile.sub!(/\.(a|so)$/, '')
tklibfile =  search_file($libraries,
			 "libtk{,4*,8*}.{a,so}",
			 "/usr/lib",
			 "/usr/local/lib")
tklibfile.sub!(/^lib/, '')
tklibfile.sub!(/\.(a|so)$/, '')
search_file($libraries,
	    "libX11.{a,so}",
	    "/usr/lib",
	    "/usr/X11*/lib")

$LDFLAGS = $libraries.collect{|path| "-L" + path}.join(" ")

if have_header("tcl.h") &&
    have_header("tk.h") &&
    have_library("X11", "XOpenDisplay") &&
    have_library("m", "log")
    have_library("dl", "dlopen")
    have_library(tcllibfile, "Tcl_FindExecutable") &&
    have_library(tklibfile, "Tk_Init") &&
  create_makefile("tcltklib")
end
--
--- dir.c~	Wed Sep 24 10:19:14 1997
+++ dir.c	Fri Oct 24 15:05:09 1997
@@ -307,8 +307,17 @@
     p = s;
     lbrace = rbrace = 0;
     while (*p) {
-	if (*p == '{' && !lbrace) lbrace = p;
-	if (*p == '}' && lbrace) rbrace = p;
+	if (*p == '{') {
+	    lbrace = p;
+	    break;
+	}
+	p++;
+    }
+    while (*p) {
+	if (*p == '}' && lbrace) {
+	    rbrace = p;
+	    break;
+	}
 	p++;
     }
 

In This Thread