asmrepl 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: d89ea7a3b6af16e72444221e66fa9c2af2ceaebaae8c4e48d7a30d4b419283f5
+  data.tar.gz: 7b9e86750882fe36a9fdf5ee311e7cdb483c19faf3ffa8a46bdb85808a93e455
+SHA512:
+  metadata.gz: c583255650ca956401117259c068faa6cae8f8df435b88d447186a883a8c32b45a6e6e8d16aae0fc082f4b6b979156ee88aeea6c27bf4296f73fe0c15b7b85f0
+  data.tar.gz: 349bcb373b93a9dec96421be445005dba162325acea07eb3e20850fd7078550d67576059ea81c33be9d99fe9f6147e8e3bde1d2945989372671e1d5418b3b141

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,78 @@
+
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to make participation in our project and
+our community a harassment-free experience for everyone, regardless of age, body
+size, disability, ethnicity, sex characteristics, gender identity and expression,
+level of experience, education, socio-economic status, nationality, personal
+appearance, race, religion, or sexual identity and orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+  advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+  address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies within all project spaces, and it also applies when
+an individual is representing the project or its community in public spaces.
+Examples of representing a project or community include using an official
+project e-mail address, posting via an official social media account, or acting
+as an appointed representative at an online or offline event. Representation of
+a project may be further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at aaron.patterson at gmail.com. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. The project team is
+obligated to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
+available at https://www.contributor-covenant.org/version/1/4/code-of-conduct.html
+
+[homepage]: https://www.contributor-covenant.org
+
+For answers to common questions about this code of conduct, see
+https://www.contributor-covenant.org/faq
+

data/Gemfile

@@ -0,0 +1,3 @@
+source "https://rubygems.org"
+
+gemspec

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,83 @@
+# ASMREPL
+
+This is a REPL for assembly language.
+
+## Usage
+
+I haven't made a gem yet, so use it like this:
+
+```
+$ bundle install
+$ sudo ruby -I lib:test bin/asmrepl
+```
+
+When the REPL starts, it will display all register values and flags:
+
+```
+================== CPU STATE ===================
+rax  000000000000000000  r8   0x0000600001782be0
+rbx  000000000000000000  r9   0x00007fbf9b0068c0
+rcx  0x0000000109dae951  r10  000000000000000000
+rdx  0x000000000000000c  r11  0x000000010999c000
+rdi  0x00007ff7b6b2bbf0  r12  000000000000000000
+rsi  0x00000001096315fd  r13  0x00007ff7b6b2bdc0
+rbp  0x00007ff7b6b2bc40  r14  000000000000000000
+rsp  0x00007ff7b6b2bc38  r15  000000000000000000
+
+rip     0x000000010999c001
+rflags  0x0000000000000246
+cs      0x000000000000002b
+fs      000000000000000000
+gs      000000000000000000
+
+FLAGS: ["PF", "ZF", "IF"]
+
+>> 
+```
+
+Then you can issue commands and inspect register values.  Let's write to the
+`rax` register and inspect its value:
+
+```
+>> mov rax, 5
+>> rax
+0x0000000000000005
+>> 
+```
+
+Now let's write to the `rbx` register and add the two values:
+
+```
+>> mov rbx, 3
+>> add rax, rbx
+>> rax
+0x0000000000000008
+>> rbx
+0x0000000000000003
+>> 
+```
+
+Finally, lets check all values in the CPU:
+
+```
+>> cpu
+================== CPU STATE ===================
+rax  0x0000000000000008  r8   0x0000600001d848a0
+rbx  0x0000000000000003  r9   0x00007fced316f850
+rcx  0x00000001017da951  r10  000000000000000000
+rdx  0x000000000000000c  r11  0x00000001013cc000
+rdi  0x00007ff7bf0fdbf0  r12  000000000000000000
+rsi  0x000000010105f5fd  r13  0x00007ff7bf0fddc0
+rbp  0x00007ff7bf0fdc40  r14  000000000000000000
+rsp  0x00007ff7bf0fdc38  r15  000000000000000000
+
+rip     0x00000001013cc029
+rflags  0x0000000000000202
+cs      0x000000000000002b
+fs      000000000000000000
+gs      000000000000000000
+
+FLAGS: ["IF"]
+
+>> 
+```

data/Rakefile

@@ -0,0 +1,23 @@
+require "rake/testtask"
+require "rake/clean"
+
+ENV["MT_NO_PLUGINS"] = "1"
+
+file "lib/asmrepl/parser.tab.rb" => "lib/asmrepl/parser.y" do |t|
+  sh "racc -l -o #{t.name} #{t.prerequisites.first}"
+end
+
+task :compile => "lib/asmrepl/parser.tab.rb"
+
+Rake::TestTask.new do |t|
+  t.libs << "test"
+  t.test_files = FileList['test/*_test.rb']
+  t.verbose = true
+  t.warning = true
+end
+
+task :autotest do
+  sh "fswatch -o lib test | xargs -n1 -I{} bundle exec rake test"
+end
+
+task :test => :compile

