ruby-dtrace 0.0.6 → 0.2.8

data/lib/dtrace/provider/osx.rb

@@ -1,25 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-class Dtrace
-  class Provider
-    class OSX < Provider
-      
-      # build the .bundle
-      def ruby_object
-        run "#{Config::CONFIG['LDSHARED']} -I #{hdrdir} -o #{@tempdir}/#{@name}.bundle #{@tempdir}/probes.c"
-      end
-
-      def dtrace_object
-        # no-op on OSX
-      end
-
-      def link
-        # no-op on OSX
-      end
-      
-    end
-  end
-end

data/lib/dtrace/provider/solaris.rb

@@ -1,29 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-require 'rbconfig'
-
-class Dtrace
-  class Provider
-    class Solaris < Provider
-
-      # build the .o 
-      def ruby_object
-        run "#{Config::CONFIG['CC']} -I#{hdrdir} -o #{@tempdir}/#{@name}.o -c #{@tempdir}/probes.c"
-      end
-
-      # build the dtrace.o (dtrace -G)
-      def dtrace_object
-        run "/usr/sbin/dtrace -G -s #{@tempdir}/probes.d -o #{@tempdir}/probes.o #{@tempdir}/#{@name}.o"
-      end
-
-      # build the .so
-      def link
-        run "#{Config::CONFIG['CC']} -shared -o #{@tempdir}/#{@name}.so #{@tempdir}/#{@name}.o #{@tempdir}/probes.o"
-      end
-
-    end
-  end
-end

data/lib/dtraceaggregate.rb

@@ -1,37 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-# Represents an aggregation record built from a series of
-# DtraceAggData records.
-#
-# Intended to to built up by calling +add_record+ repeatedly with
-# DtraceAggData objects until a completed DtraceAggregate is returned.
-# (until a complete record is available, +add_record+ returns nil).
-#
-# See dtraceconsumer.rb for an example of this.
-class DtraceAggregate
-  attr_reader :value, :tuple
-
-  # Create an empty DtraceAggregate: use +add_record+ to add data.
-  def initialize
-    @tuple = Array.new
-  end
-  
-  # Add a DtraceAggData record to this aggregate. Returns nil until it
-  # receives a record of aggtype "last", when it returns the complete
-  # DtraceAggregate.
-  def add_record(r)
-    case r.aggtype
-    when "tuple"
-      @tuple << r.value
-    when "value"
-      @value = r.value
-    when "last"
-      return self
-    end
-    nil
-  end
-
-end

data/lib/dtraceaggregateset.rb

@@ -1,17 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-class DtraceAggregateSet
-  attr_reader :data
-
-  def initialize
-    @data = Array.new
-  end
-  
-  def add_aggregate(agg)
-    @data << agg
-  end
-    
-end

data/lib/dtracedata.rb

@@ -1,80 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-# The object returned from a consumer when a probe fires.  Accumulates
-# records from the callbacks, and is yielded when the data is complete.
-class DtraceData
-  attr_reader :data
-  attr_reader :probe
-  attr_reader :cpu, :indent, :prefix, :flow
-
-  def initialize(types)
-    @types = types
-    @data = []
-    @curraggset = nil
-    @curragg    = nil
-  end
-
-  def add_data(d)
-    if @types.length == 0 || @types.include?(d.class)
-      @data << d
-    end
-  end
-
-  def finish
-    if @curraggset
-      add_data(@curraggset)
-      @curraggset = nil
-    end
-  end
-
-  def add_recdata(rec)
-    if @curraggset
-      add_data(@curraggset)
-      @curraggset = nil
-    end
-    if rec.action == "printa"
-      @curraggset = DtraceAggregateSet.new
-    end
-  end
-
-  def add_probedata(probedata)
-    probedata.each_record do |p|
-      add_data(p)
-    end
-
-    # Record the probe that fired, and CPU/indent/prefix/flow
-    @probe  = probedata.probe
-    @cpu    = probedata.cpu
-    @indent = probedata.indent
-    @prefix = probedata.prefix
-    @flow   = probedata.flow
-  end
-  
-  def add_bufdata(buf)
-    r = buf.record
-    # buf records can be empty (trace();)
-    if r
-      case r.class.to_s
-      when DtraceStackRecord.to_s
-        add_data(r)
-      when DtraceRecord.to_s
-        add_data(r)
-      when DtracePrintfRecord.to_s
-        add_data(r)
-      when DtraceAggData.to_s
-        if @curragg == nil
-          @curragg = DtraceAggregate.new
-        end
-        if agg = @curragg.add_record(r)
-          if @curraggset
-            @curraggset.add_aggregate(@curragg)
-          end
-          @curragg = nil
-        end
-      end
-    end
-  end
-  
-end

data/lib/dtraceprobe.rb

