mail 1.3.3 → 1.3.4

data/lib/vendor/treetop-1.4.3/Treetop.tmbundle/Support/syntax_tree_viewer.rb

@@ -0,0 +1,117 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+require 'treetop'
+require "#{ENV["TM_SUPPORT_PATH"]}/lib/ui"
+
+# Monkey-patch SyntaxNode in a gross violation of its privacy.
+module Treetop
+  module Runtime
+    class SyntaxNode
+      def interesting_methods
+        # Copied from SyntaxNode#inspect
+        methods-[extension_modules.last ? extension_modules.last.methods : nil]-self.class.instance_methods
+      end
+      
+      def to_hash
+        {
+          "class_and_modules" => self.class.to_s.sub(/.*:/,'') + extension_modules.map{|m| "+"+m.to_s.sub(/.*:/,'')}*"",
+          "offset" => interval.first,
+          "text_value" => text_value,
+          "methods" => interesting_methods * ", ",
+          "elements" => elements ? elements.map {|e| e.to_hash} : []
+        }
+      end
+    end
+  end
+end
+
+class SyntaxTreeViewer
+  def self.nib_path
+    File.dirname(__FILE__) + "/SyntaxTreeViewer.nib"
+  end
+  
+  def self.new_with_unknown_grammar
+    parser = if ENV['TM_SCOPE'] =~ /source\.ruby/ && ENV['TM_SELECTED_TEXT']
+      eval(ENV['TM_SELECTED_TEXT'])
+    else
+      parser_file = if ENV['TM_SCOPE'] =~ /source\.treetop/
+        ENV['TM_FILEPATH']
+      else
+        ask_for_grammar
+      end
+      return unless parser_file
+      Treetop.load(parser_file)
+    end
+    new(parser.new)
+  end
+  
+  def self.ask_for_grammar
+    files = TextMate::UI.request_file("title" => "Select a Grammar File")
+    if files.nil? || files.empty?
+      nil
+    else
+      files[0]
+    end
+  end
+  
+  def self.nib_path
+    File.dirname(__FILE__) + "/nibs/SyntaxTreeViewer.nib"
+  end
+  
+  def initialize(_parser)
+    @parser = _parser
+    run_parser!
+  end
+  
+  def dialog
+    TextMate::UI.dialog(
+      :nib => self.class.nib_path, 
+      :parameters => parameters
+    ) do |d|
+      d.wait_for_input do |params|
+        if params["returnArgument"]
+          self.input = params["returnArgument"]
+          run_parser!
+          d.parameters = parameters
+          true
+        else
+          false
+        end
+      end
+    end
+  end
+  
+  def input
+    ENV['TM_TREETOP_SYNTAX_VIEWER_INPUT'] ||= ""
+  end
+  
+  def input=(new_input)
+    ENV['TM_TREETOP_SYNTAX_VIEWER_INPUT'] = new_input
+  end
+  
+  private
+  def run_parser!
+    if input && !input.empty?
+      @syntax_tree = @parser.parse(input)
+      TextMate::UI.alert(:warning, "Parse error", @parser.failure_reason) unless @syntax_tree
+    end
+  end
+  
+  def parameters
+    p = {
+      "input" => input, 
+      "syntax_tree" => @syntax_tree ? @syntax_tree.to_hash : {},
+      "selected_tab" => !input.empty? && @syntax_tree ? "Syntax Tree" : "Input"
+    }
+    puts p
+    p
+  end
+end
+
+if __FILE__ == $0
+  Dir.chdir("/Users/aobrien/Work/canopy/play/sparql/")
+  require "/Users/aobrien/Work/canopy/play/sparql/lib/sparql"
+  v = SyntaxTreeViewer.new(SparqlParser.new)
+  v.input = %{PREFIX foaf: <http://xmlns.com/foaf/0.1/> SELECT ?foo WHERE { ?x foaf:knows ?y . ?z foaf:knows ?x .}}
+  v.dialog
+end

data/lib/vendor/treetop-1.4.3/Treetop.tmbundle/Syntaxes/Treetop Grammar.tmLanguage

@@ -0,0 +1,251 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>fileTypes</key>
+	<array>
+		<string>treetop</string>
+	</array>
+	<key>foldingStartMarker</key>
+	<string>(grammer|rule).*$</string>
+	<key>foldingStopMarker</key>
+	<string>^\s*end</string>
+	<key>keyEquivalent</key>
+	<string>^~T</string>
+	<key>name</key>
+	<string>Treetop Grammar</string>
+	<key>patterns</key>
+	<array>
+		<dict>
+			<key>begin</key>
+			<string>^(grammar) ([A-Z]\w+)</string>
+			<key>beginCaptures</key>
+			<dict>
+				<key>1</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.begin.grammar.treetop</string>
+				</dict>
+				<key>2</key>
+				<dict>
+					<key>name</key>
+					<string>entity.name.grammar.treetop</string>
+				</dict>
+			</dict>
+			<key>end</key>
+			<string>^end$</string>
+			<key>endCaptures</key>
+			<dict>
+				<key>0</key>
+				<dict>
+					<key>name</key>
+					<string>keyword.end.grammar.treetop</string>
+				</dict>
+			</dict>
+			<key>name</key>
+			<string>meta.grammar.treetop</string>
+			<key>patterns</key>
+			<array>
+				<dict>
+					<key>begin</key>
+					<string>\b(rule)\b (.+)$</string>
+					<key>beginCaptures</key>
+					<dict>
+						<key>1</key>
+						<dict>
+							<key>name</key>
+							<string>keyword.begin.rule.treetop</string>
+						</dict>
+						<key>2</key>
+						<dict>
+							<key>name</key>
+							<string>entity.name.rule.treetop</string>
+						</dict>
+					</dict>
+					<key>end</key>
+					<string>^\s+\bend\b\s*$</string>
+					<key>endCaptures</key>
+					<dict>
+						<key>0</key>
+						<dict>
+							<key>name</key>
+							<string>keyword.end.rule.treetop</string>
+						</dict>
+					</dict>
+					<key>name</key>
+					<string>meta.rule.treetop</string>
+					<key>patterns</key>
+					<array>
+						<dict>
+							<key>include</key>
+							<string>#strings</string>
+						</dict>
+						<dict>
+							<key>include</key>
+							<string>#character-class</string>
+						</dict>
+						<dict>
+							<key>match</key>
+							<string>\/</string>
+							<key>name</key>
+							<string>keyword.operator.or.treetop</string>
+						</dict>
+						<dict>
+							<key>match</key>
+							<string>&lt;\w+?&gt;</string>
+							<key>name</key>
+							<string>variable.class-instance.treetop</string>
+						</dict>
+						<dict>
+							<key>match</key>
+							<string>\w+?:</string>
+							<key>name</key>
+							<string>support.operand.treetop</string>
+						</dict>
+						<dict>
+							<key>begin</key>
+							<string>\{</string>
+							<key>end</key>
+							<string>\}</string>
+							<key>name</key>
+							<string>meta.embedded-ruby.treetop</string>
+							<key>patterns</key>
+							<array>
+								<dict>
+									<key>include</key>
+									<string>source.ruby</string>
+								</dict>
+							</array>
+						</dict>
+					</array>
+				</dict>
+			</array>
+		</dict>
+	</array>
+	<key>repository</key>
+	<dict>
+		<key>character-class</key>
+		<dict>
+			<key>patterns</key>
+			<array>
+				<dict>
+					<key>match</key>
+					<string>\\[wWsSdDhH]|\.</string>
+					<key>name</key>
+					<string>constant.character.character-class.regexp</string>
+				</dict>
+				<dict>
+					<key>match</key>
+					<string>\\.</string>
+					<key>name</key>
+					<string>constant.character.escape.backslash.regexp</string>
+				</dict>
+				<dict>
+					<key>begin</key>
+					<string>(\[)(\^)?</string>
+					<key>beginCaptures</key>
+					<dict>
+						<key>1</key>
+						<dict>
+							<key>name</key>
+							<string>punctuation.definition.character-class.regexp</string>
+						</dict>
+						<key>2</key>
+						<dict>
+							<key>name</key>
+							<string>keyword.operator.negation.regexp</string>
+						</dict>
+					</dict>
+					<key>end</key>
+					<string>(\])</string>
+					<key>endCaptures</key>
+					<dict>
+						<key>1</key>
+						<dict>
+							<key>name</key>
+							<string>punctuation.definition.character-class.regexp</string>
+						</dict>
+					</dict>
+					<key>name</key>
+					<string>constant.other.character-class.set.regexp</string>
+					<key>patterns</key>
+					<array>
+						<dict>
+							<key>include</key>
+							<string>#character-class</string>
+						</dict>
+						<dict>
+							<key>captures</key>
+							<dict>
+								<key>2</key>
+								<dict>
+									<key>name</key>
+									<string>constant.character.escape.backslash.regexp</string>
+								</dict>
+								<key>4</key>
+								<dict>
+									<key>name</key>
+									<string>constant.character.escape.backslash.regexp</string>
+								</dict>
+							</dict>
+							<key>match</key>
+							<string>(.|(\\.))\-([^\]]|(\\.))</string>
+							<key>name</key>
+							<string>constant.other.character-class.range.regexp</string>
+						</dict>
+						<dict>
+							<key>match</key>
+							<string>&amp;&amp;</string>
+							<key>name</key>
+							<string>keyword.operator.intersection.regexp</string>
+						</dict>
+					</array>
+				</dict>
+			</array>
+		</dict>
+		<key>strings</key>
+		<dict>
+			<key>patterns</key>
+			<array>
+				<dict>
+					<key>begin</key>
+					<string>'</string>
+					<key>beginCaptures</key>
+					<dict>
+						<key>0</key>
+						<dict>
+							<key>name</key>
+							<string>punctuation.definition.string.begin.treetop</string>
+						</dict>
+					</dict>
+					<key>end</key>
+					<string>'</string>
+					<key>endCaptures</key>
+					<dict>
+						<key>0</key>
+						<dict>
+							<key>name</key>
+							<string>punctuation.definition.string.end.treetop</string>
+						</dict>
+					</dict>
+					<key>name</key>
+					<string>string.quoted.single.treetop</string>
+					<key>patterns</key>
+					<array>
+						<dict>
+							<key>match</key>
+							<string>\\(u\h{4}|.)</string>
+							<key>name</key>
+							<string>constant.character.escape.antlr</string>
+						</dict>
+					</array>
+				</dict>
+			</array>
+		</dict>
+	</dict>
+	<key>scopeName</key>
+	<string>source.treetop</string>
+	<key>uuid</key>
+	<string>A1604A34-0B73-4D5A-9499-87D881DFA8D5</string>
+</dict>
+</plist>

