orgasm 0.0.1a2 → 0.0.1a3

data/lib/orgasm/arch/i386/instructions/dsl.rb

@@ -0,0 +1,159 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# This file is part of orgasm.
+#
+# orgasm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# orgasm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with orgasm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'orgasm/arch/i386/instructions/dsl/special'
+
+module Orgasm; module I386
+
+class DSL
+  def initialize (&block)
+    @instructions = Hash.new {|hash, key| hash[key] = []}
+
+    instance_eval &block
+  end
+
+  [:digit, # a digit between 0 ad 7 indicate that the ModR/M byte of the instruction
+           # uses only the r/m (register or memory) operand.
+           # The reg field contains the digit that provides an extension to the instruction's
+           # opcode.
+
+   :r, # indicates that the ModR/M byte of the instruction contains both a register operand
+       # and an r/m operand.
+
+   :cb, # 1 byte
+   :cw, # 2 bytes
+   :cd, # 4 bytes
+   :cp, # 6 bytes
+        # value following the opcode that is used to spcifya code ofset ad possibly a new
+        # value for the code segment register
+
+   :ib, # 1 byte
+   :iw, # 2 bytes
+   :id, # 4 bytes
+        # immediate operand to the instruction that follows the opcode, ModR/M bytes or
+        # scale-indexing bytes. The opcode determines if the operand is a signed value.
+
+   :rb, # a registercode, from 0 through 7, added to the hexadecimal byte gien at the left
+   :rw, # of the plus sign to form a single opcode byte.
+   :rd,
+
+   :i, # a number used in floating-point instructions when one of te operands is ST(i) from
+       # the FPU register stack. The number i (which can range from 0 to 7) is added to the
+       # hexadecial byte given at the left of the plus sign to form a singl opcode byte.
+
+   :rel8, # a relative address in the range from 128 byes before the end of the instruction to
+          # 127 bytes after the end of the instruction
+
+   :rel16, # a relative address withn the same code segment as the instruction assembled. Applies to
+           # instructions with an operand-size attribute of 16 bits
+
+   :rel32, # a relative address withn the same code segment as the instruction assembled. Applies to
+           # instructions with an operand-size attribute of 32 bits
+
+   :ptr16, # a far pointer, typically in a code segment different from that of the istuction.
+           # The notation of 16:16 indicates that the value of the pointer has two parts. The value
+           # to the left of he colon is a 16-bit selctor or value destined for the code segmet register.
+           # The valueto the right corresponds to the offset within the destination segmet. The ptr16:16
+           # symbol is used when the instruction's operand-size attribute is 16 bits; the ptr16:32 symbol
+           # is used wen the operand-size attribute is 32 bits.
+
+   :r8,  # one of the byte gneral-purpose registers:         AL,  CL,  DL,  BL,  AH,  CH,  DH,  BH
+   :r16, # one of the word general-purpose registers:        AX,  CX,  DX,  BX,  SP,  BP,  SI,  DI
+   :r32, # one of the double-word general purpose registers: EAX, ECX, EDX, EBX, ESP, EBP, ESI, EDI
+   
+   :imm8, # an immediate byte value. The imm8 symbol is a signed number between -128 and +127 inclusive.
+          # For instructins in which imm8 is combind with a word or doublewod operand, the immediate
+          # value is sign-extended to for a word or doubleword. The upper byte of the word is filled
+          # with the topmost bit of the immediate value
+   
+   :imm16, # an immediate word value used forinstructions hose operand-size attribute is 16 bits.
+           # This is a number between -32768 and +32767 inclusive.
+
+   :imm32, # an immediate doubleword value used for instructions whose operand-size attribute is 32 bits.
+           # It allows the use of a number between +2147483647 and -2147483648 inclusive.   
+      
+   :m, # a 16 or 32 bit operand in memory.
+
+   :m8, # a byte operand in memory, usually expressed as a variable or array name, but pointed to by
+        # the S:(E)SI or ES:(E)DI registers. This nomeclature is used only with the string instructions
+        # and the XLAT instruction.
+   
+   :m16, # a word operand in memory, usually exressed as a variable or array name, but pointed to by
+         # the DS()SI or ES(E)DI registers. This nomenclature is used only with te string instructions.
+   
+   :m32, # a doubleword operand in memory, usually expressed as a variable or array name, but pointed
+         # to by the DS:(E)SI or ES:(E)DI registers. This nomenclature is ued only with the string
+         # instructions
+   
+   :m64, # a memory quadword operand in memory. This nomenclaure is used only with the CMPXCHG8B instruction.
+   
+   :m128, # a mmory double quadword operand in memory. This nomenclature is used only wh the Streaming
+          # SIMD Extensions.
+
+   :rm8, # a byte operand thtis either the contents of a byte general-purpose register (AL, BL, CL, DL,
+         # AH, BH, CH and DH), or a byte from memory
+   
+   :rm16, # a word general-purpose register or memoy operand used for instructions whose operan-size attribute
+          # is 16 bits. The word gneral-purpose regsters are: AX, bx, CX, DX, SP, BP, SI and DI.
+          # The contents of memory are found at the address provided by the effective address computation.
+   
+   :rm32, # a doubleword general-purpose register or memory operand used for instructions whose operand-size
+          # attribute is 32 bits. The doubleword general-purpose registers are: EAX, EBX, ECX, EDX, ESP,
+          # EBP ESI and EDI. The contents of memory are found at the address provided by the effective
+          # address computation
+
+   :mm,  # an MMX™ technology register
+   :mm0,
+   :mm1,
+   :mm2,
+   :mm3,
+   :mm4,
+   :mm5,
+   :mm7,
+
+   :xmm,  # a SIMD floating-point register.
+   :xmm0,
+   :xmm1,
+   :xmm2,
+   :xmm3,
+   :xmm4,
+   :xmm5,
+   :xmm7,
+
+   :al,  :cl,  :dl,  :bl,  :ah,  :ch,  :dh,  :bh,
+   :ax,  :cx,  :dx,  :bx,  :sp,  :bp,  :si,  :di,
+   :eax, :ecx, :edx, :ebx, :esp, :ebp, :esi, :edi
+  ].each {|name|
+    value = Special.new(name)
+
+    define_method name do
+      value
+    end
+  }
+
+  def method_missing (id, *args)
+    @instructions[id.upcase].insert(-1, *args)
+  end
+
+  def to_hash
+    @instructions
+  end
+end
+
+end; end

