ZenHacks 1.0.0

data/test/test_parse_tree_graph.rb

@@ -0,0 +1,47 @@
+
+$TESTING = true
+require 'test/unit' unless defined? $ZENTEST and $ZENTEST
+require 'parse_tree_graph'
+
+class TestSexpGrapher < Test::Unit::TestCase
+
+  def setup
+    @grapher = SexpGrapher.new
+    @count = 0
+  end
+
+  def util_process_snippet(code)
+    @count += 1
+    klassname = "SGExample#{@count}"
+    klass = "class #{klassname}; def example; #{code}; end; end"
+    Object.class_eval klass
+    klass = Object.const_get klassname
+    result = ParseTree.new.parse_tree(klass)
+    result = result[0][3][2][1][2..-1] # just the body of the method
+    result = Sexp.from_array(result)
+    grapher = SexpGrapher.new
+    grapher.process(result)
+    grapher.graphstr
+  end
+
+  def test_graph_basic
+    expected = 'digraph a_graph
+  {
+   node [ shape = box, style = filled ];
+    "n0001" [ label = ":call" ]
+    "n0002" [ label = ":lit" ]
+    "n0003" [ label = "1" ]
+    "n0004" [ label = ":+" ]
+    "n0005" [ label = ":array" ]
+    "n0006" [ label = ":lit" ]
+    "n0007" [ label = "1" ]
+    "n0001" -> "n0002";
+    "n0001" -> "n0004";
+    "n0001" -> "n0005";
+    "n0002" -> "n0003";
+    "n0005" -> "n0006";
+    "n0006" -> "n0007";
+  }'
+    assert_equal expected, util_process_snippet("1+1")
+  end
+end

data/zendebug-demo.sh

@@ -0,0 +1,86 @@
+#!/bin/bash
+
+VERSION='1.0.0' # this is mainly to appease my relese script's requirements.
+
+export GEM_SKIP=RubyInline
+
+# rm -rf ~/.ruby_inline
+
+type=$1
+if [ -z "$1" ]; then
+    type=help
+fi
+
+N=10000
+if [ ! -z "$2" ]; then
+    N=$2
+fi
+
+if [ $type = "help" ]; then
+    echo "usage: $0 type"
+    echo "  type ="
+    echo "    native       - run factorial with native ruby"
+    echo "    debug        - run factorial with ruby debugger"
+    echo "    zendebug     - run factorial with zendebugger"
+    echo "    profile      - ..."
+    echo "    bench        - ..."
+    echo "    native-rex   - ..."
+    echo "    zendebug-rex - ..."
+    echo "    debug-rex    - ..."
+    echo "    bench-rex    - ..."
+fi
+
+RI=../../RubyInline/dev
+
+if [ $type = "native" ]; then
+    yes c | time -p ruby -I$RI misc/factorial.rb $N
+fi
+
+if [ $type = "debug" ]; then
+    yes c | time -p ruby -rdebug -I$RI misc/factorial.rb $N
+fi
+
+if [ $type = "zendebug" ]; then
+    yes c | time -p ruby -rzendebug -Ilib:$RI misc/factorial.rb $N
+fi
+
+if [ $type = "profile" ]; then
+    yes c | time -p ruby -rprofile -rzendebug -Ilib:$RI misc/factorial.rb 500
+fi
+
+if [ $type = "bench" ]; then
+    echo "N=$N"
+    for type in native zendebug debug; do
+	echo -n "$type: "
+	for M in 1 2 3 4 5; do
+	    ./zendebug-demo.sh $type $N 2>&1 | ruby -nae 'puts $F[1] if /real/'
+	done | add -m
+    done
+fi
+
+############################################################
+
+if [ $N = "10000" ]; then
+    N=2
+fi
+
+if [ $type = "native-rex" ]; then
+#    (cd rexml_3.1.1/benchmarks/; yes c | ruby -I../../$RI comparison.rb $N)
+    (cd rexml_3.1.1/benchmarks/; yes c | ruby -I..:../../$RI bench.rb $N)
+fi
+
+if [ $type = "zendebug-rex" ]; then
+    (cd rexml_3.1.1/benchmarks/; yes c | ruby -I../../$RI:../../lib -rzendebug comparison.rb $N)
+fi
+
+if [ $type = "debug-rex" ]; then
+    (cd rexml_3.1.1/benchmarks/; yes c | ruby -I../../$RI -rdebug comparison.rb $N)
+fi
+
+if [ $type = "bench-rex" ]; then
+    for type in native-rex zendebug-rex debug-rex; do
+	echo "$type:"
+	./zendebug-demo.sh $type $N
+	echo
+    done
+fi

