raabro 1.1.1 → 1.1.2

data/CHANGELOG.txt

@@ -2,6 +2,11 @@
 = raabro CHANGELOG.txt
 
 
+== raabro 1.1.2  released 2016-04-04
+
+- add Raabro.pp(tree)
+
+
 == raabro 1.1.1  released 2016-04-03
 
 - Tree#clast

data/lib/raabro.rb

@@ -1,4 +1,3 @@
-
 #--
 # Copyright (c) 2015-2016, John Mettraux, jmettraux@gmail.com
 #
@@ -26,7 +25,7 @@
 
 module Raabro
 
-  VERSION = '1.1.1'
+  VERSION = '1.1.2'
 
   class Input
 
@@ -506,5 +505,51 @@ module Raabro
   extend ModuleMethods
 
   make_includable
+
+    # Black       0;30     Dark Gray     1;30
+    # Blue        0;34     Light Blue    1;34
+    # Green       0;32     Light Green   1;32
+    # Cyan        0;36     Light Cyan    1;36
+    # Red         0;31     Light Red     1;31
+    # Purple      0;35     Light Purple  1;35
+    # Brown       0;33     Yellow        1;33
+    # Light Gray  0;37     White         1;37
+
+  def self.pp(tree, depth=0)
+
+    _rs, _dg, _gn, _yl, _bl, _lg =
+      $stdout.tty? ?
+      [ "", "", "", "", "", "" ] :
+      [ '', '', '', '', '', '' ]
+
+    lc = tree.result == 1 ? _gn : _dg
+    nc = tree.result == 1 ? _bl : _lg
+    nc = lc if tree.name == nil
+    sc = tree.result == 1 ? _yl : _dg
+
+    str =
+      if tree.children.size == 0
+        " #{sc}#{tree.string.length == 0 ? "''" : tree.string.inspect}"
+      else
+        ''
+      end
+
+    print "#{_dg}t---\n" if depth == 0
+
+    print "#{'  ' * depth}"
+    print "#{lc}#{tree.result}"
+    print " #{nc}#{tree.name.inspect} #{lc}#{tree.offset},#{tree.length}"
+    print str
+    print "#{_rs}\n"
+
+    tree.children.each { |c| self.pp(c, depth + 1) }
+
+    if depth == 0
+      print _dg
+      print "input ln: #{tree.input.string.length}, tree ln: #{tree.length} "
+      print "---t\n"
+      print _rs
+    end
+  end
 end
 

data/raabro.gemspec

@@ -22,7 +22,7 @@ a very dumb PEG parser library
   #s.files = `git ls-files`.split("\n")
   s.files = Dir[
     'Rakefile',
-    'lib/**/*.rb', 'spec/**/*.rb', 'test/**/*.rb',
+    'lib/**/*.rb',# 'spec/**/*.rb', 'test/**/*.rb',
     '*.gemspec', '*.txt', '*.rdoc', '*.md'
   ]
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: raabro
 version: !ruby/object:Gem::Version
-  version: 1.1.1
+  version: 1.1.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-04-02 00:00:00.000000000 Z
+date: 2016-04-03 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
@@ -35,20 +35,6 @@ extensions: []
 extra_rdoc_files: []
 files:
 - lib/raabro.rb
-- spec/all_spec.rb
-- spec/alt_spec.rb
-- spec/eseq_spec.rb
-- spec/jseq_spec.rb
-- spec/ren_spec.rb
-- spec/rep_spec.rb
-- spec/rex_spec.rb
-- spec/sample_spec.rb
-- spec/sample_xel_spec.rb
-- spec/sample_xell_spec.rb
-- spec/seq_spec.rb
-- spec/spec_helper.rb
-- spec/str_spec.rb
-- spec/tree_spec.rb
 - raabro.gemspec
 - CHANGELOG.txt
 - LICENSE.txt

data/spec/all_spec.rb

@@ -1,54 +0,0 @@
-
-#
-# specifying raabro
-#
-# Mon Sep 21 05:56:18 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.all' do
-
-    it 'fails when not all the input is consumed' do
-
-      i = Raabro::Input.new('tototota')
-
-      t = Raabro.all(nil, i, :to_plus)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 0, 0, 0, nil, :all, [
-          [ :tos, 1, 0, 6, nil, :rep, [
-            [ nil, 1, 0, 2, nil, :str, 'to' ],
-            [ nil, 1, 2, 2, nil, :str, 'to' ],
-            [ nil, 1, 4, 2, nil, :str, 'to' ],
-            [ nil, 0, 6, 0, nil, :str, [] ]
-          ] ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it 'succeeds when all the input is consumed' do
-
-      i = Raabro::Input.new('tototo')
-
-      t = Raabro.all(nil, i, :to_plus)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 6, nil, :all, [
-          [ :tos, 1, 0, 6, nil, :rep, [
-            [ nil, 1, 0, 2, nil, :str, 'to' ],
-            [ nil, 1, 2, 2, nil, :str, 'to' ],
-            [ nil, 1, 4, 2, nil, :str, 'to' ],
-            [ nil, 0, 6, 0, nil, :str, [] ]
-          ] ]
-        ] ]
-      )
-      expect(i.offset).to eq(6)
-    end
-  end
-end
-

