bel_parser 1.0.0.alpha.39 → 1.0.0.alpha.40

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: d3aede808d524d36fafe0efeb43d9d6651825613
-  data.tar.gz: af028962f8287a8ab90c55986c64d0a672fe0d4d
+  metadata.gz: 49dc04e6434ed52aa219e556b0530d85fb76d5c0
+  data.tar.gz: 67394227d0f35686728dec0a69bdef1e8ea29d47
 SHA512:
-  metadata.gz: ab88160328edfa156d8d68c923185c2f990e90c5241bff1a9f02910937be68e0b1b5eee2f0ad6baf89dc67dc60bfde7336275e8527ddba9b79a8d512986084ed
-  data.tar.gz: 0116856a8636054b286baab80c1d378cbb7558710ec68a1c0e84ea2bd549aafb906ec3cd5694d4cc1716a91dfb601e65b7c801a0ae8405690671df8f2b37dc77
+  metadata.gz: 20da1b048d27a0caca8fafa18f94750611112b1ce872308beb0953caa7d2e16c47907196a406a897d3c6ae3c87f440fb83c71175b2731f0a6cec034e86658c0d
+  data.tar.gz: af8d8cad4e43a61b7903a3d2840a158190a44ae4cecb3a61be18188ce4477b0f2f1b7676b7be775c79165bd310f4e2d5e07fd18090538fcc7cb984439934f3d8

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: ruby
 authors:
 - Anthony Bargnesi
@@ -28,6 +28,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: []
@@ -39,6 +40,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