edn-abnf 0.0.4 → 0.0.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 8eb52693cd7d9aef79f242492135b2e923c156d91aac9d193023ba8ee5c3f5b3
-  data.tar.gz: 76c8893695b10b13c351d93de8132c63238d295c95eb6b8aec565ae73a2169df
+  metadata.gz: 119b776b0bf643c32c9c0c2481b654e3087d0a7747f0a3f9bf9ae2460837a67a
+  data.tar.gz: bc7545b0786eeae5f5d33c6b95b702fe383ccdc306ecc5370e932413e089838e
 SHA512:
-  metadata.gz: fc9855abe0afd6f8fda6026d31a2f611ebabfce7125278604c1c6e1a56093ded138b9e0cf5e34bba73a4365cc66fad21cf185fb09a3d7ca4f393683d76c14214
-  data.tar.gz: d83a6154649f595a6da5e3f8f4ae40445157c7face9e54fae984df32b6e1e22e0c8c276aa2e04e9587a7ac4b7114f340d485c0d1e73016737bf61485be143c85
+  metadata.gz: e5c9dd0f7c19367133392c803bdf4719d6e0ec45d49d74c3fc05bb59e2d38e6ce0ffe38f17c0610c454783b795d5528e3bb030f32b452df9a802cbd447fc4c13
+  data.tar.gz: 994b84d2f1e90643aacfb3ef117d150bafbbd2a28f63057f25b51d5a1222d5a222a5d7fd8c77c83232c28e7378084bfaccc0d04db3e0f60eafecca7ed2eecb86

data/edn-abnf.gemspec

@@ -1,13 +1,13 @@
 Gem::Specification.new do |s|
   s.name = "edn-abnf"
