cloudhead-less 1.2.3 → 1.2.4

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/parsing_expression.rb

@@ -1,138 +0,0 @@
-module Treetop
-  module Compiler
-    class ParsingExpression < Runtime::SyntaxNode
-      attr_reader :address, :builder, :subexpression_address, :var_symbols, :parent_expression
-    
-      def compile(address, builder, parent_expression)
-        @address = address
-        @builder = builder
-        @parent_expression = parent_expression
-      end
-      
-      def node_class_name
-        parent_expression && parent_expression.node_class_name || 'SyntaxNode'
-      end
-      
-      def declared_module_name
-        parent_expression && parent_expression.node_class_name
-      end
-      
-      def inline_module_name
-        parent_expression && parent_expression.inline_module_name
-      end
-      
-      def optional_arg(arg)
-        if arg
-          ", #{arg}"
-        else
-          ''
-        end
-      end
-    
-      def use_vars(*var_symbols)
-        @var_symbols = var_symbols
-        builder << var_initialization
-      end
-    
-      def result_var
-        var(:result)
-      end
-    
-      def accumulator_var
-        var(:accumulator)
-      end
-      
-      def start_index_var
-        var(:start_index)
-      end
-    
-      def subexpression_result_var
-        "r#{subexpression_address}"
-      end
-    
-      def subexpression_success?
-        subexpression_result_var
-      end
-    
-      def obtain_new_subexpression_address
-        @subexpression_address = builder.next_address
-      end
-        
-      def accumulate_subexpression_result
-        builder.accumulate accumulator_var, subexpression_result_var
-      end
-    
-      def assign_result(value_ruby)
-        builder.assign result_var, value_ruby
-      end
-      
-      def extend_result(module_name)
-        builder.extend result_var, module_name
-      end
-
-      def extend_result_with_declared_module
-        extend_result declared_module_name if declared_module_name
-      end
-      
-      def extend_result_with_inline_module
-        extend_result inline_module_name if inline_module_name
-      end
-    
-      def reset_index
-        builder.assign '@index', start_index_var
-      end
-      
-      def epsilon_node
-        "instantiate_node(SyntaxNode,input, index...index)"
-      end
-      
-      def assign_failure(start_index_var)
-        assign_result("nil")
-      end
-    
-      def var_initialization
-        left, right = [], []
-        var_symbols.each do |symbol|
-          if init_value(symbol)
-            left << var(symbol)
-            right << init_value(symbol)
-          end
-        end
-        if left.empty?
-          ""
-        else
-          left.join(', ') + ' = ' + right.join(', ')
-        end
-      end
-    
-      def var(var_symbol)
-        case var_symbol
-        when :result then "r#{address}"
-        when :accumulator then "s#{address}"
-        when :start_index then "i#{address}"
-        else raise "Unknown var symbol #{var_symbol}."
-        end
-      end
-    
-      def init_value(var_symbol)
-        case var_symbol
-        when :accumulator then '[]'
-        when :start_index then 'index'
-        else nil
-        end
-      end
-      
-      def begin_comment(expression)
-        #builder << "# begin #{on_one_line(expression)}"
-      end
-      
-      def end_comment(expression)
-        #builder << "# end #{on_one_line(expression)}"
-      end
-      
-      def on_one_line(expression)
-        expression.text_value.tr("\n", ' ')
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/parsing_rule.rb

@@ -1,55 +0,0 @@
-module Treetop
-  module Compiler
-    class ParsingRule < Runtime::SyntaxNode
-
-      def compile(builder)
-        compile_inline_module_declarations(builder)
-        generate_method_definition(builder)
-      end
-      
-      def compile_inline_module_declarations(builder)
-        parsing_expression.inline_modules.each_with_index do |inline_module, i|
-          inline_module.compile(i, builder, self)
-          builder.newline
-        end
-      end
-      
-      def generate_method_definition(builder)
-        builder.reset_addresses
-        expression_address = builder.next_address
-        result_var = "r#{expression_address}"
-        
-        builder.method_declaration(method_name) do
-          builder.assign 'start_index', 'index'
-          generate_cache_lookup(builder)
-          builder.newline
-          parsing_expression.compile(expression_address, builder)
-          builder.newline
-          generate_cache_storage(builder, result_var)
-          builder.newline          
-          builder << result_var
-        end
-      end
-      
-      def generate_cache_lookup(builder)
-        builder.if_ "node_cache[:#{name}].has_key?(index)" do
-          builder.assign 'cached', "node_cache[:#{name}][index]"
-          builder << '@index = cached.interval.end if cached'
-          builder << 'return cached'
-        end
-      end
-      
-      def generate_cache_storage(builder, result_var)
-        builder.assign "node_cache[:#{name}][start_index]", result_var
-      end
-      
-      def method_name
-        "_nt_#{name}"
-      end
-      
-      def name
-        nonterminal.text_value
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/predicate.rb

