Ptrace 0.9.1

data/module/Ptrace.h

@@ -0,0 +1,51 @@
+/* Ptrace.h
+ * Copyright 2011 Thoughtgang <http://www.thoughtgang.org>
+ * Written by TG Community Developers <community@thoughtgang.org>
+ * Released under the GNU Public License, version 3.
+ * See http://www.gnu.org/licenses/gpl.txt for details.
+ */
+
+#ifndef PTRACE_RUBY_EXTENSION_H
+#define PTRACE_RUBY_EXTENSION_H
+
+#define SZ_PTRACE_TRACEME "traceme"
+#define SZ_PTRACE_PEEKTEXT "peektext"
+#define SZ_PTRACE_PEEKDATA "peekdata"
+#define SZ_PTRACE_PEEKUSR "peekusr"
+#define SZ_PTRACE_POKETEXT "poketext"
+#define SZ_PTRACE_POKEDATA "pokedata"
+#define SZ_PTRACE_POKEUSR "pokeusr"
+#define SZ_PTRACE_GETREGS "getregs"
+#define SZ_PTRACE_GETFPREGS "getfpregs"
+#define SZ_PTRACE_GETFPXREGS "getfpxregs"
+#define SZ_PTRACE_SETREGS "setregs"
+#define SZ_PTRACE_SETFPREGS "setfpregs"
+#define SZ_PTRACE_SETFPXREGS "setfpxregs"
+#define SZ_PTRACE_CONT "cont"
+#define SZ_PTRACE_SYSCALL "syscall"
+#define SZ_PTRACE_SINGLESTEP "singlestep"
+#define SZ_PTRACE_KILL "kill"
+#define SZ_PTRACE_ATTACH "attach"
+#define SZ_PTRACE_DETACH  "detach"
+#define SZ_PTRACE_GETSIGINFO "getsiginfo"
+#define SZ_PTRACE_SETSIGINFO "setsiginfo"
+#define SZ_PTRACE_SETOPTIONS "setoptions"
+#define SZ_PTRACE_GETEVENTMSG "geteventmsg"
+#define SZ_PTRACE_SYSEMU "sysemu"
+#define SZ_PTRACE_SYSEMU_SINGLESTEP  "sysemu_singlestep"
+
+/* module and class names */
+#define PTRACE_MODULE_NAME "Ptrace"
+#define PTRACE_ERROR_CLASS_NAME "PtraceError"
+#define DEBUGGER_CLASS_NAME "Debugger"
+
+void Init_Ptrace_ext();
+
+#endif
+#define SZ_PTRACE_O_TRACESYSGOOD "trace_sys_good"
+#define SZ_PTRACE_O_TRACEFORK "trace_fork"
+#define SZ_PTRACE_O_TRACEVFORK "trace_vfork"
+#define SZ_PTRACE_O_TRACEVFORKDONE "trace_vfork_done"
+#define SZ_PTRACE_O_TRACECLONE "trace_clone"
+#define SZ_PTRACE_O_TRACEEXEC "trace_exec"
+#define SZ_PTRACE_O_TRACEEXIT "trace_exit"

data/module/extconf.rb

@@ -0,0 +1,11 @@
+#!/usrbin/ruby1.9
+
+require 'mkmf'
+
+if RUBY_VERSION =~ /1.8/ then
+        $CPPFLAGS += " -DRUBY_18"
+elsif RUBY_VERSION =~ /1.9/ then
+        $CPPFLAGS += " -DRUBY_19"
+end
+
+create_makefile('Ptrace_ext')

data/module/rdoc_input/Ptrace_ext.rb