-  s.version = "0.0.4"
+  s.version = "0.0.6"
   s.summary = "CDDL (Concise Data Definition Language) converters and miscellaneous tools"
   s.description = %q{edn-abnf implements converters and miscellaneous tools for CBOR EDN's ABNF}
   s.author = "Carsten Bormann"
   s.email = "cabo@tzi.org"
   s.license = "MIT"
   s.homepage = "http://github.com/cabo/edn-abnf"
-  s.files = Dir['lib/**/*.rb'] + %w(edn-abnf.gemspec) + Dir['data/*.cddl'] + Dir['bin/**/*.rb']
+  s.files = Dir['lib/**/*.rb'] + %w(edn-abnf.gemspec) + Dir['bin/**/*.rb']
   s.executables = Dir['bin/*'].map {|x| File.basename(x)}
   s.required_ruby_version = '>= 1.9.2'
 

data/lib/cbor-diagnostic-app/b64.rb

@@ -1,7 +1,13 @@
-# mockup only; needs parser!
+require_relative "b64grammar.rb"
 
 class CBOR_DIAG::App_b64
   def self.decode(_, s)
+    parser = B64GRAMMARParser.new #  B? XXX
+    ast = parser.parse(s)
+    if !ast
+      raise ArgumentError, "cbor-diagnostic: Parse Error in b64'#{s}':\n" << EDN.reason(parser, s)
+    end
+    # lazy -- not using parse tree...:
     t = s.gsub(/\s/, '').chars.each_slice(4).map(&:join)
     if last = t[-1]
       last << "=" * (4 - last.size)

data/lib/cbor-diagnostic-app/b64grammar.rb

@@ -0,0 +1,498 @@
+# Encoding: UTF-8
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module B64GRAMMAR
+  include Treetop::Runtime
+
+  def root
+    @root ||= :app_string_b64
+  end
+
+  module AppStringB640
+    def b64dig
+      elements[0]
+    end
+
+    def B
+      elements[1]
+    end
+  end
+
+  module AppStringB641
+    def B
+      elements[1]
+    end
+
+  end
+
+  module AppStringB642
+    def b64dig
+      elements[0]
+    end
+
+    def B
+      elements[1]
+    end
+
+  end
+
+  module AppStringB643
+    def b64dig1
+      elements[0]
+    end
+
+    def B1
+      elements[1]
+    end
+
+    def b64dig2
+      elements[2]
+    end
+
+    def B2
+      elements[3]
+    end
+
+    def B3
+      elements[5]
+    end
+  end
+
+  module AppStringB644
+    def B
+      elements[0]
+    end
+
+  end
+
+  def _nt_app_string_b64
+    start_index = index
+    if node_cache[:app_string_b64].has_key?(index)
+      cached = node_cache[:app_string_b64][index]
+      if cached
+        node_cache[:app_string_b64][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_B
+    s0 << r1
+    if r1
+      s2, i2 = [], index
+      loop do
+        s3, i3 = [], index
+        loop do
+          i4, s4 = index, []
+          r5 = _nt_b64dig
+          s4 << r5
+          if r5
+            r6 = _nt_B
+            s4 << r6
+          end
+          if s4.last
+            r4 = instantiate_node(SyntaxNode,input, i4...index, s4)
+            r4.extend(AppStringB640)
+          else
+            @index = i4
+            r4 = nil
+          end
+          if r4
+            s3 << r4
+          else
+            break
+          end
+          if s3.size == 4
+            break
+          end
+        end
+        if s3.size < 4
+          @index = i3
+          r3 = nil
+        else
+          if s3.size < 4
+            @terminal_failures.pop
+          end
+          r3 = instantiate_node(SyntaxNode,input, i3...index, s3)
+        end
+        if r3
+          s2 << r3
+        else
+          break
+        end
+      end
+      r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
+      s0 << r2
+      if r2
+        i8, s8 = index, []
+        r9 = _nt_b64dig
+        s8 << r9
+        if r9
+          r10 = _nt_B
+          s8 << r10
+          if r10
+            r11 = _nt_b64dig
+            s8 << r11
+            if r11
+              r12 = _nt_B
+              s8 << r12
+              if r12
+                i14 = index
+                i15, s15 = index, []
+                if (match_len = has_terminal?("=", false, index))
+                  r16 = true
+                  @index += match_len
+                else
+                  terminal_parse_failure('"="')
+                  r16 = nil
+                end
+                s15 << r16
+                if r16
+                  r17 = _nt_B
+                  s15 << r17
+                  if r17
+                    if (match_len = has_terminal?("=", false, index))
+                      r18 = true
+                      @index += match_len
+                    else
+                      terminal_parse_failure('"="')
+                      r18 = nil
+                    end
+                    s15 << r18
+                  end
+                end
+                if s15.last
+                  r15 = instantiate_node(SyntaxNode,input, i15...index, s15)
+                  r15.extend(AppStringB641)
+                else
+                  @index = i15
+                  r15 = nil
+                end
+                if r15
+                  r15 = SyntaxNode.new(input, (index-1)...index) if r15 == true
+                  r14 = r15
+                else
+                  i19, s19 = index, []
+                  r20 = _nt_b64dig
+                  s19 << r20
+                  if r20
+                    r21 = _nt_B
+                    s19 << r21
+                    if r21
+                      if (match_len = has_terminal?("=", false, index))
+                        r23 = true
+                        @index += match_len
+                      else
+                        terminal_parse_failure('"="')
+                        r23 = nil
+                      end
+                      if r23
+                        r22 = r23
+                      else
+                        r22 = instantiate_node(SyntaxNode,input, index...index)
+                      end
+                      s19 << r22
+                    end
+                  end
+                  if s19.last
+                    r19 = instantiate_node(SyntaxNode,input, i19...index, s19)
+                    r19.extend(AppStringB642)
+                  else
+                    @index = i19
+                    r19 = nil
+                  end
+                  if r19
+                    r19 = SyntaxNode.new(input, (index-1)...index) if r19 == true
+                    r14 = r19
+                  else
+                    @index = i14
+                    r14 = nil
+                  end
+                end
+                if r14
+                  r13 = r14
+                else
+                  r13 = instantiate_node(SyntaxNode,input, index...index)
+                end
+                s8 << r13
+                if r13
+                  r24 = _nt_B
+                  s8 << r24
+                end
+              end
+            end
+          end
+        end
+        if s8.last
+          r8 = instantiate_node(SyntaxNode,input, i8...index, s8)
+          r8.extend(AppStringB643)
+        else
+          @index = i8
+          r8 = nil
+        end
+        if r8
+          r7 = r8
+        else
+          r7 = instantiate_node(SyntaxNode,input, index...index)
+        end
+        s0 << r7
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(AppStringB644)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:app_string_b64][start_index] = r0
+
+    r0
+  end
+
+  def _nt_b64dig
+    start_index = index
+    if node_cache[:b64dig].has_key?(index)
+      cached = node_cache[:b64dig][index]
+      if cached
+        node_cache[:b64dig][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_ALPHA
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_DIGIT
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        if (match_len = has_terminal?("-", false, index))
+          r3 = true
+          @index += match_len
+        else
+          terminal_parse_failure('"-"')
+          r3 = nil
+        end
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          if (match_len = has_terminal?("_", false, index))
+            r4 = true
+            @index += match_len
+          else
+            terminal_parse_failure('"_"')
+            r4 = nil
+          end
+          if r4
+            r4 = SyntaxNode.new(input, (index-1)...index) if r4 == true
+            r0 = r4
+          else
+            if (match_len = has_terminal?("+", false, index))
+              r5 = true
+              @index += match_len
+            else
+              terminal_parse_failure('"+"')
+              r5 = nil
+            end
+            if r5
+              r5 = SyntaxNode.new(input, (index-1)...index) if r5 == true
+              r0 = r5
+            else
+              if (match_len = has_terminal?("/", false, index))
+                r6 = true
+                @index += match_len
+              else
+                terminal_parse_failure('"/"')
+                r6 = nil
+              end
+              if r6
+                r6 = SyntaxNode.new(input, (index-1)...index) if r6 == true
+                r0 = r6
+              else
+                @index = i0
+                r0 = nil
+              end
+            end
+          end
+        end
+      end
+    end
+
+    node_cache[:b64dig][start_index] = r0
+
+    r0
+  end
+
+  def _nt_B
+    start_index = index
+    if node_cache[:B].has_key?(index)
+      cached = node_cache[:B][index]
+      if cached
+        node_cache[:B][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    s0, i0 = [], index
+    loop do
+      r1 = _nt_iblank
+      if r1
+        s0 << r1
+      else
+        break
+      end
+    end
+    r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+
+    node_cache[:B][start_index] = r0
+
+    r0
+  end
+
+  def _nt_iblank
+    start_index = index
+    if node_cache[:iblank].has_key?(index)
+      cached = node_cache[:iblank][index]
+      if cached
+        node_cache[:iblank][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    if (match_len = has_terminal?("\n", false, index))
+      r1 = true
+      @index += match_len
+    else
+      terminal_parse_failure('"\\n"')
+      r1 = nil
+    end
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      if (match_len = has_terminal?(" ", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure('" "')
+        r2 = nil
+      end
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:iblank][start_index] = r0
+
+    r0
+  end
+
+  def _nt_lcalpha
+    start_index = index
+    if node_cache[:lcalpha].has_key?(index)
+      cached = node_cache[:lcalpha][index]
+      if cached
+        node_cache[:lcalpha][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    if has_terminal?(@regexps[gr = '\A[a-z]'] ||= Regexp.new(gr), :regexp, index)
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure('[a-z]')
+      r0 = nil
+    end
+
+    node_cache[:lcalpha][start_index] = r0
+
+    r0
+  end
+
+  def _nt_ALPHA
+    start_index = index
+    if node_cache[:ALPHA].has_key?(index)
+      cached = node_cache[:ALPHA][index]
+      if cached
+        node_cache[:ALPHA][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    if has_terminal?(@regexps[gr = '\A[A-Z]'] ||= Regexp.new(gr), :regexp, index)
+      r1 = true
+      @index += 1
+    else
+      terminal_parse_failure('[A-Z]')
+      r1 = nil
+    end
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_lcalpha
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:ALPHA][start_index] = r0
+
+    r0
+  end
+
+  def _nt_DIGIT
+    start_index = index
+    if node_cache[:DIGIT].has_key?(index)
+      cached = node_cache[:DIGIT][index]
+      if cached
+        node_cache[:DIGIT][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    if has_terminal?(@regexps[gr = '\A[0-9]'] ||= Regexp.new(gr), :regexp, index)
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure('[0-9]')
+      r0 = nil
+    end
+
+    node_cache[:DIGIT][start_index] = r0
+
+    r0
+  end
+
+end
+
+class B64GRAMMARParser < Treetop::Runtime::CompiledParser
+  include B64GRAMMAR
+end
+

data/lib/cbor-diagnostic-app/h.rb

@@ -1,7 +1,13 @@
-# mockup only; needs parser!
+require_relative "hgrammar.rb"
 
 class CBOR_DIAG::App_h
   def self.decode(_, s)
-    s.gsub(/#.*|\s|\/[^\/]*\//, "").chars.each_slice(2).map{ |x| Integer(x.join, 16).chr("BINARY") }.join
+    parser = HGRAMMARParser.new
+    ast = parser.parse(s)
+    if !ast
+      raise ArgumentError, "cbor-diagnostic: Parse Error in h'#{s}':\n" << EDN.reason(parser, s)
+    end
+    ast.ast
   end
+# s.gsub(/#.*|\s|\/[^\/]*\//, "").chars.each_slice(2).map{ |x| Integer(x.join, 16).chr("BINARY") }.join
 end

data/lib/cbor-diagnostic-app/hgrammar.rb

@@ -0,0 +1,457 @@
+# Encoding: UTF-8
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module HGRAMMAR
+  include Treetop::Runtime
+
+  def root
+    @root ||= :app_string_h
+  end
+
+  module AppStringH0
+    def HEXDIG1
+      elements[0]
+    end
+
+    def S1
+      elements[1]
+    end
+
+    def HEXDIG2
+      elements[2]
+    end
+
+    def S2
+      elements[3]
+    end
+  end
+
+  module AppStringH1
+    def S
+      elements[0]
+    end
+
+  end
+
+  module AppStringH2
+    def ast
+      e1 = elements[1].elements
+      e1.map {|e| Integer(e.elements[0].text_value + e.elements[2].text_value, 16).chr("BINARY")}.join.b
+    end
+  end
+
+  def _nt_app_string_h
+    start_index = index
+    if node_cache[:app_string_h].has_key?(index)
+      cached = node_cache[:app_string_h][index]
+      if cached
+        node_cache[:app_string_h][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_S
+    s0 << r1
+    if r1
+      s2, i2 = [], index
+      loop do
+        i3, s3 = index, []
+        r4 = _nt_HEXDIG
+        s3 << r4
+        if r4
+          r5 = _nt_S
+          s3 << r5
+          if r5
+            r6 = _nt_HEXDIG
+            s3 << r6
+            if r6
+              r7 = _nt_S
+              s3 << r7
+            end
+          end
+        end
+        if s3.last
+          r3 = instantiate_node(SyntaxNode,input, i3...index, s3)
+          r3.extend(AppStringH0)
+        else
+          @index = i3
+          r3 = nil
+        end
+        if r3
+          s2 << r3
+        else
+          break
+        end
+      end
+      r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(AppStringH1)
+      r0.extend(AppStringH2)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:app_string_h][start_index] = r0
+
+    r0
+  end
+
+  def _nt_HEXDIG
+    start_index = index
+    if node_cache[:HEXDIG].has_key?(index)
+      cached = node_cache[:HEXDIG][index]
+      if cached
+        node_cache[:HEXDIG][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_DIGIT
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      if (match_len = has_terminal?("a", :insens, index))
+        r2 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+        @index += match_len
+      else
+        terminal_parse_failure('"A"')
+        r2 = nil
+      end
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        if (match_len = has_terminal?("b", :insens, index))
+          r3 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+          @index += match_len
+        else
+          terminal_parse_failure('"B"')
+          r3 = nil
+        end
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          if (match_len = has_terminal?("c", :insens, index))
+            r4 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+            @index += match_len
+          else
+            terminal_parse_failure('"C"')
+            r4 = nil
+          end
+          if r4
+            r4 = SyntaxNode.new(input, (index-1)...index) if r4 == true
+            r0 = r4
+          else
+            if (match_len = has_terminal?("d", :insens, index))
+              r5 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+              @index += match_len
+            else
+              terminal_parse_failure('"D"')
+              r5 = nil
+            end
+            if r5
+              r5 = SyntaxNode.new(input, (index-1)...index) if r5 == true
+              r0 = r5
+            else
+              if (match_len = has_terminal?("e", :insens, index))
+                r6 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+                @index += match_len
+              else
+                terminal_parse_failure('"E"')
+                r6 = nil
+              end
+              if r6
+                r6 = SyntaxNode.new(input, (index-1)...index) if r6 == true
+                r0 = r6
+              else
+                if (match_len = has_terminal?("f", :insens, index))
+                  r7 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+                  @index += match_len
+                else
+                  terminal_parse_failure('"F"')
+                  r7 = nil
+                end
+                if r7
+                  r7 = SyntaxNode.new(input, (index-1)...index) if r7 == true
+                  r0 = r7
+                else
+                  @index = i0
+                  r0 = nil
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    node_cache[:HEXDIG][start_index] = r0
+
+    r0
+  end
+
+  def _nt_DIGIT
+    start_index = index
+    if node_cache[:DIGIT].has_key?(index)
+      cached = node_cache[:DIGIT][index]
+      if cached
+        node_cache[:DIGIT][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    if has_terminal?(@regexps[gr = '\A[0-9]'] ||= Regexp.new(gr), :regexp, index)
+      r0 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure('[0-9]')
+      r0 = nil
+    end
+
+    node_cache[:DIGIT][start_index] = r0
+
+    r0
+  end
+
+  def _nt_blank
+    start_index = index
+    if node_cache[:blank].has_key?(index)
+      cached = node_cache[:blank][index]
+      if cached
+        node_cache[:blank][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    if (match_len = has_terminal?("\t", false, index))
+      r1 = true
+      @index += match_len
+    else
+      terminal_parse_failure('"\\t"')
+      r1 = nil
+    end
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      if (match_len = has_terminal?("\n", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure('"\\n"')
+        r2 = nil
+      end
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        if (match_len = has_terminal?("\r", false, index))
+          r3 = true
+          @index += match_len
+        else
+          terminal_parse_failure('"\\r"')
+          r3 = nil
+        end
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          if (match_len = has_terminal?(" ", false, index))
+            r4 = true
+            @index += match_len
+          else
+            terminal_parse_failure('" "')
+            r4 = nil
+          end
+          if r4
+            r4 = SyntaxNode.new(input, (index-1)...index) if r4 == true
+            r0 = r4
+          else
+            @index = i0
+            r0 = nil
+          end
+        end
+      end
+    end
+
+    node_cache[:blank][start_index] = r0
+
+    r0
+  end
+
+  def _nt_non_slash
+    start_index = index
+    if node_cache[:non_slash].has_key?(index)
+      cached = node_cache[:non_slash][index]
+      if cached
+        node_cache[:non_slash][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_blank
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      if has_terminal?(@regexps[gr = '\A[!-\\.]'] ||= Regexp.new(gr), :regexp, index)
+        r2 = true
+        @index += 1
+      else
+        terminal_parse_failure('[!-\\.]')
+        r2 = nil
+      end
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        if has_terminal?(@regexps[gr = '\A[0-􏿿]'] ||= Regexp.new(gr), :regexp, index)
+          r3 = true
+          @index += 1
+        else
+          terminal_parse_failure('[0-􏿿]')
+          r3 = nil
+        end
+        if r3
+          r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
+          r0 = r3
+        else
+          @index = i0
+          r0 = nil
+        end
+      end
+    end
+
+    node_cache[:non_slash][start_index] = r0
+
+    r0
+  end
+
+  module S0
+  end
+
+  module S1
+  end
+
+  def _nt_S
+    start_index = index
+    if node_cache[:S].has_key?(index)
+      cached = node_cache[:S][index]
+      if cached
+        node_cache[:S][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    s1, i1 = [], index
+    loop do
+      r2 = _nt_blank
+      if r2
+        s1 << r2
+      else
+        break
+      end
+    end
+    r1 = instantiate_node(SyntaxNode,input, i1...index, s1)
+    s0 << r1
+    if r1
+      s3, i3 = [], index
+      loop do
+        i4, s4 = index, []
+        if (match_len = has_terminal?("/", false, index))
+          r5 = true
+          @index += match_len
+        else
+          terminal_parse_failure('"/"')
+          r5 = nil
+        end
+        s4 << r5
+        if r5
+          s6, i6 = [], index
+          loop do
+            r7 = _nt_non_slash
+            if r7
+              s6 << r7
+            else
+              break
+            end
+          end
+          r6 = instantiate_node(SyntaxNode,input, i6...index, s6)
+          s4 << r6
+          if r6
+            if (match_len = has_terminal?("/", false, index))
+              r8 = true
+              @index += match_len
+            else
+              terminal_parse_failure('"/"')
+              r8 = nil
+            end
+            s4 << r8
+            if r8
+              s9, i9 = [], index
+              loop do
+                r10 = _nt_blank
+                if r10
+                  s9 << r10
+                else
+                  break
+                end
+              end
+              r9 = instantiate_node(SyntaxNode,input, i9...index, s9)
+              s4 << r9
+            end
+          end
+        end
+        if s4.last
+          r4 = instantiate_node(SyntaxNode,input, i4...index, s4)
+          r4.extend(S0)
+        else
+          @index = i4
+          r4 = nil
+        end
+        if r4
+          s3 << r4
+        else
+          break
+        end
+      end
+      r3 = instantiate_node(SyntaxNode,input, i3...index, s3)
+      s0 << r3
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(S1)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:S][start_index] = r0
+
+    r0
+  end
+
+end
+
+class HGRAMMARParser < Treetop::Runtime::CompiledParser
+  include HGRAMMAR
+end
+

data/lib/parser/edn-util.rb

@@ -1,9 +1,6 @@
 require 'cbor-diagnostic'
 module CBOR_DIAG
 end
-require 'cbor-diagnostic-app/dt'
-require 'cbor-diagnostic-app/h'
-require 'cbor-diagnostic-app/b64'
 
 require 'treetop'
 require_relative './edngrammar'
@@ -19,3 +16,8 @@ class Treetop::Runtime::SyntaxNode
     text_value.to_i(16)
   end
 end
+
+
+require 'cbor-diagnostic-app/dt'
+require 'cbor-diagnostic-app/h'
+require 'cbor-diagnostic-app/b64'

data/lib/parser/edngrammar.rb

@@ -469,7 +469,13 @@ module EDNGRAMMAR
   end
 
   module Basenumber4
-    def ast; Integer(text_value) end
+  end
+
+  module Basenumber5
+  end
+
+  module Basenumber6
+    def ast; /p/i =~ text_value ? Float(text_value) : Integer(text_value) end
   end
 
   def _nt_basenumber
@@ -528,10 +534,98 @@ module EDNGRAMMAR
             r7 = instantiate_node(SyntaxNode,input, i7...index, s7)
           end
           s5 << r7
+          if r7
+            i10, s10 = index, []
+            i12, s12 = index, []
+            if (match_len = has_terminal?(".", false, index))
+              r13 = true
+              @index += match_len
+            else
+              terminal_parse_failure('"."')
+              r13 = nil
+            end
+            s12 << r13
+            if r13
+              s14, i14 = [], index
+              loop do
+                r15 = _nt_HEXDIG
+                if r15
+                  s14 << r15
+                else
+                  break
+                end
+              end
+              if s14.empty?
+                @index = i14
+                r14 = nil
+              else
+                r14 = instantiate_node(SyntaxNode,input, i14...index, s14)
+              end
+              s12 << r14
+            end
+            if s12.last
+              r12 = instantiate_node(SyntaxNode,input, i12...index, s12)
+              r12.extend(Basenumber0)
+            else
+              @index = i12
+              r12 = nil
+            end
+            if r12
+              r11 = r12
+            else
+              r11 = instantiate_node(SyntaxNode,input, index...index)
+            end
+            s10 << r11
+            if r11
+              if (match_len = has_terminal?("p", :insens, index))
+                r16 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+                @index += match_len
+              else
+                terminal_parse_failure('"p"')
+                r16 = nil
+              end
+              s10 << r16
+              if r16
+                r18 = _nt_sign
+                if r18
+                  r17 = r18
+                else
+                  r17 = instantiate_node(SyntaxNode,input, index...index)
+                end
+                s10 << r17
+                if r17
+                  s19, i19 = [], index
+                  loop do
+                    r20 = _nt_DIGIT
+                    if r20
+                      s19 << r20
+                    else
+                      break
+                    end
+                  end
+                  r19 = instantiate_node(SyntaxNode,input, i19...index, s19)
+                  s10 << r19
+                end
+              end
+            end
+            if s10.last
+              r10 = instantiate_node(SyntaxNode,input, i10...index, s10)
+              r10.extend(Basenumber1)
+            else
+              @index = i10
+              r10 = nil
+            end
+            if r10
+              r9 = r10
+            else
+              r9 = instantiate_node(SyntaxNode,input, index...index)
+            end
+            s5 << r9
+          end
         end
         if s5.last
           r5 = instantiate_node(SyntaxNode,input, i5...index, s5)
-          r5.extend(Basenumber0)
+          r5.extend(Basenumber2)
         else
           @index = i5
           r5 = nil
@@ -540,81 +634,81 @@ module EDNGRAMMAR
           r5 = SyntaxNode.new(input, (index-1)...index) if r5 == true
           r4 = r5
         else
-          i9, s9 = index, []
+          i21, s21 = index, []
           if (match_len = has_terminal?("o", :insens, index))
-            r10 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+            r22 = instantiate_node(SyntaxNode,input, index...(index + match_len))
             @index += match_len
           else
             terminal_parse_failure('"o"')
-            r10 = nil
+            r22 = nil
           end
-          s9 << r10
-          if r10
-            s11, i11 = [], index
+          s21 << r22
+          if r22
+            s23, i23 = [], index
             loop do
-              r12 = _nt_ODIGIT
-              if r12
-                s11 << r12
+              r24 = _nt_ODIGIT
+              if r24
+                s23 << r24
               else
                 break
               end
             end
-            if s11.empty?
-              @index = i11
-              r11 = nil
+            if s23.empty?
+              @index = i23
+              r23 = nil
             else
-              r11 = instantiate_node(SyntaxNode,input, i11...index, s11)
+              r23 = instantiate_node(SyntaxNode,input, i23...index, s23)
             end
-            s9 << r11
+            s21 << r23
           end
-          if s9.last
-            r9 = instantiate_node(SyntaxNode,input, i9...index, s9)
-            r9.extend(Basenumber1)
+          if s21.last
+            r21 = instantiate_node(SyntaxNode,input, i21...index, s21)
+            r21.extend(Basenumber3)
           else
-            @index = i9
-            r9 = nil
+            @index = i21
+            r21 = nil
           end
-          if r9
-            r9 = SyntaxNode.new(input, (index-1)...index) if r9 == true
-            r4 = r9
+          if r21
+            r21 = SyntaxNode.new(input, (index-1)...index) if r21 == true
+            r4 = r21
           else
-            i13, s13 = index, []
+            i25, s25 = index, []
             if (match_len = has_terminal?("b", :insens, index))
-              r14 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+              r26 = instantiate_node(SyntaxNode,input, index...(index + match_len))
               @index += match_len
             else
               terminal_parse_failure('"b"')
-              r14 = nil
+              r26 = nil
             end
-            s13 << r14
-            if r14
-              s15, i15 = [], index
+            s25 << r26
+            if r26
+              s27, i27 = [], index
               loop do
-                r16 = _nt_BDIGIT
-                if r16
-                  s15 << r16
+                r28 = _nt_BDIGIT
+                if r28
+                  s27 << r28
                 else
                   break
                 end
               end
-              if s15.empty?
-                @index = i15
-                r15 = nil
+              if s27.empty?
+                @index = i27
+                r27 = nil
               else
-                r15 = instantiate_node(SyntaxNode,input, i15...index, s15)
+                r27 = instantiate_node(SyntaxNode,input, i27...index, s27)
               end
-              s13 << r15
+              s25 << r27
             end
-            if s13.last
-              r13 = instantiate_node(SyntaxNode,input, i13...index, s13)
-              r13.extend(Basenumber2)
+            if s25.last
+              r25 = instantiate_node(SyntaxNode,input, i25...index, s25)
+              r25.extend(Basenumber4)
             else
-              @index = i13
-              r13 = nil
+              @index = i25
+              r25 = nil
             end
-            if r13
-              r13 = SyntaxNode.new(input, (index-1)...index) if r13 == true
-              r4 = r13
+            if r25
+              r25 = SyntaxNode.new(input, (index-1)...index) if r25 == true
+              r4 = r25
             else
               @index = i4
               r4 = nil
@@ -626,8 +720,8 @@ module EDNGRAMMAR
     end
     if s0.last
       r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
-      r0.extend(Basenumber3)
-      r0.extend(Basenumber4)
+      r0.extend(Basenumber5)
+      r0.extend(Basenumber6)
     else
       @index = i0
       r0 = nil
@@ -3690,44 +3784,6 @@ module EDNGRAMMAR
     r0
   end
 
-  def _nt_ALPHA
-    start_index = index
-    if node_cache[:ALPHA].has_key?(index)
-      cached = node_cache[:ALPHA][index]
-      if cached
-        node_cache[:ALPHA][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
-        @index = cached.interval.end
-      end
-      return cached
-    end
-
-    i0 = index
-    if has_terminal?(@regexps[gr = '\A[A-Z]'] ||= Regexp.new(gr), :regexp, index)
-      r1 = true
-      @index += 1
-    else
-      terminal_parse_failure('[A-Z]')
-      r1 = nil
-    end
-    if r1
-      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
-      r0 = r1
-    else
-      r2 = _nt_lcalpha
-      if r2
-        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
-        r0 = r2
-      else
-        @index = i0
-        r0 = nil
-      end
-    end
-
-    node_cache[:ALPHA][start_index] = r0
-
-    r0
-  end
-
 end
 
 class EDNGRAMMARParser < Treetop::Runtime::CompiledParser

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: edn-abnf
 version: !ruby/object:Gem::Version
-  version: 0.0.4
+  version: 0.0.6
 platform: ruby
 authors:
 - Carsten Bormann
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2023-08-26 00:00:00.000000000 Z
+date: 2023-10-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -93,7 +93,9 @@ files:
 - bin/edn-abnf~
 - edn-abnf.gemspec
 - lib/cbor-diagnostic-app/b64.rb
+- lib/cbor-diagnostic-app/b64grammar.rb
 - lib/cbor-diagnostic-app/h.rb
+- lib/cbor-diagnostic-app/hgrammar.rb
 - lib/edn-abnf.rb
 - lib/parser/edn-util.rb
 - lib/parser/edngrammar.rb