ruby-dtrace-consumer 0.4.0

data/LICENCE

@@ -0,0 +1,20 @@
+Copyright (c) 2008, 2009, 2011, 2012 Chris Andrews <chris@nodnol.org>
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,51 @@
+ruby-dtrace-consumer is Ruby bindings for libdtrace, which allows you
+to write D-based programs with Ruby, accessing traced data in Ruby.
+
+The corresponding provider library, allowing you to create probes
+meaningful to your Ruby programs, may be found as "ruby-usdt".
+
+"ruby-dtrace", the predecessor to both these gems, is now deprecated
+and will not be updated.
+
+== FEEDBACK
+
+Fork the repository on Github: http://github.com/chrisa/ruby-dtrace
+
+== FEATURES
+  
+ * Access to the D API
+ * Probe metadata
+ * Run D programs
+ * Access aggregates
+ * Consume output from D programs
+
+== SYNOPSIS
+
+    require 'dtrace'
+
+    t = DTrace.new 
+    progtext = 'ruby$1:::function-entry{ @a[strjoin(strjoin(copyinstr(arg0),"."),copyinstr(arg1))] = count(); } END { printa(@a); }'
+    prog = t.compile progtext
+    prog.execute
+
+    t.go
+
+    [...]
+    
+    c = DTraceConsumer.new(t)
+    c.consume_once do |rec|
+      # handle records
+    end
+
+== REQUIREMENTS
+
+ * For the consumer API, platform with DTrace support (Solaris and
+   Illumos-derived systems, Mac OS X 10.5+, FreeBSD).
+  
+ * root, or some/all of the dtrace privileges on Solaris: dtrace_user,
+   dtrace_proc and dtrace_kernel.
+
+== INSTALL
+
+ $ sudo gem install ruby-dtrace-consumer
+

data/ext/Makefile

