2014-05-05 09:02:02 +02:00
|
|
|
# collection of the simple ones, int and strings and such
|
2014-05-05 10:03:43 +02:00
|
|
|
|
2014-05-05 09:02:02 +02:00
|
|
|
module Ast
|
|
|
|
|
|
|
|
class IntegerExpression < Expression
|
2014-06-04 21:03:45 +02:00
|
|
|
# attr_reader :value
|
2014-05-13 15:24:19 +02:00
|
|
|
def compile context , into
|
2014-05-13 17:21:24 +02:00
|
|
|
Vm::IntegerConstant.new value
|
2014-05-10 09:58:25 +02:00
|
|
|
end
|
2014-05-05 09:02:02 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
class NameExpression < Expression
|
2014-06-04 21:03:45 +02:00
|
|
|
# attr_reader :name
|
|
|
|
|
2014-06-07 22:22:32 +02:00
|
|
|
# compiling a variable resolves it. if it wasn't defined, raise an exception
|
2014-05-13 15:24:19 +02:00
|
|
|
def compile context , into
|
2014-06-07 22:22:32 +02:00
|
|
|
raise "Undefined variable #{name}, defined locals #{context.locals.keys.join('-')}" unless context.locals.has_key?(name)
|
2014-05-13 15:24:19 +02:00
|
|
|
context.locals[name]
|
2014-05-10 16:55:02 +02:00
|
|
|
end
|
2014-05-05 09:02:02 +02:00
|
|
|
end
|
|
|
|
|
2014-05-30 11:06:42 +02:00
|
|
|
class ModuleName < NameExpression
|
2014-06-07 22:22:32 +02:00
|
|
|
|
|
|
|
def compile context , into
|
|
|
|
clazz = context.object_space.get_or_create_class name
|
|
|
|
raise "uups #{clazz}.#{name}" unless clazz
|
|
|
|
#class qualifier, means call from metaclass
|
|
|
|
clazz = clazz.meta_class
|
|
|
|
value = clazz
|
|
|
|
puts "CLAZZ #{value}"
|
|
|
|
function = clazz.get_or_create_function(name)
|
|
|
|
end
|
2014-05-30 11:06:42 +02:00
|
|
|
end
|
|
|
|
|
2014-05-05 09:02:02 +02:00
|
|
|
class StringExpression < Expression
|
2014-06-04 21:03:45 +02:00
|
|
|
# attr_reader :string
|
2014-05-13 15:24:19 +02:00
|
|
|
def compile context , into
|
|
|
|
value = Vm::StringConstant.new(string)
|
2014-05-31 11:52:29 +02:00
|
|
|
context.object_space.add_object value
|
2014-05-06 20:36:28 +02:00
|
|
|
value
|
2014-05-05 09:13:49 +02:00
|
|
|
end
|
2014-05-05 09:02:02 +02:00
|
|
|
end
|
|
|
|
end
|