edn-abnf 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 8e126887990e8896adb3bd44950656b51afc8d8f1302621c017ecbbc914361eb
+  data.tar.gz: 9766b5bc4ec7a00e40cea828776d737b2723b6f3ae9448d1fb3dcc10a45f336a
+SHA512:
+  metadata.gz: 1b6886f7d40dec4c34f5cb39c9900c5123605b97b68fb620f0d4ff40eefc1bdb27f26b1132464afdcd2e94be46a1be7d8d9e708f25b34a4047899bfb875e4ce9
+  data.tar.gz: 051ca2fbe7cb43b569d0c376b4fc7a8b1d29f4a33fb0b6b8c73da78029e73042356203b6bdc3dbb4ce4fb98fd1c0e5bcfc19eb218c72fa9b190ec7dc86b0517c

data/bin/edn-abnf

@@ -0,0 +1,57 @@
+#!/usr/bin/env ruby
+require 'pp'
+require 'yaml'
+require 'treetop'
+require 'json'
+
+require_relative '../lib/edn-abnf.rb'
+
+def snaky(name)
+  name.gsub(/-/, "_")
+end
+ 
+Encoding.default_external = Encoding::UTF_8
+require 'optparse'
+require 'ostruct'
+
+$options = OpenStruct.new
+begin
+  op = OptionParser.new do |opts|
+    opts.banner = "Usage: edn-abnf.rb [options] [file.edn... | -]"
+
+    opts.on("-v", "--[no-]verbose", "Run verbosely") do |v|
+      $options.verbose = v
+    end
+    opts.on("-tFMT", "--to=FMT", [:basic, :neat, :json, :yaml, :edn, :diag], "Target format") do |v|
+      $options.target = v
+    end
+  end
+  op.parse!
+rescue Exception => e
+  warn e
+  exit 1
+end
+
+if ARGV == []
+  puts op
+  exit 1
+end
+
+edn_file = ARGF.read
+
+edn = EDN.from_edn(edn_file)
+result = edn.tree               # XXX .tree?
+
+case $options.target
+when :basic, nil
+  pp result
+when :neat, :json
+  require 'neatjson'
+  puts JSON.neat_generate(result, after_comma: 1, after_colon: 1)
+when :yaml
+  puts result.to_yaml
+when :edn, :diag
+  puts result.cbor_diagnostic
+else
+  warn ["Unknown target format: ", $options.target].inspect
+end

data/edn-abnf.gemspec

@@ -0,0 +1,20 @@
+Gem::Specification.new do |s|
+  s.name = "edn-abnf"
+  s.version = "0.0.1"
+  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.executables = Dir['bin/*'].map {|x| File.basename(x)}
+  s.required_ruby_version = '>= 1.9.2'
+
+  s.require_paths = ["lib"]
+
+  s.add_development_dependency 'bundler', '~>1'
+  s.add_dependency 'treetop', '~>1'
+  s.add_dependency 'json', '~>2'
+  s.add_dependency 'neatjson', '~>0.10'
+end

data/lib/edn-abnf.rb

@@ -0,0 +1,41 @@
+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
+    reason << "#{$1.gsub("\n", '<<<NEWLINE>>>')}:" if $1
+    if line = s.lines.to_a[parser.failure_line - 1]
+      reason << line
+      reason << "#{'~' * (parser.failure_column - 1)}^"
+    end
+    reason.join("\n")
+  end
+
+  def self.from_edn(s)
+    ast = @@parser.parse s
+    if !ast
+      fail 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,19 @@
+require 'cbor-diagnostic'
+module CBOR_DIAG
+end
+require 'cbor-diagnostic-app/dt'
+
+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