lsl 0.0.0 → 0.0.1

data/.document

@@ -1,5 +1,5 @@
-lib/**/*.rb
-bin/*
-- 
-features/**/*.feature
-LICENSE.txt
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/.rspec

@@ -1 +1 @@
---color
+--color

data/Gemfile

@@ -1,13 +1,17 @@
-source "http://rubygems.org"
-# Add dependencies required to use your gem here.
-# Example:
-#   gem "activesupport", ">= 2.3.5"
-
-# Add dependencies to develop your gem here.
-# Include everything needed to run rake, tests, features, etc.
-group :development do
-  gem "rspec", "~> 2.1.0"
-  gem "bundler", "~> 1.0.0"
-  gem "jeweler", "~> 1.5.1"
-  gem "rcov", ">= 0"
-end
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec", "~> 2.1.0"
+  gem "bundler", "~> 1.0.0"
+  gem "jeweler", "~> 1.5.1"
+  gem "rcov", ">= 0"
+end
+
+gem 'andand'
+gem "treetop"
+gem 'mharris_ext'

data/Gemfile.lock

@@ -1,12 +1,19 @@
 GEM
   remote: http://rubygems.org/
   specs:
+    andand (1.3.1)
     diff-lcs (1.1.2)
+    facets (2.8.4)
+    fattr (2.1.0)
     git (1.2.5)
     jeweler (1.5.1)
       bundler (~> 1.0.0)
       git (>= 1.2.5)
       rake
+    mharris_ext (1.5.0)
+      facets
+      fattr
+    polyglot (0.3.1)
     rake (0.8.7)
     rcov (0.9.9)
     rspec (2.1.0)
@@ -17,12 +24,18 @@ GEM
     rspec-expectations (2.1.0)
       diff-lcs (~> 1.1.2)
     rspec-mocks (2.1.0)
+    treetop (1.4.8)
+      polyglot (>= 0.3.1)
 
 PLATFORMS
+  ruby
   x86-mingw32
 
 DEPENDENCIES
+  andand
   bundler (~> 1.0.0)
   jeweler (~> 1.5.1)
+  mharris_ext
   rcov
   rspec (~> 2.1.0)
+  treetop

data/LICENSE.txt

@@ -1,20 +1,20 @@
-Copyright (c) 2010 mharris717
-
-Permission is hereby granted, free of charge, to any person obtaining
-a copy of this software and associated documentation files (the
-"Software"), to deal in the Software without restriction, including
-without limitation the rights to use, copy, modify, merge, publish,
-distribute, sublicense, and/or sell copies of the Software, and to
-permit persons to whom the Software is furnished to do so, subject to
-the following conditions:
-
-The above copyright notice and this permission notice shall be
-included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
-LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
-OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+Copyright (c) 2010 mharris717
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -1,19 +1,19 @@
-= lsl
-
-Description goes here.
-
-== Contributing to lsl
- 
-* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet
-* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it
-* Fork the project
-* Start a feature/bugfix branch
-* Commit and push until you are happy with your contribution
-* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
-* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
-
-== Copyright
-
-Copyright (c) 2010 mharris717. See LICENSE.txt for
-further details.
-
+= lsl
+
+Description goes here.
+
+== Contributing to lsl
+ 
+* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet
+* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it
+* Fork the project
+* Start a feature/bugfix branch
+* Commit and push until you are happy with your contribution
+* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
+* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
+
+== Copyright
+
+Copyright (c) 2010 mharris717. See LICENSE.txt for
+further details.
+

data/Rakefile

