raabro 1.1.1 → 1.1.2

data/spec/jseq_spec.rb

@@ -1,67 +0,0 @@
-
-#
-# specifying raabro
-#
-# Mon Sep 21 06:55:35 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.jseq' do
-
-    it 'parses elts joined by a separator' do
-
-      i = Raabro::Input.new('a,b,c')
-
-      t = Raabro.jseq(:j, i, :cha, :com)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :j, 1, 0, 5, nil, :jseq, [
-          [ nil, 1, 0, 1, nil, :rex, 'a' ],
-          [ nil, 1, 1, 1, nil, :str, ',' ],
-          [ nil, 1, 2, 1, nil, :rex, 'b' ],
-          [ nil, 1, 3, 1, nil, :str, ',' ],
-          [ nil, 1, 4, 1, nil, :rex, 'c' ],
-          [ nil, 0, 5, 0, nil, :str, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(5)
-    end
-
-    it 'prunes' do
-
-      i = Raabro::Input.new('a,b,c', :prune => true)
-
-      t = Raabro.jseq(:j, i, :cha, :com)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :j, 1, 0, 5, nil, :jseq, [
-          [ nil, 1, 0, 1, nil, :rex, 'a' ],
-          [ nil, 1, 1, 1, nil, :str, ',' ],
-          [ nil, 1, 2, 1, nil, :rex, 'b' ],
-          [ nil, 1, 3, 1, nil, :str, ',' ],
-          [ nil, 1, 4, 1, nil, :rex, 'c' ]
-        ] ]
-      )
-      expect(i.offset).to eq(5)
-    end
-
-    it 'fails when zero elements' do
-
-      i = Raabro::Input.new('')
-
-      t = Raabro.jseq(:j, i, :cha, :com)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :j, 0, 0, 0, nil, :jseq, [
-          [ nil, 0, 0, 0, nil, :rex, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-  end
-end
-

data/spec/ren_spec.rb

@@ -1,43 +0,0 @@
-
-#
-# specifying raabro
-#
-# Mon Sep 21 05:46:00 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.ren' do
-
-    it 'returns the tree coming from the wrapped parser' do
-
-      i = Raabro::Input.new('ta')
-
-      t = Raabro.ren('renamed', i, :nta)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ 'renamed', 1, 0, 2, nil, :str, 'ta' ]
-      )
-      expect(i.offset).to eq(2)
-    end
-  end
-
-  describe '.rename' do
-
-    it 'is an alias to .ren' do
-
-      i = Raabro::Input.new('ta')
-
-      t = Raabro.rename('autre', i, :nta)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ 'autre', 1, 0, 2, nil, :str, 'ta' ]
-      )
-      expect(i.offset).to eq(2)
-    end
-  end
-end
-

data/spec/rep_spec.rb

