neg 0.3.0 → 1.0.0

data/spec/sample_compact_spec.rb

@@ -0,0 +1,50 @@
+
+require 'spec_helper'
+
+
+describe 'sample compact arith parser' do
+
+  class CompactArithParser < Neg::Parser
+
+    parser do
+
+      expression  == operation
+
+      operator    == `+` | `-` | `*` | `/`
+      operation   == value + (operator + value) * 0
+      value       == parenthese | number
+      parenthese  == `(` + expression + `)`
+      number      == `-` * -1 + _('0-9') * 1
+    end
+
+    translator do
+
+      on(:number)    { |n| n.result.to_i }
+      on(:operator)  { |n| n.result }
+      on(:value)     { |n| n.results.first }
+
+      on(:expression) { |n|
+        results = n.results.flatten(2)
+        results.size == 1 ? results.first : results
+      }
+    end
+  end
+
+  it 'parses and translates' do
+
+    CompactArithParser.parse('0').should == 0
+    CompactArithParser.parse('101').should == 101
+    CompactArithParser.parse('(12)').should == 12
+    CompactArithParser.parse('1+2+3').should == [ 1, '+', 2, '+', 3 ]
+  end
+
+  it 'does not translate if :translate => false' do
+
+    CompactArithParser.parse('0', :translate => false).should ==
+      [ :expression, [ 0, 1, 1 ], true, nil, [
+        [ :value, [ 0, 1, 1 ], true, nil, [
+          [ :number, [ 0, 1, 1 ], true, "0", [] ] ] ],
+        [ nil, [ 1, 1, 2 ], true, nil, [] ] ] ]
+  end
+end
+

data/spec/sample_json_parser_spec.rb

@@ -6,81 +6,200 @@ describe 'sample JSON parser' do
 
   class JsonParser < Neg::Parser
 
-    #rule(:comma) { spaces? >> str(',') >> spaces? }
+    parser do
 
-    #rule(:array) {
-    #  str('[') >> spaces? >>
-    #  (value >> (comma >> value).repeat).maybe.as(:array) >>
-    #  spaces? >> str(']')
-    #}
+      value ==
+        spaces? +
+        (object | array | string | number | btrue | bfalse | null) +
+        spaces?
 
-    #rule(:object) {
-    #  str('{') >> spaces? >>
-    #  (entry >> (comma >> entry).repeat).maybe.as(:object) >>
-    #  spaces? >> str('}')
-    #}
+      spaces? == _("\s\n\r") * 0
 
-    #rule(:entry) {
-    #  (
-    #     string.as(:key) >> spaces? >>
-    #     str(':') >> spaces? >>
-    #     value.as(:val)
-    #  ).as(:entry)
-    #}
+      object == `{` + (entry + (`,` + entry) * 0) * 0 + `}`
+      entry == spaces? + string + spaces? + `:` + value
 
-    #rule(:attribute) { (entry | value).as(:attribute) }
+      array == `[` + (value + (`,` + value) * 0) * 0 + `]`
 
-    #rule(:string) {
-    #  str('"') >> (
-    #    #str('\\') >> any | str('"').absent? >> any
-    #    #(str('\\') | str('"').absent?) >> any
-    #    (str('\\') >> any | match('[^"]')
-    #  ).repeat.as(:string) >> str('"')
-    #}
+      string == `"` + ((`\\` + _) | _('^"')) * 0 + `"`
 
-    json == spaces? + value + spaces?
+      _digit == _("0-9")
 
-    spaces? == _(" \t") * 0
+      number ==
+        `-` * -1 +
+        (`0` | (_("1-9") + _digit * 0)) +
+        (`.` + _digit * 1) * -1 +
+        (_("eE") + _("+-") * -1 + _digit * 1) * -1
 
-    #value == string | number | object | array | btrue | bfalse | null
-    value == number | btrue | bfalse | null
+      btrue == `true`
+      bfalse == `false`
+      null == `null`
+    end
 
-    digit == _("0-9")
+    translator do
 
-    number ==
-      `-` * -1 +
-      (`0` | (_("1-9") + digit * 0)) +
-      (`.` + digit * 1) * -1 +
-      (_("eE") + _("+-") * -1 + digit * 1) * -1
+      on(:value) { |n| n.results.first.first }
+      on(:spaces?) { throw nil }
 
-    btrue == `true`
-    bfalse == `false`
-    null == `null`
-  end
+      on(:object) { |n|
+        f2 = n.results.flatten(2)
+        Hash[f2.any? ? [ f2.shift ] + f2.flatten(2) : []]
+      }
+      on(:array) { |n|
+        f2 = n.results.flatten(2)
+        f2.any? ? [ f2.shift ] + f2.flatten(2) : []
+      }
+
+      on(:string) { |n| eval(n.result) }
 
-  it 'flips burgers' do
+      on(:number) { |n|
+        n.result.match(/[\.eE]/) ? n.result.to_f : n.result.to_i
+      }
 
-    puts '-' * 80
-    puts JsonParser
-    puts '-' * 80
+      on(:btrue) { true }
+      on(:bfalse) { false }
+      on(:null) { nil }
+    end
   end
 
   it 'parses "false"' do
 