data/lib/orgasm/arch/i386/instructions/dsl/special.rb

@@ -0,0 +1,75 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# This file is part of orgasm.
+#
+# orgasm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# orgasm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with orgasm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Orgasm; module I386
+
+class Special
+  class Operator
+    attr_reader :first, :second
+
+    def initialize (first, second)
+      @first  = first
+      @second = second
+    end
+  end
+
+  class Or < Operator
+    def to_s
+      "#{first}|#{second}"
+    end
+  end
+
+  class And < Operator
+    def to_s
+      "#{first}&#{second}"
+    end
+  end
+
+  class Offset < Operator
+    def to_s
+      "#{first}:#{second}"
+    end
+  end
+
+  def initialize (value)
+    @value = value
+  end
+
+  def | (value)
+    Or.new(self, value)
+  end
+
+  def & (value)
+    And.new(self, value)
+  end
+
+  def ^ (value)
+    Offset.new(self, value)
+  end
+
+  def to_sym
+    @value
+  end
+
+  def to_s
+    @value.to_s
+  end
+end
+
+end; end

data/lib/orgasm/arch/i386/instructions/instructions.rb

@@ -0,0 +1,50 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# This file is part of orgasm.
+#
+# orgasm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# orgasm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with orgasm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Orgasm; module I386
+
+class Instructions < Hash
+  def registers
+    [:al,  :cl,  :dl,  :bl,  :ah,  :ch,  :dh,  :bh,
+     :ax,  :cx,  :dx,  :bx,  :sp,  :bp,  :si,  :di,
+     :eax, :ecx, :edx, :ebx, :esp, :ebp, :esi, :edi]
+  end
+
+  def register? (value)
+    return unless case value.to_s.downcase
+      when /^e[abcd]x$/,
+           /^e[bs]p$/,
+           /^e[sd]i$/,
+           /^[abcd]x$/,
+           /^[sb]p$/,
+           /^[sd]i$/,
+           /^[abcd][lh]$/ then true
+
+      else false
+    end
+
+    case value.to_s.downcase
+      when /^e/     then 32
+      when /[xpi]$/ then 16
+      when /[lh]$/  then 8
+    end
+  end
+end
+
+end; end

