[ruby-dev:13397] Re: TCL_PACKAGE_PATH

永井＠知能．九工大です．

From: WATANABE Hirofumi <[e-mail]>
Subject: [ruby-dev:13391] TCL_PACKAGE_PATH
Date: Tue, 29 May 2001 13:52:32 +0900
Message-ID: <[e-mail]>
eban> Windows版Tcl/Tkにはtcl_pkgPathがないらしく、
eban> % ruby tkhello.rb
eban> /usr/local/lib/ruby/1.6/tk.rb:729:in `_invoke': can't read "tcl_pkgPath": no such variable (RuntimeError)
eban>         from /usr/local/lib/ruby/1.6/tk.rb:729
eban>         from tkhello.rb:1:in `require'
eban>         from tkhello.rb:1
eban> となってしまいます。

すみません．不注意でした．

eban> これってwindowsの環境だったら
eban>   1. とりあえずそれらしい値でTCL_PACKAGE_PATH = '/usr/local/lib'とする
eban>   2. それも変だからTCL_PACKAGE_PATH = ''とする
eban>   3. rescueしてなかったことにする
eban> のどれがいいでしょう？
eban> 
eban> 該当する行は
eban>   TCL_PACKAGE_PATH = INTERP._invoke("set", "tcl_pkgPath")
eban> です。

AUTO_PATH と TCL_PACKAGE_PATH とは変更が許されるべきですから，
この形ではまずかったです．
共に TkVariable (TkVarAccess) として扱うように変更しました．
結果，TCL_PACKAGE_PATH を value メソッドなどで参照しない限り，
例外は発生しなくなるはずです．
新たにパスを加えようとする場合，そのパスは一般に環境依存であるため，
環境に依存した例外が発生するのはやむを得ないと考えようと思いますが，
いかがでしょうか？

なお，AUTO_PATH については，ルールとして

  (1) auto_path 変数が存在するならその値
  (2) 存在しなければ env(TCLLIBPATH) の値
  (3) それも存在しなければ，info library の値

ということになっていますから，
パッチのような形でいいだろうと思います．

--
                                         永井 秀利 （九工大 知能情報）
                                             [e-mail]

--- tk.rb.old	Fri Apr  6 01:27:54 2001
+++ tk.rb	Tue May 29 15:38:16 2001
@@ -665,6 +665,10 @@
   include TkCore
   extend TkPackage
 
+  def add_path(path)
+    Tk::AUTO_PATH.value = Tk::AUTO_PATH.to_a << path
+  end
+
   def forget(package)
     tk_call('package', 'forget', package)
     nil
@@ -726,9 +730,6 @@
   TK_LIBRARY  = INTERP._invoke("set", "tk_library")
   LIBRARY     = INTERP._invoke("info", "library")
 
-  TCL_PACKAGE_PATH = INTERP._invoke("set", "tcl_pkgPath")
-  AUTO_PATH = tk_split_simplelist(INTERP._invoke("set", "auto_path"))
-
   PLATFORM = Hash[*tk_split_simplelist(INTERP._eval('array get tcl_platform'))]
 
   JAPANIZED_TK = (INTERP._invoke("info", "commands", "kanji") != "")
@@ -1377,6 +1378,21 @@
       INTERP._eval(format('global %s; set %s %s', @id, @id, s))
     end
   end
+end
+
+module Tk
+  begin
+    auto_path = INTERP._invoke('set', 'auto_path')
+  rescue
+    begin
+      auto_path = INTERP._invoke('set', 'env(TCLLIBPATH)')
+    rescue
+      auto_path = Tk::LIBRARY
+    end
+  end
+  AUTO_PATH = TkVarAccess.new('auto_path', auto_path)
+
+  TCL_PACKAGE_PATH = TkVarAccess.new('tcl_pkgPath')
 end
 
 module TkSelection