2015-10-23 14:22:55 +03:00
|
|
|
module Soml
|
2015-09-19 18:56:18 +03:00
|
|
|
Compiler.class_eval do
|
2015-10-07 10:05:34 +03:00
|
|
|
|
2015-10-09 18:06:00 +03:00
|
|
|
def on_operator_value statement
|
2015-10-15 09:47:11 +03:00
|
|
|
#puts "operator #{statement.inspect}"
|
2015-10-09 17:51:14 +03:00
|
|
|
operator , left_e , right_e = *statement
|
2015-10-15 09:32:47 +03:00
|
|
|
# left and right must be expressions. Expressions return a register when compiled
|
|
|
|
left_reg = process(left_e)
|
|
|
|
right_reg = process(right_e)
|
|
|
|
raise "Not register #{left_reg}" unless left_reg.is_a?(Register::RegisterValue)
|
|
|
|
raise "Not register #{right_reg}" unless right_reg.is_a?(Register::RegisterValue)
|
2015-10-15 09:47:11 +03:00
|
|
|
#puts "left #{left_reg}"
|
|
|
|
#puts "right #{right_reg}"
|
2015-10-23 14:08:12 +03:00
|
|
|
add_code Register::OperatorInstruction.new(statement,operator,left_reg,right_reg)
|
2015-10-15 09:32:47 +03:00
|
|
|
return left_reg # though this has wrong value attached
|
2015-09-19 16:28:41 +03:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|