@@ -1,45 +0,0 @@
-module Treetop
-  module Compiler
-    class Predicate < ParsingExpression
-      def compile(address, builder, parent_expression)
-        super
-        begin_comment(parent_expression)
-        use_vars :result, :start_index
-        obtain_new_subexpression_address
-        parent_expression.prefixed_expression.compile(subexpression_address, builder)
-        builder.if__(subexpression_success?) { when_success }
-        builder.else_ { when_failure }
-        end_comment(parent_expression)
-      end
-      
-      def assign_failure
-        super(start_index_var)
-      end
-      
-      def assign_success
-        reset_index
-        assign_result epsilon_node
-      end
-    end
-    
-    class AndPredicate < Predicate
-      def when_success
-        assign_success
-      end
-
-      def when_failure
-        assign_failure
-      end
-    end
-    
-    class NotPredicate < Predicate
-      def when_success
-        assign_failure
-      end
-      
-      def when_failure
-        assign_success
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/repetition.rb

@@ -1,55 +0,0 @@
-module Treetop
-  module Compiler
-    class Repetition < ParsingExpression
-      def compile(address, builder, parent_expression)
-        super
-        repeated_expression = parent_expression.atomic
-        begin_comment(parent_expression)
-        use_vars :result, :accumulator, :start_index
-
-        builder.loop do
-          obtain_new_subexpression_address
-          repeated_expression.compile(subexpression_address, builder)
-          builder.if__ subexpression_success? do
-            accumulate_subexpression_result
-          end
-          builder.else_ do
-            builder.break
-          end
-        end
-      end
-      
-      def inline_module_name
-        parent_expression.inline_module_name
-      end
-      
-      def assign_and_extend_result
-        assign_result "instantiate_node(#{node_class_name},input, #{start_index_var}...index, #{accumulator_var})"
-        extend_result_with_inline_module
-      end
-    end
-
-  
-    class ZeroOrMore < Repetition
-      def compile(address, builder, parent_expression)
-        super
-        assign_and_extend_result
-        end_comment(parent_expression)
-      end
-    end
-  
-    class OneOrMore < Repetition
-      def compile(address, builder, parent_expression)
-        super
-        builder.if__ "#{accumulator_var}.empty?" do
-          reset_index
-          assign_failure start_index_var
-        end
-        builder.else_ do
-          assign_and_extend_result
-        end
-        end_comment(parent_expression)
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/sequence.rb

@@ -1,68 +0,0 @@
-module Treetop
-  module Compiler    
-    class Sequence < ParsingExpression
-      def compile(address, builder, parent_expression = nil)
-        super
-        begin_comment(self)
-        use_vars :result, :start_index, :accumulator
-        compile_sequence_elements(sequence_elements)
-        builder.if__ "#{accumulator_var}.last" do
-          assign_result "instantiate_node(#{node_class_name},input, #{start_index_var}...index, #{accumulator_var})"
-          extend_result sequence_element_accessor_module_name if sequence_element_accessor_module_name
-          extend_result_with_inline_module
-        end
-        builder.else_ do
-          reset_index
-          assign_failure start_index_var
-        end
-        end_comment(self)
-      end
-      
-      def node_class_name
-        node_class_declarations.node_class_name || 'SyntaxNode'
-      end
-      
-      def compile_sequence_elements(elements)
-        obtain_new_subexpression_address
-        elements.first.compile(subexpression_address, builder)
-        accumulate_subexpression_result
-        if elements.size > 1
-          builder.if_ subexpression_success? do
-            compile_sequence_elements(elements[1..-1])
-          end
-        end
-      end
-      
-      def sequence_element_accessor_module
-        @sequence_element_accessor_module ||= SequenceElementAccessorModule.new(sequence_elements)
-      end
-      
-      def sequence_element_accessor_module_name
-        sequence_element_accessor_module.module_name
-      end
-    end
-    
-    class SequenceElementAccessorModule
-      include InlineModuleMixin   
-      attr_reader :sequence_elements
-      
-      def initialize(sequence_elements)
-        @sequence_elements = sequence_elements
-      end
-      
-      def compile(index, builder, rule)
-        super
-        builder.module_declaration(module_name) do
-          sequence_elements.each_with_index do |element, index|
-            if element.label_name
-              builder.method_declaration(element.label_name) do
-                builder << "elements[#{index}]"
-              end
-              builder.newline unless index == sequence_elements.size - 1
-            end
-          end
-        end
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/terminal.rb

