[ruby-list:2052] Methods.htm 作成 tool

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Tue_Feb__4_23:18:17_1997)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

出沢です

「module の関数も取り込み出したんで、private も取り扱う用に
なったんですね」、っていわれてはて、、、と思ってたんですが、
みてみたら rb_define_module_function でした。
たしか 組み込み class にincludeされている enum と compare
には 無かった定義だと調べた気はするが、、、
わすれた。


----Next_Part(Tue_Feb__4_23:18:17_1997)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

#!/usr/local/bin/ruby
# メソッドの ovwerideがあったとき、すべての super の LIST を作る
# クラス名 は 最後に定義したもの。 link はマニュアルにあるものに張る。

#    cArray   b_define_class("Array", cObject);
#    rb_include_module(cArray, mEnumerable);
#
#    rb_define_singleton_method(cArray, "new", ary_s_new, -1);
#    rb_define_singleton_method(cArray, "[]", ary_s_create, -1);
#    rb_define_method(cArray, "to_s", ary_to_s, 0);
#    rb_define_method(cArray, "inspect", ary_inspect, 0);
require "getopts"
getopts( "i" ) # Index
# grobals
  $ManDirusr/man/html/ruby-man/man/"  # dir of *.html
  $Anker  ash.new # anker-list  from $ManDir/*.html
		    # key   ethod name(String) "plus", "class.grob" ,,
		    # value  [class-name,anker], [  ], [  ],,,]
  $CLASS
sh.new   # classID object of CLS
  
  # print format
  $tail%s</TD><TD> | </TD>","%s</TD></TR>\n"]
  $format0TD>%s%s</A></TD><TD>"
  $format1TD>%s</TD><TD>"

  $RenamMethod # method name rewrite rule
    "%" mod",  "&" and",  "<"  gt",   "<ge",   "<<" lshift",
    "**"pow",  "|" or",   ">"  lt",   ">le",   ">>"rshift",
    "/" div",  "^" xor",  " equal","<cmp",  "[]" aref",
    "+" plus", "~" inv",  ""eqq",  " match","[]>"aset",
    "-" minus","+@"uplus","-@" uminus",  
    "*" mul", "times" mul"
   } 
  def rename(methodName)
      # Rename special method
      href  ethodName.dup
      href  RenamMethod[href] if $RenamMethod[href]
      href.sub(/\?$/,"_p").sub(/!$/,"_bang")
  end 

#################  class define ######
class CLS
  # propaty
  #  @classtype(Str)        "class", "module", "boot", or nil
  #  @name(Str) @super(Str or nil)
  #  @modules(Ary)    classID of included module
  #  @method(Hash)      Key:method-name(Str)  Value:class-name(Str)
  #  @classmethod(Hash) same as @method. Key:method-name without class-name
  #  @methods
  #  @classmethods(Hash)
  #	all methods from  methoclass, module, super, super-super 
  #	Key:method-name(Str)  Value: Array of class-name(Str)
  #  @supers(Ary)  Array of classID as [super, super-super,super-super,,,,]
  #

  def setclass(name,superClassl,classtypel)
	@name
me  ; @super  uperClass ; @classtype  lasstype
  end
  def classtype
	@classtype
  end
  def name
	@name
  end
  def setModule(incModule) 
    if @modules
      @modules.push(incModule)
    else
      @modules �癨梔釿酪糒跂    end
  end
  def modules
	 @modules
  end
  def setMethod(method)
	# allMethod により、子供に取り込まれるため、どのクラスからの
	# method かを明確にするため、値として クラス名(Str)を持たせる
    if @method
      @method[method]name]
    else
      @methodethod@name]}
    end
  end
  def setClassMethod(method)
    if @classmethod
      @classmethod[method]name]
    else
      @classmethodethod@name]}
    end
  end
  def getMethod
     @method
  end
  def addHash(a,b)
    if a
      c  .dup
      if b
	b.each{|k,v| 
	  if c[k] nil
	    c[k]	  else
	    c[k]+ 
	  end
	} 
      end
    end
    c
  end
  
  def allClassMethod
    unless @classmethods
      if @classmethod 
        @classmethodslassmethod.dup
      else
        @classmethods
sh.new
      end
    end
    if $CLASS[@super]
      @classmethodsHash(@classmethods,$CLASS[@super].allClassMethod)
    end
    @classmethods
  end

  def allMethod
    unless @methods
      if @method 
        @methodsethod.dup
      else
        @methods
