sexp_path 0.4.0 → 0.5.0

data/Gemfile

@@ -0,0 +1,8 @@
+source "https://rubygems.org"
+
+gemspec
+
+group :development do
+  gem 'jeweler'
+end
+

data/Gemfile.lock

@@ -0,0 +1,30 @@
+PATH
+  remote: .
+  specs:
+    sexp_path (0.4.6)
+      sexp_processor (~> 4.2)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    git (1.2.5)
+    jeweler (1.8.4)
+      bundler (~> 1.0)
+      git (>= 1.2.5)
+      rake
+      rdoc
+    json (1.8.0)
+    rake (10.1.0)
+    rdoc (4.0.1)
+      json (~> 1.4)
+    ruby_parser (3.1.3)
+      sexp_processor (~> 4.1)
+    sexp_processor (4.2.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  jeweler
+  ruby_parser (~> 3.1)
+  sexp_path!

data/README.rdoc

@@ -3,9 +3,9 @@
 Structural pattern matching against S-Expressions.
 
 SexpPath allows you to define patterns that can be matched against S-Expressions.
-SexpPath draws inspiration from Regular Expressions, XPath, and CSS Selectors.
+It draws inspiration from Regular Expressions, XPath, and CSS Selectors.
 
-I'm still figuring out how SexpPath should work so either fork this, or send me
+I'm still figuring out how this should work so either fork this, or send me
 some feedback.
   http://github.com/adamsanderson/sexp_path
   netghost@gmail.com
@@ -14,12 +14,12 @@ some feedback.
 
 SexpPath is distributed as a ruby gem:
     
-    gem install adamsanderson-sexp_path
+    gem install sexp_path
 
 == Notation
 
 In ruby you're most likely to come across S-Expressions when dealing with
-ParseTree's representation of the abstract syntax tree. An S-Expression is
+Ruby's representation of the abstract syntax tree. An S-Expression is
 just a set of nested lists.  The SexpProcessor library displays them like this:
 
     s(:a, :b, 
@@ -129,11 +129,11 @@ a file:
   
     require 'rubygems'
     require 'sexp_path'
-    require 'parse_tree'
+    require 'ruby_parser' # `gem install ruby_parser`
   
     path = ARGV.shift
     code = File.read(path)
-    sexp = Sexp.from_array(ParseTree.new.parse_tree_for_string(code, path))
+    sexp = RubyParser.new.parse(code, path)
 
     class_query = Q?{ s(:class, atom % 'class_name', _, _) }
     method_query = Q?{ s(:defn, atom % 'method_name', _ ) }
@@ -160,7 +160,7 @@ Ideas for Hacking on SexpPath:
   
   * More examples
   * Add new matchers
-  * Connivence matchers, for instance canned matchers for matching ruby classes, methods, etc
+  * Convenience matchers, for instance canned matchers for matching ruby classes, methods, etc
 
 I'd love to see what people do with this library, let me know if you find it useful.
 

data/Rakefile

@@ -1,6 +1,6 @@
 require 'rake'
 require 'rake/testtask'
-require 'rake/rdoctask'
+require 'rdoc/task'
 
 begin
   require 'jeweler'
@@ -20,7 +20,7 @@ begin
     
     # Testing
     s.test_files = FileList["test/**/*_test.rb"]
-    s.add_development_dependency 'ParseTree', '~> 2.1'
+    s.add_development_dependency 'ruby_parser', '~> 2.0'
   end
 
 rescue LoadError

data/TODO

@@ -1,4 +1,3 @@
-* Clean up class organization
 * Document extending SexpPath
 * Add examples of extending matchers
 * AssertSanity!

data/VERSION.yml

@@ -1,4 +1,5 @@
 --- 
-:minor: 4
-:patch: 0
 :major: 0
+:minor: 5
+:patch: 0
+:build: 

data/examples/print_methods.rb

@@ -1,6 +1,6 @@
 require 'rubygems'
 require File.dirname(__FILE__) + '/../lib/sexp_path'
-require 'parse_tree'
+require 'ruby_parser'
 
 path = ARGV.shift
 if !path
@@ -11,18 +11,16 @@ if !path
 end
 
 code = File.read(path)
-sexp = Sexp.from_array(ParseTree.new.parse_tree_for_string(code, path))
+sexp = RubyParser.new.parse(code, path)
 
-class_query = Q?{ s(:class, atom % 'class_name', _, _) }
-method_query = Q?{ s(:defn, atom % 'method_name', _ ) }
-
-results = sexp / class_query / method_query
+# Use the ruby pattern matcher:
+results = sexp / R?{ _class } / R?{ _method }
 
 puts path
 puts "-" * 80
 
 results.each do |sexp_result|
-  class_name = sexp_result['class_name']
-  method_name = sexp_result['method_name']
+  class_name = sexp_result['class']
+  method_name = sexp_result['method']
   puts "#{class_name}##{method_name}"
 end

data/examples/sexp_grep.rb

@@ -1,6 +1,6 @@
 require 'rubygems'
 require File.dirname(__FILE__) + '/../lib/sexp_path'
-require 'parse_tree'
+require 'ruby_parser'
 
 # Example program, this will scan a file for anything
 # matching the Sexp passed in.
@@ -14,7 +14,7 @@ if paths.empty? || !pattern
   puts "usage:"
   puts "  ruby sexp_grep.rb <pattern> <path>"
   puts "example:"
-  puts "  ruby sexp_grep.rb t(:defn) *.rb"
+  puts "  ruby sexp_grep.rb 't(:defn)' *.rb"
   exit
 end
 
@@ -31,8 +31,8 @@ end
 
 # For each path the user defined, search for the SexpPath pattern
 paths.each do |path|  
-  # Parse it with ParseTree, and append line numbers
-  sexp = sexp = LineNumberingProcessor.process_file(path)
+  # Parse it with RubyParser, and append line numbers
+  sexp = RubyParser.new.parse(File.read(path), path)
   found = false
   
   # Search it with the given pattern, printing any results

data/lib/sexp_path/matcher/remaining.rb

@@ -0,0 +1,19 @@
+# See SexpQueryBuilder.___ 
+#
+class SexpPath::Matcher::Remaining < SexpPath::Matcher::Base  
+  # Creates a Matcher which will match any remaining 
+  # Defaults to matching the immediate following sibling.
+  def initialize()
+
+  end
+  
+  # Always satisfied once this is reached.  Think of it as a var arg.
+  def satisfy?(o, data={})
+    data
+  end
+  
+  def inspect
+    "___"
+  end
+  
+end

data/lib/sexp_path/ruby_query_builder.rb

@@ -0,0 +1,62 @@
+module SexpPath
+  class RubyQueryBuilder < SexpQueryBuilder
+    class << self
+      def _method(name=nil, bind='method')
+        s(:defn, v(name, bind), _, _)
+      end
+      
+      def _class_method(name=nil, bind='class_method')
+        s(:defs, v(name, bind), _, _)
+      end
+      
+      def _call(name=nil, bind='call')
+        s(:call, _, v(name, bind), _)
+      end
+      
+      def _class(name=nil, bind='class')
+        s(:class, v(name, bind), _, _)
+      end
+      
+      def _variable(name=nil, bind='variable')
+        tag = variable_tag(name, :ivar, :lvar)
+        s(tag, v(name, var))
+      end
+      
+      def _assignment(name=nil, bind='assignment')
+        term = v(name, bind)
+        tag = variable_tag(name, :iasgn, :lasgn)
+
+        s(tag, term)     | # declaration 
+        s(tag, term, _)  | # assignment
+        (                  # block arument
+          t(:args) & 
+          ( # note this last case is wrong for regexps
+            SexpPath::Matcher::Block.new{|s| s[1..-1].any?{|a| a == name}} % bind
+          )
+        )
+      end
+      
+      private
+      # Inserts the appropriate type of value given name.
+      # For instance:
+      #   v('/cake/') #=> /cake/ # regular expression match
+      #   v('apple')  #=> :apple # atom match
+      def v(name, bind)
+        if name.nil?
+          atom % bind
+        else
+          m(name) % bind
+        end
+      end
+      
+      def variable_tag(name, ivar, lvar)
+        if name.nil?
+          atom
+        else
+          name = name.is_a?(Regexp) ? name.inspect[1..-2] : name.to_s
+          name[0..0] == '@' ? ivar : lvar
+        end
+      end
+    end
+  end
+end

data/lib/sexp_path/sexp_collection.rb

@@ -9,7 +9,7 @@ module SexpPath
   class SexpCollection < Array
     # See Traverse#search
     def search(pattern)
-      inject(SexpCollection.new){|collection, match| collection.concat match.sexp.search(pattern, match) }
+      inject(SexpCollection.new){|collection, match| collection.concat match.search(pattern, match) }
     end
     alias_method :/, :search
   end

data/lib/sexp_path/sexp_query_builder.rb

@@ -44,7 +44,7 @@ module SexpPath
         SexpPath::Matcher::Base.new(*args)
       end
       
-      # Matches anything.
+      # Matches any single item.
       #
       # example:
       #   s(:a) / Q?{ _ }        #=> [s(:a)]
@@ -57,7 +57,31 @@ module SexpPath
         SexpPath::Matcher::Wild.new
       end
       alias_method :_, :wild
-    
+      
+      # Matches all remaining input.
+      # This is a special case pattern and has a few odd characteristics.
+      # 
+      # - You cannot capture with +remaining+ 
+      # - If remaining comes before any other matchers, they will be ignored.
+      # 
+      # example:
+      #   s(:a) / Q?{ s(:a, ___ ) }    #=> [s(:a)]
+      #   s(:a, :b, :c) / Q?{ s(:a, ___ ) } #=> [s(:a, :b, :c)]
+      #
+      # Can also be called with +remaining+
+      #   s(:a) / Q?{ s(:a, remaining) } #=> [s(:a)]
+      #
+      def remaining()
+        SexpPath::Matcher::Remaining.new
+      end
+      alias_method :___, :remaining
+      
+      # Matches an expression or any expression that includes the child.
+      #
+      # example:
+      #   s(:a, :b)   / Q?{ include(:b) }
+      #   s(s(s(:a))) / Q?{ include(:a) }
+      # 
       def include(child)
         SexpPath::Matcher::Include.new(child)
       end
@@ -72,7 +96,7 @@ module SexpPath
         SexpPath::Matcher::Atom.new
       end
     
-      # Matches when any sub expression match
+      # Matches when any of the sub expressions match.
       # 
       # example:
       #   s(:a) / Q?{ any(s(:a), s(:b)) } #=> [s(:a)]
@@ -82,7 +106,7 @@ module SexpPath
         SexpPath::Matcher::Any.new(*args)
       end
       
-      # Matches when all sub expression match
+      # Matches only when all sub expressions match
       #
       # example:
       #   s(:a) / Q?{ all(s(:a), s(:b)) } #=> []

data/lib/sexp_path/sexp_result.rb

@@ -17,5 +17,25 @@ module SexpPath
       @sexp = sexp
       merge! data
     end
+
+    # Shortcut for querying directly against a result's
+    # Sexp.
+    def search(pattern, data={})
+      @sexp.search(pattern,data)
+    end
+    alias_method :/, :search
+    
+    def to_s
+      if empty?
+        @sexp.to_s
+      else
+        matches = self.map{|k,v| "#{k}:#{v}"}.join(", ")
+        "#{@sexp} [#{matches}]"
+      end
+    end
+    
+    def inspect
+      "#{@sexp} #{super}"
+    end
   end
-end
+end

data/lib/sexp_path.rb

@@ -14,11 +14,10 @@ sexp_path_root = File.dirname(__FILE__)+'/sexp_path/'
 %w[
   traverse 
   sexp_query_builder
+  ruby_query_builder
   sexp_result
   sexp_collection
-  
-  line_numbering_processor
-  
+    
   matcher/base
   matcher/any
   matcher/all
@@ -29,6 +28,7 @@ sexp_path_root = File.dirname(__FILE__)+'/sexp_path/'
   matcher/pattern
   matcher/type
   matcher/wild
+  matcher/remaining
   matcher/include
   matcher/sibling
   
@@ -41,6 +41,11 @@ def Q?(&block)
   SexpPath::SexpQueryBuilder.do(&block)
 end
 
+# Ruby specific builder
+def R?(&block)
+  SexpPath::RubyQueryBuilder.do(&block)
+end
+
 # SexpPath extends Sexp with Traverse.
 # This adds support for searching S-Expressions
 class Sexp
@@ -49,7 +54,7 @@ class Sexp
   # Extends Sexp to allow any Sexp to be used as a SexpPath matcher
   def satisfy?(o, data={})
     return false unless o.is_a? Sexp
-    return false unless length == o.length
+    return false unless (length == o.length || last.is_a?(SexpPath::Matcher::Remaining) )
     each_with_index{|c,i| return false unless c.is_a?(Sexp) ? c.satisfy?( o[i], data ) : c == o[i] }
 
     capture_match(o, data)

data/test/sexp_path_matching_test.rb

@@ -147,7 +147,7 @@ class SexpMatchingPathTest < Test::Unit::TestCase
     
     assert  Q?{s(:a) >> s(:b)}.satisfy?( s(s(:a), s(:b)) ),        "should match s(:a) has an immediate sibling s(:b)"
     assert  Q?{s(:a) >> s(:b)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should match s(:a) has an immediate sibling s(:b)"
-    assert  Q?{s(:a) >> s(:c)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should match s(:a) a sibling s(:b)"
+    assert  Q?{s(:a) >> s(:c)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should match s(:a) has a sibling s(:b)"
     assert !Q?{s(:c) >> s(:a)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should not match s(:a) does not follow s(:c)"
     assert !Q?{s(:a) >> s(:a)}.satisfy?( s(s(:a)) ),               "should not match s(:a) has no siblings"
     assert  Q?{s(:a) >> s(:a)}.satisfy?( s(s(:a), s(:b), s(:a)) ), "should match s(:a) has another sibling s(:a)"
@@ -166,6 +166,13 @@ class SexpMatchingPathTest < Test::Unit::TestCase
     assert_search_count @ast_sexp, Q?{s(m(/\w{3}/), :a, :b)}, 2,
       "Should match s(:add, :a, :b) and s(:sub, :a, :b)"
   end
+
+  def test_remaining_matcher
+    assert  Q?{ ___ }.satisfy?( s(:a) ),         "Should match a single atom"
+    assert  Q?{ ___ }.satisfy?( s(:a, :b, :c) ), "Should match multiple atoms"
+    assert  Q?{ s(:x, ___ ) }.satisfy?( s(:x, :y) ), "Should match the remainder after :x"
+    assert !Q?{ s(:y, ___ ) }.satisfy?( s(:x, :y) ), "Should not match (initial atom doesn't match)"
+  end
   
   def test_search_method
     assert_equal 1, @ast_sexp.search( s(:sub, :a, :b)).length

data/test/use_case_test.rb

@@ -1,6 +1,6 @@
 require 'test/unit'
 require File.dirname(__FILE__) + '/../lib/sexp_path'
-require 'parse_tree'
+require 'ruby_parser'
 require 'set'
 
 # Here's a crazy idea, these tests actually use sexp_path on some "real"
@@ -13,7 +13,7 @@ class UseCaseTest < Test::Unit::TestCase
   def setup
     path = File.dirname(__FILE__) + '/sample.rb'
     sample = File.read(path)
-    @sexp = Sexp.from_array(ParseTree.new.parse_tree_for_string(sample, path))
+    @sexp = RubyParser.new.parse(sample, path)
   end
   
   def test_finding_methods
@@ -22,7 +22,7 @@ class UseCaseTest < Test::Unit::TestCase
   end
   
   def test_finding_classes_and_methods
-    res = @sexp / Q?{ s(:class, atom % 'name', _, _) }
+    res = @sexp / Q?{ s(:class, atom % 'name', ___ ) }
     assert_equal 1, res.length
     assert_equal :ExampleTest, res.first['name']
     
@@ -31,23 +31,24 @@ class UseCaseTest < Test::Unit::TestCase
   end
   
   def test_finding_empty_test_methods
-    empty_body = Q?{ s(:scope, s(:block, t(:args), s(:nil))) }
-    res = @sexp / Q?{ s(:defn, m(/^test_.+/) % 'name', empty_body ) }
+    empty_test = Q?{ s(:defn, m(/^test_.+/) % 'name', s(:args), s(:nil)) }
+    res = @sexp / empty_test
+    
     assert_equal 1, res.length
     assert_equal :test_b, res.first['name']
   end
   
   def test_finding_duplicate_test_names
-    res = @sexp / Q?{ s(:defn, m(/^test_.+/) % 'name', _ ) }
-    seen = Set.new()
-    repeated = 0
+    res = @sexp / Q?{ s(:defn, m(/^test_.+/) % 'name', ___ ) }
+    counts = Hash.new{|h,k| h[k] = 0}
+
     res.each do |m|
-      name = m['name']
-      repeated += 1 if seen.include? name
-      seen << name
+      method_name = m['name']
+      counts[method_name] += 1
     end
     
-    assert_equal 1, repeated, "Should have caught test_a being repeated"
+    assert_equal 1, counts[:test_b], "Should have seen test_b once"
+    assert_equal 2, counts[:test_a], "Should have caught test_a being repeated"
   end
   
   def test_rewriting_colon2s_oh_man_i_hate_those_in_most_cases_but_i_understand_why_they_are_there

metadata

@@ -1,7 +1,12 @@
 --- !ruby/object:Gem::Specification 
 name: sexp_path
 version: !ruby/object:Gem::Version 
-  version: 0.4.0
+  prerelease: false
+  segments: 
+  - 0
+  - 5
+  - 0
+  version: 0.5.0
 platform: ruby
 authors: 
 - Adam Sanderson
@@ -9,29 +14,77 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-02-12 00:00:00 +01:00
+date: 2013-06-26 00:00:00 -07:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: sexp_processor
+  name: sexp_path
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
   type: :runtime
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: ruby_parser
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        version: "3.0"
-    version: 
+        segments: 
+        - 3
+        - 1
+        version: "3.1"
+  type: :development
+  version_requirements: *id002
 - !ruby/object:Gem::Dependency 
-  name: ParseTree
+  name: jeweler
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
   type: :development
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: sexp_processor
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        version: "2.1"
-    version: 
+        segments: 
+        - 3
+        - 0
+        version: "3.0"
+  type: :runtime
+  version_requirements: *id004
+- !ruby/object:Gem::Dependency 
+  name: ruby_parser
+  prerelease: false
+  requirement: &id005 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 2
+        - 0
+        version: "2.0"
+  type: :development
+  version_requirements: *id005
 description: "      Allows you to do example based pattern matching and queries against S Expressions (sexp).\n"
 email: netghost@gmail.com
 executables: []
@@ -42,6 +95,8 @@ extra_rdoc_files:
 - README.rdoc
 - TODO
 files: 
+- Gemfile
+- Gemfile.lock
 - README.rdoc
 - Rakefile
 - TODO
@@ -49,7 +104,6 @@ files:
 - examples/print_methods.rb
 - examples/sexp_grep.rb
 - lib/sexp_path.rb
-- lib/sexp_path/line_numbering_processor.rb
 - lib/sexp_path/matcher/all.rb
 - lib/sexp_path/matcher/any.rb
 - lib/sexp_path/matcher/atom.rb
@@ -59,14 +113,15 @@ files:
 - lib/sexp_path/matcher/include.rb
 - lib/sexp_path/matcher/not.rb
 - lib/sexp_path/matcher/pattern.rb
+- lib/sexp_path/matcher/remaining.rb
 - lib/sexp_path/matcher/sibling.rb
 - lib/sexp_path/matcher/type.rb
 - lib/sexp_path/matcher/wild.rb
+- lib/sexp_path/ruby_query_builder.rb
 - lib/sexp_path/sexp_collection.rb
 - lib/sexp_path/sexp_query_builder.rb
 - lib/sexp_path/sexp_result.rb
 - lib/sexp_path/traverse.rb
-- test/line_numbering_processor_test.rb
 - test/sample.rb
 - test/sexp_path_capture_test.rb
 - test/sexp_path_matching_test.rb
@@ -77,31 +132,34 @@ homepage: http://github.com/adamsanderson/sexp_path
 licenses: []
 
 post_install_message: 
-rdoc_options: 
-- --charset=UTF-8
+rdoc_options: []
+
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      segments: 
+      - 0
       version: "0"
-  version: 
 required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
+      segments: 
+      - 0
       version: "0"
-  version: 
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.5
+rubygems_version: 1.3.7
 signing_key: 
 specification_version: 3
 summary: Pattern matching for S-Expressions (sexp).
 test_files: 
-- test/line_numbering_processor_test.rb
 - test/sexp_path_capture_test.rb
 - test/sexp_path_matching_test.rb
 - test/sexp_replacement_test.rb

data/lib/sexp_path/line_numbering_processor.rb

@@ -1,60 +0,0 @@
-require 'parse_tree' rescue nil
-
-# Transforms a Sexp, keeping track of newlines.  This uses the internal ruby newline nodes
-# so they must be included in the Sexp to be transformed.  If ParseTree is being used, it should
-# be configured to include newlines:
-#
-#   parser = ParseTree.new(true) # true => include_newlines
-# 
-# LineNumberingProcessor.rewrite_file(path) should be used as a short cut if ParseTree is available.
-#
-class LineNumberingProcessor < SexpProcessor
-  # Helper method for generating a Sexp with line numbers from a file at +path+.
-  #
-  # Only available if ParseTree is loaded.
-  def self.rewrite_file(path)
-    raise 'ParseTree must be installed.' unless Object.const_defined? :ParseTree
-    
-    code = File.read(path)
-    sexp = Sexp.from_array(ParseTree.new(true).parse_tree_for_string(code, path).first)
-    processor = LineNumberingProcessor.new
-    
-    # Fill in the first lines with a value
-    sexp.line = 0
-    sexp.file = path
-    
-    # Rewrite the sexp so that everything gets a line number if possible.
-    processor.rewrite sexp
-  end
-  
-  # Creates a new LineNumberingProcessor.
-  def initialize()
-    super
-    @unsupported.delete :newline
-  end
-  
-  # Rewrites a Sexp using :newline nodes to fill in line and file information.
-  def rewrite exp
-    unless exp.nil?
-      if exp.sexp_type == :newline
-        @line = exp[1]
-        @file = exp[2]
-      end
-      
-      exp.file ||= @file
-      exp.line ||= @line
-    end
-    
-    super exp
-  end
-  
-  private
-  # Removes newlines from the expression, they are read inside of rewrite, and used to give
-  # the other nodes a line number and file.
-  def rewrite_newline(exp)
-    # New lines look like:
-    #  s(:newline, 21, "test/sample.rb", s(:call, nil, :private, s(:arglist)) )
-    sexp = exp[3]
-    rewrite(sexp)
-  end
-end

data/test/line_numbering_processor_test.rb

@@ -1,55 +0,0 @@
-require 'test/unit'
-require File.dirname(__FILE__) + '/../lib/sexp_path'
-require 'parse_tree'
-
-class LineNumberingProcessorTest < Test::Unit::TestCase  
-  def setup
-    @path = File.dirname(__FILE__) + '/sample.rb'
-  end
-  
-  def test_processing_a_file_fills_in_all_the_line_numbers
-    sexp = LineNumberingProcessor.rewrite_file(@path)
-    assert !sexp.empty?
-    sexp.search_each(Q?{_}) do |s| 
-      assert !sexp.line.nil?, "Expected a line number for: #{s.sexp.inspect}"
-      assert !sexp.file.nil?, "Expected a file for: #{s.sexp.inspect}"
-    end
-  end
-  
-  # This test may break if sample.rb changes
-  def test_finding_known_lines
-    sexp = LineNumberingProcessor.rewrite_file(@path)
-    lines = open(@path,'r'){|io| io.readlines}
-    
-    assert_line_numbers_equal(
-      lines, 'def test_b()', 
-      sexp,  Q?{ s(:defn, :test_b, _) }
-    )
-    
-    assert_line_numbers_equal(
-      lines, '[apples, oranges, cakes]', 
-      sexp,  Q?{ s(:array, s(:lvar, :apples), s(:lvar, :oranges), s(:lvar, :cakes)) }
-    )
-    
-    assert_line_numbers_equal(
-      lines, "require 'test/unit'",
-      sexp, Q?{ s(:fcall, :require, s(:array, s(:str, "test/unit"))) }
-    )
-  end
-  
-  private
-  def assert_line_numbers_equal(lines, code, sexp, pattern)
-    string_line = find_line(lines, code)
-    sexp_line =   (sexp / pattern).first.sexp.line
-    
-    assert_equal string_line, sexp_line, "Expected to find #{code} at line #{string_line}"
-  end
-  
-  def find_line(lines, code)
-    
-    lines.each_with_index do |line,i|
-      return i+1 if line.index(code) # 1 based indexing
-    end
-    return nil
-  end
-end