data/spec/alt_spec.rb

@@ -1,169 +0,0 @@
-
-#
-# specifying raabro
-#
-# Sun Sep 20 07:31:53 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.alt' do
-
-    it "returns a tree with result == 0 in case of failure" do
-
-      i = Raabro::Input.new('tutu')
-
-      t = Raabro.alt(nil, i, :ta, :to)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 0, 0, 0, nil, :alt, [
-          [ nil, 0, 0, 0, nil, :str, [] ],
-          [ nil, 0, 0, 0, nil, :str, [] ]
-        ] ]
-      )
-      expect(i.offset).to eq(0)
-    end
-
-    it "succeeds (1st alternative)" do
-
-      i = Raabro::Input.new('tato')
-
-      t = Raabro.alt(nil, i, :ta, :to)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :alt, [
-          [ nil, 1, 0, 2, nil, :str, 'ta' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    it "succeeds (2nd alternative)" do
-
-      i = Raabro::Input.new('tato')
-
-      t = Raabro.alt(nil, i, :to, :ta)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :alt, [
-          [ nil, 0, 0, 0, nil, :str, [] ],
-          [ nil, 1, 0, 2, nil, :str, 'ta' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    it 'prunes' do
-
-      i = Raabro::Input.new('tato', :prune => true)
-
-      t = Raabro.alt(nil, i, :to, :ta)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :alt, [
-          [ nil, 1, 0, 2, nil, :str, 'ta' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    context 'when not greedy (default)' do
-
-      it 'goes with the first successful result' do
-
-        i = Raabro::Input.new('xx')
-
-        t = Raabro.alt(nil, i, :onex, :twox)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ nil, 1, 0, 1, nil, :alt, [
-            [ :onex, 1, 0, 1, nil, :str, 'x' ]
-          ] ]
-        )
-        expect(i.offset).to eq(1)
-      end
-    end
-
-    context 'when greedy (last argument set to true)' do
-
-      it 'takes the longest successful result' do
-
-        i = Raabro::Input.new('xx')
-
-        t = Raabro.alt(nil, i, :onex, :twox, true)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ nil, 1, 0, 2, nil, :altg, [
-            [ :onex, 0, 0, 1, nil, :str, [] ],
-            [ :twox, 1, 0, 2, nil, :str, 'xx' ]
-          ] ]
-        )
-        expect(i.offset).to eq(2)
-      end
-    end
-  end
-
-  describe '.altg' do
-
-    it 'is greedy, always' do
-
-      i = Raabro::Input.new('xx')
-
-      t = Raabro.altg(nil, i, :onex, :twox)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :altg, [
-          [ :onex, 0, 0, 1, nil, :str, [] ],
-          [ :twox, 1, 0, 2, nil, :str, 'xx' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    it 'prunes' do
-
-      i = Raabro::Input.new('xx', :prune => true)
-
-      t = Raabro.altg(nil, i, :onex, :twox)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :altg, [
-          [ :twox, 1, 0, 2, nil, :str, 'xx' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    it 'declares a single winner' do
-
-      i = Raabro::Input.new('xx', :prune => true)
-
-      t = Raabro.altg(nil, i, :twox, :onex)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :altg, [
-          [ :twox, 1, 0, 2, nil, :str, 'xx' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    it 'takes the longest and latest winner' do
-
-      i = Raabro::Input.new('xx', :prune => true)
-
-      t = Raabro.altg(nil, i, :twox, :onex, :deux)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ nil, 1, 0, 2, nil, :altg, [
-          [ :deux, 1, 0, 2, nil, :str, 'xx' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-  end
-end
-

data/spec/eseq_spec.rb

@@ -1,166 +0,0 @@
-
-#
-# specifying raabro
-#
-# Mon Sep 21 10:15:35 JST 2015
-#
-
-require 'spec_helper'
-
-
-describe Raabro do
-
-  describe '.eseq' do
-
-    it 'parses successfully' do
-
-      i = Raabro::Input.new('<a,b>')
-
-      t = Raabro.eseq(:list, i, :lt, :cha, :com, :gt)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :list, 1, 0, 5, nil, :eseq, [
-          [ nil, 1, 0, 1, nil, :str, '<' ],
-          [ nil, 1, 1, 1, nil, :rex, 'a' ],
-          [ nil, 1, 2, 1, nil, :str, ',' ],
-          [ nil, 1, 3, 1, nil, :rex, 'b' ],
-          [ nil, 0, 4, 0, nil, :str, [] ],
-          [ nil, 1, 4, 1, nil, :str, '>' ]
-        ] ]
-      )
-      expect(i.offset).to eq(5)
-    end
-
-    it 'prunes' do
-
-      i = Raabro::Input.new('<a,b>', :prune => true)
-
-      t = Raabro.eseq(:list, i, :lt, :cha, :com, :gt)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :list, 1, 0, 5, nil, :eseq, [
-          [ nil, 1, 0, 1, nil, :str, '<' ],
-          [ nil, 1, 1, 1, nil, :rex, 'a' ],
-          [ nil, 1, 2, 1, nil, :str, ',' ],
-          [ nil, 1, 3, 1, nil, :rex, 'b' ],
-          [ nil, 1, 4, 1, nil, :str, '>' ]
-        ] ]
-      )
-      expect(i.offset).to eq(5)
-    end
-
-    it 'parses <>' do
-
-      i = Raabro::Input.new('<>', :prune => true)
-
-      t = Raabro.eseq(:list, i, :lt, :cha, :com, :gt)
-
-      expect(t.to_a(:leaves => true)).to eq(
-        [ :list, 1, 0, 2, nil, :eseq, [
-          [ nil, 1, 0, 1, nil, :str, '<' ],
-          [ nil, 1, 1, 1, nil, :str, '>' ]
-        ] ]
-      )
-      expect(i.offset).to eq(2)
-    end
-
-    context 'no start parser' do
-
-      it 'parses successfully' do
-
-        i = Raabro::Input.new('a,b>', prune: false)
-
-        t = Raabro.eseq(:list, i, nil, :cha, :com, :gt)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ :list, 1, 0, 4, nil, :eseq, [
-            [ nil, 1, 0, 1, nil, :rex, 'a' ],
-            [ nil, 1, 1, 1, nil, :str, ',' ],
-            [ nil, 1, 2, 1, nil, :rex, 'b' ],
-            [ nil, 0, 3, 0, nil, :str, [] ],
-            [ nil, 1, 3, 1, nil, :str, '>' ]
-          ] ]
-        )
-        expect(i.offset).to eq(4)
-      end
-    end
-
-    context 'no end parser' do
-
-      it 'parses successfully' do
-
-        i = Raabro::Input.new('<a,b')
-
-        t = Raabro.eseq(:list, i, :lt, :cha, :com, nil)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ :list, 1, 0, 4, nil, :eseq, [
-            [ nil, 1, 0, 1, nil, :str, '<' ],
-            [ nil, 1, 1, 1, nil, :rex, 'a' ],
-            [ nil, 1, 2, 1, nil, :str, ',' ],
-            [ nil, 1, 3, 1, nil, :rex, 'b' ],
-            [ nil, 0, 4, 0, nil, :str, [] ]
-          ] ]
-        )
-        expect(i.offset).to eq(4)
-      end
-
-      it 'prunes' do
-
-        i = Raabro::Input.new('<a,b', :prune => true)
-
-        t = Raabro.eseq(:list, i, :lt, :cha, :com, nil)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ :list, 1, 0, 4, nil, :eseq, [
-            [ nil, 1, 0, 1, nil, :str, '<' ],
-            [ nil, 1, 1, 1, nil, :rex, 'a' ],
-            [ nil, 1, 2, 1, nil, :str, ',' ],
-            [ nil, 1, 3, 1, nil, :rex, 'b' ]
-          ] ]
-        )
-        expect(i.offset).to eq(4)
-      end
-    end
-
-    context 'no progress' do
-
-      it 'parses <>' do
-
-        i = Raabro::Input.new('<>', :prune => true)
-
-        t = arr(i)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ nil, 1, 0, 2, nil, :eseq, [
-            [ nil, 1, 0, 1, nil, :str, '<' ],
-            [ nil, 1, 1, 0, nil, :rex, '' ],
-            [ nil, 1, 1, 1, nil, :str, '>' ]
-          ] ]
-        )
-        expect(i.offset).to eq(2)
-      end
-
-      it 'parses <a,,a>' do
-
-        i = Raabro::Input.new('<a,,a>', :prune => true)
-
-        t = arr(i)
-
-        expect(t.to_a(:leaves => true)).to eq(
-          [ nil, 1, 0, 6, nil, :eseq, [
-            [ nil, 1, 0, 1, nil, :str, '<' ],
-            [ nil, 1, 1, 1, nil, :rex, 'a' ],
-            [ nil, 1, 2, 1, nil, :rex, ',' ],
-            [ nil, 1, 3, 0, nil, :rex, '' ],
-            [ nil, 1, 3, 1, nil, :rex, ',' ],
-            [ nil, 1, 4, 1, nil, :rex, 'a' ],
-            [ nil, 1, 5, 1, nil, :str, '>' ]
-          ] ]
-        )
-        expect(i.offset).to eq(6)
-      end
-    end
-  end
-end
-