@@ -1,94 +0,0 @@
-
-#
-# specifying raabro
-#
-# Sun Sep 20 09:36:16 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.rep' do
-
-    it 'returns a tree with result == 0 in case of failure' do
-
-      i = Raabro::Input.new('toto')
-
-      t = Raabro.rep(:x, i, :to, 3, 4)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :x, 0, 0, 0, nil, :rep, [
-          [ nil, 1, 0, 2, nil, :str, 'to' ],
-          [ nil, 1, 2, 2, nil, :str, 'to' ],
-          [ nil, 0, 4, 0, nil, :str, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it 'prunes' do
-
-      i = Raabro::Input.new('toto', :prune => true)
-
-      t = Raabro.rep(:x, i, :to, 3, 4)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :x, 0, 0, 0, nil, :rep, [
-          [ nil, 1, 0, 2, nil, :str, 'to' ],
-          [ nil, 1, 2, 2, nil, :str, 'to' ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it "fails (min not reached)" do
-
-      i = Raabro::Input.new('toto')
-
-      t = Raabro.rep(:x, i, :to, 3)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :x, 0, 0, 0, nil, :rep, [
-          [ nil, 1, 0, 2, nil, :str, 'to' ],
-          [ nil, 1, 2, 2, nil, :str, 'to' ],
-          [ nil, 0, 4, 0, nil, :str, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it "succeeds (max set)" do
-
-      i = Raabro::Input.new('tototo')
-
-      t = Raabro.rep(:x, i, :to, 1, 2)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :x, 1, 0, 4, nil, :rep, [
-          [ nil, 1, 0, 2, nil, :str, 'to' ],
-          [ nil, 1, 2, 2, nil, :str, 'to' ]
-        ] ]
-      )
-      expect(i.offset).to eq(4)
-    end
-
-    it "succeeds (max not set)" do
-
-      i = Raabro::Input.new('toto')
-
-      t = Raabro.rep(:x, i, :to, 1)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :x, 1, 0, 4, nil, :rep, [
-          [ nil, 1, 0, 2, nil, :str, 'to' ],
-          [ nil, 1, 2, 2, nil, :str, 'to' ],
-          [ nil, 0, 4, 0, nil, :str, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(4)
-    end
-  end
-end
-

data/spec/rex_spec.rb

@@ -1,52 +0,0 @@
-
-#
-# specifying raabro
-#
-# Sun Sep 20 07:12:35 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.rex' do
-
-    it 'hits' do
-
-      i = Raabro::Input.new('toto')
-
-      t = Raabro.rex(nil, i, /t[ua]/)
-
-      expect(t.to_a).to eq(
-        [ nil, 0, 0, 0, nil, :rex, [] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it 'misses' do
-
-      i = Raabro::Input.new('toto')
-
-      t = Raabro.rex(nil, i, /(to)+/)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 4, nil, :rex, 'toto' ]
-      )
-      expect(i.offset).to eq(4)
-    end
-
-    it 'misses if the match is not at the current input offset' do
-
-      i = Raabro::Input.new('tato')
-
-      t = Raabro.rex(:biga, i, /(to)+/)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :biga, 0, 0, 0, nil, :rex, [] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-  end
-end
-

data/spec/sample_spec.rb

@@ -1,43 +0,0 @@
-
-#
-# specifying raabro
-#
-# Sun Oct 11 04:24:32 SGT 2015
-#
-
-require 'spec_helper'
-
-
-module Sample::OwnRewrite include Raabro
-
-  # parse
-
-  def hello(i); str(:hello, i, 'hello'); end
-
-  #alias root exp
-    # not necessary since Raabro takes the last defined parser as the root
-
-  # rewrite
-
-  def rewrite(t)
-
-    [ :ok, t.string ]
-  end
-end
-
-
-describe Raabro do
-
-  describe Sample::OwnRewrite do
-
-    it 'uses its own rewrite' do
-
-      expect(
-        Sample::OwnRewrite.parse('hello')
-      ).to eq(
-        [ :ok, 'hello' ]
-      )
-    end
-  end
-end
-

data/spec/sample_xel_spec.rb

@@ -1,118 +0,0 @@
-
-#
-# specifying raabro
-#
-# Mon Sep 21 16:58:01 JST 2015
-#
-
-require 'spec_helper'
-
-
-module Sample::Xel include Raabro
-
-  # parse
-
-  def pa(i); str(nil, i, '('); end
-  def pz(i); str(nil, i, ')'); end
-  def com(i); str(nil, i, ','); end
-
-  def num(i); rex(:num, i, /-?[0-9]+/); end
-
-  def args(i); eseq(:args, i, :pa, :exp, :com, :pz); end
-  def funame(i); rex(:funame, i, /[A-Z][A-Z0-9]*/); end
-  def fun(i); seq(:fun, i, :funame, :args); end
-
-  def exp(i); alt(:exp, i, :fun, :num); end
-
-  #alias root exp
-    # not necessary since Raabro takes the last defined parser as the root
-
-  # rewrite
-
-  def rewrite_exp(t); rewrite(t.children[0]); end
-  def rewrite_num(t); t.string.to_i; end
-
-  def rewrite_fun(t)
-
-    #[ t.children[0].string ] +
-    #t.children[1].children.inject([]) { |a, e| a << rewrite(e) if e.name; a }
-    [ t.children[0].string ] + t.children[1].odd_children.map { |c| rewrite(c) }
-  end
-end
-
-
-describe Raabro do
-
-  describe Sample::Xel do
-
-    describe '.funame' do
-
-      it 'hits' do
-
-        i = Raabro::Input.new('NADA')
-
-        t = Sample::Xel.funame(i)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ :funame, 1, 0, 4, nil, :rex, 'NADA' ]
-        )
-      end
-    end
-
-    describe '.fun' do
-
-      it 'parses a function call' do
-
-        i = Raabro::Input.new('SUM(1,MUL(4,5))', :prune => true)
-
-        t = Sample::Xel.fun(i)
-
-        expect(t.result).to eq(1)
-
-        expect(
-          Sample::Xel.rewrite(t)
-        ).to eq(
-          [ 'SUM', 1, [ 'MUL', 4, 5 ] ]
-        )
-      end
-    end
-
-    describe '.parse' do
-
-      it 'parses (success)' do
-
-        expect(
-          Sample::Xel.parse('MUL(7,-3)')
-        ).to eq(
-          [ 'MUL', 7, -3 ]
-        )
-      end
-
-      it 'parses (rewrite: false, success)' do
-
-        expect(
-          Sample::Xel.parse('MUL(7,-3)', rewrite: false).to_s
-        ).to eq(%{
-1 :exp 0,9
-  1 :fun 0,9
-    1 :funame 0,3 "MUL"
-    1 :args 3,6
-      1 nil 3,1 "("
-      1 :exp 4,1
-        1 :num 4,1 "7"
-      1 nil 5,1 ","
-      1 :exp 6,2
-        1 :num 6,2 "-3"
-      1 nil 8,1 ")"
-        }.strip)
-      end
-
-      it 'parses (miss)' do
-
-        expect(Sample::Xel.parse('MUL(7,3) ')).to eq(nil)
-        expect(Sample::Xel.parse('MUL(7,3')).to eq(nil)
-      end
-    end
-  end
-end
-

data/spec/sample_xell_spec.rb

@@ -1,92 +0,0 @@
-
-#
-# specifying raabro
-#
-# Sun Dec 13 06:10:00 JST 2015
-#
-
-require 'spec_helper'
-
-
-module Sample::Xell include Raabro
-
-  # parse
-
-  def pa(i); str(nil, i, '('); end
-  def pz(i); str(nil, i, ')'); end
-  def com(i); str(nil, i, ','); end
-
-  def num(i); rex(:num, i, /-?[0-9]+/); end
-
-  def args(i); eseq(nil, i, :pa, :exp, :com, :pz); end
-  def funame(i); rex(nil, i, /[A-Z][A-Z0-9]*/); end
-  def fun(i); seq(:fun, i, :funame, :args); end
-
-  def exp(i); alt(nil, i, :fun, :num); end
-
-  # rewrite
-
-  #def rewrite_(t)
-  #
-  #  c = t.children.find { |c| c.length > 0 || c.name }
-  #  c ? rewrite(c) : nil
-  #end
-    #
-    # part of aabro now
-
-  def rewrite_num(t); t.string.to_i; end
-
-  def rewrite_fun(t)
-
-    #as = []
-    #t.children[1].children.each_with_index { |e, i| as << e if i.odd? }
-    #[ t.children[0].string ] + as.collect { |a| rewrite(a) }
-    [ t.children[0].string ] +
-    t.children[1].odd_children.collect { |a| rewrite(a) }
-  end
-end
-
-
-describe Raabro do
-
-  describe Sample::Xell do
-
-    describe '.parse' do
-
-      it 'parses (success)' do
-
-        expect(
-          Sample::Xell.parse('MUL(7,-3)')
-        ).to eq(
-          [ 'MUL', 7, -3 ]
-        )
-      end
-
-      it 'parses (rewrite: false, success)' do
-
-        expect(
-          Sample::Xell.parse('MUL(7,-3)', rewrite: false).to_s
-        ).to eq(%{
-1 nil 0,9
-  1 :fun 0,9
-    1 nil 0,3 "MUL"
-    1 nil 3,6
-      1 nil 3,1 "("
-      1 nil 4,1
-        1 :num 4,1 "7"
-      1 nil 5,1 ","
-      1 nil 6,2
-        1 :num 6,2 "-3"
-      1 nil 8,1 ")"
-        }.strip)
-      end
-
-      it 'parses (miss)' do
-
-        expect(Sample::Xell.parse('MUL(7,3) ')).to eq(nil)
-        expect(Sample::Xell.parse('MUL(7,3')).to eq(nil)
-      end
-    end
-  end
-end
-