data/lib/vendor/treetop-1.4.3/Treetop.tmbundle/info.plist

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>name</key>
+	<string>Treetop</string>
+	<key>uuid</key>
+	<string>83A8B700-143D-4BD6-B4EA-D73796E8F883</string>
+</dict>
+</plist>

data/lib/vendor/treetop-1.4.3/benchmark/seqpar.gnuplot

@@ -0,0 +1,15 @@
+f1(x) = a*x
+a = 0.5
+fit f1(x) 'before.dat' using 1:2 via a
+ 
+f2(x) = b*x
+b = 0.5
+fit f2(x) 'after.dat' using 1:2 via b
+ 
+set xlabel "Length of input"
+set ylabel "CPU time to parse"
+
+plot a*x        title 'a*x (Before)',\
+     b*x        title 'b*x (After)',\
+     "before.dat" using 1:2 title 'Before', \
+     "after.dat" using 1:2 title 'After'

data/lib/vendor/treetop-1.4.3/benchmark/seqpar.treetop

@@ -0,0 +1,16 @@
+grammar SeqPar
+ 
+  rule statement
+      'par ' (statement ' ')+ 'end'
+    / 'sequence' ' ' (statement ' ')+ 'end'
+    / 'seq' ' ' (statement ' ')+ 'end'
+    / ('fit' [\s] (statement ' ')+ 'end') {
+      def foo
+        "foo"
+      end
+    }
+    / 'art'+ [ ] (statement ' ')+ 'end'
+    / [A-Z] [a-zA-z0-9]*
+  end
+ 
+end