@@ -0,0 +1,187 @@
+
+SHELL = /bin/sh
+
+#### Start of system configuration section. ####
+
+srcdir = .
+topdir = /Users/chris/.rvm/rubies/ruby-1.9.2-p320/include/ruby-1.9.1
+hdrdir = /Users/chris/.rvm/rubies/ruby-1.9.2-p320/include/ruby-1.9.1
+arch_hdrdir = /Users/chris/.rvm/rubies/ruby-1.9.2-p320/include/ruby-1.9.1/$(arch)
+VPATH = $(srcdir):$(arch_hdrdir)/ruby:$(hdrdir)/ruby
+prefix = $(DESTDIR)/Users/chris/.rvm/rubies/ruby-1.9.2-p320
+rubylibprefix = $(libdir)/$(RUBY_BASE_NAME)
+exec_prefix = $(prefix)
+vendorhdrdir = $(rubyhdrdir)/vendor_ruby
+sitehdrdir = $(rubyhdrdir)/site_ruby
+rubyhdrdir = $(includedir)/$(RUBY_BASE_NAME)-$(ruby_version)
+vendordir = $(rubylibprefix)/vendor_ruby
+sitedir = $(rubylibprefix)/site_ruby
+ridir = $(datarootdir)/$(RI_BASE_NAME)
+mandir = $(datarootdir)/man
+localedir = $(datarootdir)/locale
+libdir = $(exec_prefix)/lib
+psdir = $(docdir)
+pdfdir = $(docdir)
+dvidir = $(docdir)
+htmldir = $(docdir)
+infodir = $(datarootdir)/info
+docdir = $(datarootdir)/doc/$(PACKAGE)
+oldincludedir = $(DESTDIR)/usr/include
+includedir = $(prefix)/include
+localstatedir = $(prefix)/var
+sharedstatedir = $(prefix)/com
+sysconfdir = $(prefix)/etc
+datadir = $(datarootdir)
+datarootdir = $(prefix)/share
+libexecdir = $(exec_prefix)/libexec
+sbindir = $(exec_prefix)/sbin
+bindir = $(exec_prefix)/bin
+rubylibdir = $(rubylibprefix)/$(ruby_version)
+archdir = $(rubylibdir)/$(arch)
+sitelibdir = $(sitedir)/$(ruby_version)
+sitearchdir = $(sitelibdir)/$(sitearch)
+vendorlibdir = $(vendordir)/$(ruby_version)
+vendorarchdir = $(vendorlibdir)/$(sitearch)
+
+CC = gcc-apple-4.2
+CXX = g++
+LIBRUBY = $(LIBRUBY_SO)
+LIBRUBY_A = lib$(RUBY_SO_NAME)-static.a
+LIBRUBYARG_SHARED = -l$(RUBY_SO_NAME)
+LIBRUBYARG_STATIC = -l$(RUBY_SO_NAME)-static
+OUTFLAG = -o 
+COUTFLAG = -o 
+
+RUBY_EXTCONF_H = 
+cflags   =  $(optflags) $(debugflags) $(warnflags)
+optflags = -O3
+debugflags = -ggdb
+warnflags = -Wextra -Wno-unused-parameter -Wno-parentheses -Wpointer-arith -Wwrite-strings -Wno-missing-field-initializers -Wshorten-64-to-32 -Wno-long-long
+CFLAGS   = -fno-common -I/Users/chris/.rvm/usr/include -fno-common -pipe 
+INCFLAGS = -I. -I$(arch_hdrdir) -I$(hdrdir)/ruby/backward -I$(hdrdir) -I$(srcdir)
+DEFS     = 
+CPPFLAGS =  -D_XOPEN_SOURCE -D_DARWIN_C_SOURCE $(DEFS) $(cppflags)
+CXXFLAGS = $(CFLAGS) $(cxxflags)
+ldflags  = -L. -L/Users/chris/.rvm/usr/lib -L/usr/local/lib
+dldflags = -Wl,-undefined,dynamic_lookup -Wl,-multiply_defined,suppress -Wl,-flat_namespace
+ARCH_FLAG = 
+DLDFLAGS = $(ldflags) $(dldflags)
+LDSHARED = $(CC) -dynamic -bundle
+LDSHAREDXX = $(CXX) -dynamic -bundle
+AR = ar
+EXEEXT = 
+
+RUBY_BASE_NAME = ruby
+RUBY_INSTALL_NAME = ruby
+RUBY_SO_NAME = ruby.1.9.1
+arch = x86_64-darwin12.2.0
+sitearch = $(arch)
+ruby_version = 1.9.1
+ruby = /Users/chris/.rvm/rubies/ruby-1.9.2-p320/bin/ruby
+RUBY = $(ruby)
+RM = rm -f
+RM_RF = $(RUBY) -run -e rm -- -rf
+RMDIRS = $(RUBY) -run -e rmdir -- -p
+MAKEDIRS = mkdir -p
+INSTALL = /usr/bin/install -c
+INSTALL_PROG = $(INSTALL) -m 0755
+INSTALL_DATA = $(INSTALL) -m 644
+COPY = cp
+
+#### End of system configuration section. ####
+
+preload = 
+
+libpath = . $(libdir)
+LIBPATH =  -L. -L$(libdir)
+DEFFILE = 
+
+CLEANFILES = mkmf.log
+DISTCLEANFILES = 
+DISTCLEANDIRS = 
+
+extout = 
+extout_prefix = 
+target_prefix = 
+LOCAL_LIBS = 
+LIBS = $(LIBRUBYARG_SHARED) -ldtrace  -lpthread -ldl -lobjc 
+SRCS = dtrace_aggdata.c dtrace_api.c dtrace_bufdata.c dtrace_dropdata.c dtrace_errdata.c dtrace_hdl.c dtrace_probedata.c dtrace_probedesc.c dtrace_process.c dtrace_program.c dtrace_programinfo.c dtrace_recdesc.c dtrace_util.c
+OBJS = dtrace_aggdata.o dtrace_api.o dtrace_bufdata.o dtrace_dropdata.o dtrace_errdata.o dtrace_hdl.o dtrace_probedata.o dtrace_probedesc.o dtrace_process.o dtrace_program.o dtrace_programinfo.o dtrace_recdesc.o dtrace_util.o
+TARGET = dtrace_api
+DLLIB = $(TARGET).bundle
+EXTSTATIC = 
+STATIC_LIB = 
+
+BINDIR        = $(bindir)
+RUBYCOMMONDIR = $(sitedir)$(target_prefix)
+RUBYLIBDIR    = $(sitelibdir)$(target_prefix)
+RUBYARCHDIR   = $(sitearchdir)$(target_prefix)
+HDRDIR        = $(rubyhdrdir)/ruby$(target_prefix)
+ARCHHDRDIR    = $(rubyhdrdir)/$(arch)/ruby$(target_prefix)
+
+TARGET_SO     = $(DLLIB)
+CLEANLIBS     = $(TARGET).bundle 
+CLEANOBJS     = *.o  *.bak
+
+all:    $(DLLIB)
+static: $(STATIC_LIB)
+.PHONY: all install static install-so install-rb
+.PHONY: clean clean-so clean-rb
+
+clean-rb-default::
+clean-rb::
+clean-so::
+clean: clean-so clean-rb-default clean-rb
+		@-$(RM) $(CLEANLIBS) $(CLEANOBJS) $(CLEANFILES)
+
+distclean-rb-default::
+distclean-rb::
+distclean-so::
+distclean: clean distclean-so distclean-rb-default distclean-rb
+		@-$(RM) Makefile $(RUBY_EXTCONF_H) conftest.* mkmf.log
+		@-$(RM) core ruby$(EXEEXT) *~ $(DISTCLEANFILES)
+		@-$(RMDIRS) $(DISTCLEANDIRS)
+
+realclean: distclean
+install: install-so install-rb
+
+install-so: $(RUBYARCHDIR)
+install-so: $(RUBYARCHDIR)/$(DLLIB)
+$(RUBYARCHDIR)/$(DLLIB): $(DLLIB)
+	@-$(MAKEDIRS) $(@D)
+	$(INSTALL_PROG) $(DLLIB) $(@D)
+install-rb: pre-install-rb install-rb-default
+install-rb-default: pre-install-rb-default
+pre-install-rb: Makefile
+pre-install-rb-default: Makefile
+$(RUBYARCHDIR):
+	$(MAKEDIRS) $@
+
+site-install: site-install-so site-install-rb
+site-install-so: install-so
+site-install-rb: install-rb
+
+.SUFFIXES: .c .m .cc .cxx .cpp .C .o
+
+.cc.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $<
+
+.cxx.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $<
+
+.cpp.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $<
+
+.C.o:
+	$(CXX) $(INCFLAGS) $(CPPFLAGS) $(CXXFLAGS) $(COUTFLAG)$@ -c $<
+
+.c.o:
+	$(CC) $(INCFLAGS) $(CPPFLAGS) $(CFLAGS) $(COUTFLAG)$@ -c $<
+
+$(DLLIB): $(OBJS) Makefile
+	@-$(RM) $(@)
+	$(LDSHARED) -o $@ $(OBJS) $(LIBPATH) $(DLDFLAGS) $(LOCAL_LIBS) $(LIBS)
+
+
+
+$(OBJS): $(hdrdir)/ruby.h $(hdrdir)/ruby/defines.h $(arch_hdrdir)/ruby/config.h

