edn-abnf-ec 0.1.8

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

@@ -0,0 +1,677 @@
+# 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
+  end
+
+  module AppStringB645
+    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
+        if r7
+          i26, s26 = index, []
+          if (match_len = has_terminal?("#", false, index))
+            r27 = true
+            @index += match_len
+          else
+            terminal_parse_failure('"#"')
+            r27 = nil
+          end
+          s26 << r27
+          if r27
+            s28, i28 = [], index
+            loop do
+              r29 = _nt_inon_lf
+              if r29
+                s28 << r29
+              else
+                break
+              end
+            end
+            r28 = instantiate_node(SyntaxNode,input, i28...index, s28)
+            s26 << r28
+          end
+          if s26.last
+            r26 = instantiate_node(SyntaxNode,input, i26...index, s26)
+            r26.extend(AppStringB644)
+          else
+            @index = i26
+            r26 = nil
+          end
+          if r26
+            r25 = r26
+          else
+            r25 = instantiate_node(SyntaxNode,input, index...index)
+          end
+          s0 << r25
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(AppStringB645)
+    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
+
+  module B0
+    def icomment
+      elements[0]
+    end
+
+  end
+
+  module B1
+  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
+
+    i0, s0 = index, []
+    s1, i1 = [], index
+    loop do
+      r2 = _nt_iblank
+      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, []
+        r5 = _nt_icomment
+        s4 << r5
+        if r5
+          s6, i6 = [], index
+          loop do
+            r7 = _nt_iblank
+            if r7
+              s6 << r7
+            else
+              break
+            end
+          end
+          r6 = instantiate_node(SyntaxNode,input, i6...index, s6)
+          s4 << r6
+        end
+        if s4.last
+          r4 = instantiate_node(SyntaxNode,input, i4...index, s4)
+          r4.extend(B0)
+        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(B1)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    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
+
+  module Icomment0
+  end
+
+  def _nt_icomment
+    start_index = index
+    if node_cache[:icomment].has_key?(index)
+      cached = node_cache[:icomment][index]
+      if cached
+        node_cache[:icomment][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    if (match_len = has_terminal?("#", false, index))
+      r1 = true
+      @index += match_len
+    else
+      terminal_parse_failure('"#"')
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      s2, i2 = [], index
+      loop do
+        r3 = _nt_inon_lf
+        if r3
+          s2 << r3
+        else
+          break
+        end
+      end
+      r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
+      s0 << r2
+      if r2
+        if (match_len = has_terminal?("\n", false, index))
+          r4 = true
+          @index += match_len
+        else
+          terminal_parse_failure('"\\n"')
+          r4 = nil
+        end
+        s0 << r4
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(Icomment0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:icomment][start_index] = r0
+
+    r0
+  end
+
+  def _nt_inon_lf
+    start_index = index
+    if node_cache[:inon_lf].has_key?(index)
+      cached = node_cache[:inon_lf][index]
+      if cached
+        node_cache[:inon_lf][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[\\ -퟿]'] ||= Regexp.new(gr), :regexp, index)
+      r1 = true
+      @index += 1
+    else
+      terminal_parse_failure('[\\ -퟿]')
+      r1 = nil
+    end
+    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
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:inon_lf][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
+      if has_terminal?(@regexps[gr = '\A[a-z]'] ||= Regexp.new(gr), :regexp, index)
+        r2 = true
+        @index += 1
+      else
+        terminal_parse_failure('[a-z]')
+        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[: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/dt.rb

@@ -0,0 +1,33 @@
+require_relative "dtgrammar.rb"
+require 'time'
+
+# Using Time#iso8601 creates the following bugs:
+# * dt'1970-01-01T10:00:00' is accepted and gives local time
+# * dt'1970-01-01T10:00:00.0Z' gives an integer instead of a float
+# Probably should copy over Time#xmlschema and fix that for us.
+
+class CBOR_DIAG::App_dt
+  def self.decode(app_prefix, s)
+    parser = DTGRAMMARParser.new
+    ast = parser.parse(s)
+    if !ast
+      raise ArgumentError, "cbor-diagnostic: Parse Error in dt'#{s}':\n" << EDN.reason(parser, s)
+    end
+    # ast.ast
+
+    t = Time.iso8601(s)
+    tv = if t.subsec != 0
+      t.to_f
+    else
+      t.to_i
+    end
+    case app_prefix
+    when 'dt'
+      tv
+    when 'DT'
+      CBOR::Tagged.new(1, tv)
+    else
+      fail app_prefix
+    end
+  end
+end