edn-abnf 0.0.10 → 0.0.12

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

@@ -0,0 +1,700 @@
+# Encoding: UTF-8
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module DTGRAMMAR
+  include Treetop::Runtime
+
+  def root
+    @root ||= :app_string_dt
+  end
+
+  def _nt_app_string_dt
+    start_index = index
+    if node_cache[:app_string_dt].has_key?(index)
+      cached = node_cache[:app_string_dt][index]
+      if cached
+        node_cache[:app_string_dt][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    r0 = _nt_date_time
+
+    node_cache[:app_string_dt][start_index] = r0
+
+    r0
+  end
+
+  def _nt_date_fullyear
+    start_index = index
+    if node_cache[:date_fullyear].has_key?(index)
+      cached = node_cache[:date_fullyear][index]
+      if cached
+        node_cache[:date_fullyear][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 4
+        break
+      end
+    end
+    if s0.size < 4
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 4
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:date_fullyear][start_index] = r0
+
+    r0
+  end
+
+  def _nt_date_month
+    start_index = index
+    if node_cache[:date_month].has_key?(index)
+      cached = node_cache[:date_month][index]
+      if cached
+        node_cache[:date_month][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 2
+        break
+      end
+    end
+    if s0.size < 2
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 2
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:date_month][start_index] = r0
+
+    r0
+  end
+
+  def _nt_date_mday
+    start_index = index
+    if node_cache[:date_mday].has_key?(index)
+      cached = node_cache[:date_mday][index]
+      if cached
+        node_cache[:date_mday][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 2
+        break
+      end
+    end
+    if s0.size < 2
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 2
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:date_mday][start_index] = r0
+
+    r0
+  end
+
+  def _nt_time_hour
+    start_index = index
+    if node_cache[:time_hour].has_key?(index)
+      cached = node_cache[:time_hour][index]
+      if cached
+        node_cache[:time_hour][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 2
+        break
+      end
+    end
+    if s0.size < 2
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 2
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:time_hour][start_index] = r0
+
+    r0
+  end
+
+  def _nt_time_minute
+    start_index = index
+    if node_cache[:time_minute].has_key?(index)
+      cached = node_cache[:time_minute][index]
+      if cached
+        node_cache[:time_minute][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 2
+        break
+      end
+    end
+    if s0.size < 2
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 2
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:time_minute][start_index] = r0
+
+    r0
+  end
+
+  def _nt_time_second
+    start_index = index
+    if node_cache[:time_second].has_key?(index)
+      cached = node_cache[:time_second][index]
+      if cached
+        node_cache[:time_second][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_DIGIT
+      if r1
+        s0 << r1
+      else
+        break
+      end
+      if s0.size == 2
+        break
+      end
+    end
+    if s0.size < 2
+      @index = i0
+      r0 = nil
+    else
+      if s0.size < 2
+        @terminal_failures.pop
+      end
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:time_second][start_index] = r0
+
+    r0
+  end
+
+  module TimeSecfrac0
+  end
+
+  def _nt_time_secfrac
+    start_index = index
+    if node_cache[:time_secfrac].has_key?(index)
+      cached = node_cache[:time_secfrac][index]
+      if cached
+        node_cache[:time_secfrac][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_DIGIT
+        if r3
+          s2 << r3
+        else
+          break
+        end
+      end
+      if s2.empty?
+        @index = i2
+        r2 = nil
+      else
+        r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
+      end
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(TimeSecfrac0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:time_secfrac][start_index] = r0
+
+    r0
+  end
+
+  module TimeNumoffset0
+    def time_hour
+      elements[1]
+    end
+
+    def time_minute
+      elements[3]
+    end
+  end
+
+  def _nt_time_numoffset
+    start_index = index
+    if node_cache[:time_numoffset].has_key?(index)
+      cached = node_cache[:time_numoffset][index]
+      if cached
+        node_cache[:time_numoffset][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    i1 = index
+    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
+      r1 = 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
+        r1 = r3
+      else
+        @index = i1
+        r1 = nil
+      end
+    end
+    s0 << r1
+    if r1
+      r4 = _nt_time_hour
+      s0 << r4
+      if r4
+        if (match_len = has_terminal?(":", false, index))
+          r5 = true
+          @index += match_len
+        else
+          terminal_parse_failure('":"')
+          r5 = nil
+        end
+        s0 << r5
+        if r5
+          r6 = _nt_time_minute
+          s0 << r6
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(TimeNumoffset0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:time_numoffset][start_index] = r0
+
+    r0
+  end
+
+  def _nt_time_offset
+    start_index = index
+    if node_cache[:time_offset].has_key?(index)
+      cached = node_cache[:time_offset][index]
+      if cached
+        node_cache[:time_offset][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?("z", :insens, index))
+      r1 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+      @index += match_len
+    else
+      terminal_parse_failure('"Z"')
+      r1 = nil
+    end
+    if r1
+      r1 = SyntaxNode.new(input, (index-1)...index) if r1 == true
+      r0 = r1
+    else
+      r2 = _nt_time_numoffset
+      if r2
+        r2 = SyntaxNode.new(input, (index-1)...index) if r2 == true
+        r0 = r2
+      else
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:time_offset][start_index] = r0
+
+    r0
+  end
+
+  module PartialTime0
+    def time_hour
+      elements[0]
+    end
+
+    def time_minute
+      elements[2]
+    end
+
+    def time_second
+      elements[4]
+    end
+
+  end
+
+  def _nt_partial_time
+    start_index = index
+    if node_cache[:partial_time].has_key?(index)
+      cached = node_cache[:partial_time][index]
+      if cached
+        node_cache[:partial_time][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_time_hour
+    s0 << r1
+    if r1
+      if (match_len = has_terminal?(":", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure('":"')
+        r2 = nil
+      end
+      s0 << r2
+      if r2
+        r3 = _nt_time_minute
+        s0 << r3
+        if r3
+          if (match_len = has_terminal?(":", false, index))
+            r4 = true
+            @index += match_len
+          else
+            terminal_parse_failure('":"')
+            r4 = nil
+          end
+          s0 << r4
+          if r4
+            r5 = _nt_time_second
+            s0 << r5
+            if r5
+              r7 = _nt_time_secfrac
+              if r7
+                r6 = r7
+              else
+                r6 = instantiate_node(SyntaxNode,input, index...index)
+              end
+              s0 << r6
+            end
+          end
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(PartialTime0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:partial_time][start_index] = r0
+
+    r0
+  end
+
+  module FullDate0
+    def date_fullyear
+      elements[0]
+    end
+
+    def date_month
+      elements[2]
+    end
+
+    def date_mday
+      elements[4]
+    end
+  end
+
+  def _nt_full_date
+    start_index = index
+    if node_cache[:full_date].has_key?(index)
+      cached = node_cache[:full_date][index]
+      if cached
+        node_cache[:full_date][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_date_fullyear
+    s0 << r1
+    if r1
+      if (match_len = has_terminal?("-", false, index))
+        r2 = true
+        @index += match_len
+      else
+        terminal_parse_failure('"-"')
+        r2 = nil
+      end
+      s0 << r2
+      if r2
+        r3 = _nt_date_month
+        s0 << r3
+        if r3
+          if (match_len = has_terminal?("-", false, index))
+            r4 = true
+            @index += match_len
+          else
+            terminal_parse_failure('"-"')
+            r4 = nil
+          end
+          s0 << r4
+          if r4
+            r5 = _nt_date_mday
+            s0 << r5
+          end
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(FullDate0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:full_date][start_index] = r0
+
+    r0
+  end
+
+  module FullTime0
+    def partial_time
+      elements[0]
+    end
+
+    def time_offset
+      elements[1]
+    end
+  end
+
+  def _nt_full_time
+    start_index = index
+    if node_cache[:full_time].has_key?(index)
+      cached = node_cache[:full_time][index]
+      if cached
+        node_cache[:full_time][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_partial_time
+    s0 << r1
+    if r1
+      r2 = _nt_time_offset
+      s0 << r2
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(FullTime0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:full_time][start_index] = r0
+
+    r0
+  end
+
+  module DateTime0
+    def full_date
+      elements[0]
+    end
+
+    def full_time
+      elements[2]
+    end
+  end
+
+  def _nt_date_time
+    start_index = index
+    if node_cache[:date_time].has_key?(index)
+      cached = node_cache[:date_time][index]
+      if cached
+        node_cache[:date_time][index] = cached = SyntaxNode.new(input, index...(index + 1)) if cached == true
+        @index = cached.interval.end
+      end
+      return cached
+    end
+
+    i0, s0 = index, []
+    r1 = _nt_full_date
+    s0 << r1
+    if r1
+      if (match_len = has_terminal?("t", :insens, index))
+        r2 = instantiate_node(SyntaxNode,input, index...(index + match_len))
+        @index += match_len
+      else
+        terminal_parse_failure('"T"')
+        r2 = nil
+      end
+      s0 << r2
+      if r2
+        r3 = _nt_full_time
+        s0 << r3
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(DateTime0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:date_time][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 DTGRAMMARParser < Treetop::Runtime::CompiledParser
+  include DTGRAMMAR
+end
+

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

@@ -0,0 +1,22 @@
+require_relative "ipgrammar.rb"
+require 'ipaddr'
+
+class CBOR_DIAG::App_ip
+  def self.decode(app_prefix, s)
+    parser = IPGRAMMARParser.new
+    ast = parser.parse(s)
+    if !ast
+      raise ArgumentError, "cbor-diagnostic: Parse Error in h'#{s}':\n" << EDN.reason(parser, s)
+    end
+    fam, ipv = ast.ast
+    case app_prefix
+    when 'ip'
+      ipv
+    when 'IP'
+      CBOR::Tagged.new(fam, ipv)
+    else
+      fail app_prefix
+    end
+  end
+# s.gsub(/#.*|\s|\/[^\/]*\//, "").chars.each_slice(2).map{ |x| Integer(x.join, 16).chr("BINARY") }.join
+end