@@ -1,13 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-class DtraceProbe
-  
-  def to_s
-    "#{provider}:#{mod}:#{func}:#{name}"
-  end
-  
-end
-    

data/lib/dtraceprobedata.rb

@@ -1,21 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-class DtraceProbeData
-
-  def records
-    records = Array.new
-    self.each_record do |rec|
-      records << rec
-    end
-    records
-  end
-
-  def to_s
-    rs = self.records
-    rs.map {|r| r.value }.join ', '
-  end
-
-end

data/test/test_dynusdt.rb

@@ -1,135 +0,0 @@
-#
-# Ruby-Dtrace
-# (c) 2007 Chris Andrews <chris@nodnol.org>
-#
-
-require 'dtrace'
-require 'dtrace/provider'
-require 'test/unit'
-require 'rbconfig'
-
-# Tests for the Dtrace "dynamic USDT" library
-
-class TestDynUsdt < Test::Unit::TestCase
-
-  def test_create_usdt
-    Dtrace::Provider.create :test_provider_create_usdt do |p|
-      p.probe :test_probe, :string
-    end
-
-    t = Dtrace.new
-    t.setopt("bufsize", "4m")
-
-    progtext = 'test_provider_create_usdt*:::test-probe { trace(copyinstr(arg0)); }'
-
-    prog = t.compile progtext
-    prog.execute
-    t.go
-    
-    c = DtraceConsumer.new(t)
-    
-    Dtrace::Probe::TestProviderCreateUsdt.test_probe do |p|
-      p.fire "test_argument"
-    end
-
-    i = 0
-    c.consume_once do |d|
-      i = i + 1
-      assert d
-      assert_not_nil d.probe
-      assert_equal "test_provider_create_usdt#{$$.to_s}:test_provider_create_usdt.#{Config::CONFIG['DLEXT']}:test_probe:test-probe", d.probe.to_s
-      assert_equal 1, d.data.length
-      assert_equal "test_argument", d.data[0].value
-    end
-    assert_equal 1, i
-  end
-
-  def test_create_usdt_argtypes
-    Dtrace::Provider.create :test_provider_create_usdt_argtypes do |p|
-      p.probe :test_probe_string, :string
-      p.probe :test_probe_int,    :integer
-    end
-
-    t = Dtrace.new
-    t.setopt("bufsize", "4m")
-
-    progtext = <<EOD
-test_provider_create_usdt_argtypes*:::test-probe-string { trace(copyinstr(arg0)); }
-test_provider_create_usdt_argtypes*:::test-probe-int    { trace(arg0);            }
-EOD
-
-    prog = t.compile progtext
-    prog.execute
-    t.go
-    
-    c = DtraceConsumer.new(t)
-    
-    Dtrace::Probe::TestProviderCreateUsdtArgtypes.test_probe_string do |p|
-      p.fire "test_argument"
-    end
-
-    Dtrace::Probe::TestProviderCreateUsdtArgtypes.test_probe_int do |p|
-      p.fire 42
-    end
-
-    i = 0
-    c.consume_once do |d|
-      assert d
-      assert_not_nil d.probe
-      if d.probe.name == 'test-probe-string'
-        assert_equal "test_argument", d.data[0].value
-        i = i + 1
-      elsif d.probe.name == 'test-probe-int'
-        assert_equal 42, d.data[0].value
-        i = i + 1
-      end
-    end
-    assert_equal 2, i
-  end
-
-  def test_create_usdt_manyargs
-    Dtrace::Provider.create :test_provider_create_usdt_manyargs do |p|
-      p.probe :test_probe, :string, :string, :string, :string, :string, :string, :string, :string
-    end
-
-    t = Dtrace.new
-    t.setopt("bufsize", "4m")
-
-    progtext = <<EOD
-test_provider_create_usdt_manyargs*:::test-probe 
-{ 
-  trace(copyinstr(arg0));
-  trace(copyinstr(arg1));
-  trace(copyinstr(arg2));
-  trace(copyinstr(arg3));
-  trace(copyinstr(arg4));
-  trace(copyinstr(arg5));
-  trace(copyinstr(arg6));
-  trace(copyinstr(arg7));
-}
-EOD
-
-    prog = t.compile progtext
-    prog.execute
-    t.go
-    
-    c = DtraceConsumer.new(t)
-    
-    Dtrace::Probe::TestProviderCreateUsdtManyargs.test_probe do |p|
-      values_list = (0..7).map {|i| "value #{i.to_s}" }
-      p.fire(*values_list)
-    end
-
-    i = 0
-    c.consume_once do |d|
-      i = i + 1
-      assert_equal 8, d.data.length
-      (0..7).each do |j|
-        assert_equal "value #{j.to_s}", d.data[j].value
-      end
-    end
-    assert_equal 1, i
-  end
-
-end
-