data/asmrepl.gemspec

@@ -0,0 +1,24 @@
+$: << File.expand_path("lib")
+
+require "asmrepl/version"
+
+Gem::Specification.new do |s|
+  s.name        = "asmrepl"
+  s.version     = ASMREPL::VERSION
+  s.summary     = "Write assembly in a REPL!"
+  s.description = "Tired of writing assembly and them assembling it? Now you can write assembly and evaluate it!"
+  s.authors     = ["Aaron Patterson"]
+  s.email       = "tenderlove@ruby-lang.org"
+  s.files       = `git ls-files -z`.split("\x0")
+  s.test_files  = s.files.grep(%r{^test/})
+  s.homepage    = "https://github.com/tenderlove/asmrepl"
+  s.license     = "Apache-2.0"
+  s.bindir      = "bin"
+
+  s.executables << "asmrepl"
+
+  s.add_development_dependency 'minitest', '~> 5.14'
+  s.add_development_dependency 'crabstone', '~> 4.0'
+  s.add_development_dependency 'rake', '~> 13.0'
+  s.add_dependency 'fisk', '~> 2'
+end

data/bin/asmrepl

@@ -0,0 +1,5 @@
+#!/bin/env ruby
+
+require "asmrepl"
+
+ASMREPL::REPL.new.start

data/lib/asmrepl/assembler.rb

@@ -0,0 +1,49 @@
+module ASMREPL
+  class Assembler
+    def assemble ast
+      fisk = Fisk.new
+
+      case ast
+      in [:command, [:instruction, insn], [:register, r], [:int, n]]
+        possibles = insn.forms.find_all do |form|
+          form.operands.first.type == r.type
+        end
+        l = if possibles.any? { |form| form.operands[1].type == n.to_s }
+          fisk.lit(n)
+        else
+          fisk.imm(n)
+        end
+        fisk.gen_with_insn insn, [r, l]
+      in [:command, [:instruction, insn], [:register, r], [:register, r2]]
+        fisk.gen_with_insn insn, [r, r2]
+      in [:command, [:instruction, insn], [:register, r], [:memory, mem]]
+        fisk.gen_with_insn insn, [r, mem]
+      in [:command, [:instruction, insn], [:memory, a], [:register, b]]
+        fisk.gen_with_insn insn, [a, b]
+      in [:command, [:instruction, insn], [:int, n]]
+        forms = insn.forms
+
+        l = if forms.any? { |form| form.operands[0].type == n.to_s }
+          fisk.lit(n)
+        else
+          fisk.imm(n)
+        end
+        fisk.gen_with_insn insn, [l]
+
+      in [:command, [:instruction, insn], [:register, n]]
+        fisk.gen_with_insn insn, [n]
+      in [:command, [:instruction, insn], [:memory, n]]
+        fisk.gen_with_insn insn, [n]
+      in [:command, [:instruction, insn], [:memory, n], [:int, b]]
+        fisk.gen_with_insn insn, [n, fisk.imm(b)]
+      in [:command, [:instruction, insn]]
+        fisk.gen_with_insn insn, []
+      else
+        p ast
+        raise "Unknown"
+      end
+
+      fisk.to_binary
+    end
+  end
+end

data/lib/asmrepl/linux.rb

