furnace-avm2 0.0.1

data/lib/avm2/abc/opcodes/object_manipulation/as3_construct.rb

@@ -0,0 +1,12 @@
+module AVM2::ABC
+  class AS3Construct < Opcode
+    instruction 0x42
+
+    body do
+      vuint30 :arg_count
+    end
+
+    consume { 1 + body.arg_count }
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_constructsuper.rb

@@ -0,0 +1,16 @@
+module AVM2::ABC
+  class AS3ConstructSuper < Opcode
+    instruction 0x49
+
+    body do
+      vuint30 :arg_count
+    end
+
+    consume { 1 + body.arg_count }
+    produce 0
+
+    def disassemble_parameters
+      "#{body.arg_count}"
+    end
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_newactivation.rb

@@ -0,0 +1,8 @@
+module AVM2::ABC
+  class AS3NewActivation < Opcode
+    instruction 0x57
+
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_newarray.rb

@@ -0,0 +1,12 @@
+module AVM2::ABC
+  class AS3NewArray < Opcode
+    instruction 0x56
+
+    body do
+      vuint30 :arg_count
+    end
+
+    consume { body.arg_count }
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_newclass.rb

@@ -0,0 +1,12 @@
+module AVM2::ABC
+  class AS3NewClass < Opcode
+    instruction 0x58
+
+    body do
+      vuint30 :klass_index
+    end
+
+    consume 1
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_newfunction.rb

@@ -0,0 +1,12 @@
+module AVM2::ABC
+  class AS3NewFunction < Opcode
+    instruction 0x40
+
+    body do
+      vuint30 :method_index
+    end
+
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation/as3_newobject.rb

@@ -0,0 +1,12 @@
+module AVM2::ABC
+  class AS3NewObject < Opcode
+    instruction 0x55
+
+    body do
+      vuint30 :arg_count
+    end
+
+    consume { body.arg_count * 2 }
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/object_manipulation_opcode.rb

@@ -0,0 +1,4 @@
+module AVM2::ABC
+  class ObjectManipulationOpcode < Opcode
+  end
+end

data/lib/avm2/abc/opcodes/opcode.rb

@@ -0,0 +1,127 @@
+module AVM2::ABC
+  class Opcode
+    MAP = {}
+
+    # Metamethods
+
+    def self.define_property(name, options={}, &block)
+      accessor_name = options[:accessor] || name
+
+      define_singleton_method(name) do |value=nil, &value_block|
+        if value_block
+          define_method(accessor_name) do
+            instance_exec &value_block
+          end
+        elsif !value.nil?
+          define_method(accessor_name) do
+            value
+          end
+        else
+          define_method(accessor_name) do
+            true
+          end
+        end
+
+        instance_exec(value, &block) if block
+      end
+    end
+
+    def self.body(&block)
+      @body_defined = true
+
+      klass = Class.new(Record)
+      klass.instance_exec &block
+
+      const_set :Body, klass
+
+      attr_accessor :body
+    end
+
+    def self.mnemonic
+      @mnemonic ||= name.sub("AVM2::ABC::AS3", "")
+    end
+
+    # Common definitions
+
+    define_property :instruction do |encoding|
+      MAP[encoding] = self
+    end
+
+    define_property :consume_context, :accessor => :consumes_context
+    define_property :consume,         :accessor => :consumes
+    define_property :produce,         :accessor => :produces
+
+    define_property :type
+    define_property :special # swap, dup
+
+    attr_reader :sequence
+
+    def initialize(sequence)
+      @sequence = sequence
+    end
+
+    def root
+      @sequence.root
+    end
+
+    # Stream manipulation
+
+    def read(io)
+      if respond_to? :body
+        @body = self.class.const_get(:Body).new(:parent => @sequence)
+        @body.read(io)
+      end
+    end
+
+    def write(io)
+      io.write([ instruction ].pack("C"))
+
+      if respond_to? :body
+        @body.write(io)
+      end
+    end
+
+    def byte_length
+      if respond_to? :body
+        @body.byte_length + 1
+      else
+        1
+      end
+    end
+
+    def offset
+      @sequence.offset_of(self)
+    end
+
+    def next
+      @sequence.opcode_at(offset + byte_length)
+    end
+
+    # Attributes
+
+    def ast_type
+      self.class.mnemonic.
+        gsub(/^[A-Z]/) { |m| m[0].downcase }.
+        gsub(/([a-z])([A-Z])/) { |m| "#{m[0]}_#{m[1].downcase}" }
+    end
+
+    def consumes_context
+      false
+    end
+
+    def parameters
+      []
+    end
+
+    # Disassembling
+
+    def disassemble_parameters
+      @body.to_hash if @body
+    end
+
+    def disassemble
+      "   #{offset.to_s.rjust(4, "0")}  #{self.class.mnemonic.rjust(20, " ")} #{disassemble_parameters} # params: #{parameters.inspect}"
+    end
+    alias :inspect :disassemble
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_constructprop.rb