@@ -1,20 +0,0 @@
-module Treetop
-  module Compiler    
-    class Terminal < AtomicExpression
-      def compile(address, builder, parent_expression = nil)
-        super
-        string_length = eval(text_value).length
-        
-        builder.if__ "has_terminal?(#{text_value}, false, index)" do
-          assign_result "instantiate_node(#{node_class_name},input, index...(index + #{string_length}))"
-          extend_result_with_inline_module
-          builder << "@index += #{string_length}"
-        end
-        builder.else_ do
-          builder << "terminal_parse_failure(#{text_value})"
-          assign_result 'nil'
-        end
-      end
-    end
- end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/transient_prefix.rb

@@ -1,9 +0,0 @@
-module Treetop
-  module Compiler
-    class TransientPrefix < ParsingExpression
-      def compile(address, builder, parent_expression)
-        parent_expression.prefixed_expression.compile(address, builder)
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes/treetop_file.rb

@@ -1,9 +0,0 @@
-module Treetop
-  module Compiler
-    class TreetopFile < Runtime::SyntaxNode
-      def compile
-        (elements.map {|elt| elt.compile}).join
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler/node_classes.rb

@@ -1,19 +0,0 @@
-dir = File.dirname(__FILE__)
-require File.join(dir, *%w[node_classes parsing_expression])
-require File.join(dir, *%w[node_classes atomic_expression])
-require File.join(dir, *%w[node_classes inline_module])
-require File.join(dir, *%w[node_classes treetop_file])
-require File.join(dir, *%w[node_classes grammar])
-require File.join(dir, *%w[node_classes declaration_sequence])
-require File.join(dir, *%w[node_classes parsing_rule])
-require File.join(dir, *%w[node_classes parenthesized_expression])
-require File.join(dir, *%w[node_classes nonterminal])
-require File.join(dir, *%w[node_classes terminal])
-require File.join(dir, *%w[node_classes anything_symbol])
-require File.join(dir, *%w[node_classes character_class])
-require File.join(dir, *%w[node_classes sequence])
-require File.join(dir, *%w[node_classes choice])
-require File.join(dir, *%w[node_classes repetition])
-require File.join(dir, *%w[node_classes optional])
-require File.join(dir, *%w[node_classes predicate])
-require File.join(dir, *%w[node_classes transient_prefix])

data/lib/vendor/treetop/lib/treetop/compiler/ruby_builder.rb

@@ -1,113 +0,0 @@
-module Treetop
-  module Compiler
-    class RubyBuilder
-      
-      attr_reader :level, :address_space, :ruby
-      
-      def initialize
-        @level = 0
-        @address_space = LexicalAddressSpace.new
-        @ruby = ""
-      end
-      
-      def <<(ruby_line)              
-        return if ruby_line.blank?
-        ruby << ruby_line.tabto(level) << "\n"
-      end
-
-      def newline
-        ruby << "\n"
-      end
-      
-      def indented(depth = 2)
-        self.in(depth)
-        yield
-        self.out(depth)
-      end
-            
-      def class_declaration(name, &block)
-        self << "class #{name}"
-        indented(&block)
-        self << "end"
-      end
-      
-      def module_declaration(name, &block)
-        self << "module #{name}"
-        indented(&block)
-        self << "end"
-      end
-      
-      def method_declaration(name, &block)
-        self << "def #{name}"
-        indented(&block)
-        self << "end"
-      end
-      
-      def assign(left, right)
-        if left.instance_of? Array
-          self << "#{left.join(', ')} = #{right.join(', ')}"
-        else
-          self << "#{left} = #{right}"
-        end
-      end
-      
-      def extend(var, module_name)
-        self << "#{var}.extend(#{module_name})"
-      end
-      
-      def accumulate(left, right)
-        self << "#{left} << #{right}"
-      end
-      
-      def if__(condition, &block)
-        self << "if #{condition}"
-        indented(&block)
-      end
-      
-      def if_(condition, &block)
-        if__(condition, &block)
-        self << 'end'
-      end
-      
-      def else_(&block)
-        self << 'else'
-        indented(&block)
-        self << 'end'
-      end
-      
-      def loop(&block)
-        self << 'loop do'
-        indented(&block)
-        self << 'end'
-      end
-      
-      def break
-        self << 'break'
-      end
-      
-      def in(depth = 2)
-        @level += depth
-        self
-      end
-      
-      def out(depth = 2)
-        @level -= depth
-        self
-      end
-      
-      def next_address
-        address_space.next_address
-      end
-      
-      def reset_addresses
-        address_space.reset_addresses
-      end
-      
-      private
-      
-      def indent
-        " " * level
-      end
-    end
-  end
-end

data/lib/vendor/treetop/lib/treetop/compiler.rb

