class Methods down to vool #24

lib/ruby/class_method_statement.rb

@@ -2,7 +2,7 @@ module Ruby
   class ClassMethodStatement < MethodStatement
 
     def to_vool
-#      Vool::ClassMethodStatement.new( @name , @args.dup , @body.to_vool)
+      Vool::ClassMethodStatement.new( @name , @args.dup , @body.to_vool)
     end
 
     def to_s(depth = 0)

lib/vool/class_method_statement.rb

@@ -0,0 +1,58 @@
+module Vool
+  class ClassMethodStatement < Statement
+    attr_reader :name, :args , :body
+
+    def initialize( name , args , body )
+      @name , @args , @body = name , args , body
+      raise "no bod" unless @body
+    end
+
+    def to_mom(clazz)
+      raise( "no class in #{self}") unless clazz
+      method = clazz.add_method_for(name , make_arg_type , make_frame , body )
+      compiler = method.compiler_for(clazz.instance_type)
+      each {|node| raise "Blocks not implemented" if node.is_a?(BlockStatement)}
+      compiler
+    end
+
+    def each(&block)
+      block.call(self)
+      @body.each(&block)
+    end
+
+    def has_yield?
+      each{|statement| return true if statement.is_a?(YieldStatement)}
+      return false
+    end
+
+    def make_arg_type(  )
+      type_hash = {}
+      @args.each {|arg| type_hash[arg] = :Object }
+      type_hash[:implicit_block] = :Block if has_yield?
+      Parfait::NamedList.type_for( type_hash )
+    end
+
+    def to_s(depth = 0)
+      arg_str = @args.collect{|a| a.to_s}.join(', ')
+      at_depth(depth , "def #{name}(#{arg_str})" , @body.to_s(depth + 1) , "end")
+    end
+
+    private
+
+    def make_frame
+      nodes = []
+      @body.each { |node| nodes << node }
+      nodes.dup.each do |node|
+        next unless node.is_a?(BlockStatement)
+        node.each {|block_scope| nodes.delete(block_scope)}
+      end
+      type_hash = {}
+      nodes.each do |node|
+        next unless node.is_a?(LocalVariable) or node.is_a?(LocalAssignment)
+        type_hash[node.name] = :Object
+      end
+      Parfait::NamedList.type_for( type_hash )
+    end
+
+  end
+end

lib/vool/statement.rb

@@ -70,6 +70,7 @@ require_relative "if_statement"
 require_relative "ivar_assignment"
 require_relative "local_assignment"
 require_relative "method_statement"
+require_relative "class_method_statement"
 require_relative "return_statement"
 require_relative "statements"
 require_relative "send_statement"