data/lib/orgasm/arch/i386/styles.rb

@@ -0,0 +1,70 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# This file is part of orgasm.
+#
+# orgasm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# orgasm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with orgasm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+style 'Intel' do |style|
+  style.for Register do
+    name.to_s.downcase
+  end
+
+  style.for I386::Address do
+    offset? ? "[#{start}#{'%+d' % to_i}]" : "0x#{to_i.to_s(16)}"
+  end
+
+  style.for I386::Immediate do
+    to_i.to_s
+  end
+
+  style.for I386::Instruction do
+    "#{name.to_s.downcase}#{
+      case parameters.length
+        when 1 then " #{destination}"
+        when 2 then " #{destination}, #{source}"
+      end
+    }"
+  end
+
+  style.for Unknown do
+    "???(#{to_i})"
+  end
+end
+
+style 'AT&T' do |style|
+  style.for Register do
+    "%#{name.to_s.downcase}"
+  end
+
+  style.for Address do
+    offset? ? "#{to_i}(#{start})" : "0x#{to_i.to_s(16)}"
+  end
+
+  style.for I386::Immediate do
+    "$#{to_i.to_s}"
+  end
+
+  style.for I386::Instruction do
+    "#{name.to_s.downcase}#{
+      { b: 8, w: 16, l: 32 }.key((parameters.last.size rescue parameters.first.size rescue nil))
+    } #{parameters.reverse.join(', ')}"
+  end
+
+  style.for Unknown do
+    "???(#{to_i})"
+  end
+
+end

data/lib/orgasm/architecture.rb

@@ -0,0 +1,103 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# This file is part of orgasm.
+#
+# orgasm is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# orgasm is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with orgasm. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Orgasm
+
+class Architecture
+  @@archs = {}
+
+  class << self
+    def for (name, &block)
+      (@@archs[name.downcase.to_sym] ||= Architecture.new(name)).do(&block)
+    end
+
+    alias is for
+    alias in for
+
+    def [] (name)
+      @@archs[name.downcase.to_sym]
+    end
+
+    def method_missing (id, *)
+      return self[id] if self[id]
+
+      super
+    end
+  end
+
+  attr_reader :name
+
+  def initialize (name, &block)
+    @name    = name
+
+    self.do(&block)
+  end
+
+  def instructions (path=nil, &block)
+    return @instructions unless path or block
+
+    @instructions = if path
+      path = $:.each {|dir|
+        dir = File.join(dir, "#{path}.rb")
+
+        break dir if File.readable?(dir)
+      }.tap {|o|
+        raise LoadError, "no such file to load -- #{path}" unless o.is_a?(String)
+      }
+
+      instance_eval File.read(path), path, 1
+    else
+      instance_eval &block
+    end
+  end
+
+  [:disassembler, :assembler, :generator, :styles].each {|name|
+    define_method name do |path=nil, &block|
+      return instance_variable_get("@#{name}") unless path or block
+
+      instance_variable_set("@#{name}", if path
+        io = File.open($:.each {|dir|
+          dir = File.join(dir, "#{path}.rb")
+
+          break dir if File.readable?(dir)
+        }.tap {|o|
+          raise LoadError, "no such file to load -- #{path}" unless o.is_a?(String)
+        }, 'r')
+
+        Orgasm.const_get(name.capitalize).new(self, io)
+      else      
+        Orgasm.const_get(name.capitalize).new(self, &block)
+      end)
+    end
+  }
+
+  def do (string=nil, &block)
+    if block
+      instance_eval &block
+    elsif string
+      instance_eval string
+    end
+  end
+
+  def to_s
+    @name
+  end
+end
+
+end