treesl 0.0.1

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,5 @@
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Jacob Rothstein
+
+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.textile

@@ -0,0 +1,32 @@
+h1. TreeSL
+
+TreeSL is my effort to define a flexible domain specific language (DSL).  I think it's similar to a recursive descent parser.
+
+TreeSL will try a number of alternative matches for a given node until it finds a matching alternative.  This is incredibly inefficient, but the goal is flexibility, not on-the-fly DSL speed.
+
+h2. Example
+
+<pre><code>
+  require 'treesl'
+
+  parser = TreeSL.define do
+    root 'person'
+
+    person 'title firstname lastname'
+    person 'title lastname'
+    person 'firstname lastname'
+
+    title /^Mr|Mrs|Ms$/
+    firstname 'propernoun'
+    lastname 'propernoun'
+    propernoun /^[A-Z][a-z]+/
+  end
+
+  p parser.match("Sam Jones")    #=> {"firstname lastname"=>{"lastname"=>"Jones", "firstname"=>"Sam"}}
+  p parser.match("Mr Sam Jones") #=> {"title firstname lastname"=>{"title"=>"Mr", "lastname"=>"Jones", "firstname"=>"Sam"}}
+  p parser.match("Mr Jones")     #=> {"title lastname"=>{"title"=>"Mr", "lastname"=>"Jones"}}
+</code></pre>
+
+h2. Copyright
+
+Copyright (c) 2009 Jacob Rothstein. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,57 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "treesl"
+    gem.summary = %Q{TreeSL is a DSL parser}
+    gem.description = %Q{TreeSL parses flexible DSLs}
+    gem.email = "github@jacobrothstein.com"
+    gem.homepage = "http://github.com/jbr/treesl"
+    gem.authors = ["Jacob Rothstein"]
+    # gem.add_development_dependency ""
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/*_test.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/*_test.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION')
+    version = File.read('VERSION')
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "treesl #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/lib/example.rb

@@ -0,0 +1,18 @@
+require 'treesl'
+
+parser = TreeSL.define do
+  root 'person'
+
+  person 'title firstname lastname'
+  person 'title lastname'
+  person 'firstname lastname'
+
+  title /^Mr|Mrs|Ms$/
+  firstname 'propernoun'
+  lastname 'propernoun'
+  propernoun /^[A-Z][a-z]+/
+end
+
+p parser.match("Sam Jones") #=> {"firstname lastname"=>{"lastname"=>"Jones", "firstname"=>"Sam"}}
+p parser.match("Mr Sam Jones") #=> {"title firstname lastname"=>{"title"=>"Mr", "lastname"=>"Jones", "firstname"=>"Sam"}}
+p parser.match("Mr Jones") #=> {"title lastname"=>{"title"=>"Mr", "lastname"=>"Jones"}}

data/lib/treesl.rb

@@ -0,0 +1,74 @@
+require 'rubygems'
+require 'active_support'
+
+class TreeSL
+  attr_accessor :matchers, :root_node, :post_procs, :namespace
+  def initialize
+    @matchers = {}
+    @post_procs = {}
+    @namespace = TreeSL
+  end
+  
+  def self.define(namespace = nil, options = {}, &blk)
+    rdp = TreeSL.new
+    rdp.root_node = options[:root] || 'root'
+    rdp.namespace = namespace if namespace
+    rdp.instance_eval &blk
+    rdp
+  end
+    
+  def match(string, matcher = nil)
+    matcher ||= root_node
+    string.strip!
+    # p [string,matcher]
+    result = if matcher.is_a? Array
+      matcher.each do |alternative|
+        dup_string = string.dup
+        if alternative_match = match(dup_string, alternative)
+          string.replace dup_string
+          return {alternative => alternative_match} 
+        end
+      end
+      nil
+    elsif matcher.is_a? String
+      if matcher =~ / /
+        matches = matcher.split(' ').inject({}) do |hash, atom|
+          hash.merge atom => match(string, atom)
+        end
+        matches.values.any?{|v| v.nil?} ? nil : matches
+      elsif new_matcher = matchers[matcher.to_sym]
+        match string, new_matcher
+      else
+        match string, Regexp.new("^#{matcher}")
+      end
+    elsif matcher.is_a? Regexp
+      if string =~ matcher
+        string.gsub!(matcher, '');
+        $&
+      end
+    end
+    
+    if result && matcher.is_a?(String) && matcher =~ /^[a-z_]+$/ && namespace.const_defined?(matcher.camelcase.to_sym)
+      "#{namespace}::#{matcher.to_s.camelcase}".constantize.new(result) rescue result
+    else
+      result
+    end
+  end
+  
+  def rule(key, *values)
+    key = key.to_sym
+    matchers[key] = if matchers[key].nil?
+      if values.length == 1
+        values.first
+      else
+        values
+      end
+    else
+      [matchers[key]].flatten + values
+    end
+  end
+  
+  def method_missing(method, *args)
+    rule method, *args
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'treesl'
+
+class Test::Unit::TestCase
+end

data/test/treesl_test.rb

@@ -0,0 +1,7 @@
+require 'test_helper'
+
+class TreeslTest < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

data/treesl.gemspec

@@ -0,0 +1,51 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{treesl}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Jacob Rothstein"]
+  s.date = %q{2009-10-15}
+  s.description = %q{TreeSL parses flexible DSLs}
+  s.email = %q{github@jacobrothstein.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.textile"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.textile",
+     "Rakefile",
+     "VERSION",
+     "lib/example.rb",
+     "lib/treesl.rb",
+     "test/test_helper.rb",
+     "test/treesl_test.rb",
+     "treesl.gemspec"
+  ]
+  s.homepage = %q{http://github.com/jbr/treesl}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{TreeSL is a DSL parser}
+  s.test_files = [
+    "test/test_helper.rb",
+     "test/treesl_test.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
+    else
+    end
+  else
+  end
+end

metadata

@@ -0,0 +1,67 @@
+--- !ruby/object:Gem::Specification 
+name: treesl
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Jacob Rothstein
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-10-15 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: TreeSL parses flexible DSLs
+email: github@jacobrothstein.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.textile
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.textile
+- Rakefile
+- VERSION
+- lib/example.rb
+- lib/treesl.rb
+- test/test_helper.rb
+- test/treesl_test.rb
+- treesl.gemspec
+has_rdoc: true
+homepage: http://github.com/jbr/treesl
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: TreeSL is a DSL parser
+test_files: 
+- test/test_helper.rb
+- test/treesl_test.rb