2017-01-14 19:30:19 +01:00
|
|
|
module Melon
|
|
|
|
module Compilers
|
|
|
|
|
|
|
|
class MethodCompiler < AST::Processor
|
|
|
|
|
|
|
|
def initialize( ruby_method )
|
2017-01-15 11:10:37 +01:00
|
|
|
@ruby_method = ruby_method
|
|
|
|
end
|
|
|
|
|
|
|
|
def get_code
|
|
|
|
process(@ruby_method.source)
|
|
|
|
end
|
|
|
|
|
|
|
|
def on_ivasgn(statement)
|
|
|
|
name , value = *statement
|
|
|
|
w = Vm::Tree::Assignment.new()
|
|
|
|
w.name = Vm::Tree::NameExpression.new( name[1..-1].to_sym)
|
|
|
|
w.value = process(value)
|
|
|
|
w
|
|
|
|
end
|
|
|
|
|
|
|
|
def on_ivar( var )
|
|
|
|
name = var.children.first
|
|
|
|
w = Vm::Tree::FieldAccess.new()
|
|
|
|
w.receiver = Vm::Tree::NameExpression.new(:self)
|
|
|
|
w.field = Vm::Tree::NameExpression.new( name[1..-1].to_sym)
|
|
|
|
w
|
|
|
|
end
|
|
|
|
|
2017-01-15 19:30:47 +01:00
|
|
|
def on_send( statement )
|
|
|
|
receiver , name , args = *statement
|
|
|
|
w = Vm::Tree::CallSite.new()
|
|
|
|
puts "receiver #{statement}"
|
|
|
|
w.name = process(receiver)
|
|
|
|
w.arguments = process(args)
|
|
|
|
w.receiver = nil
|
|
|
|
w
|
|
|
|
end
|
|
|
|
|
|
|
|
def on_str( string )
|
|
|
|
Vm::Tree::StringExpression.new(string.children.first)
|
|
|
|
end
|
|
|
|
|
2017-01-15 11:10:37 +01:00
|
|
|
def on_int( expression)
|
|
|
|
Vm::Tree::IntegerExpression.new(expression.children.first)
|
2017-01-14 19:30:19 +01:00
|
|
|
end
|
|
|
|
|
|
|
|
def handler_missing(node)
|
|
|
|
raise "No handler for #{node}"
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|