2015-10-23 13:22:55 +02:00
|
|
|
module Soml
|
2015-05-08 14:10:30 +02:00
|
|
|
# collection of the simple ones, int and strings and such
|
|
|
|
|
2015-09-19 17:56:18 +02:00
|
|
|
Compiler.class_eval do
|
2015-05-08 14:10:30 +02:00
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
# Constant expressions can by definition be evaluated at compile time.
|
2015-05-08 14:10:30 +02:00
|
|
|
# But that does not solve their storage, ie they need to be accessible at runtime from _somewhere_
|
2015-10-26 21:23:06 +01:00
|
|
|
# So expressions move the data into a Register.
|
|
|
|
# All expressions return registers
|
2015-05-08 14:10:30 +02:00
|
|
|
|
|
|
|
# But in the future (in the one that holds great things) we optimize those unneccesay moves away
|
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
def on_int expression
|
|
|
|
int = expression.first
|
2015-10-15 08:07:47 +02:00
|
|
|
reg = use_reg :Integer , int
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, int , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
def on_true expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Boolean
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, true , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
def on_false expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Boolean
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, false , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
def on_nil expression
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :NilClass
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, nil , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
|
|
|
|
2015-10-26 21:23:06 +01:00
|
|
|
def on_string expression
|
2015-11-08 22:58:35 +01:00
|
|
|
value = Register.new_word expression.first.to_sym
|
2015-10-14 15:16:03 +02:00
|
|
|
reg = use_reg :Word
|
2015-10-28 12:00:23 +01:00
|
|
|
Register.machine.constants << value
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, value , reg )
|
2015-10-13 15:42:53 +02:00
|
|
|
return reg
|
2015-09-27 19:28:34 +02:00
|
|
|
end
|
2015-10-26 21:23:06 +01:00
|
|
|
|
|
|
|
def on_class_name expression
|
|
|
|
name = expression.first
|
|
|
|
clazz = Parfait::Space.object_space.get_class_by_name! name
|
|
|
|
raise "No such class #{name}" unless clazz
|
2015-11-07 23:55:10 +01:00
|
|
|
reg = use_reg :MetaClass , clazz
|
2015-10-26 21:23:06 +01:00
|
|
|
add_code Register::LoadConstant.new( expression, clazz , reg )
|
|
|
|
return reg
|
|
|
|
end
|
|
|
|
|
2015-05-08 14:10:30 +02:00
|
|
|
end
|
|
|
|
end
|