data/ext/dtrace_aggdata.c

@@ -0,0 +1,132 @@
+/* Ruby-DTrace
+ * (c) 2007 Chris Andrews <chris@nodnol.org>
+ */
+
+#include "dtrace_api.h"
+
+RUBY_EXTERN VALUE eDTraceException;
+
+/* Returns the value of this aggregate, be it the aggregation value,
+   or a member of an aggregation key tuple. */
+VALUE dtraceaggdata_value(VALUE self)
+{
+  dtrace_bufdata_t *bufdata;
+  const dtrace_aggdata_t *aggdata;
+  const dtrace_aggdesc_t *aggdesc;
+  const dtrace_recdesc_t *rec;
+  const char *s;
+  dtrace_actkind_t act = DTRACEACT_NONE;
+  int64_t aggid;
+  uint64_t normal;
+  caddr_t addr;
+  int64_t value;
+  VALUE v = Qnil;
+
+  Data_Get_Struct(self, dtrace_bufdata_t, bufdata);
+  aggdata = bufdata->dtbda_aggdata;
+  s = bufdata->dtbda_buffered;
+  rec = bufdata->dtbda_recdesc;
+
+  if (aggdata == NULL) {
+    rb_raise(eDTraceException, "null aggdata");
+    return Qnil;
+  }
+
+  aggdesc = aggdata->dtada_desc;
+
+  if (aggdesc == NULL) {
+    rb_raise(eDTraceException, "null aggdesc");
+    return Qnil;
+  }
+
+  aggid = *((int64_t *)(aggdata->dtada_data +
+			aggdesc->dtagd_rec[0].dtrd_offset));
+  if (aggid < 0) {
+    rb_raise(eDTraceException, "negative aggregation ID");
+    return Qnil;
+  }
+
+  act = rec->dtrd_action;
+
+  if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGKEY) {
+
+    switch (act) {
+    case DTRACEACT_STACK:
+    case DTRACEACT_USTACK:
+    case DTRACEACT_JSTACK:
+      /* todo */
+      break;
+    case DTRACEACT_USYM:
+    case DTRACEACT_UADDR:
+    case DTRACEACT_UMOD:
+    case DTRACEACT_SYM:
+    case DTRACEACT_MOD:
+      /* todo */
+      break;
+    default:
+      v = handle_bytedata((aggdata->dtada_data + rec->dtrd_offset), rec->dtrd_size);
+    }
+
+
+  } else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL) {
+
+    normal = aggdata->dtada_normal;
+    addr = aggdata->dtada_data + rec->dtrd_offset;
+
+    if (act == DTRACEAGG_AVG) {
+      uint64_t *data = (uint64_t *)addr;
+      value = (data[0] ? (long long)(data[1] / normal / data[0]) : 0);
+    } else {
+      value = (*((int64_t *)addr)) / normal;
+    }
+
+    if (act == DTRACEAGG_QUANTIZE || act == DTRACEAGG_LQUANTIZE) {
+      v = Qnil; // dtj_new_distribution(data, rec, jc);
+    } else {
+      switch (act) {
+      case DTRACEAGG_COUNT:
+	if (value < 0)
+	  rb_raise(eDTraceException, "count value is negative");
+	v = LL2NUM(value);
+	break;
+      case DTRACEAGG_AVG:
+      case DTRACEAGG_MIN:
+      case DTRACEAGG_MAX:
+      case DTRACEAGG_SUM:
+	v = LL2NUM(value);
+	break;
+      default:
+	v = Qnil;
+	rb_raise(eDTraceException, "unexpected aggregation action: %d", act);
+      }
+    }
+
+  } else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL) {
+
+    v = Qnil;
+
+  }
+
+  return v;
+}
+
+/* Return the type of this DTraceAggData: tuple, value or last. Used
+   to form tuples and values into DTraceAggregate objects. */
+VALUE dtraceaggdata_aggtype(VALUE self)
+{
+  dtrace_bufdata_t *bufdata;
+  VALUE v;
+
+  Data_Get_Struct(self, dtrace_bufdata_t, bufdata);
+
+  if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGKEY)
+    v = rb_str_new2("tuple");
+  else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL)
+    v = rb_str_new2("value");
+  else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGLAST)
+    v = rb_str_new2("last");
+  else
+    v = rb_str_new2("unknown");
+
+  return v;
+}