@@ -1,50 +1,50 @@
-require 'rubygems'
-require 'bundler'
-begin
-  Bundler.setup(:default, :development)
-rescue Bundler::BundlerError => e
-  $stderr.puts e.message
-  $stderr.puts "Run `bundle install` to install missing gems"
-  exit e.status_code
-end
-require 'rake'
-
-require 'jeweler'
-Jeweler::Tasks.new do |gem|
-  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
-  gem.name = "lsl"
-  gem.homepage = "http://github.com/mharris717/lsl"
-  gem.license = "MIT"
-  gem.summary = %Q{little shell language}
-  gem.description = %Q{little shell language}
-  gem.email = "mharris717@gmail.com"
-  gem.authors = ["mharris717"]
-  # Include your dependencies below. Runtime dependencies are required when using your gem,
-  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
-  #  gem.add_runtime_dependency 'jabber4r', '> 0.1'
-  #  gem.add_development_dependency 'rspec', '> 1.2.3'
-end
-Jeweler::RubygemsDotOrgTasks.new
-
-require 'rspec/core'
-require 'rspec/core/rake_task'
-RSpec::Core::RakeTask.new(:spec) do |spec|
-  spec.pattern = FileList['spec/**/*_spec.rb']
-end
-
-RSpec::Core::RakeTask.new(:rcov) do |spec|
-  spec.pattern = 'spec/**/*_spec.rb'
-  spec.rcov = true
-end
-
-task :default => :spec
-
-require 'rake/rdoctask'
-Rake::RDocTask.new do |rdoc|
-  version = File.exist?('VERSION') ? File.read('VERSION') : ""
-
-  rdoc.rdoc_dir = 'rdoc'
-  rdoc.title = "lsl #{version}"
-  rdoc.rdoc_files.include('README*')
-  rdoc.rdoc_files.include('lib/**/*.rb')
-end
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "lsl"
+  gem.homepage = "http://github.com/mharris717/lsl"
+  gem.license = "MIT"
+  gem.summary = %Q{little shell language}
+  gem.description = %Q{little shell language}
+  gem.email = "mharris717@gmail.com"
+  gem.authors = ["mharris717"]
+  # Include your dependencies below. Runtime dependencies are required when using your gem,
+  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
+  #  gem.add_runtime_dependency 'jabber4r', '> 0.1'
+  #  gem.add_development_dependency 'rspec', '> 1.2.3'
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rspec/core'
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new(:spec) do |spec|
+  spec.pattern = FileList['spec/**/*_spec.rb']
+end
+
+RSpec::Core::RakeTask.new(:rcov) do |spec|
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "lsl #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -1 +1 @@
-0.0.0
+0.0.1

data/bin/lsl

@@ -0,0 +1,4 @@
+#! /usr/bin/ruby
+
+require 'rubygems'
+require File.dirname(__FILE__) + "/../lib/lsl/sandbox"

data/lib/lsl.rb

@@ -0,0 +1,60 @@
+require 'andand'
+require 'treetop'
+require 'mharris_ext'
+
+%w(base quoting list file single_command compound_command).each do |g|
+  require File.dirname(__FILE__) + "/lsl/grammars/#{g}"
+end
+
+class Object
+  def blank?
+    to_s.strip == ''
+  end
+  def present?
+    !blank?
+  end
+  def unquoted
+    ((self[0..0]+self[-1..-1]) == '""') ? self[1..-2] : self
+  end
+end
+
+class Object
+  def list_values
+    elements.map { |x| x.text_value.strip }.select { |x| x.present? }.map { |x| x.unquoted }
+  end
+  def find_child_node(node)
+    
+    elements.each do |e|
+      return e.send(node) if e.respond_to?(node)
+    end
+    #return send(node) if respond_to?(node)
+    nil
+  end
+  def find_child_node2(node)
+    
+    elements.each do |e|
+      return e.send(node) if e.respond_to?(node)
+    end
+    #return send(node) if respond_to?(node)
+    nil
+  end
+        
+end
+
+class SingleCommandObj
+  attr_accessor :ex, :args, :options
+  include FromHash
+  def to_h
+    {:ex => ex, :args => args, :options => options}
+  end
+  def url
+    "http://localhost:4567/#{ex}" + args.map { |x| "/#{x}" }.join
+  end
+  def method
+    ex.split(".").last
+  end
+  def obj
+    a = ex.split(".")
+    (a.size > 1) ? eval(a.first) : nil
+  end
+end

data/lib/lsl/grammars/base.treetop

@@ -0,0 +1,16 @@
+module LSL
+  grammar Base
+    rule word
+      [a-zA-Z\.\/\\]+
+    end
+    rule ws1
+      ' '
+    end
+    rule ws
+      ws1+
+    end
+    rule ows
+      ws*
+    end
+  end
+end

data/lib/lsl/grammars/compound_command.treetop