sh.new
      end

      if @modules && @modules.size > 0
        @modules.each{ |modul| 
          if $CLASS[modul]
            @methodsュdHash(@methods, $CLASS[modul].allMethod)
          end
        }
      end

      if $CLASS[@super]
        @methodsュdHash(@methods,$CLASS[@super].allMethod)
      end
    end
    @methods
  end

  def allSuper
    unless @supers  # @super is classID, @supers is Array of String
      @supersay.new
      if $CLASS[@super]
        @supers << [$CLASS[@super].name] 
	@supers + CLASS[@super].allSuper
      end
    end
    @supers
  end
  ########### print out method ##########
  def printHREFforClass
    if allSuper.size>0
	@supersList   &#60 " + @supers.join(" < ")
     else
	@supersList  "
    end
    printf("<TR> <TD><A HREF#%s\">%s</A></TD><TD>%s</TD></TR>\n",
			@name,@name,@supersList)
  end

  def printClassHeader
    printf("<p><A NAME%s\"></A><A href%s.html\"><font size0%s</font></A>%s<br>\n<TABLE BORDER\n", 
    	@name,@name,@name,@supersList)
  end

  def printClassMethod
    allClassMethod # @classmethods(Hash) made
    if @classmethods.size>0
      @right # 0: left column, 1: right column
      print "<TR> <TD></TD></TR>\n"
      @classmethods.keys.sort.each{|methodName|
	printMethodHref(methodName,@classmethods[methodName])
      }
    end
  end
  def printMethod
    allMethod      # @methods(Hash) made
    if @methods.size>0
      @right # 0: left column, 1: right column
      print "<TR> <TD></TD></TR>\n"
      @methods.keys.sort.each{|methodName|
	printMethodHref(methodName,@methods[methodName])
      }
    end
  end
  def rename(methodName)
      # Rename special method
      href  ethodName.dup
      href  RenamMethod[href] if $RenamMethod[href]
      href.sub(/\?$/,"_p").sub(/!$/,"_bang")
  end 

  def printMethodHref(methodName,classNameAry)
      # classNameAry is  � Array
      hrefィホゥ  	」   
				」   ホ 「ォ「ャ   「「ャ  「ョ「
				」    ュュセ   「「ャ「「ャ  「ョ「
       ホョ
     ョ。ィッワョッャ「「ゥ

      テ    
	」  ホチヘナ Ζャ ン
      ホチョ 
	 、チロン ヲヲ  」 、チロン  チ  ロャ ン
	      テ  チロンョィゥ

	  」 ョ 、ヒ ホチヘナ「 、ャ、「、��	  
	
      
      」 
	」 シヤトセシッヤトセ  シヤトセシチ ネメナニョ」「セシッチセシッヤトセ
	 テ
	  ィ、ーャテロアンャゥ
	
	  ィ、アャゥ
	

	」      ニ シ ホ シ ャャャャャ 
	ィ、ロタンャホチョィ「ヲ」カー「ゥゥ

	タ   ュ タ
  

 」   
」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」
」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」
」 準備   にあるアンカー のリストアップ

」 ュッェョ から アンカー を抜き取る
トョィ、ヘト ォ 「ェョ「ゥョ 
  ニ  ィゥ
  ョ。ィッョェワッッャ「「ゥ
    ョィッワョッャ「「ゥ

   ニョ
     、゜ ッシチワホチヘナワェロ゛「ンォゥ「セッ
     チ ネメナニ「 ォ  ォ 「」「 ォ 、ア ォ 「ワ「セ「
       アョィッ゛ロ゛ョンェワョッャ「ョ「ゥ 
			」   コ トョ ュュセ ョ
     、チロン 鬟�  、チロン
     、チロン シシ ロャン

    
  
  ニョ



」
」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」」

   
    ロ「ョ「ャ「ョ「ンョソィチメヌニョゥ

  ョョィッロワィゥャ「サンォッゥ

  」  ヒ  ゜ィ「「ャ ーゥサ
   ロイン 「゜「 
     ロウン  ヒ「  ロウン 「「
     、テフチモモロローンン フモョ  、テフチモモロローンン
     、テフチモモロローンンョィロウンャロエンャ「「ゥ

  」チ   ゜゜ィ「チ「ャ マゥサ
   ロイン 「゜゜「 ヲヲ
	ロウン 。 ト「 ヲヲ ロウン 。 「 ヲヲ 
	ロウン 。 「 ヲヲ ロウン 。 「 ヲヲ
	ローン 。 ッ゛ッ
」
    ロウン  ヘト「  ロウン 「ヘト「
     、テフチモモロローンン フモョ  、テフチモモロローンン
     、テフチモモロローンンョィロウンャロエンャ「「ゥ

   」  
   」    
   」   「ナ「 「テ「
   」       ナ         テ
   」  ホマヤ   
   」   「ナ「 「ニヤ「 「ヌテ「 「マモ「 「ヘ「 「ミ「 
   」            ニヤ   ヌテ   マモ       ヘ   ミ

  」  ナ  ゜゜ィ「ナ「ゥサ
   ロイン 「゜゜「
      ヘ「
     ロウン  ナ「 ャ ヘ「    ロウン 「ナ「
     ロウン  テ「ャ ヘ「   ロウン 「テ「
    ロウン  マモ「  ロウン 「マモ「

    、テフチモモロローンン フモョ  、テフチモモロローンン
    、テフチモモロローンンョィロウンャャゥ

  」 ゜゜゜ィミャ 「「ャ ゜ャ ーゥサ
   ローン 「゜゜゜「 
    	  、テフチモモロロアンン フモョィロアンゥ  、テフチモモロロアンン
	  、テフチモモロロアンンョヘィロインゥ
    
  」 ゜゜ィチャ ナゥサ
   ローン 「゜゜「
    ロイン  ナ「    ロイン 「ナ「
    ロイン  テ「  ロイン 「テ「
    、テフチモモロロアンン フモョィロアンゥ  、テフチモモロロアンン
    、テフチモモロロアンンョヘィロインゥ

  」    ゜゜゜ィチャ 「「ャ ゜゜ャ ュアゥサ
  」    ゜゜ィチャ 「゜「ャ ゜゜ャ ーゥサ
   ロアン 。 ヤモ「 ヲヲ ロアン 。 ホ「 ヲヲ
	ロアン 。 ヤ「 ヲヲ  ロアン 。 ニ「 ヲヲ
	ロアン 。 ト「
    	 ローン 「゜゜「 
    	  、テフチモモロロアンン フモョィロアンゥ  、テフチモモロロアンン
	  、テフチモモロロアンンョヘィロインゥ
    	 ローン 「゜゜゜「
    	  、テフチモモロロアンン フモョィロアンゥ  、テフチモモロロアンン
	  、テフチモモロロアンンョテヘィ「ョ「 ォ ロインゥ
    	
  
 」     