@@ -1,6 +0,0 @@
-dir = File.dirname(__FILE__)
-require File.join(dir, *%w[compiler lexical_address_space])
-require File.join(dir, *%w[compiler ruby_builder])
-require File.join(dir, *%w[compiler node_classes])
-require File.join(dir, *%w[compiler metagrammar]) unless $exclude_metagrammar
-require File.join(dir, *%w[compiler grammar_compiler])

data/lib/vendor/treetop/lib/treetop/ruby_extensions/string.rb

@@ -1,42 +0,0 @@
-class String
-  def column_of(index)
-    return 1 if index == 0
-    newline_index = rindex("\n", index - 1)
-    if newline_index
-      index - newline_index
-    else
-      index + 1
-    end
-  end
-  
-  def line_of(index)
-    self[0...index].count("\n") + 1
-  end
-
-  unless method_defined?(:blank?)
-    def blank?
-      self == ""
-    end
-  end
-
-  # The following methods are lifted from Facets 2.0.2
-  def tabto(n)
-    if self =~ /^( *)\S/
-      indent(n - $1.length)
-    else
-      self
-    end
-  end
-
-  def indent(n)
-    if n >= 0
-      gsub(/^/, ' ' * n)
-    else
-      gsub(/^ {0,#{-n}}/, "")
-    end
-  end
-
-  def treetop_camelize
-    to_s.gsub(/\/(.?)/){ "::" + $1.upcase }.gsub(/(^|_)(.)/){ $2.upcase }
-  end
-end

data/lib/vendor/treetop/lib/treetop/ruby_extensions.rb

@@ -1,2 +0,0 @@
-dir = File.dirname(__FILE__)
-require "#{dir}/ruby_extensions/string"

data/lib/vendor/treetop/lib/treetop/runtime/compiled_parser.rb

@@ -1,105 +0,0 @@
-module Treetop
-  module Runtime
-    class CompiledParser
-      include Treetop::Runtime
-      
-      attr_reader :input, :index, :terminal_failures, :max_terminal_failure_index
-      attr_writer :root
-      attr_accessor :consume_all_input
-      alias :consume_all_input? :consume_all_input
-      
-      def initialize
-        self.consume_all_input = true
-      end
-
-      def parse(input, options = {})
-        prepare_to_parse(input)
-        @index = options[:index] if options[:index]
-        result = send("_nt_#{root}")
-        return nil if (consume_all_input? && index != input.size)
-        return result
-      end
-
-      def failure_index
-        max_terminal_failure_index
-      end
-
-      def failure_line
-        terminal_failures && input.line_of(failure_index)
-      end
-
-      def failure_column
-        terminal_failures && input.column_of(failure_index)
-      end
-
-      def failure_reason
-        return nil unless (tf = terminal_failures) && tf.size > 0
-	"Expected " +
-	  (tf.size == 1 ?
-	   tf[0].expected_string :
-           "one of #{tf.map{|f| f.expected_string}.uniq*', '}"
-	  ) +
-          " at line #{failure_line}, column #{failure_column} (byte #{failure_index+1})" +
-          " after #{input[index...failure_index]}"
-      end
-
-
-      protected
-      
-      attr_reader :node_cache, :input_length
-      attr_writer :index
-              
-      def prepare_to_parse(input)
-        @input = input
-        @input_length = input.length
-        reset_index
-        @node_cache = Hash.new {|hash, key| hash[key] = Hash.new}
-        @regexps = {}
-        @terminal_failures = []
-        @max_terminal_failure_index = 0
-      end
-      
-      def reset_index
-        @index = 0
-      end
-      
-      def parse_anything(node_class = SyntaxNode, inline_module = nil)
-        if index < input.length
-          result = instantiate_node(node_class,input, index...(index + 1))
-          result.extend(inline_module) if inline_module
-          @index += 1
-          result
-        else
-          terminal_parse_failure("any character")
-        end
-      end
-    
-      def instantiate_node(node_type,*args)
-        if node_type.respond_to? :new 
-          node_type.new(*args)
-        else
-          SyntaxNode.new(*args).extend(node_type)
-        end
-      end
-    
-      def has_terminal?(terminal, regex, index)
-        if regex
-          rx = @regexps[terminal] ||= Regexp.new(terminal)
-          input.index(rx, index) == index
-        else
-          input[index, terminal.size] == terminal
-        end
-      end
-    
-      def terminal_parse_failure(expected_string)
-        return nil if index < max_terminal_failure_index
-        if index > max_terminal_failure_index
-          @max_terminal_failure_index = index
-          @terminal_failures = []
-        end
-        terminal_failures << TerminalParseFailure.new(index, expected_string)
-        return nil
-      end
-    end
-  end
-end