odinflex 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 7c5b70806e04d651047d322586c99784f4b64146bf80a28aa5b733b135384e71
+  data.tar.gz: bef4880fba6965f96e8af257a5495f06d056a1caf14887f93429537b6a3adcc6
+SHA512:
+  metadata.gz: 9a5f351cffa64dfdd2e5631172b582e839f6d69f6b18c9f27fbebe0f7ad51e8b8ee56b746ee3975db8c8930b97a8ef72b17af64be4bbee2d7e3d1bd9e6d7cc11
+  data.tar.gz: e89f7f5d942a9883c276b31694a625fe705fdd1836557afb623957f8bdd708962b14455de38f21793fde4db58f8fd653cc1f20930edf49b37e90e3e08f0b366f

data/Gemfile

@@ -0,0 +1,5 @@
+source "https://rubygems.org"
+
+gem "minitest"
+gem "rake"
+gem "worf", git: "https://github.com/tenderlove/worf.git"

data/LICENSE

@@ -0,0 +1,201 @@
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "[]"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright 2021 Aaron Patterson
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.

data/README.md

@@ -0,0 +1,59 @@
+# OdinFlex
+
+This is just a collection of weird tools that I wrote for dealing with some
+binary file formats.  There is an AR parser and a MachO parser in here.
+
+
+## Examples
+
+Find debugging information:
+
+```ruby
+mach_o = OdinFlex::MachO.new(io)
+abbrev = mach_o.find_section "__debug_abbrev"
+
+# Do stuff with the debugging information
+```
+
+List all symbols in Ruby:
+
+```ruby
+require "odinflex/mach-o"
+
+File.open(RbConfig.ruby) do |f|
+  my_macho = OdinFlex::MachO.new f
+  my_macho.each do |section|
+    if section.symtab?
+      section.nlist.each { |symbol|
+        p symbol
+      }
+    end
+  end
+end
+```
+
+Find Ruby's archive file, then read the archive:
+
+```ruby
+require "odinflex/mach-o"
+require "odinflex/ar"
+
+archive = nil
+
+File.open(RbConfig.ruby) do |f|
+  my_macho = OdinFlex::MachO.new f
+  my_macho.each do |section|
+    if section.symtab?
+      archive = section.nlist.find_all(&:archive?).map(&:archive).uniq.first
+      break
+    end
+  end
+end
+
+File.open(archive) do |f|
+  ar = OdinFlex::AR.new f
+  ar.each do |object_file|
+    p object_file.identifier
+  end
+end
+```

data/Rakefile

@@ -0,0 +1,8 @@
+require "rake/testtask"
+
+Rake::TestTask.new do |t|
+  t.libs << "test"
+  t.test_files = FileList['test/*_test.rb']
+  t.verbose = true
+  t.warning = true
+end

data/lib/odinflex/ar.rb

@@ -0,0 +1,56 @@
+module OdinFlex
+  class AR
+    include Enumerable
+
+    HEADER_LENGTH = 16 + # File Identifier
+      12 + # File modification timestamp
+      6  + # Owner ID
+      6  + # Group ID
+      8  + # File Mode
+      10 + # File size in bytes
+      2    # Ending characters
+
+    AR_HEADER = "!<arch>\n"
+
+    def self.is_ar? io
+      pos = io.pos
+      header = io.read(AR_HEADER.length)
+      header == AR_HEADER
+    ensure
+      io.seek pos, IO::SEEK_SET
+    end
+
+    def initialize fd
+      @fd = fd
+      @pos = fd.pos
+    end
+
+    Info = Struct.new :identifier, :timestamp, :owner, :group, :mode, :size, :pos
+
+    def each
+      @fd.seek @pos, IO::SEEK_SET
+      header = @fd.read(AR_HEADER.length)
+
+      raise "Wrong Header" unless header == AR_HEADER
+
+      loop do
+        break if @fd.eof?
+
+        identifier, timestamp, owner, group, mode, size, ending =
+          @fd.read(HEADER_LENGTH).unpack('A16A12A6A6A8A10A2')
+
+        raise "wrong ending #{ending}" unless ending.bytes == [0x60, 0x0A]
+        pos = @fd.pos
+
+        # Assume BSD for now
+        fname_len = identifier[/\d+$/].to_i
+        filename = @fd.read(fname_len).unpack1('A*')
+        info = Info.new filename, timestamp, owner, group, mode, size.to_i - fname_len, @fd.pos
+
+        yield info
+
+        @fd.seek size.to_i + pos, IO::SEEK_SET
+      end
+    end
+  end
+end