data/zenoptimize-demo.sh

@@ -0,0 +1,22 @@
+#!/bin/bash
+
+N=$1
+
+if [ -z $N ]; then N=500000; fi
+if [ -z $2 ]; then SKIP=no; else SKIP=yes; fi
+
+# rm -rf ~/.ruby_inline
+# sync; sync; sync
+export GEM_SKIP=ParseTree:RubyInline
+
+echo running $N iterations of factorial demo:
+echo
+
+if [ $SKIP = no ]; then
+    echo "ruby: (time ruby factorial.rb $N)"
+    time ruby misc/factorial.rb $N
+    echo
+fi
+
+echo "zenspider: (time ruby -rzenoptimize factorial.rb $N)"
+time ruby -I.:lib:../../ParseTree/dev/lib:../../RubyInline/dev:../../ruby_to_c/dev -rzenoptimize misc/factorial.rb $N

data/zenprofile-demo.sh

@@ -0,0 +1,29 @@
+#!/bin/bash
+
+N=$1
+
+if [ -z $N ]; then N=5000; fi
+if [ -z $2 ]; then SKIP=no; else SKIP=yes; fi
+
+rm -rf ~/.ruby_inline
+sync; sync; sync
+
+echo N=$N
+
+if [ $SKIP = no ]; then
+    echo
+    echo ruby vanilla:
+    time ruby misc/factorial.rb $N
+
+    echo
+    echo ruby profiler:
+    time ruby -rprofile misc/factorial.rb $N
+fi
+
+echo
+echo zenspider profiler:
+export GEM_SKIP=RubyInline
+time ruby -I.:lib:../../RubyInline/dev -rzenprofile misc/factorial.rb $N
+
+# shugo's version
+# time ruby -I.:lib -runprof misc/factorial.rb $N 2>&1 | head

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.10.1
+specification_version: 1
+name: ZenHacks
+version: !ruby/object:Gem::Version 
+  version: 1.0.0
+date: 2005-06-12
+summary: "Tools and toys of mine that don't have a better home."
+require_paths: 
+  - lib
+email: ryand-ruby@zenspider.com
+homepage: http://rubyforge.org/projects/zenhacks/
+rubyforge_project: zenhacks
+description: "** INCLUDES"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+authors: 
+  - Ryan Davis
+files: 
+  - History.txt
+  - Manifest.txt
+  - README.txt
+  - bin/macgraph
+  - bin/parse_tree_graph
+  - bin/test_stats
+  - fixloops-demo.sh
+  - lib/OrderedHash.rb
+  - lib/class-path.rb
+  - lib/discover.rb
+  - lib/fixloops.rb
+  - lib/graph.rb
+  - lib/muffdaddy.rb
+  - lib/r2c_hacks.rb
+  - lib/ruby2ruby.rb
+  - lib/timezones.rb
+  - lib/zendebug.rb
+  - lib/zenoptimize.rb
+  - lib/zenprofile.rb
+  - misc/factorial.rb
+  - misc/find_c_methods
+  - misc/fixloops-bad.rb
+  - r2c_hacks-demo.rb
+  - test/TestOrderedHash.rb
+  - test/r2ctestcase.rb
+  - test/test_parse_tree_graph.rb
+  - zendebug-demo.sh
+  - zenoptimize-demo.sh
+  - zenprofile-demo.sh
+test_files: []
+rdoc_options: []
+extra_rdoc_files: []
+executables: 
+  - macgraph
+  - parse_tree_graph
+  - test_stats
+extensions: []
+requirements: 
+  - Many. Depends on what you want to play with.
+dependencies: []