sexpistol 0.0.3 → 0.0.4

data/VERSION

@@ -1 +1 @@
-0.0.3
+0.0.4

data/lib/sexpistol/sexpistol.rb

@@ -38,6 +38,7 @@ class Sexpistol
         tokens << true and next if(t == "true")
         tokens << false and next if(t == "false")
       end
+      tokens << "'" and next if(t == "'")
       tokens << t and next if(t == "(" || t == ")")
       tokens << t.to_f and next if( is_float?(t))
       tokens << t.to_i and next if( is_integer?(t))
@@ -56,6 +57,9 @@ class Sexpistol
       if( token_array[offset] == "(" )
         offset, array = structure( token_array, offset + 1, true )
         program << array
+      elsif( token_array[offset] == "'" )  
+        offset, array = structure( token_array, offset + 1, true )
+        program << array.unshift( :quote )
       elsif( token_array[offset] == ")" )
         break  
       else

data/sexpistol.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{sexpistol}
-  s.version = "0.0.3"
+  s.version = "0.0.4"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Aaron Gough"]
-  s.date = %q{2010-10-06}
+  s.date = %q{2010-10-11}
   s.description = %q{Sexpistol is an easy-to-use S-Expression parser for Ruby. It is fast and has no dependencies.}
   s.email = %q{aaron@aarongough.com}
   s.extra_rdoc_files = [
@@ -31,6 +31,7 @@ Gem::Specification.new do |s|
      "test/unit/float_literal_test.rb",
      "test/unit/integer_literal_test.rb",
      "test/unit/ruby_keyword_literals_test.rb",
+     "test/unit/scheme_compatability_test.rb",
      "test/unit/string_literal_test.rb",
      "test/unit/structure_test.rb",
      "test/unit/symbol_test.rb",
@@ -48,6 +49,7 @@ Gem::Specification.new do |s|
      "test/unit/float_literal_test.rb",
      "test/unit/integer_literal_test.rb",
      "test/unit/ruby_keyword_literals_test.rb",
+     "test/unit/scheme_compatability_test.rb",
      "test/unit/string_literal_test.rb",
      "test/unit/structure_test.rb",
      "test/unit/symbol_test.rb",

data/test/unit/scheme_compatability_test.rb

@@ -0,0 +1,29 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', 'test_helper.rb'))
+
+class SchemeCompatabilityTest < Test::Unit::TestCase
+
+  def setup
+    @parser = Sexpistol.new
+  end
+
+  test "should parse #t as true" do
+    ast = @parser.parse_string('#t')
+    assert_equal [:"#t"], ast
+  end
+  
+  test "should parse #f as false" do
+    ast = @parser.parse_string('#f')
+    assert_equal [:"#f"], ast
+  end
+  
+  test "should allow comma quoting" do
+    ast = @parser.parse_string("(this is '( a test))")
+    assert_equal [[:this, :is, [:quote, [:a, :test]]]], ast
+  end
+  
+  test "should allow complicated comma quoting" do
+    ast = @parser.parse_string("(this is '( a test (also)))")
+    assert_equal [[:this, :is, [:quote, [:a, :test, [:also]]]]], ast
+  end
+    
+end

data/test/unit/structure_test.rb

@@ -1,6 +1,6 @@
 require File.expand_path(File.join(File.dirname(__FILE__), '..', 'test_helper.rb'))
 
-class RubyKeywordLiteralsTest < Test::Unit::TestCase
+class StructureTest < Test::Unit::TestCase
 
   def setup
     @parser = Sexpistol.new
@@ -21,5 +21,10 @@ class RubyKeywordLiteralsTest < Test::Unit::TestCase
       ast = @parser.parse_string('(this (is (an (s_expression) too)')
     end
   end
+  
+  test "should parser () as empty list" do
+    ast = @parser.parse_string('()')
+    assert_equal [[]], ast
+  end
     
 end

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 3
-  version: 0.0.3
+  - 4
+  version: 0.0.4
 platform: ruby
 authors: 
 - Aaron Gough
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-10-06 00:00:00 -04:00
+date: 2010-10-11 00:00:00 -04:00
 default_executable: 
 dependencies: []
 
@@ -42,6 +42,7 @@ files:
 - test/unit/float_literal_test.rb
 - test/unit/integer_literal_test.rb
 - test/unit/ruby_keyword_literals_test.rb
+- test/unit/scheme_compatability_test.rb
 - test/unit/string_literal_test.rb
 - test/unit/structure_test.rb
 - test/unit/symbol_test.rb
@@ -87,6 +88,7 @@ test_files:
 - test/unit/float_literal_test.rb
 - test/unit/integer_literal_test.rb
 - test/unit/ruby_keyword_literals_test.rb
+- test/unit/scheme_compatability_test.rb
 - test/unit/string_literal_test.rb
 - test/unit/structure_test.rb
 - test/unit/symbol_test.rb