-    pp JsonParser.parse("false")
-    JsonParser.parse("false")[2].should == true
+    JsonParser.parse("false", :translate => false).should ==
+      [ :value,
+        [ 0, 1, 1 ],
+        true,
+        nil,
+        [
+          [ :spaces?, [ 0, 1, 1 ], true, "", [] ],
+          [ nil, [ 0, 1, 1 ], true, nil, [
+            [:bfalse, [ 0, 1, 1 ], true, "false", [] ] ] ],
+          [ :spaces?, [ 5, 1, 6 ], true, "", [] ] ] ]
   end
 
   it 'parses "13"' do
 
-    pp JsonParser.parse("13")
-    JsonParser.parse("13")[2].should == true
+    JsonParser.parse("13", :translate => false).should ==
+      [ :value,
+        [ 0, 1, 1 ],
+        true,
+        nil,
+        [
+          [ :spaces?, [ 0, 1, 1 ], true, "", [] ],
+          [ nil, [ 0, 1, 1 ], true, nil, [
+            [:number, [ 0, 1, 1 ], true, "13", [] ] ] ],
+          [ :spaces?, [ 2, 1, 3 ], true, "", [] ] ] ]
   end
 
   it 'parses "-12"' do
 
-    pp JsonParser.parse("-12")
-    JsonParser.parse("-12")[2].should == true
+    JsonParser.parse("-12", :translate => false).should ==
+      [ :value,
+        [ 0, 1, 1 ],
+        true,
+        nil,
+        [
+          [ :spaces?, [ 0, 1, 1 ], true, "", [] ],
+          [ nil, [ 0, 1, 1 ], true, nil, [
+            [:number, [ 0, 1, 1 ], true, "-12", [] ] ] ],
+          [ :spaces?, [ 3, 1, 4 ], true, "", [] ] ] ]
+  end
+
+  it 'translates "false"' do
+
+    JsonParser.parse("false").should == false
+  end
+
+  it 'translates "13"' do
+
+    JsonParser.parse("13").should == 13
+  end
+
+  it 'translates "-12"' do
+
+    JsonParser.parse("-12").should == -12
+  end
+
+  it 'translates "-1.2"' do
+
+    JsonParser.parse("-1.2").should == -1.2
+  end
+
+  it 'translates "-1.2e8"' do
+
+    JsonParser.parse("-1.2e8").should == -120000000.0
+  end
+
+  it 'translates "-1e8"' do
+
+    JsonParser.parse("-1e8").should == -100000000.0
+  end
+
+  it 'translates "null"' do
+
+    JsonParser.parse("null").should == nil
+  end
+
+  it 'translates "[]"' do
+
+    JsonParser.parse("[]").should == []
+  end
+
+  it 'translates "[ 1, 2, -3 ]"' do
+
+    JsonParser.parse("[ 1, 2, -3 ]").should == [ 1, 2, -3 ]
+  end
+
+  it 'translates "[ 1, [ true, 2, false ], -3 ]"' do
+
+    JsonParser.parse("[ 1, [ true, 2, false ], -3 ]").should ==
+      [ 1, [ true, 2, false ], -3 ]
+  end
+
+  it 'translates "" (empty string)' do
+
+    JsonParser.parse('""').should == ''
+  end
+
+  it 'translates "a bc"' do
+
+    JsonParser.parse('"a bc"').should == 'a bc'
+  end
+
+  it 'translates "a \"nada\" bc"' do
+
+    JsonParser.parse('"a \"nada\" bc"').should == 'a "nada" bc'
+  end
+
+  it 'translates {} (empty object)' do
+
+    JsonParser.parse('{}').should == {}
+  end
+
+  it 'translates { "a": 1, "b": "B" }' do
+
+    JsonParser.parse('{ "a": 1, "b": "B" }').should == { 'a' => 1, 'b' => 'B' }
+  end
+
+  it 'translates { "a": [ 1, 2, "trois" ] }' do
+
+    JsonParser.parse('{ "a": [ 1, 2, "trois" ] }').should ==
+      { 'a' => [ 1, 2, 'trois' ] }
+  end
+
+  it 'tolerates newlines' do
+
+    JsonParser.parse(%{
+      [ 1,2
+      , 3
+      ]
+    }).should ==
+      [ 1, 2, 3 ]
+  end
+
+  it 'raises a ParseError on incorrect input' do
+
+    lambda do
+      JsonParser.parse("x")
+    end.should raise_error(Neg::ParseError, 'expected "{", got "x"')
   end
 end
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: neg
 version: !ruby/object:Gem::Version
-  version: 0.3.0
+  version: 1.0.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-10-06 00:00:00.000000000 Z
+date: 2013-01-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rake
@@ -51,8 +51,10 @@ extensions: []
 extra_rdoc_files: []
 files:
 - Rakefile
+- lib/neg/errors.rb
 - lib/neg/input.rb
 - lib/neg/parser.rb
+- lib/neg/translator.rb
 - lib/neg/version.rb
 - lib/neg.rb
 - spec/input_spec.rb
@@ -64,6 +66,8 @@ files:
 - spec/parser_sequence_spec.rb
 - spec/parser_spec.rb
 - spec/parser_string_spec.rb
+- spec/sample_arith_spec.rb
+- spec/sample_compact_spec.rb
 - spec/sample_json_parser_spec.rb
 - spec/spec_helper.rb
 - neg.gemspec
@@ -83,12 +87,18 @@ required_ruby_version: !ruby/object:Gem::Requirement
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: -2623637621873378549
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false
   requirements:
   - - ! '>='
     - !ruby/object:Gem::Version
       version: '0'
+      segments:
+      - 0
+      hash: -2623637621873378549
 requirements: []
 rubyforge_project: ruote
 rubygems_version: 1.8.24