orgasm 0.0.1a2 → 0.0.1a3

data/lib/orgasm/generator/dsl.rb

@@ -0,0 +1,60 @@
+#--
+# 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 Generator < Piece
+
+class DSL < BasicObject
+  def initialize (&block)
+    @block = block
+  end
+
+  def execute (generator)
+    @generator    = generator
+    @instructions = []
+
+    instance_eval &@block
+
+    @instructions
+  end
+
+  def method_missing (id, *args, &block)
+    if @generator.respond_to? id
+      return @generator.__send__ id, *args, &block
+    end
+
+    @instructions << if @generator.respond_to? :callback
+      @generator.callback id, *args, &block
+    else
+      @generator.for(::Orgasm::Instruction).call(id) {|i|
+        args.each {|arg|
+          i.parameters << case arg
+            when ::Symbol  then @generator.for(::Orgasm::Register).call(arg)
+            when ::Array   then @generator.for(::Orgasm::Address).call(arg)
+            when ::Integer then
+              if arg.frozen? then @generator.for(::Orgasm::Constant).call(arg)
+              else                @generator.for(::Orgasm::Address).call(arg)
+              end
+          end
+        }
+      }
+    end
+  end
+end
+
+end; end

data/lib/orgasm/piece.rb

@@ -0,0 +1,49 @@
+#--
+# 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 Piece
+  attr_reader :arch
+
+  def initialize (arch, io=nil, &block)
+    @arch = arch
+
+    instance_eval io.read if io
+    instance_eval &block  if block
+  end
+
+  def self.inherited (subclass)
+    subclass.class_eval {
+      define_method subclass.name[/([^:]+)$/].downcase do
+        self
+      end
+    }
+  end
+
+  def method_missing (id, *args, &block)
+    if @arch.respond_to? id
+      @arch.__send__ id, *args, &block
+    else
+      super
+    end
+  end
+end
+
+end

data/lib/orgasm/styles.rb

@@ -0,0 +1,64 @@
+#--
+# 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/styles/style'
+
+module Orgasm
+
+class Styles < Piece
+  def initialize (*)
+    @styles = []
+
+    super
+  end
+
+  def style (*args, &block)
+    @styles << Style.new(*args, &block)
+  end
+
+  def use (name)
+    @current = @styles.find {|style|
+      style.names.member?(name)
+    }
+  end
+
+  def current
+    @current or use(@styles.first.name)
+  end
+
+  def extend (*things)
+    styles = self
+
+    things.flatten.compact.each {|thing|
+      thing.refine_method :to_s do |old, *|
+        begin
+          styles.apply(self) or old.call or inspect
+        rescue
+          old.call or inspect
+        end
+      end
+    }
+  end
+
+  def apply (thing)
+    current.apply(thing)
+  end
+end
+
+end

data/lib/orgasm/styles/style.rb

@@ -0,0 +1,55 @@
+#--
+# 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 Styles < Piece
+
+class Style
+  attr_reader :names
+
+  def initialize (*names)
+    @names = names
+    @for   = {}
+
+    yield self
+  end
+
+  def for (klass, &block)
+    @for[klass] = block
+  end
+
+  def apply (thing)
+    callback = @for[thing.class] or @for.find {|(what, block)|
+      what.ancestors.member?(thing.class)
+    }.last
+
+    if callback
+      thing.instance_eval &callback
+    end
+  end
+
+  def name
+    names.first
+  end
+
+  def to_s
+    name
+  end
+end
+
+end; end

data/lib/orgasm/version.rb

@@ -19,6 +19,6 @@
 
 module Orgasm
   def self.version
-    '0.0.1a2'
+    '0.0.1a3'
   end
 end

metadata

@@ -2,7 +2,7 @@
 name: orgasm
 version: !ruby/object:Gem::Version 
   prerelease: 5
-  version: 0.0.1a2
+  version: 0.0.1a3
 platform: ruby
 authors: 
 - meh.
@@ -10,13 +10,35 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-07-20 00:00:00 Z
-dependencies: []
-
+date: 2011-07-21 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: memoized
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: refining
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
 description: 
 email: meh@paranoici.org
 executables: 
-- disorgasm
+- swallow
+- ejaculate
 extensions: []
 
 extra_rdoc_files: []
@@ -24,22 +46,40 @@ extra_rdoc_files: []
 files: 
 - lib/orgasm/format/elf.rb
 - lib/orgasm/format/pe.rb
+- lib/orgasm/base.rb
+- lib/orgasm/base/register.rb
+- lib/orgasm/base/unknown.rb
+- lib/orgasm/base/address.rb
+- lib/orgasm/base/constant.rb
+- lib/orgasm/base/instruction.rb
+- lib/orgasm/arch/i386.rb
+- lib/orgasm/arch/i386/base.rb
+- lib/orgasm/arch/i386/instructions/instructions.rb
+- lib/orgasm/arch/i386/instructions/dsl/special.rb
+- lib/orgasm/arch/i386/instructions/dsl.rb
+- lib/orgasm/arch/i386/base/register.rb
+- lib/orgasm/arch/i386/base/immediate.rb
+- lib/orgasm/arch/i386/base/address.rb
+- lib/orgasm/arch/i386/base/instruction.rb
+- lib/orgasm/arch/i386/instructions.rb
+- lib/orgasm/arch/i386/generator.rb
+- lib/orgasm/arch/i386/styles.rb
 - lib/orgasm/arch/i386/disassembler.rb
+- lib/orgasm/generator/dsl.rb
 - lib/orgasm/assembler.rb
+- lib/orgasm/extensions.rb
 - lib/orgasm/version.rb
-- lib/orgasm/common/register.rb
-- lib/orgasm/common/unknown.rb
-- lib/orgasm/common/address.rb
-- lib/orgasm/common/extensions.rb
-- lib/orgasm/common/constant.rb
-- lib/orgasm/common/instruction.rb
-- lib/orgasm/style.rb
+- lib/orgasm/generator.rb
+- lib/orgasm/architecture.rb
+- lib/orgasm/styles.rb
+- lib/orgasm/styles/style.rb
 - lib/orgasm/disassembler.rb
 - lib/orgasm/disassembler/decoder.rb
 - lib/orgasm/format.rb
-- lib/orgasm/common.rb
+- lib/orgasm/piece.rb
 - lib/orgasm.rb
-- bin/disorgasm
+- bin/swallow
+- bin/ejaculate
 homepage: http://github.com/meh/orgasm
 licenses: []
 

data/lib/orgasm/common.rb

@@ -1,36 +0,0 @@
-#--
-# 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/common/extensions'
-
-require 'orgasm/common/unknown'
-require 'orgasm/common/instruction'
-require 'orgasm/common/address'
-require 'orgasm/common/register'
-require 'orgasm/common/constant'
-
-module Orgasm
-
-def self.object? (value)
-  [Unknown, Instruction, Address, Register, Constant].any? {|klass|
-    value.is_a?(klass)
-  } && value
-end
-
-end