edn-abnf 0.0.11 → 0.1.0

data/lib/parser/edn-util.rb

@@ -19,5 +19,6 @@ end
 
 
 require 'cbor-diagnostic-app/dt'
+require 'cbor-diagnostic-app/ip'
 require 'cbor-diagnostic-app/h'
 require 'cbor-diagnostic-app/b64'

data/lib/parser/edngrammar.rb

@@ -1400,6 +1400,13 @@ module EDNGRAMMAR
 
   end
 
+  module AppPrefix1
+    def ucalpha
+      elements[0]
+    end
+
+  end
+
   def _nt_app_prefix
     start_index = index
     if node_cache[:app_prefix].has_key?(index)
@@ -1411,28 +1418,64 @@ module EDNGRAMMAR
       return cached
     end
 
-    i0, s0 = index, []
-    r1 = _nt_lcalpha
-    s0 << r1
-    if r1
-      s2, i2 = [], index
+    i0 = index
+    i1, s1 = index, []
+    r2 = _nt_lcalpha
+    s1 << r2
+    if r2
+      s3, i3 = [], index
       loop do
-        r3 = _nt_lcalnum
-        if r3
-          s2 << r3
+        r4 = _nt_lcalnum
+        if r4
+          s3 << r4
         else
           break
         end
       end
-      r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
-      s0 << r2
+      r3 = instantiate_node(SyntaxNode,input, i3...index, s3)
+      s1 << r3
     end
-    if s0.last
-      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
-      r0.extend(AppPrefix0)
+    if s1.last
+      r1 = instantiate_node(SyntaxNode,input, i1...index, s1)
+      r1.extend(AppPrefix0)
     else
-      @index = i0
-      r0 = nil
+      @index = i1
+      r1 = nil
+    end
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      i5, s5 = index, []
+      r6 = _nt_ucalpha
+      s5 << r6
+      if r6
+        s7, i7 = [], index
+        loop do
+          r8 = _nt_ucalnum
+          if r8
+            s7 << r8
+          else
+            break
+          end
+        end
+        r7 = instantiate_node(SyntaxNode,input, i7...index, s7)
+        s5 << r7
+      end
+      if s5.last
+        r5 = instantiate_node(SyntaxNode,input, i5...index, s5)
+        r5.extend(AppPrefix1)
+      else
+        @index = i5
+        r5 = nil
+      end
+      if r5
+        r5 = SyntaxNode.new(input, (index-1)...index) if r5 == true
+        r0 = r5
+      else
+        @index = i0
+        r0 = nil
+      end
     end
 
     node_cache[:app_prefix][start_index] = r0
@@ -1456,7 +1499,8 @@ module EDNGRAMMAR
       app = app_prefix.text_value
       # Find a better place to put a default initialization
       EDNGRAMMAR.const_set(:APPS, Hash.new { |h, k|
-                             h[k] = begin ::CBOR_DIAG.const_get("App_#{app}")
+                             h[k] = begin ::CBOR_DIAG.const_get("App_#{k.downcase}")
+  
                                     rescue NameError
                                       raise ArgumentError, "cbor-diagnostic: Unknown application-oriented extension '#{k}'", caller
                                     end
@@ -4096,6 +4140,62 @@ module EDNGRAMMAR
     r0
   end
 
+  def _nt_ucalpha
+    start_index = index
+    if node_cache[:ucalpha].has_key?(index)
+      cached = node_cache[:ucalpha][index]
+      if cached
+        node_cache[:ucalpha][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[:ucalpha][start_index] = r0
+
+    r0
+  end
+
+  def _nt_ucalnum
+    start_index = index
+    if node_cache[:ucalnum].has_key?(index)
+      cached = node_cache[:ucalnum][index]
+      if cached
+        node_cache[:ucalnum][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_ucalpha
+    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
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:ucalnum][start_index] = r0
+
+    r0
+  end
+
   def _nt_wordchar
     start_index = index
     if node_cache[:wordchar].has_key?(index)
@@ -4124,13 +4224,7 @@ module EDNGRAMMAR
         r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
         r0 = r2
       else
-        if has_terminal?(@regexps[gr = '\A[A-Z]'] ||= Regexp.new(gr), :regexp, index)
-          r3 = true
-          @index += 1
-        else
-          terminal_parse_failure('[A-Z]')
-          r3 = nil
-        end
+        r3 = _nt_ucalpha
         if r3
           r3 = SyntaxNode.new(input, (index-1)...index) if r3 == true
           r0 = r3

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: edn-abnf
 version: !ruby/object:Gem::Version
-  version: 0.0.11
+  version: 0.1.0
 platform: ruby
 authors:
 - Carsten Bormann
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2023-10-12 00:00:00.000000000 Z
+date: 2023-10-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -94,8 +94,12 @@ files:
 - edn-abnf.gemspec
 - lib/cbor-diagnostic-app/b64.rb
 - lib/cbor-diagnostic-app/b64grammar.rb
+- lib/cbor-diagnostic-app/dt.rb
+- lib/cbor-diagnostic-app/dtgrammar.rb
 - lib/cbor-diagnostic-app/h.rb
 - lib/cbor-diagnostic-app/hgrammar.rb
+- lib/cbor-diagnostic-app/ip.rb
+- lib/cbor-diagnostic-app/ipgrammar.rb
 - lib/edn-abnf.rb
 - lib/parser/edn-util.rb
 - lib/parser/edngrammar.rb