data/lib/odinflex/mach-o.rb

@@ -0,0 +1,560 @@
+module OdinFlex
+class MachO
+  HEADER_MAGIC = 0xfeedfacf
+
+  def self.is_macho? io
+    pos = io.pos
+    header = io.read(8).unpack1 'L'
+    header == HEADER_MAGIC
+  ensure
+    io.seek pos, IO::SEEK_SET
+  end
+
+  attr_reader :start_pos
+
+  def initialize fd
+    @fd        = fd
+    @start_pos = @fd.pos
+  end
+
+  module SectionTypes
+    def section?; false; end
+    def symtab?; false; end
+    def segment?; false; end
+    def dysymtab?; false; end
+    def command?; false; end
+  end
+
+  class Header < Struct.new :magic,
+                      :cputype,
+                      :cpusubtype,
+                      :filetype,
+                      :ncmds,
+                      :sizeofcmds,
+                      :flags,
+                      :reserved
+
+    include SectionTypes
+
+    MH_OBJECT      = 0x1
+    MH_EXECUTE     = 0x2
+    MH_FVMLIB      = 0x3
+    MH_CORE        = 0x4
+    MH_PRELOAD     = 0x5
+    MH_DYLIB       = 0x6
+    MH_DYLINKER    = 0x7
+    MH_BUNDLE      = 0x8
+    MH_DYLIB_STUB  = 0x9
+    MH_DSYM        = 0xa
+    MH_KEXT_BUNDLE = 0xb
+    MH_FILESET     = 0xc
+
+    SIZEOF = 8 * 4 # 8 * (32 bit int)
+
+    def object_file?
+      filetype == MH_OBJECT
+    end
+
+    def executable_file?
+      filetype == MH_EXECUTE
+    end
+
+    def dsym_file?
+      filetype == MH_DSYM
+    end
+  end
+
+  class Command
+    include SectionTypes
+
+    attr_reader :cmd, :size
+
+    def self.from_offset offset, io
+      io.seek offset, IO::SEEK_SET
+      cmd, size = io.read(2 * 4).unpack('LL')
+      from_io cmd, size, offset, io
+    end
+
+    def initialize cmd, size
+      @cmd = cmd
+      @size = size
+    end
+
+    def command?; true; end
+  end
+
+  class LC_UNIXTHREAD < Command
+    VALUE = 0x04
+    SIZE  = 16 # uuid
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, io.read(SIZE))
+    end
+
+    attr_reader :uuid
+
+    def initialize cmd, size, uuid
+      super(cmd, size)
+      @uuid = uuid
+    end
+  end
+
+  class LC_FUNCTION_STARTS < Command
+    VALUE = 0x26
+    SIZE  = 4 + # dataoff
+            4   # datasize
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE).unpack("LL"))
+    end
+
+    attr_reader :dataoff, :datasize
+
+    def initialize cmd, size, dataoff, datasize
+      super(cmd, size)
+      @dataoff  = dataoff
+      @datasize = datasize
+    end
+  end
+
+  class LC_DATA_IN_CODE < LC_FUNCTION_STARTS
+    VALUE = 0x29
+  end
+
+  class LC_LOAD_DYLIB < Command
+    VALUE = 0xc
+
+    def self.from_io cmd, size, offset, io
+      # `size` is the total segment size including command and length bytes
+      # so we need to remove them from the size.
+      args = io.read(4 * 4).unpack('LLLL')
+      io.seek offset + args.first, IO::SEEK_SET
+      name = io.read(size - 8 - (4 * 4)).unpack1('A*')
+      new(cmd, size, name, *args)
+    end
+
+    def initialize cmd, size, name, str_offset, timestamp, current_version, compat_version
+      super(cmd, size)
+      @name            = name
+      @str_offset      = str_offset
+      @timestamp       = timestamp
+      @current_version = current_version
+      @compat_version  = compat_version
+    end
+  end
+
+  class LC_LOAD_DYLINKER < Command
+    VALUE = 0xe
+
+    def self.from_io cmd, size, offset, io
+      # `size` is the total segment size including command and length bytes
+      # so we need to remove them from the size.
+      new(cmd, size, *io.read(size - 8).unpack('LA*'))
+    end
+
+    attr_reader :name
+
+    def initialize cmd, size, offset, name
+      super(cmd, size)
+      @offset = offset
+      @name = name
+    end
+  end
+
+  class LC_VERSION_MIN_MACOSX < Command
+    VALUE = 0x24
+    SIZE  = 16 # uuid
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE))
+    end
+
+    attr_reader :uuid
+
+    def initialize cmd, size, uuid
+      super(cmd, size)
+      @uuid = uuid
+    end
+  end
+
+  class LC_UUID < Command
+    VALUE = 0x1b
+    SIZE  = 16 # uuid
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE))
+    end
+
+    attr_reader :uuid
+
+    def initialize cmd, size, uuid
+      super(cmd, size)
+      @uuid = uuid
+    end
+  end
+
+  class LC_SOURCE_VERSION < Command
+    VALUE = 0x2A
+    SIZE  = 8 # version
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE).unpack('Q'))
+    end
+
+    def initialize cmd, size, version
+      super(cmd, size)
+      @version = version
+    end
+  end
+
+  class LC_BUILD_VERSION < Command
+    VALUE = 0x32
+    SIZE = 4 + # platform
+           4 + # minos
+           4 + # sdk
+           4   # ntools
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE).unpack('L4'))
+    end
+
+    attr_reader :platform, :minos, :sdk, :ntools
+
+    def initialize cmd, size, platform, minos, sdk, ntools
+      super(cmd, size)
+      @platform = platform
+      @minos    = minos
+      @sdk      = sdk
+      @ntools   = ntools
+    end
+  end
+
+  class LC_SYMTAB < Command
+    VALUE = 0x2
+    SIZE = 4 + # symoff
+           4 + # nsyms
+           4 + # stroff
+           4   # strsize
+
+    class NList < Struct.new(:name, :index, :type, :sect, :desc, :value)
+      using Module.new {
+        refine Integer do
+          def inspect; sprintf("%#x", self); end
+        end
+      }
+
+      # From stab.h
+      N_GSYM  = 0x20 # global symbol
+      N_FNAME = 0x22 # function name
+      N_FUN   = 0x24 # function
+      N_STSYM = 0x26
+      N_LCSYM = 0x28
+      N_BNSYM = 0x2e
+      N_AST   = 0x32
+      N_OPT   = 0x3c
+      N_RSYM  = 0x40
+      N_SLINE = 0x44
+      N_ENSYM = 0x4e
+      N_SSYM  = 0x60
+      N_SO    = 0x64
+      N_OSO   = 0x66
+
+      constants.each { |n|
+        define_method(n.to_s.sub(/^N_/, '').downcase + "?") { type == self.class::const_get(n) }
+      }
+
+      # define these constants after the above metaprogramming so they don't get
+      # metaprogrammed methods :grimace:
+
+      # From nlist.h
+      N_STAB  = 0xe0
+      N_PEXT  = 0x10
+      N_TYPE  = 0x0e
+      N_EXT   = 0x01
+
+      def stab?; (type & N_STAB) != 0; end
+
+      def archive?
+        oso? && name =~ /[(][^)]*[)]$/
+      end
+
+      def archive
+        name[/^.*(?=[(][^)]*[)]$)/]
+      end
+
+      def object
+        name[/(?<=[(])[^)]*(?=[)]$)/]
+      end
+
+      def inspect
+        start = "#<struct #{self.class} "
+        members.inject(start) { |buffer, member|
+          buffer + " #{member.to_s}=#{self[member].inspect}"
+        } + ">"
+      end
+    end
+
+    def self.from_io cmd, size, offset, io
+      current = io.pos
+      symoff, nsyms, stroff, strsize = *io.read(SIZE).unpack('L4')
+
+      io.seek stroff, IO::SEEK_SET
+      stable = io.read(strsize)
+
+      io.seek symoff, IO::SEEK_SET
+
+      nlist = nsyms.times.map do |i|
+        index = io.read(4).unpack1 'L'
+        x = stable.byteslice(index, stable.bytesize)
+        unless x
+          return new(cmd, size, symoff, nsyms, stroff, strsize, [])
+        end
+        name = x.unpack1 "Z*"
+        NList.new(name, index, *io.read(1 + 1 + 2 + 8).unpack('CCsQ'))
+      end
+      new(cmd, size, symoff, nsyms, stroff, strsize, nlist)
+    ensure
+      io.seek current, IO::SEEK_SET
+    end
+
+    attr_reader :symoff, :nsyms, :stroff, :strsize, :nlist
+
+    def initialize cmd, size, symoff, nsyms, stroff, strsize, nlist
+      super(cmd, size)
+      @symoff  = symoff
+      @nsyms   = nsyms
+      @stroff  = stroff
+      @strsize = strsize
+      @nlist   = nlist
+    end
+
+    def symtab?; true; end
+  end
+
+  class LC_DYSYMTAB < Command
+    VALUE = 0xb
+    SIZE = 18 * 4
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE).unpack('L18'))
+    end
+
+    attr_reader :ilocalsym,
+      :nlocalsym,
+      :iextdefsym,
+      :nextdefsym,
+      :iundefsym,
+      :nundefsym,
+      :tocoff,
+      :ntoc,
+      :modtaboff,
+      :nmodtab,
+      :extrefsymoff,
+      :nextrefsyms,
+      :indirectsymoff,
+      :nindirectsyms,
+      :extreloff,
+      :nextrel,
+      :locreloff,
+      :nlocrel
+
+    def initialize cmd,
+      size,
+      ilocalsym,
+      nlocalsym,
+      iextdefsym,
+      nextdefsym,
+      iundefsym,
+      nundefsym,
+      tocoff,
+      ntoc,
+      modtaboff,
+      nmodtab,
+      extrefsymoff,
+      nextrefsyms,
+      indirectsymoff,
+      nindirectsyms,
+      extreloff,
+      nextrel,
+      locreloff,
+      nlocrel
+      super(cmd, size)
+
+      @ilocalsym      = ilocalsym
+      @nlocalsym      = nlocalsym
+      @iextdefsym     = iextdefsym
+      @nextdefsym     = nextdefsym
+      @iundefsym      = iundefsym
+      @nundefsym      = nundefsym
+      @tocoff         = tocoff
+      @ntoc           = ntoc
+      @modtaboff      = modtaboff
+      @nmodtab        = nmodtab
+      @extrefsymoff   = extrefsymoff
+      @nextrefsyms    = nextrefsyms
+      @indirectsymoff = indirectsymoff
+      @nindirectsyms  = nindirectsyms
+      @extreloff      = extreloff
+      @nextrel        = nextrel
+      @locreloff      = locreloff
+      @nlocrel        = nlocrel
+    end
+
+    def dysymtab?; true; end
+  end
+
+  class LC_SEGMENT_64 < Command
+    VALUE = 0x19
+    SIZE = 16 + # segname
+            8 + # vmaddr
+            8 + # vmsize
+            8 + # fileoff
+            8 + # filesize
+            4 + # maxprot
+            4 + # initprot
+            4 + # nsects
+            4   # flags
+
+    def self.from_io cmd, size, offset, io
+      new(cmd, size, *io.read(SIZE).unpack('A16Q4L4'))
+    end
+
+    attr_reader :segname, :vmaddr, :vmsize, :fileoff, :filesize, :maxprot, :initprot, :nsects, :flags
+
+    def initialize cmd, size, segname, vmaddr, vmsize, fileoff, filesize, maxprot, initprot, nsects, flags
+      super(cmd, size)
+      @segname  = segname
+      @vmaddr   = vmaddr
+      @vmsize   = vmsize
+      @fileoff  = fileoff
+      @filesize = filesize
+      @maxprot  = maxprot
+      @initprot = initprot
+      @nsects   = nsects
+      @flags    = flags
+    end
+
+    def segment?; true; end
+  end
+
+  class Section < Struct.new :io, :start_pos, :sectname, :segname, :addr, :size, :offset, :align, :reloff, :nreloc, :flags, :reserved1, :reserved2, :reserved3
+
+    include SectionTypes
+
+    def section?; true; end
+
+    def as_dwarf
+      raise NotImplementedError, "load WORF" unless defined?(::WORF)
+
+      case sectname
+      when "__debug_abbrev"
+        WORF::DebugAbbrev.new io, self, start_pos
+      when "__debug_info"
+        WORF::DebugInfo.new io, self, start_pos
+      when "__debug_str"
+        WORF::DebugStrings.new io, self, start_pos
+      when "__debug_line"
+        WORF::DebugLine.new io, self, start_pos
+      else
+        raise NotImplementedError
+      end
+    end
+  end
+
+  include Enumerable
+
+  def executable?
+    header.executable_file?
+  end
+
+  def object?
+    header.object_file?
+  end
+
+  def dsym?
+    header.dsym_file?
+  end
+
+  def each
+    h = header
+
+    yield h
+
+    @fd.seek @start_pos + Header::SIZEOF, IO::SEEK_SET
+
+    next_pos = @fd.pos
+
+    h.ncmds.times do |i|
+      @fd.seek next_pos, IO::SEEK_SET
+
+      cmd, size = @fd.read(2 * 4).unpack('LL')
+
+      case cmd
+      when LC_SEGMENT_64::VALUE
+        lc = LC_SEGMENT_64.from_offset(next_pos, @fd)
+        yield lc
+        lc.nsects.times do
+          args = @fd.read(32 + (2 * 8) + (8 * 4)).unpack('A16A16QQL8')
+          yield Section.new(@fd, start_pos, *args)
+        end
+      when LC_FUNCTION_STARTS::VALUE
+        yield LC_FUNCTION_STARTS.from_offset(next_pos, @fd)
+      when LC_DATA_IN_CODE::VALUE
+        yield LC_DATA_IN_CODE.from_offset(next_pos, @fd)
+      when LC_BUILD_VERSION::VALUE
+        yield LC_BUILD_VERSION.from_offset(next_pos, @fd)
+      when LC_LOAD_DYLIB::VALUE
+        yield LC_LOAD_DYLIB.from_offset(next_pos, @fd)
+      when LC_LOAD_DYLINKER::VALUE
+        yield LC_LOAD_DYLINKER.from_offset(next_pos, @fd)
+      when LC_SOURCE_VERSION::VALUE
+        yield LC_SOURCE_VERSION.from_offset(next_pos, @fd)
+      when LC_SYMTAB::VALUE
+        yield LC_SYMTAB.from_offset(next_pos, @fd)
+      when LC_DYSYMTAB::VALUE
+        yield LC_DYSYMTAB.from_offset(next_pos, @fd)
+      when LC_UUID::VALUE
+        yield LC_UUID.from_offset(next_pos, @fd)
+      else
+        # Just skip stuff we don't know about
+        if $DEBUG
+          puts "Unknown command #{cmd}"
+        end
+      end
+
+      next_pos += size
+    end
+  end
+
+  def find_section name
+    find { |thing| thing.section? && thing.sectname == name }
+  end
+
+  def read section
+    save_pos do
+      @fd.seek @start_pos + section.offset, IO::SEEK_SET
+      data = @fd.read(section.size)
+      data.bytes.each_slice(16) do |list|
+        p list.map { |x| sprintf("%02x", x) }.join ' '
+      end
+    end
+  end
+
+  def header
+    @fd.seek @start_pos, IO::SEEK_SET
+    header = Header.new(*@fd.read(Header::SIZEOF).unpack('L8'))
+    # I don't want to deal with endianness
+    raise 'not supported' unless header.magic == HEADER_MAGIC
+    header
+  end
+
+  private
+
+  def save_pos
+    pos = @fd.pos
+    yield
+  ensure
+    @fd.seek pos, IO::SEEK_SET
+  end
+end
+end