@@ -0,0 +1,186 @@
+require "fisk/helpers"
+
+module ASMREPL
+  module Linux
+    include Fiddle
+
+    def self.make_function name, args, ret
+      ptr = Handle::DEFAULT[name]
+      func = Function.new ptr, args, ret, name: name
+      define_singleton_method name, &func.to_proc
+    end
+
+    # from sys/mman.h on macOS
+    PROT_READ   = 0x01
+    PROT_WRITE  = 0x02
+    PROT_EXEC   = 0x04
+    MAP_PRIVATE = 0x0002
+    MAP_SHARED  = 0x0001
+    MAP_ANON    = 0x20
+
+    make_function "ptrace", [TYPE_INT, TYPE_INT, TYPE_VOIDP, TYPE_VOIDP], TYPE_INT
+    make_function "memset", [TYPE_VOIDP, TYPE_INT, TYPE_SIZE_T], TYPE_VOID
+
+    make_function "mmap", [TYPE_VOIDP,
+                           TYPE_SIZE_T,
+                           TYPE_INT,
+                           TYPE_INT,
+                           TYPE_INT,
+                           TYPE_INT], TYPE_VOIDP
+
+    def self.mmap_jit size
+      ptr = mmap 0, size, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_SHARED | MAP_ANON, -1, 0
+      ptr.size = size
+      ptr
+    end
+
+    def self.jitbuffer size
+      Fisk::Helpers::JITBuffer.new mmap_jit(size), size
+    end
+
+    PTRACE_TRACEME = 0
+
+    PTRACE_CONT = 7
+
+    # x86_64-linux-gnu/sys/ptrace.h
+    PTRACE_GETREGS = 12
+
+    def self.traceme
+      raise unless ptrace(PTRACE_TRACEME, 0, 0, 0).zero?
+    end
+
+    class ThreadState
+      fields = (<<-eostruct).scan(/int ([^;]*);/).flatten
+struct user_regs_struct
+{
+  __extension__ unsigned long long int r15;
+  __extension__ unsigned long long int r14;
+  __extension__ unsigned long long int r13;
+  __extension__ unsigned long long int r12;
+  __extension__ unsigned long long int rbp;
+  __extension__ unsigned long long int rbx;
+  __extension__ unsigned long long int r11;
+  __extension__ unsigned long long int r10;
+  __extension__ unsigned long long int r9;
+  __extension__ unsigned long long int r8;
+  __extension__ unsigned long long int rax;
+  __extension__ unsigned long long int rcx;
+  __extension__ unsigned long long int rdx;
+  __extension__ unsigned long long int rsi;
+  __extension__ unsigned long long int rdi;
+  __extension__ unsigned long long int orig_rax;
+  __extension__ unsigned long long int rip;
+  __extension__ unsigned long long int cs;
+  __extension__ unsigned long long int eflags;
+  __extension__ unsigned long long int rsp;
+  __extension__ unsigned long long int ss;
+  __extension__ unsigned long long int fs_base;
+  __extension__ unsigned long long int gs_base;
+  __extension__ unsigned long long int ds;
+  __extension__ unsigned long long int es;
+  __extension__ unsigned long long int fs;
+  __extension__ unsigned long long int gs;
+};
+      eostruct
+      fields.each_with_index do |field, i|
+        define_method(field) do
+          to_ptr[Fiddle::SIZEOF_INT64_T * i, Fiddle::SIZEOF_INT64_T].unpack1("l!")
+        end
+      end
+
+      define_singleton_method(:sizeof) do
+        fields.length * Fiddle::SIZEOF_INT64_T
+      end
+
+      def [] name
+        idx = fields.index(name)
+        return unless idx
+        to_ptr[Fiddle::SIZEOF_INT64_T * idx, Fiddle::SIZEOF_INT64_T].unpack1("l!")
+      end
+
+      def self.malloc
+        new Fiddle::Pointer.malloc sizeof
+      end
+
+      attr_reader :to_ptr
+
+      def initialize buffer
+        @to_ptr = buffer
+      end
+
+      define_method(:fields) do
+        fields
+      end
+
+      def to_s
+        buf = ""
+        fields.first(8).zip(fields.drop(8).first(8)).each do |l, r|
+          buf << "#{l.ljust(3)}  #{sprintf("%#018x", send(l))}"
+          buf << "  "
+          buf << "#{r.ljust(3)}  #{sprintf("%#018x", send(r))}\n"
+        end
+
+        buf << "\n"
+
+        fields.drop(16).each do |reg|
+          buf << "#{reg.ljust(8)}  #{sprintf("%#018x", send(reg))}\n"
+        end
+        buf
+      end
+
+      FLAGS = [
+        ['CF', 'Carry Flag'],
+        [nil, 'Reserved'],
+        ['PF', 'Parity Flag'],
+        [nil, 'Reserved'],
+        ['AF', 'Adjust Flag'],
+        [nil, 'Reserved'],
+        ['ZF', 'Zero Flag'],
+        ['SF', 'Sign Flag'],
+        ['TF', 'Trap Flag'],
+        ['IF', 'Interrupt Enable Flag'],
+        ['DF', 'Direction Flag'],
+        ['OF', 'Overflow Flag'],
+        ['IOPL_H', 'I/O privilege level High bit'],
+        ['IOPL_L', 'I/O privilege level Low bit'],
+        ['NT', 'Nested Task Flag'],
+        [nil, 'Reserved'],
+      ]
+
+      def flags
+        flags = eflags
+        f = []
+        FLAGS.each do |abbrv, _|
+          if abbrv && flags & 1 == 1
+            f << abbrv
+          end
+          flags >>= 1
+        end
+        f
+      end
+    end
+
+    class Tracer
+      def initialize pid
+        @pid = pid
+      end
+
+      def wait
+        Process.waitpid @pid
+      end
+
+      def state
+        state = ThreadState.malloc
+        raise unless Linux.ptrace(PTRACE_GETREGS, @pid, 0, state).zero?
+
+        state
+      end
+
+      def continue
+        unless Linux.ptrace(Linux::PTRACE_CONT, @pid, 1, 0).zero?
+          raise
+        end
+      end
+    end
+  end
+end