diff --git a/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/designable.nib b/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/designable.nib
new file mode 100644
index 0000000..caf031e
--- /dev/null
+++ b/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/designable.nib
@@ -0,0 +1,1524 @@
+
+
+
+ 1050
+ 9E17
+ 629
+ 949.33
+ 352.00
+
+
+
+
+
+ 0
+
+ 3
+
+
+
diff --git a/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/keyedobjects.nib b/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/keyedobjects.nib
new file mode 100644
index 0000000..577bcb0
Binary files /dev/null and b/Treetop.tmbundle/Support/nibs/SyntaxTreeViewer.nib/keyedobjects.nib differ
diff --git a/Treetop.tmbundle/Support/syntax_tree_viewer.rb b/Treetop.tmbundle/Support/syntax_tree_viewer.rb
new file mode 100644
index 0000000..0fd58c1
--- /dev/null
+++ b/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: SELECT ?foo WHERE { ?x foaf:knows ?y . ?z foaf:knows ?x .}}
+ v.dialog
+end