treetop 1.1.2 → 1.1.4

data/test/screw/unit/util/proc_wrapper.rb

@@ -1,48 +0,0 @@
-#--
-#
-# Author:: Nathaniel Talbott.
-# Copyright:: Copyright (c) 2000-2002 Nathaniel Talbott. All rights reserved.
-# License:: Ruby license.
-
-module Screw
-  module Unit
-    module Util
-
-      # Allows the storage of a Proc passed through '&' in a
-      # hash.
-      #
-      # Note: this may be inefficient, since the hash being
-      # used is not necessarily very good. In Observable,
-      # efficiency is not too important, since the hash is
-      # only accessed when adding and removing listeners,
-      # not when notifying.
-
-      class ProcWrapper
-
-        # Creates a new wrapper for a_proc.
-        def initialize(a_proc)
-          @a_proc = a_proc
-          @hash = a_proc.inspect.sub(/^(#<#{a_proc.class}:)/){''}.sub(/(>)$/){''}.hex
-        end
-
-        def hash
-          return @hash
-        end
-
-        def ==(other)
-          case(other)
-            when ProcWrapper
-              return @a_proc == other.to_proc
-            else
-              return super
-          end
-        end
-        alias :eql? :==
-
-        def to_proc
-          return @a_proc
-        end
-      end
-    end
-  end
-end

data/test/test_helper.rb

@@ -1,90 +0,0 @@
-require 'rubygems'
-dir = File.dirname(__FILE__)
-$:.unshift(File.expand_path(File.join(dir, '..', 'lib')))
-require File.expand_path(File.join(dir, 'screw', 'unit'))
-gem_original_require 'treetop'
-
-include Treetop
-
-unless Object.const_defined?(:METAGRAMMAR_PATH)
-  METAGRAMMAR_PATH = File.join(TREETOP_ROOT, 'compiler', 'metagrammar.treetop')
-  fresh_metagrammar_source = Compiler::GrammarCompiler.new.ruby_source(METAGRAMMAR_PATH)
-  Compiler.send(:remove_const, :Metagrammar)
-  Object.class_eval(fresh_metagrammar_source)
-end
-
-class CompilerTestCase < Screw::Unit::TestCase
-  class << self
-    attr_accessor :parser_class_under_test
-    
-    def testing_expression(expression_to_test)
-      rule_node = parse_with_metagrammar_2("rule test_expression\n" + expression_to_test + "\nend", :parsing_rule)
-      test_parser_code = generate_test_parser_for_expression(rule_node)
-      #puts test_parser_code
-      class_eval(test_parser_code)
-      self.parser_class_under_test = const_get(:TestParser)
-    end
-
-    def testing_grammar(grammar_to_test)
-      grammar_node = parse_with_metagrammar_2(grammar_to_test.strip, :grammar)
-      test_parser_code = grammar_node.compile
-      # puts test_parser_code
-      class_eval(test_parser_code)
-      self.parser_class_under_test = const_get(grammar_node.parser_name.to_sym)
-    end
-
-    def generate_test_parser_for_expression(expression_node)
-      builder = Compiler::RubyBuilder.new
-      address = builder.next_address
-      expression_node.compile(builder)
-      %{
-        class TestParser < Treetop::Runtime::CompiledParser
-          include Treetop::Runtime
-          
-          attr_accessor :test_index
-          
-          def root
-            _nt_test_expression
-          end
-          
-          def reset_index
-            @index = @test_index || 0
-          end
-          
-          #{builder.ruby.tabrestto(10)}
-        end
-      }.tabto(0)
-    end
-
-    def parse_with_metagrammar_2(input, root)
-      parser = Treetop::Compiler::MetagrammarParser.new
-      parser.send(:prepare_to_parse, input)
-      node = parser.send("_nt_#{root}".to_sym)
-      raise "#{input} cannot be parsed by the metagrammar: #{node.nested_failures.map {|f| f.to_s}.join("\n")}" if node.failure? 
-      node
-    end
-
-  end
-  
-  def parse_with_metagrammar_2(input, root)
-    self.class.parse_with_metagrammar_2(input, root)
-  end
-  
-  def parser_class_under_test
-    self.class.parser_class_under_test
-  end
-  
-  def parse(input, options = {})
-    test_parser = parser_class_under_test.new
-    test_parser.test_index = options[:at_index] if options[:at_index]
-    result = test_parser.parse(input)
-    yield result if block_given?
-    result
-  end
-end
-
-class String
-  def tabrestto(n)
-    self.gsub(/\n^/, "\n" + ' ' * n)
-  end
-end