edn-abnf-ec 0.1.8

data/lib/edn-abnf.rb

@@ -0,0 +1,42 @@
+require_relative "parser/edn-util.rb"
+
+class EDN
+  @@parser = EDNGRAMMARParser.new
+
+  def self.reason(parser, s)
+    reason = [parser.failure_reason]
+    parser.failure_reason =~ /^(Expected .+) after ./m
+    expected = $1
+    if line = s.lines.to_a[parser.failure_line - 1]
+      reason << "#{$1.gsub("\n", '<<<NEWLINE>>>')}:" if expected
+      reason << line
+      reason << "#{'~' * (parser.failure_column - 1)}^"
+    end
+    reason.join("\n")
+  end
+
+  def self.from_edn(s)
+    ast = @@parser.parse s
+    if !ast
+      raise ArgumentError, "Parse Error:\n" << self.reason(@@parser, s)
+    end
+    ret = EDN.new(ast)
+    ret
+  end
+
+  attr_accessor :ast, :tree
+  def initialize(ast_)
+    @ast = ast_
+    @tree = ast.ast
+  end
+
+  def warn_error(s)
+    warn s
+    @error = true
+  end
+  def deep_clone
+    Marshal.load(Marshal.dump(self))
+  end
+
+
+end

data/lib/parser/edn-util.rb

@@ -0,0 +1,24 @@
+require 'cbor-diagnostic'
+module CBOR_DIAG
+end
+
+require 'treetop'
+require_relative './edngrammar'
+
+class Treetop::Runtime::SyntaxNode
+  def ast
+    fail "undefined_ast #{inspect}"
+  end
+  def ast1                      # devhack
+    "#{inspect[10..20]}--#{text_value[0..15]}"
+  end
+  def hex_value
+    text_value.to_i(16)
+  end
+end
+
+
+require 'cbor-diagnostic-app/dt'
+require 'cbor-diagnostic-app/ip'
+require 'cbor-diagnostic-app/h'
+require 'cbor-diagnostic-app/b64'