@@ -0,0 +1,120 @@
+#!/usr/bin/env ruby
+# :title: Ptrace
+=begin rdoc
+=Ptrace
+<i>Copyright 2011 Thoughtgang <http://www.thoughtgang.org></i>
+
+= Ptrace wrapper.
+
+All of the original ptrace data structures and constants can be found in
+<b>ptrace.h</b>, available on Linux installations at 
+<b>/usr/include/sys/ptrace.h</b>.
+
+== Summary
+A wrapper for the ptrace debugging facility.
+
+== Example
+require 'Ptrace_ext'
+
+== Disclaimer
+
+== Contact
+Support:: community@thoughtgang.org
+Project:: http://rubyforge.org/projects/opdis/
+=end
+
+
+=begin rdoc
+Ptrace support.
+=end
+module Ptrace
+
+=begin rdoc
+A ptrace debugger. Note that this class is not instantiated; it is simply
+a wrapper for the ptrace system call that performs translation of objects
+between Ruby and C.
+=end
+  class Debugger
+
+=begin rdoc
+Return a Hash mapping command symbols (e.g. :singlestep) to ptrace command
+numbers. This serves as a list of all ptrace commands supported by the OS.
+=end
+    def self.commands
+    end
+
+=begin rdoc
+Send a ptrace command number to the specified PID. The addr argument can be
+nil. This is a wrapper for the ptrace system call.
+=end
+    def self.send_cmd(cmd, pid, addr)
+    end
+
+=begin rdoc
+Send a ptrace command number to the specified PID, using addr and data as
+the address and data arguments. This is a wrapper for the ptrace system call.
+=end
+    def self.send_data(cmd, pid, addr, data)
+    end
+
+=begin rdoc
+Read a word from memory at the specified address in the specified process. The
+cms is expected to be one of PT_READ_I, PT_READ_D, or PT_READ_U.
+=end
+    def self.peek(cmd, pid, addr)
+    end
+
+=begin rdoc
+Write a word to memory at the specified address in the specified process. The
+cms is expected to be one of PT_WRITE_I, PT_WRITE_D, or PT_WRITE_U.
+=end
+    def self.poke(cmd, pid, addr, word)
+    end
+
+=begin rdoc
+Read the general (CPU) registers for the specified process. This returns a Hash
+mapping register name to value.
+=end
+    def self.regs(pid)
+    end
+
+=begin rdoc
+Write the general (CPU) registers for the specified process. The Hash must be
+a complete set of registers as returned by Debugger.regs; missing registers
+will be set to 0.
+=end
+    def self.regs=(pid, hash)
+    end
+
+=begin rdoc
+Read the FPU registers for the specified process. This returns a Hash
+mapping register name to value.
+=end
+    def self.fpregs(pid)
+    end
+
+=begin rdoc
+Write the FPU registers for the specified process. The Hash must be
+a complete set of registers as returned by Debugger.fpregs; missing registers
+will be set to 0.
+=end
+    def self.fpregs=(pid, hash)
+    end
+
+=begin rdoc
+=end
+    def self.signal(pid)
+    end
+
+=begin rdoc
+=end
+    def self.signal=(pid, hash)
+    end
+
+=begin rdoc
+=end
+    def self.event_msg(pid)
+    end
+  end
+
+end

data/module/ruby_compat.c

@@ -0,0 +1,17 @@
+/* ruby_compat.c
+ * Copyright 2010 Thoughtgang <http://www.thoughtgang.org>
+ * Written by TG Community Developers <community@thoughtgang.org>
+ * Released under the GNU Public License, version 3.
+ * See http://www.gnu.org/licenses/gpl.txt for details.
+ */
+
+#ifndef RUBY_19
+
+#include <ruby.h>
+
+VALUE Bfd_rb_hash_lookup2( VALUE hash, VALUE key, VALUE def ) {
+	VALUE v = rb_hash_lookup(hash, key);
+	return (v == Qnil) ? def : v;
+}
+
+#endif

data/module/ruby_compat.h

@@ -0,0 +1,28 @@
+/* ruby_compat.h
+ * Macros to make ruby1.8 look like ruby1.9.
+ * Copyright 2010 Thoughtgang <http://www.thoughtgang.org>
+ * Written by TG Community Developers <community@thoughtgang.org>
+ * Released under the GNU Public License, version 3.
+ * See http://www.gnu.org/licenses/gpl.txt for details.
+ */
+
+#ifndef RUBY_COMPAT_H
+#define RUBY_COMPAT_H
+
+#ifdef RUBY_18
+#include <stdarg.h>
+#define rb_str_new_cstr(arg) rb_str_new2(arg)
+
+VALUE Bfd_rb_hash_lookup2(VALUE, VALUE, VALUE);
+#define rb_hash_lookup2( a1, a2, a3 ) Bfd_rb_hash_lookup2(a1, a2, a3)
+
+#if SIZEOF_SIZE_T > SIZEOF_LONG && defined(HAVE_LONG_LONG)
+# define SIZET2NUM(v) ULL2NUM(v)
+#elif SIZEOF_SIZE_T == SIZEOF_LONG
+# define SIZET2NUM(v) ULONG2NUM(v)
+#else                                                                           
+# define SIZET2NUM(v) UINT2NUM(v)
+#endif
+
+#endif
+#endif