2014-06-25 01:47:59 +02:00
|
|
|
# collection of the simple ones, int and strings and such
|
|
|
|
|
|
|
|
module Ast
|
|
|
|
|
|
|
|
class IntegerExpression < Expression
|
|
|
|
# attr_reader :value
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-06-26 16:52:15 +02:00
|
|
|
Virtual::IntegerConstant.new value
|
2014-06-25 01:47:59 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2014-07-01 14:57:13 +02:00
|
|
|
class TrueExpression
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-07-01 14:57:13 +02:00
|
|
|
Virtual::TrueValue.new
|
|
|
|
end
|
|
|
|
end
|
2014-07-10 16:14:38 +02:00
|
|
|
|
2014-07-01 14:57:13 +02:00
|
|
|
class FalseExpression
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-07-01 14:57:13 +02:00
|
|
|
Virtual::FalseValue.new
|
|
|
|
end
|
|
|
|
end
|
2014-07-10 16:14:38 +02:00
|
|
|
|
2014-07-01 14:57:13 +02:00
|
|
|
class NilExpression
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-07-01 14:57:13 +02:00
|
|
|
Virtual::NilValue.new
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2014-06-25 01:47:59 +02:00
|
|
|
class NameExpression < Expression
|
|
|
|
# attr_reader :name
|
|
|
|
|
2014-07-10 16:14:38 +02:00
|
|
|
# compiling name needs to check if it's a variable and if so resolve it
|
|
|
|
# otherwise it's a method without args and a send is ussued.
|
|
|
|
# this makes the namespace static, ie when eval and co are implemented method needs recompilation
|
|
|
|
def compile frame , method
|
|
|
|
if method.has_var(name)
|
2014-07-13 15:00:48 +02:00
|
|
|
frame.compile_get(method , name )
|
2014-07-10 16:14:38 +02:00
|
|
|
else
|
2014-07-13 15:00:48 +02:00
|
|
|
frame.compile_send( method , name )
|
2014-07-10 16:14:38 +02:00
|
|
|
end
|
2014-06-25 01:47:59 +02:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
class ModuleName < NameExpression
|
|
|
|
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-07-13 13:12:43 +02:00
|
|
|
clazz = ::Virtual::Object.space.get_or_create_class name
|
2014-06-25 01:47:59 +02:00
|
|
|
raise "uups #{clazz}.#{name}" unless clazz
|
|
|
|
#class qualifier, means call from metaclass
|
2014-07-14 13:06:09 +02:00
|
|
|
#clazz = clazz.meta_class
|
2014-06-25 01:47:59 +02:00
|
|
|
clazz
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
class StringExpression < Expression
|
|
|
|
# attr_reader :string
|
2014-07-12 20:59:17 +02:00
|
|
|
def compile frame , method
|
2014-06-26 16:52:15 +02:00
|
|
|
value = Virtual::StringConstant.new(string)
|
2014-07-12 20:59:17 +02:00
|
|
|
::Virtual::Object.space.add_object value
|
2014-06-25 01:47:59 +02:00
|
|
|
value
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|