[ruby-list:11872] Re: Array クラス

あおきです。

  In Mail "[ruby-list:11835] Re: Array クラス"
    Takahiro Maebashi <[e-mail]> wrote:

> 前橋です。
    (略)
> 実は mine は現在の ruby では動きません。使っている人もいないだろうと思っ
> て放ってあります。ちなみに西さんの SimpleClassBrowser は以下にあります。

c9で動くようにしてみましたがどうでしょう。
1.3ではパースエラーになって動きませんが。

eventtagsのあたりがちょっと不安なのですが、うちでは動きました。

# 自分と名前が同じなのでつい…
-------------------------------------------------------------------
あおきみねろう＠一橋大学
  mail to: [e-mail]
  website: http://www1.u-netsurf.ne.jp/~brew/mine

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
--- mine.org	Tue Feb  2 10:24:16 1999
+++ mine	Tue Feb  2 10:45:27 1999
@@ -391,7 +391,7 @@
     me
   end
 end
-require 'Inspector'
+#require 'Inspector'
 
 ######################################################################
 
@@ -1312,9 +1312,9 @@
     }
 
     @command_tags.unshift tag
-    eventtags = eventtags
-    eventtags.unshift tag
-    eventtags eventtags
+    et = eventtags
+    et.unshift tag
+    eventtags et
 
     @init_commandtags = commandtags
     @init_eventtags = eventtags
@@ -2252,8 +2252,8 @@
     @history_cursor = 0
     @history = []
     @saved = [0]
-    @modified? = false
-    @read_only? = false
+    @modifiedp = false
+    @read_onlyp = false
     def @history.push_aggregate(arg)
       if self[-1].kind_of? arg.type
       end
@@ -2264,7 +2264,7 @@
   end
 
   def modify(bool=true)
-    @modified? = bool
+    @modifiedp = bool
     changed
     notify_observers(mode)
     @saved = [@history.length] unless bool
@@ -2296,7 +2296,7 @@
       @history[@history_cursor].undo
     end
     if @saved.include? @history_cursor
-      @modified? = false
+      @modifiedp = false
       changed
       notify_observers(mode)
       @saved.push @history.length
@@ -3204,20 +3204,22 @@
 ######################################################################
 
 class FS
-  attr_reader :dir, :dir?, :exist?
+  attr_reader :dir
+	def dir? ; @dirp ; end
+	def exist? ; @existp ; end
 
   def initialize(path=Dir.getwd)
     @path = File.expand_path(path)
     if FileTest.directory? @path
       @dir = @path
-      @dir? = true
+      @dirp = true
     else
       @dir = File.dirname(@path)
-      @dir? = false
+      @dirp = false
       if FileTest.exist? @path
-	@exist? = true
+	@existp = true
       else
-	@exist? = false
+	@existp = false
       end
     end
     if @dir !~ /\/$/
@@ -3226,7 +3228,7 @@
   end
 
   def basename
-    if @dir?
+    if @dirp
       ''
     else
       File.basename(@path)

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^