data/ext/dtrace_aggdata.c~

@@ -0,0 +1,141 @@
+/* Ruby-DTrace
+ * (c) 2007 Chris Andrews <chris@nodnol.org>
+ */
+
+#include "dtrace_api.h"
+
+RUBY_EXTERN VALUE eDTraceException;
+
+/* :nodoc: */
+VALUE dtraceaggdata_init(VALUE self)
+{
+  dtrace_bufdata_t *data;
+
+  Data_Get_Struct(self, dtrace_bufdata_t, data);
+  return self;
+}
+
+/* Returns the value of this aggregate, be it the aggregation value,
+   or a member of an aggregation key tuple. */
+VALUE dtraceaggdata_value(VALUE self)
+{
+  dtrace_bufdata_t *bufdata;
+  const dtrace_aggdata_t *aggdata;
+  const dtrace_aggdesc_t *aggdesc;
+  const dtrace_recdesc_t *rec;
+  const char *s;
+  dtrace_actkind_t act = DTRACEACT_NONE;
+  int64_t aggid;
+  uint64_t normal;
+  caddr_t addr;
+  int64_t value;
+  VALUE v = Qnil;
+
+  Data_Get_Struct(self, dtrace_bufdata_t, bufdata);
+  aggdata = bufdata->dtbda_aggdata;
+  s = bufdata->dtbda_buffered;
+  rec = bufdata->dtbda_recdesc;
+
+  if (aggdata == NULL) {
+    rb_raise(eDTraceException, "null aggdata");
+    return Qnil;
+  }
+
+  aggdesc = aggdata->dtada_desc;
+
+  if (aggdesc == NULL) {
+    rb_raise(eDTraceException, "null aggdesc");
+    return Qnil;
+  }
+
+  aggid = *((int64_t *)(aggdata->dtada_data +
+			aggdesc->dtagd_rec[0].dtrd_offset));
+  if (aggid < 0) {
+    rb_raise(eDTraceException, "negative aggregation ID");
+    return Qnil;
+  }
+
+  act = rec->dtrd_action;
+
+  if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGKEY) {
+
+    switch (act) {
+    case DTRACEACT_STACK:
+    case DTRACEACT_USTACK:
+    case DTRACEACT_JSTACK:
+      /* todo */
+      break;
+    case DTRACEACT_USYM:
+    case DTRACEACT_UADDR:
+    case DTRACEACT_UMOD:
+    case DTRACEACT_SYM:
+    case DTRACEACT_MOD:
+      /* todo */
+      break;
+    default:
+      v = handle_bytedata((aggdata->dtada_data + rec->dtrd_offset), rec->dtrd_size);
+    }
+
+
+  } else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL) {
+
+    normal = aggdata->dtada_normal;
+    addr = aggdata->dtada_data + rec->dtrd_offset;
+
+    if (act == DTRACEAGG_AVG) {
+      uint64_t *data = (uint64_t *)addr;
+      value = (data[0] ? (long long)(data[1] / normal / data[0]) : 0);
+    } else {
+      value = (*((int64_t *)addr)) / normal;
+    }
+
+    if (act == DTRACEAGG_QUANTIZE || act == DTRACEAGG_LQUANTIZE) {
+      v = Qnil; // dtj_new_distribution(data, rec, jc);
+    } else {
+      switch (act) {
+      case DTRACEAGG_COUNT:
+	if (value < 0)
+	  rb_raise(eDTraceException, "count value is negative");
+	v = LL2NUM(value);
+	break;
+      case DTRACEAGG_AVG:
+      case DTRACEAGG_MIN:
+      case DTRACEAGG_MAX:
+      case DTRACEAGG_SUM:
+	v = LL2NUM(value);
+	break;
+      default:
+	v = Qnil;
+	rb_raise(eDTraceException, "unexpected aggregation action: %d", act);
+      }
+    }
+
+  } else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL) {
+
+    v = Qnil;
+
+  }
+
+  return v;
+}
+
+/* Return the type of this DTraceAggData: tuple, value or last. Used
+   to form tuples and values into DTraceAggregate objects. */
+VALUE dtraceaggdata_aggtype(VALUE self)
+{
+  dtrace_bufdata_t *bufdata;
+  VALUE v;
+
+  Data_Get_Struct(self, dtrace_bufdata_t, bufdata);
+
+  if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGKEY)
+    v = rb_str_new2("tuple");
+  else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGVAL)
+    v = rb_str_new2("value");
+  else if (bufdata->dtbda_flags & DTRACE_BUFDATA_AGGLAST)
+    v = rb_str_new2("last");
+  else
+    v = rb_str_new2("unknown");
+
+  return v;
+}