」」」」」」」」」」」」  マユヤ ミユヤ  」」」」」」」」」」」」」」」」」」」」」」」」

」」」」」」」」」」」」  マユヤ ミユヤ ノ 」」」」」」」」」」」」」」」」」」」」」」」」
 、マミヤ゜
」」  」」
 「シネヤヘフセ
シネナチトセ
シヤノヤフナセ組み込みクラスの  ノ シッヤノヤフナセ
シッネナチトセ
シツマトルセ
シウセ組み込みクラスの  ノシッネウセ
「

 」      
  ヘ  ョ
         ョ

  、テフチモモョョョ ノト
      ロ「「ャ「ヘ「ンョソィ 、テフチモモロ ノト ンョ ゥ
    、テフチモモロ ノト ンョヘョャホチ
      ロン  ホチ  ロン
      ロン   ホチ   ロン
    
    、テフチモモロ ノト ンョテヘョャホチ
      ヘロン  ホチ  ロン
      ヘロン   ホチ   ロン
    
  
  
  」   
   「シヤチツフナ ツマメトナメワシヤメセシヤトセクラスメソッドシッヤトセシッヤメセワ「

  ヘョョョホ
    ィホゥ
      ホョ
    ョ。ィッワョッャ「「ゥ
    ィ「シヤメセシヤトセ・シヤトセ「ャゥ
    ヘロホンョョョ
       、チロン ヲヲ  」 、チロン  チ  ロャ ン
	      テ  チロンョィゥ
	ィ「シヤトセ・・シッヤトセ「ャテロアンャゥ
      
	ィ「シヤトセ・シッヤトセ「ャゥ
      
    
     「シッヤメセワ「
  
  」  
   「シヤメセシッヤメセワシヤメセシヤトセメソッドシッヤトセシッヤメセワ「

  ョョョホ
    ィホゥ
      ホョ
    ィ「シヤメセシヤトセ・シヤトセ「ャゥ
    ロホンョョョ
       、チロン ヲヲ  」 、チロン  チ  ロャ ン
	      テ  チロンョィゥ
	ィ「シヤトセ・・シッヤトセ「ャテロアンャゥ
      
	ィ「シヤトセ・シッヤトセ「ャゥ
      
    
     「シッヤメセワ「
  
   「シッヤチツフナセワ「

」」」」」」」」」」」」  マユヤ ミユヤ ヘ  」」」」」」」」」」」」」」」」」」」」」」」」
」」  」」
   「シネヤヘフセ
シネナチトセ
シヤノヤフナセ組み込みクラスの シッヤノヤフナセ
シッネナチトセ
シツマトルセ
シウセ組み込みクラスの シッネウセ「

」」 ネメナニ  テ 」」
	 「シヤチツフナ ツマメトナメワ「
	、テフチモモョョョョ ノト
    	     、テフチモモロ ノト ンョ 。 「
	  、テフチモモロ ノト ンョネメナニテ
	
	 「シヤメセシッヤメセシヤメセシヤトセモジュールシッヤトセシッヤメセワ「
	、テフチモモョョョョ ノト
    	     、テフチモモロ ノト ンョ 。 ヘ「
	  、テフチモモロ ノト ンョネメナニテ
	
	 「シッヤチツフナセシセワ「

」」 ミ ネメナニ      」」		
、テフチモモョョョョ ノト
     、テフチモモロ ノト ンョ 。 「
  、テフチモモロ ノト ンョテネ
  、テフチモモロ ノト ンョテヘ
  、テフチモモロ ノト ンョヘ
    「シッヤチツフナセワ「

、テフチモモョョョョ ノト
     、テフチモモロ ノト ンョ 。 ヘ「
  、テフチモモロ ノト ンョテネ
  、テフチモモロ ノト ンョテヘ
  、テフチモモロ ノト ンョヘ
    「シッヤチツフナセワ「



ュュュュポミィヤ゜ニ゜゜エ゜イウコアクコアキ゜アケケキゥュュュュ