data/lib/vendor/treetop-1.4.3/benchmark/seqpar_benchmark.rb

@@ -0,0 +1,107 @@
+# Benchmarking written by Bernard Lambeau, improved by Jason Garber
+#
+# To test your optimizations:
+#   1. Run ruby seqpar_benchmark.rb
+#   2. cp after.dat before.dat 
+#   3. Make your modifications to the treetop code
+#   4. Run ruby seqpar_benchmark.rb
+#   5. Run gnuplot seqpar.gnuplot
+#
+$LOAD_PATH << File.join(File.dirname(__FILE__), '..', 'lib')
+require 'treetop'
+require 'benchmark'
+
+srand(47562) # So it runs the same each time
+
+class Array; def sum; inject( nil ) { |sum,x| sum ? sum+x : x }; end; end
+class Array; def mean; sum / size; end; end
+
+class SeqParBenchmark
+  
+  OPERATORS = ["seq", "fit", "art"*5, "par", "sequence"]
+  
+  # Loads the grammar and returns a parser
+  def initialize
+    compiler = Treetop::Compiler::GrammarCompiler.new
+    @where = File.expand_path(File.dirname(__FILE__))
+    grammar = File.join(@where, 'seqpar.treetop')
+    output = File.join(@where, 'seqpar.rb')
+    compiler.compile(grammar, output)
+    load output
+    File.delete(output)
+    @parser = SeqParParser.new
+  end
+  
+  # Checks the grammar
+  def check
+    ["Task",
+     "seq Task end",
+     "par Task end",
+     "seq Task Task end",
+     "par Task Task end",
+     "par seq Task end Task end",
+     "par seq seq Task end end Task end",
+     "seq Task par seq Task end Task end Task end"].each do |input|
+      raise ParseError.new(@parser) if @parser.parse(input).nil?
+    end
+  end
+  
+  # Generates an input text
+  def generate(depth=0)
+    return "Task" if depth>7
+    return "seq #{generate(depth+1)} end" if depth==0
+    which = rand(OPERATORS.length)
+    case which
+      when 0
+        "Task"
+      else
+        raise unless OPERATORS[which]
+        buffer = "#{OPERATORS[which]} "
+        0.upto(rand(4)+1) do 
+          buffer << generate(depth+1) << " "
+        end
+        buffer << "end"
+        buffer
+    end
+  end
+  
+  # Launches benchmarking
+  def benchmark
+    number_by_size = Hash.new {|h,k| h[k] = 0}
+    time_by_size = Hash.new {|h,k| h[k] = 0}
+    0.upto(250) do |i|
+      input = generate
+      length = input.length
+      puts "Launching #{i}: #{input.length}"
+      # puts input
+      tms = Benchmark.measure { @parser.parse(input) }
+      number_by_size[length] += 1
+      time_by_size[length] += tms.total*1000
+    end
+    # puts number_by_size.inspect
+    # puts time_by_size.inspect
+    
+    File.open(File.join(@where, 'after.dat'), 'w') do |dat|
+      number_by_size.keys.sort.each do |size|
+        dat << "#{size} #{(time_by_size[size]/number_by_size[size]).truncate}\n"
+      end
+    end
+    
+    if File.exists?(File.join(@where, 'before.dat'))
+      before = {}
+      performance_increases = []
+      File.foreach(File.join(@where, 'before.dat')) do |line|
+        size, time = line.split(' ')
+        before[size] = time
+      end
+      File.foreach(File.join(@where, 'after.dat')) do |line|
+        size, time = line.split(' ')
+        performance_increases << (before[size].to_f - time.to_f) / before[size].to_f unless time == "0" || before[size] == "0"
+      end
+      puts "Average performance increase: #{performance_increases.mean * 100}%"
+    end
+  end
+  
+end
+
+SeqParBenchmark.new.benchmark