2014-06-26 17:39:02 +02:00
|
|
|
module Virtual
|
2014-05-13 15:24:19 +02:00
|
|
|
|
2014-09-16 16:16:56 +02:00
|
|
|
class Constant < ::Virtual::Object
|
2014-05-13 15:24:19 +02:00
|
|
|
end
|
2014-09-14 17:15:33 +02:00
|
|
|
class TrueConstant < Constant
|
2014-07-15 08:31:25 +02:00
|
|
|
end
|
2014-09-14 17:15:33 +02:00
|
|
|
class FalseConstant < Constant
|
2014-07-15 08:31:25 +02:00
|
|
|
end
|
2014-09-14 17:15:33 +02:00
|
|
|
class NilConstant < Constant
|
2014-07-15 08:31:25 +02:00
|
|
|
end
|
2014-05-13 15:24:19 +02:00
|
|
|
|
2014-06-07 16:59:44 +02:00
|
|
|
# another abstract "marker" class (so we can check for it)
|
2014-06-26 17:39:02 +02:00
|
|
|
# derived classes are Boot/Meta Class and StringConstant
|
2014-06-07 16:59:44 +02:00
|
|
|
class ObjectConstant < Constant
|
2014-08-21 21:57:20 +02:00
|
|
|
def type
|
|
|
|
Virtual::Reference
|
|
|
|
end
|
2014-09-16 16:16:56 +02:00
|
|
|
def clazz
|
2014-08-22 09:21:12 +02:00
|
|
|
raise "abstract #{self}"
|
|
|
|
end
|
2014-06-07 16:59:44 +02:00
|
|
|
end
|
2014-05-13 15:24:19 +02:00
|
|
|
|
|
|
|
class IntegerConstant < Constant
|
2014-05-13 17:21:24 +02:00
|
|
|
def initialize int
|
2014-05-13 15:24:19 +02:00
|
|
|
@integer = int
|
|
|
|
end
|
|
|
|
attr_reader :integer
|
2014-07-14 20:28:21 +02:00
|
|
|
def type
|
|
|
|
Virtual::Integer
|
|
|
|
end
|
2014-09-17 15:23:29 +02:00
|
|
|
def fits_u8?
|
|
|
|
integer >= 0 and integer <= 255
|
|
|
|
end
|
2014-05-13 15:24:19 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
# The name really says it all.
|
|
|
|
# The only interesting thing is storage.
|
|
|
|
# Currently string are stored "inline" , ie in the code segment.
|
|
|
|
# Mainly because that works an i aint no elf expert.
|
|
|
|
|
2014-06-07 16:59:44 +02:00
|
|
|
class StringConstant < ObjectConstant
|
2014-05-13 15:24:19 +02:00
|
|
|
def initialize str
|
2014-07-12 20:59:17 +02:00
|
|
|
@string = str
|
2014-05-13 15:24:19 +02:00
|
|
|
end
|
2014-08-19 21:54:28 +02:00
|
|
|
attr_reader :string
|
2014-09-16 16:16:56 +02:00
|
|
|
|
2014-05-19 14:44:12 +02:00
|
|
|
def result= value
|
2014-10-07 11:23:27 +02:00
|
|
|
raise "called"
|
2014-05-19 14:44:12 +02:00
|
|
|
class_for(MoveInstruction).new(value , self , :opcode => :mov)
|
2014-05-13 15:24:19 +02:00
|
|
|
end
|
2014-08-22 09:21:12 +02:00
|
|
|
def clazz
|
2014-08-24 20:32:21 +02:00
|
|
|
BootSpace.space.get_or_create_class(:String)
|
2014-08-22 09:21:12 +02:00
|
|
|
end
|
2014-09-16 16:16:56 +02:00
|
|
|
def layout
|
|
|
|
Virtual::Object.layout
|
|
|
|
end
|
|
|
|
def mem_length
|
|
|
|
padded(1 + string.length)
|
|
|
|
end
|
2014-09-17 11:04:54 +02:00
|
|
|
def position
|
|
|
|
return @position if @position
|
|
|
|
return @string.position if @string.position
|
|
|
|
super
|
|
|
|
end
|
2014-05-13 15:24:19 +02:00
|
|
|
end
|
|
|
|
|
|
|
|
end
|