@@ -0,0 +1,9 @@
+module LSL
+  grammar CompoundCommand
+    include LSL::SingleCommand
+    include LSL::File
+    rule full_command
+      single_command (ows ">" ows filename)?
+    end
+  end
+end

data/lib/lsl/grammars/file.treetop

@@ -0,0 +1,7 @@
+module LSL
+  grammar File
+    rule filename
+      [a-zA-Z\.\/\\_]+
+    end
+  end
+end

data/lib/lsl/grammars/list.treetop

@@ -0,0 +1,8 @@
+module LSL
+  grammar List
+    include LSL::Base
+    rule comma_list
+      optionally_quoted_string ("," comma_list)*
+    end
+  end
+end

data/lib/lsl/grammars/quoting.treetop

@@ -0,0 +1,14 @@
+module LSL
+  grammar Quoting
+    include LSL::Base
+    rule optionally_quoted_string
+      quoted_string / word
+    end
+    rule quoted_string
+      '"' quoteless_string '"'
+    end
+    rule quoteless_string
+      (!'"' . quoteless_string) / ""
+    end
+  end
+end

data/lib/lsl/grammars/single_command.treetop

@@ -0,0 +1,54 @@
+module LSL
+  grammar SingleCommand
+    include LSL::Quoting
+    include LSL::List
+    rule single_command
+      ex (ws args)? (ws options)? {
+        def args
+          find_child_node(:args)
+        end
+        def options
+          find_child_node(:options)
+        end
+        def command_hash
+          SingleCommandObj.new(:ex => ex.text_value, :args => args.andand.list_values || [], :options => options.andand.hash_values || {})
+        end
+      }
+    end
+    
+    rule ex
+      word
+    end
+    
+    rule arg
+      comma_list
+    end
+    rule args
+      arg (ws arg)*
+    end
+    
+    rule option_flag
+      '-' word
+    end
+    rule option
+      option_flag (ws optionally_quoted_string)? {
+        def kv
+          n = find_child_node2(:optionally_quoted_string)
+          {option_flag.word.text_value => n.andand.text_value}
+        end
+      }
+    end
+    rule options
+      option (ws option)* {
+        def hash_values
+          res = option.kv
+          elements[1..-1].each do |e|
+            n = e.find_child_node2(:option)
+            res = res.merge(n.kv) if n
+          end
+          res
+        end
+      }
+    end
+  end
+end

data/lib/lsl/sandbox.rb

@@ -0,0 +1,43 @@
+require File.dirname(__FILE__) + "/../lsl"
+require 'open-uri'
+require 'fileutils'
+
+class CommandEnv
+  def echo(str)
+    puts "ECHOING #{str}"
+  end
+  def cp(a,b)
+    puts "gonna copy #{a} to #{b}"
+  end
+  def del(a)
+    puts "deleting #{a}"
+  end
+end
+
+class Foo
+  def self.bar(*args)
+    puts "bar #{args.inspect}"
+  end
+end
+
+class Shell
+  fattr(:env) { CommandEnv.new }
+  fattr(:parser) { LSL::SingleCommandParser.new }
+  def run(str)
+    command = parser.parse(str).command_hash
+    obj = command.obj || env
+    obj.send(command.method,*command.args)
+    #open(command.url)
+  rescue => exp
+    puts "command failed #{exp.message}"
+  end
+  def run_loop
+    loop do
+      str = STDIN.gets.strip
+      run(str)
+    end
+  end
+end
+
+s = Shell.new
+s.run_loop

data/lib/lsl/server.rb

@@ -0,0 +1,6 @@
+require 'sinatra'
+require 'mharris_ext'
+
+get "/echo/:str" do
+  puts params[:str]
+end

data/lsl.gemspec