@@ -0,0 +1,20 @@
+module AVM2::ABC
+  class AS3ConstructProperty < Opcode
+    include ContextualOpcode
+
+    instruction 0x4a
+
+    body do
+      const_ref :property, :multiname
+      vuint30   :arg_count
+    end
+
+    implicit_operand false
+    consume { body.arg_count }
+    produce 1
+
+    def disassemble_parameters
+      "#{body.property} #{body.arg_count}"
+    end
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_deleteproperty.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3DeleteProperty < PropertyOpcode
+    instruction 0x6a
+
+    implicit_operand false
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_findproperty.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3FindProperty < PropertyOpcode
+    instruction 0x5e
+
+    implicit_operand true
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_findpropstrict.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3FindPropertyStrict < PropertyOpcode
+    instruction 0x5d
+
+    implicit_operand true
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_getdescendants.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3GetDescendants < PropertyOpcode
+    instruction 0x59
+
+    implicit_operand false
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_getproperty.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3GetProperty < PropertyOpcode
+    instruction 0x66
+
+    implicit_operand false
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_getsuper.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3GetSuper < PropertyOpcode
+    instruction 0x04
+
+    implicit_operand false
+    consume 0
+    produce 1
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_initproperty.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3InitProperty < PropertyOpcode
+    instruction 0x68
+
+    implicit_operand false
+    consume 1
+    produce 0
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_setproperty.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3SetProperty < PropertyOpcode
+    instruction 0x61
+
+    implicit_operand false
+    consume 1
+    produce 0
+  end
+end

data/lib/avm2/abc/opcodes/property/as3_setsuper.rb

@@ -0,0 +1,9 @@
+module AVM2::ABC
+  class AS3SetSuper < PropertyOpcode
+    instruction 0x05
+
+    implicit_operand false
+    consume 1
+    produce 0
+  end
+end

data/lib/avm2/abc/opcodes/property_opcode.rb

@@ -0,0 +1,13 @@
+module AVM2::ABC
+  class PropertyOpcode < Opcode
+    include ContextualOpcode
+
+    body do
+      const_ref :property, :multiname
+    end
+
+    def disassemble_parameters
+      body.property.to_s
+    end
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushbyte.rb

@@ -0,0 +1,11 @@
+module AVM2::ABC
+  class AS3PushByte < PushLiteralOpcode
+    instruction 0x24
+
+    body do
+      uint8 :value
+    end
+
+    type :integer
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushdouble.rb

@@ -0,0 +1,11 @@
+module AVM2::ABC
+  class AS3PushDouble < PushLiteralOpcode
+    instruction 0x2f
+
+    body do
+      vuint30 :value
+    end
+
+    type :double
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushfalse.rb

@@ -0,0 +1,7 @@
+module AVM2::ABC
+  class AS3PushFalse < PushLiteralOpcode
+    instruction 0x27
+
+    type :false
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushint.rb

@@ -0,0 +1,11 @@
+module AVM2::ABC
+  class AS3PushInt < PushLiteralOpcode
+    instruction 0x2d
+
+    body do
+      const_ref :value, :int
+    end
+
+    type :integer
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushnan.rb

@@ -0,0 +1,7 @@
+module AVM2::ABC
+  class AS3PushNan < PushLiteralOpcode
+    instruction 0x28
+
+    type :nan
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushnull.rb

@@ -0,0 +1,7 @@
+module AVM2::ABC
+  class AS3PushNull < PushLiteralOpcode
+    instruction 0x20
+
+    type :null
+  end
+end

data/lib/avm2/abc/opcodes/push_literal/as3_pushscope.rb

@@ -0,0 +1,8 @@
+module AVM2::ABC
+  class AS3PushScope < Opcode
+    instruction 0x30
+
+    consume 1
+    produce 0
+  end
+end