bel_parser 1.0.0.alpha.39-java → 1.0.0.alpha.40-java

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: b7551ea8874262a96c2623bccbc0b78873f9d1f3
-  data.tar.gz: bd52f9cd988e9eb57fcea386da40ec33b71f7b32
+  metadata.gz: 30e9b124b70baa5376df25c5a4bb2bc4c1f71ec3
+  data.tar.gz: fcd4c0420366cf1be080fbd375afbd1361095545
 SHA512:
-  metadata.gz: 7d348dbd7674466b52d19a357b1561b9e02e6a7748931da8e0a32cee14c0b58fcdf11df308dce3e5f47360f1f15d079c07e967f3739a8098ed2384387675b64e
-  data.tar.gz: c288f3d3f77eae55d791ce8f272990a3c67b753a3fb7a77a0518cd6048974af9602a21ee01f20d0da79d5a02f85f0bf68f7d9b50b7e1d63a39d070ff93dca88f
+  metadata.gz: 1a895fada40d46968dec3e75798f13f29e50e6910c7395368bd55df4613db6441119dc056c9ca70ada8581bb49b02d7fd331f4642bec1238048c58b79c365bf9
+  data.tar.gz: 9ba3b8f935d458b5ddcd91f2fe216b49a4a1aab2ad6e4869869053a49d63e1dbc0b74171d40252ed80088ece168b42060f09ecb7d5cccd42c2d13db61d297341

data/VERSION

@@ -1 +1 @@
-1.0.0.alpha.39
+1.0.0.alpha.40

data/bin/bel_debug_ast

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+$LOAD_PATH.unshift(
+  File.join(File.expand_path(File.dirname(__FILE__)), '..', 'lib'))
+
+require 'optparse'
+require 'bel_parser'
+
+options = {}
+OptionParser.new do |opts|
+  opts.banner = <<-USAGE.gsub(/^ {4}/, '')
+    Debug the AST.
+
+    Read from a BEL file.
+    usage: #$PROGRAM_NAME --file [FILE]
+
+    Read from standard input.
+    usage: #$PROGRAM_NAME
+  USAGE
+
+  opts.on('-f', '--file FILE', 'BEL script file to read.') do |bel|
+    options[:file] = bel
+  end
+
+  opts.on('-c', '--[no-]complete', 'Output only complete AST.') do |c|
+    options[:complete] = c
+  end
+end.parse!
+
+file = options[:file]
+io   =
+  if file
+    File.open(file, external_encoding: 'UTF-8')
+  else
+    $stdin
+  end
+puts options[:complete]
+
+class ::AST::Node
+
+  def _metadata
+    ivars = instance_variables - [:@type, :@children, :@hash]
+    ivars.map { |iv| [iv, instance_variable_get(iv)] }.to_s
+  end
+  private :_metadata
+
+  def to_sexp(indent=0)
+    indented = "  " * indent
+    sexp = "#{indented}(#{fancy_type} #{_metadata}"
+
+    first_node_child = children.index do |child|
+      child.is_a?(::AST::Node) || child.is_a?(Array)
+    end || children.count
+
+    children.each_with_index do |child, idx|
+      if child.is_a?(::AST::Node) && idx >= first_node_child
+        sexp << "\n#{child.to_sexp(indent + 1)}"
+      else
+        sexp << " #{child.inspect}"
+      end
+    end
+
+    sexp << ")"
+
+    sexp
+  end
+end
+
+BELParser::ASTGenerator.new(io).each do |result|
+  line_number, line, asts = result
+  puts line
+  asts.each do |ast|
+    next if options[:complete] && ast.incomplete?
+    puts ast.to_sexp(1)
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: bel_parser
 version: !ruby/object:Gem::Version
-  version: 1.0.0.alpha.39
+  version: 1.0.0.alpha.40
 platform: java
 authors:
 - Anthony Bargnesi
@@ -42,6 +42,7 @@ dependencies:
 description: Implements language versions 1.0 and 2.0.
 email: abargnesi@selventa.com
 executables:
+- bel_debug_ast
 - bel2_validator
 - bel_script_reader
 extensions: []
@@ -53,6 +54,7 @@ files:
 - README.md
 - VERSION
 - bin/bel2_validator
+- bin/bel_debug_ast
 - bin/bel_script_reader
 - lib/bel/translator/plugins/bel_script.rb
 - lib/bel/translator/plugins/bel_script/bel_citation_serialization.rb