@@ -0,0 +1,91 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run 'rake gemspec'
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{lsl}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["mharris717"]
+  s.date = %q{2010-12-27}
+  s.default_executable = %q{lsl}
+  s.description = %q{little shell language}
+  s.email = %q{mharris717@gmail.com}
+  s.executables = ["lsl"]
+  s.extra_rdoc_files = [
+    "LICENSE.txt",
+    "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+    ".rspec",
+    "Gemfile",
+    "Gemfile.lock",
+    "LICENSE.txt",
+    "README.rdoc",
+    "Rakefile",
+    "VERSION",
+    "bin/lsl",
+    "lib/lsl.rb",
+    "lib/lsl/grammars/base.treetop",
+    "lib/lsl/grammars/compound_command.treetop",
+    "lib/lsl/grammars/file.treetop",
+    "lib/lsl/grammars/list.treetop",
+    "lib/lsl/grammars/quoting.treetop",
+    "lib/lsl/grammars/single_command.treetop",
+    "lib/lsl/sandbox.rb",
+    "lib/lsl/server.rb",
+    "lsl.gemspec",
+    "spec/compound_command_spec.rb",
+    "spec/lsl_spec.rb",
+    "spec/quoting_spec.rb",
+    "spec/single_command_spec.rb",
+    "spec/spec_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/mharris717/lsl}
+  s.licenses = ["MIT"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{little shell language}
+  s.test_files = [
+    "spec/compound_command_spec.rb",
+    "spec/lsl_spec.rb",
+    "spec/quoting_spec.rb",
+    "spec/single_command_spec.rb",
+    "spec/spec_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<andand>, [">= 0"])
+      s.add_runtime_dependency(%q<treetop>, [">= 0"])
+      s.add_runtime_dependency(%q<mharris_ext>, [">= 0"])
+      s.add_development_dependency(%q<rspec>, ["~> 2.1.0"])
+      s.add_development_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_development_dependency(%q<jeweler>, ["~> 1.5.1"])
+      s.add_development_dependency(%q<rcov>, [">= 0"])
+    else
+      s.add_dependency(%q<andand>, [">= 0"])
+      s.add_dependency(%q<treetop>, [">= 0"])
+      s.add_dependency(%q<mharris_ext>, [">= 0"])
+      s.add_dependency(%q<rspec>, ["~> 2.1.0"])
+      s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+      s.add_dependency(%q<jeweler>, ["~> 1.5.1"])
+      s.add_dependency(%q<rcov>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<andand>, [">= 0"])
+    s.add_dependency(%q<treetop>, [">= 0"])
+    s.add_dependency(%q<mharris_ext>, [">= 0"])
+    s.add_dependency(%q<rspec>, ["~> 2.1.0"])
+    s.add_dependency(%q<bundler>, ["~> 1.0.0"])
+    s.add_dependency(%q<jeweler>, ["~> 1.5.1"])
+    s.add_dependency(%q<rcov>, [">= 0"])
+  end
+end
+

data/spec/compound_command_spec.rb

@@ -0,0 +1,15 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "CompoundCommand" do
+  before do
+    @parser = LSL::CompoundCommandParser.new
+  end
+  def parser; @parser; end
+  it 'single_command' do
+    parser.should be_parsed("cp a b -v a")
+  end
+  it 'command with output redirection' do
+    parser.should be_parsed("cp a b > foo.txt")
+  end
+  
+end

data/spec/lsl_spec.rb

@@ -1,7 +1,11 @@
-require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
-
-describe "Lsl" do
-  it "fails" do
-    fail "hey buddy, you should probably rename this file and start specing for real"
-  end
-end
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Lsl" do
+  
+  
+end
+
+a = <<EOF
+output redirection
+quoting
+EOF

data/spec/quoting_spec.rb

@@ -0,0 +1,25 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Quoting" do
+  before do
+    @parser = LSL::QuotingParser.new
+  end
+  def parser; @parser; end
+  it "smoke" do
+    2.should == 2
+  end
+  it 'quoted word' do
+    parser.should be_parsed('"abc"')
+  end  
+  it 'unquoted word' do
+    parser.should be_parsed('abc')
+  end
+  it 'quoted phrase' do
+    parser.should be_parsed('"abc xyz"')
+  end
+  it "unquoted phrase" do
+    parser.should_not be_parsed("abc xyz")
+  end
+  #it "escaped quotes"
+end
+

data/spec/single_command_spec.rb

@@ -0,0 +1,81 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Command" do
+  before do
+    @parser = LSL::SingleCommandParser.new
+  end
+  def parser; @parser; end
+  def parse(str); parser.parse(str); end
+  describe "boolean parse checks" do
+    it 'naked ex' do
+      parser.should be_parsed("cp")
+    end
+    it "ex with arg" do
+      parser.should be_parsed("cp abc")
+    end
+    it "ex with args" do
+      parser.should be_parsed("cp abc xyz")
+    end
+    it "ex with option" do
+      parser.should be_parsed("cp -v")
+    end
+    it "ex with arg and option" do
+      parser.should be_parsed("cp abc -vv")
+    end
+    it "ex with quoted arg" do
+      parser.should be_parsed('cp "a b"')
+    end
+    it "ex with list arg" do
+      parser.should be_parsed('cp a,b c')
+    end
+    describe "options" do
+      it "option with value" do
+        parser.should be_parsed("cp -name abc")
+      end
+      it "option with quoted word" do
+        parser.should be_parsed('cp -name "abc"')
+      end
+      it "option with quoted phrase" do
+        parser.should be_parsed('cp -name "abc xyz"')
+      end
+    end
+  end
+  it "should have ex" do
+    parse("cp a b").ex.text_value.should == "cp"
+    parser.should parse_as("cp a b",:ex,:cp)
+  end
+  it "should have args" do
+    parser.should parse_as("cp a b",:args,"a b")
+    parse("cp a b").args.list_values.should == ['a','b']
+  end
+  describe "command hash" do
+    it "naked ex" do
+      parse("cp").command_hash.to_h.should == {:ex => "cp", :args => [], :options => {}}
+    end
+    it "ex and args" do
+      parse("cp a b").command_hash.to_h.should == {:ex => "cp", :args => ['a','b'], :options => {}}
+    end
+    it 'quoted arg' do
+      parse('cp "abc"').command_hash.args.should == ['abc']
+    end
+    it "ex and options" do
+      parse("cp -v").command_hash.to_h.should == {:ex => "cp", :args => [], :options => {"v" => nil}}
+    end
+    it "ex and multiple options" do
+      parse("cp -v -x").command_hash.to_h.should == {:ex => "cp", :args => [], :options => {"v" => nil, "x" => nil}}
+    end
+    it "ex and option value" do
+      parse("cp -v a").command_hash.to_h.should == {:ex => "cp", :args => [], :options => {"v" => 'a'}}
+    end
+  end
+  
+end
+
+a = <<EOF
+output redirection
+quoting
+
+going to ignore list arguments for now
+how to i break out into raw code
+ability to bring code directly into the shell
+EOF

data/spec/spec_helper.rb

@@ -1,12 +1,76 @@
-$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
-$LOAD_PATH.unshift(File.dirname(__FILE__))
-require 'rspec'
-require 'lsl'
-
-# Requires supporting files with custom matchers and macros, etc,
-# in ./support/ and its subdirectories.
-Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
-
-RSpec.configure do |config|
-  
-end
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'rspec'
+require 'lsl'
+
+# Requires supporting files with custom matchers and macros, etc,
+# in ./support/ and its subdirectories.
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  
+end
+
+# class Object
+#   def should_parse(str)
+#     res = parse(str)
+#     raise "can't parse" unless res
+#   end
+#   def should_not_parse(str)
+#     res = parse(str)
+#     raise "can parse" if res
+#   end
+# end
+
+class Object
+  def local_methods
+    res = methods - 7.methods - "".methods
+    res.sort_by { |x| x.to_s }
+  end
+end
+
+RSpec::Matchers.define :be_parsed do |str|
+  match do |parser|
+    !!parser.parse(str)
+  end
+end
+
+class Object
+  def rt?(meth)
+    send(meth)
+    true
+  rescue => exp
+    return false
+  end
+end
+
+RSpec::Matchers.define :parse_as do |str,node,exp|
+
+  def res_error_message(str,node,exp)
+    if !@res
+      "no parse result"
+    elsif !@res.rt?(node)
+      #puts @res.elements.first.class
+      #raise @res.elements.first.local_methods.inspect
+      #raise @res.instance_variables.inspect
+      "no syntax node #{node}, nodes are " + @res.elements.map { |x| x.inspect }.join(",")
+    else
+      act = @res.send(node).text_value
+      if act != exp.to_s
+        "#{act} doesn't equal #{exp}"
+      else
+        nil
+      end
+    end
+  end
+  match do |parser|
+    @res = res = parser.parse(str)
+    !res_error_message(str,node,exp)
+  end
+  description do
+    "FOO"
+  end
+  failure_message_for_should do |player|
+    res_error_message(str,node,exp)
+  end
+end

metadata

@@ -1,13 +1,12 @@
 --- !ruby/object:Gem::Specification 
 name: lsl
 version: !ruby/object:Gem::Version 
-  hash: 31
   prerelease: false
   segments: 
   - 0
   - 0
-  - 0
-  version: 0.0.0
+  - 1
+  version: 0.0.1
 platform: ruby
 authors: 
 - mharris717
@@ -15,17 +14,51 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-12-22 00:00:00 -05:00
-default_executable: 
+date: 2010-12-27 00:00:00 -05:00
+default_executable: lsl
 dependencies: 
 - !ruby/object:Gem::Dependency 
-  name: rspec
+  name: andand
   requirement: &id001 !ruby/object:Gem::Requirement 
-    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: mharris_ext
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  prerelease: false
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: rspec
+  requirement: &id004 !ruby/object:Gem::Requirement 
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        hash: 11
         segments: 
         - 2
         - 1
@@ -33,15 +66,13 @@ dependencies:
         version: 2.1.0
   type: :development
   prerelease: false
-  version_requirements: *id001
+  version_requirements: *id004
 - !ruby/object:Gem::Dependency 
   name: bundler
-  requirement: &id002 !ruby/object:Gem::Requirement 
-    none: false
+  requirement: &id005 !ruby/object:Gem::Requirement 
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        hash: 23
         segments: 
         - 1
         - 0
@@ -49,15 +80,13 @@ dependencies:
         version: 1.0.0
   type: :development
   prerelease: false
-  version_requirements: *id002
+  version_requirements: *id005
 - !ruby/object:Gem::Dependency 
   name: jeweler
-  requirement: &id003 !ruby/object:Gem::Requirement 
-    none: false
+  requirement: &id006 !ruby/object:Gem::Requirement 
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        hash: 1
         segments: 
         - 1
         - 5
@@ -65,25 +94,23 @@ dependencies:
         version: 1.5.1
   type: :development
   prerelease: false
-  version_requirements: *id003
+  version_requirements: *id006
 - !ruby/object:Gem::Dependency 
   name: rcov
-  requirement: &id004 !ruby/object:Gem::Requirement 
-    none: false
+  requirement: &id007 !ruby/object:Gem::Requirement 
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
         segments: 
         - 0
         version: "0"
   type: :development
   prerelease: false
-  version_requirements: *id004
+  version_requirements: *id007
 description: little shell language
 email: mharris717@gmail.com
-executables: []
-
+executables: 
+- lsl
 extensions: []
 
 extra_rdoc_files: 
@@ -98,8 +125,21 @@ files:
 - README.rdoc
 - Rakefile
 - VERSION
+- bin/lsl
 - lib/lsl.rb
+- lib/lsl/grammars/base.treetop
+- lib/lsl/grammars/compound_command.treetop
+- lib/lsl/grammars/file.treetop
+- lib/lsl/grammars/list.treetop
+- lib/lsl/grammars/quoting.treetop
+- lib/lsl/grammars/single_command.treetop
+- lib/lsl/sandbox.rb
+- lib/lsl/server.rb
+- lsl.gemspec
+- spec/compound_command_spec.rb
 - spec/lsl_spec.rb
+- spec/quoting_spec.rb
+- spec/single_command_spec.rb
 - spec/spec_helper.rb
 has_rdoc: true
 homepage: http://github.com/mharris717/lsl
@@ -111,30 +151,29 @@ rdoc_options: []
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
-  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
       segments: 
       - 0
       version: "0"
 required_rubygems_version: !ruby/object:Gem::Requirement 
-  none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
       segments: 
       - 0
       version: "0"
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.7
+rubygems_version: 1.3.6
 signing_key: 
 specification_version: 3
 summary: little shell language
 test_files: 
+- spec/compound_command_spec.rb
 - spec/lsl_spec.rb
+- spec/quoting_spec.rb
+- spec/single_command_spec.rb
 - spec/spec_helper.rb