unageanu-javaclass 0.0.1 → 0.1.1

data/lib/javaclass.rb

@@ -1,8 +1,8 @@
-
-require "javaclass/base"
-require "javaclass/accessflag"
-require "javaclass/attribute"
-require "javaclass/class"
-require "javaclass/constant"
-require "javaclass/member"
+
+require "javaclass/base"
+require "javaclass/accessflag"
+require "javaclass/attribute"
+require "javaclass/class"
+require "javaclass/constant"
+require "javaclass/member"
 require "javaclass/reader"

data/sample/class_list.rb

@@ -3,7 +3,7 @@ require "rubygems"
 require "javaclass"
 require "zip/zip"
 
-
+# ZipInputStreamにはgetcが実装されていないので、追加する。
 module Zip
   class ZipInputStream
     def getc
@@ -12,11 +12,41 @@ module Zip
   end
 end
 
-Zip::ZipFile.foreach(ARGV[0]) {|entry|
-  next unless entry.file?
-  next unless entry.name =~ /.*\.class$/
-  entry.get_input_stream {|io|
-    jc = JavaClass.from io
-    puts jc.name
+# Zipエントリ内のクラス一覧を列挙して解析する。
+def each_class ( zip_file, &block ) 
+  Zip::ZipFile.foreach(ARGV[0]) {|entry|
+    next unless entry.file?
+    next unless entry.name =~ /.*\.class$/
+    entry.get_input_stream {|io|
+      jc = JavaClass.from io
+      block.call( jc ) if block_given?
+    }
   }
-}
+end
+
+class TypeHierarchy
+  def initialize
+    @classes = {}
+  end
+  def add( jc )
+    (jc.interfaces << jc.super_class).each {
+      if ( super_class != "java.lang.Object" )
+      @classes[super_class] = Type.new unless @classes.key? super_class
+      
+      end
+    }
+    
+  end
+  def to_s
+    
+  end
+end
+
+class Type
+  def initialize( java_class=nil  )
+    @implementors = []
+    @java_class = java_class
+  end
+  attr :java_class, true
+  attr :implementors, true
+end

data/sample/create_assert.rb

@@ -1,69 +1,69 @@
-
-
-$: << "../lib"
-
-require "javaclass"
-require "kconv"
-require "erb"
-
-
-PATH = 'aaa'
-
-def create( file )
-  erb = ERB.new(IO.read("./assert.erb"), nil, "%" )
-  open( PATH + "/" + file, "r+b" ) {|io|
-    jc = JavaClass.from io
-    puts erb.result(binding).tosjis
-  }
-end
-
-Dir.foreach( PATH.gsub(/\\/, "/") ) {|f| 
-  create( f ) if f =~ /\.class$/ && !( f =~ /\$[0-9]+\.class$/ )
-}
-
-=begin
-% name = jc.this_class.name
-    /**
-     * {@link <%= name.gsub(/\$/, ".") %>} が同一であることを評価する。
-     *
-     * @param expected 期待値
-     * @param actual 実際の値
-     */
-    public static final void assertEquals( 
-        <%= name.gsub(/\$/, ".") %> expected, 
-        <%= name.gsub(/\$/, ".") %> actual ) {
-% jc.methods.each { |m|
-%   if m.name =~ /^get([A-Z][0-9a-zA-Z\_]+)/ || m.name =~ /^is([A-Z][0-9a-zA-Z\_])+/
-%     sname = $1
-%     prefix = m.attributes.key?('Deprecated') ? "//" : "" 
-%     d = m.convert_method_descriptor( m.descriptor )
-%     next if d[:args].length > 0
-%     if d[:return] =~ /List/
-<%= prefix %>        <%= d[:return] %> actual<%= sname%> = actual.<%= m.name %>();
-<%= prefix %>        <%= d[:return] %> expected<%= sname%> = expected.<%= m.name %>();
-<%= prefix %>        if ( expected<%= sname%> != null ) {
-<%= prefix %>            assertEquals( actual<%= sname%>.size(), expected<%= sname%>.size() );
-<%= prefix %>            for ( int i = 0; i < expected<%= sname%>.size(); i++ ) {
-<%= prefix %>                assertEquals( expected<%= sname%>.get(i), actual<%= sname%>.get(i) );
-<%= prefix %>            }
-<%= prefix %>        } else {
-<%= prefix %>            assertEquals( actual<%= sname%>, expected<%= sname%> );
-<%= prefix %>        }
-%     elsif d[:return] =~ /.*\[\]/
-<%= prefix %>        <%= d[:return] %>  actual<%= sname%> = actual.<%= m.name %>();
-<%= prefix %>        <%= d[:return] %>  expected<%= sname%> = expected.<%= m.name %>();
-<%= prefix %>        if ( expected<%= sname%> != null ) {
-<%= prefix %>            assertEquals( actual<%= sname%>.length, expected<%= sname%>.length );
-<%= prefix %>            for ( int i = 0; i < expected<%= sname%>.length; i++ ) {
-<%= prefix %>                assertEquals( expected<%= sname%>[i], actual<%= sname%>[i] );
-<%= prefix %>            }
-<%= prefix %>        } else {
-<%= prefix %>            assertEquals( actual<%= sname%>, expected<%= sname%> );
-<%= prefix %>        }
-%     else
-<%= prefix %>        assertEquals( expected.<%= m.name %>(), actual.<%= m.name %>() );
-%     end
-%   end
-% } 
-    }
+
+
+$: << "../lib"
+
+require "javaclass"
+require "kconv"
+require "erb"
+
+
+PATH = 'aaa'
+
+def create( file )
+  erb = ERB.new(IO.read("./assert.erb"), nil, "%" )
+  open( PATH + "/" + file, "r+b" ) {|io|
+    jc = JavaClass.from io
+    puts erb.result(binding).tosjis
+  }
+end
+
+Dir.foreach( PATH.gsub(/\\/, "/") ) {|f| 
+  create( f ) if f =~ /\.class$/ && !( f =~ /\$[0-9]+\.class$/ )
+}
+
+=begin
+% name = jc.this_class.name
+    /**
+     * {@link <%= name.gsub(/\$/, ".") %>} が同一であることを評価する。
+     *
+     * @param expected 期待値
+     * @param actual 実際の値
+     */
+    public static final void assertEquals( 
+        <%= name.gsub(/\$/, ".") %> expected, 
+        <%= name.gsub(/\$/, ".") %> actual ) {
+% jc.methods.each { |m|
+%   if m.name =~ /^get([A-Z][0-9a-zA-Z\_]+)/ || m.name =~ /^is([A-Z][0-9a-zA-Z\_])+/
+%     sname = $1
+%     prefix = m.attributes.key?('Deprecated') ? "//" : "" 
+%     d = m.convert_method_descriptor( m.descriptor )
+%     next if d[:args].length > 0
+%     if d[:return] =~ /List/
+<%= prefix %>        <%= d[:return] %> actual<%= sname%> = actual.<%= m.name %>();
+<%= prefix %>        <%= d[:return] %> expected<%= sname%> = expected.<%= m.name %>();
+<%= prefix %>        if ( expected<%= sname%> != null ) {
+<%= prefix %>            assertEquals( actual<%= sname%>.size(), expected<%= sname%>.size() );
+<%= prefix %>            for ( int i = 0; i < expected<%= sname%>.size(); i++ ) {
+<%= prefix %>                assertEquals( expected<%= sname%>.get(i), actual<%= sname%>.get(i) );
+<%= prefix %>            }
+<%= prefix %>        } else {
+<%= prefix %>            assertEquals( actual<%= sname%>, expected<%= sname%> );
+<%= prefix %>        }
+%     elsif d[:return] =~ /.*\[\]/
+<%= prefix %>        <%= d[:return] %>  actual<%= sname%> = actual.<%= m.name %>();
+<%= prefix %>        <%= d[:return] %>  expected<%= sname%> = expected.<%= m.name %>();
+<%= prefix %>        if ( expected<%= sname%> != null ) {
+<%= prefix %>            assertEquals( actual<%= sname%>.length, expected<%= sname%>.length );
+<%= prefix %>            for ( int i = 0; i < expected<%= sname%>.length; i++ ) {
+<%= prefix %>                assertEquals( expected<%= sname%>[i], actual<%= sname%>[i] );
+<%= prefix %>            }
+<%= prefix %>        } else {
+<%= prefix %>            assertEquals( actual<%= sname%>, expected<%= sname%> );
+<%= prefix %>        }
+%     else
+<%= prefix %>        assertEquals( expected.<%= m.name %>(), actual.<%= m.name %>() );
+%     end
+%   end
+% } 
+    }
 =end

data/sample/sample.rb

@@ -1,27 +1,27 @@
-
-require "rubygems"
-require "javaclass"
-require "kconv"
-
-[
-  "./java_class/com/example/Kitten.class",
-  "./java_class/HelloWorld.class",
-  "./java_class/com/example/Constants.class",
-  "./java_class/com/example/InnerClass.class",
-  "./java_class/com/example/InnerClassImpl.class",
-  "./java_class/com/example/InnerClass$StaticInnerClass.class",
-  "./java_class/com/example/ThrowsException.class",
-  "./java_class/com/example/InnerClassImpl$1MethodInnerClass.class",
-  "./java_class/com/example/InnerClassImpl$2.class",
-  "./java_class/com/example/types/TypeVariables.class",
-  "./java_class/com/example/Deprecated.class",
-  "./java_class/com/example/annotation/Annotated.class",
-  "./java_class/com/example/annotation/HasDefaultValue.class",
-  "./java_class/com/example/annotation/AnnotatedMethod.class"
-].each { |c|
-  open( c, "r+b" ) {|io|
-    jc = JavaClass.from io
-    puts jc.to_s.tosjis
-    puts ""
-  }
+
+#require "rubygems"
+require "javaclass"
+require "kconv"
+
+[
+  "./java_class/com/example/Kitten.class",
+  "./java_class/HelloWorld.class",
+  "./java_class/com/example/Constants.class",
+  "./java_class/com/example/InnerClass.class",
+  "./java_class/com/example/InnerClassImpl.class",
+  "./java_class/com/example/InnerClass$StaticInnerClass.class",
+  "./java_class/com/example/ThrowsException.class",
+  "./java_class/com/example/InnerClassImpl$1MethodInnerClass.class",
+  "./java_class/com/example/InnerClassImpl$2.class",
+  "./java_class/com/example/types/TypeVariables.class",
+  "./java_class/com/example/Deprecated.class",
+  "./java_class/com/example/annotation/Annotated.class",
+  "./java_class/com/example/annotation/HasDefaultValue.class",
+  "./java_class/com/example/annotation/AnnotatedMethod.class"
+].each { |c|
+  open( c, "r+b" ) {|io|
+    jc = JavaClass.from io
+    puts jc.to_s.tosjis
+    puts ""
+  }
 }

data/sample/type_hierarchy.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/ruby
+
+# jar内のクラスファイルの型階層を表示する。
+#
+# ./type_hierarchy.rb <jarファイル>
+#
+
+require "rubygems"
+require "javaclass"
+require "zip/zip"
+require "kconv"
+
+# ZipInputStreamにはgetcが実装されていないので、追加する。
+module Zip
+  class ZipInputStream
+    def getc
+      read(1)[0]
+    end
+  end
+end
+
+# Zipエントリ内のクラス一覧を列挙して解析する。
+def each_class ( zip_file, &block ) 
+  Zip::ZipFile.foreach(ARGV[0]) {|entry|
+    next unless entry.file?
+    next unless entry.name =~ /.*\.class$/
+    entry.get_input_stream {|io|
+      jc = JavaClass.from io
+      block.call( jc ) if block_given?
+    }
+  }
+end
+
+# 型階層
+class TypeHierarchy
+  def initialize
+    @classes = {}
+  end
+  def <<( jc )
+    (jc.interfaces << jc.super_class).each {|parent|
+      next if parent == nil || parent == "java.lang.Object"
+      @classes[parent] = Type.new(parent) unless @classes.key? parent
+      @classes[parent] << jc.name
+    }
+    name = jc.name
+    @classes[name] = Type.new(name) unless @classes.key? name
+    @classes[name].java_class = jc
+  end
+  def to_s
+    strs = ""
+    @classes.each{|k,v|
+      jc = v.java_class
+      next if jc != nil && jc.super_class != nil && jc.super_class != "java.lang.Object"
+      next if jc != nil && jc.interfaces.length > 0
+      strs << "---\n" <<  v.node_to_string( "", @classes ) << "\n"
+    }
+    return strs
+  end
+end
+
+# 型
+class Type
+  def initialize( name, java_class=nil  )
+    @name = name
+    @implementors = []
+    @java_class = java_class
+  end
+  def <<(implementor)
+    @implementors << implementor
+  end
+  def node_to_string( indent, pool )
+    str = indent.dup
+    str << ( java_class == nil ? "(unknown) " : java_class.access_flag.type + " " ) 
+    str << name
+    str << "\n"
+    child_indent = indent.gsub(/├/, "│").gsub(/└/, "　")
+    @implementors.each_index {|i|
+       next if implementors[i] == nil
+       tmp = child_indent + ( i >= implementors.length-1 ? "└" : "├" )
+       str <<  pool[implementors[i]].node_to_string( tmp, pool )
+    }
+    return str
+  end
+  attr :name, true
+  attr :java_class, true
+  attr :implementors, true
+end
+
+th = TypeHierarchy.new
+each_class( ARGV[0] ){|jc|
+  th << jc
+}
+puts th.to_s.tosjis