jpt 0.0.5 → 0.1.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 2556dc372f83257488713fad1a473be979587873c8cb31d0f4833c736d286533
-  data.tar.gz: cff64906279a4fdff9e10be53807e29a074c9d0ae3890ebbc756b9fd5ee49d41
+  metadata.gz: 11f0008d935a2ce891b13af68fe35da1984c733c6d36cc03a3490749ac5deaa6
+  data.tar.gz: fbe7f467057066b07c70fb6f37628f0b105b08e8da560af4f99f3a94aa3336d8
 SHA512:
-  metadata.gz: 964781ffc90ec14022559b5128a0cecbb50ac4f6ae4ce1e1fd1a5b57031c663efc6557b65626b187916eb6ce9ad0be169bc5a2a155f8c97c9652de8cc5355342
-  data.tar.gz: c2e910750fb6180465cf673f33232f103e6d4dcf772351bafeb2c468c2579ba25a51bab15395dadf046e69003617e4842accdac33dd0fef72046bcabd239a00a
+  metadata.gz: ecc6e9084048e7d9253fd14c175acc83e932caad33817790579d1f53000bca8efc89cf350fead4255b27fa9b72ec1fd67a6b67c9f0ccfbee4b1c9a23ee40b11e
+  data.tar.gz: 4a7a95f87230e35d9c5437aba5da7593f9a08bdbedabc09d56d4143dd72254e1c224c06f9fbc725d64a75a68c286db44ae601bb358af4926c8ac1c56c8708e23

data/bin/jpt

@@ -23,6 +23,9 @@ begin
     opts.on("-l", "--[no-]lines", "multi-line mode") do |v|
       $options.lines = v
     end
+    opts.on("-q", "--[no-]test", "test-file mode") do |v|
+      $options.test = v
+    end
     opts.on("-fFUNCSIG", "--[no-]f=FUNCSIG", "add function signature name=rppp") do |v|
       fail "funcsig format must be name=rppp" unless v =~ /\A([a-z][_a-z0-9]*)-([lnv]+)\z/
       
@@ -44,7 +47,30 @@ if ARGV == []
 end
 jp_file = ARGF.read
 
-if $options.lines
+if $options.test
+  argument = query = output = nil
+  jp_file.scan(/((?:^(?:$|[^$=].*)\n)+)|([$].*)|=(.*)|#.*/) do |arg,qy,out|
+    begin
+      if arg
+        argument = JSON.parse(arg)
+        puts
+        puts JSON.dump(argument)
+      elsif qy
+        jpt = JPT.from_jp(qy)
+        output = jpt.apply(argument)
+        print jpt.tree.inspect << " "
+        puts "➔ #{JSON.dump(output)}"
+      elsif out
+        suggested = JSON.parse(out)
+        if output != suggested
+          p [:SUGGESTED, suggested]
+        end
+      end
+    rescue => e
+      warn "*** #{e.detailed_message} #{e.backtrace}"
+    end
+  end
+elsif $options.lines
   lines = jp_file.lines(chomp: true)
   col = lines.map(&:length).max
   form = "%-#{col}s %s"

data/jpt.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name = "jpt"
-  s.version = "0.0.5"
+  s.version = "0.1.0"
   s.summary = "JSONPath tools"
   s.description = %q{jpt implements converters and miscellaneous tools for JSONPath}
   s.author = "Carsten Bormann"

data/lib/jpt.rb

@@ -89,4 +89,249 @@ class JPT
     Marshal.load(Marshal.dump(self))
   end
 
+  def apply(arg)
+    nodes = [arg]
+    select_query(tree, nodes, nodes, :error)
+  end
+
+  def select_query(tree, nodes, root_node, curr_node)
+    case tree
+    in ["$", *segments]
+      nodes = root_node
+      segments.each do |seg|
+        nodes = select_segment(seg, nodes, root_node, curr_node)
+      end
+    in ["@", *segments]
+      nodes = curr_node
+      segments.each do |seg|
+        nodes = select_segment(seg, nodes, root_node, curr_node)
+      end
+    end
+    nodes
+  end
+
+  def select_segment(seg, nodes, root_node, curr_node)
+    case seg
+    in Integer => ix
+      nodes = nodes.flat_map do |n|
+        if Array === n
+         [n.fetch(ix, :nothing)]
+        else []
+        end
+      end
+    in String => ky
+      nodes = nodes.flat_map do |n|
+        if Hash === n
+          [n.fetch(ky, :nothing)]
+        else []
+        end
+      end
+    in ["u", *sel]
+#      nodes = sel.flat_map{ |sel1| select_segment(sel1, nodes, root_node, curr_node)}
+      nodes = nodes.flat_map do |n|
+        sel.flat_map{ |sel1| select_segment(sel1, [n], root_node, curr_node)}
+      end
+    in ["wild"]
+      nodes = nodes.flat_map do |n|
+        enumerate(n)
+      end
+    in ["desc", sel]
+      nodes = nodes.flat_map do |n|
+        containers(n)
+      end
+      nodes = select_segment(sel, nodes, root_node, curr_node)
+    in ["slice", st, en, sp]
+      nodes = nodes.flat_map do |n|
+        if (Array === n) && sp != 0
+          len = n.length
+          ret = []
+          sp ||= 1
+          if sp > 0             # weird formulae copied from spec
+            st ||= 0
+            en ||= len
+          else
+            # warn "ARR #{st} #{en} #{sp}"
+            st ||= len - 1
+            en ||= -len - 1
+            # warn "ARR2 #{st} #{en} #{sp}"
+          end
+          st, en = [st, en].map{|i| i >= 0 ? i : len + i}
+          if sp > 0
+            lo = [[st, 0].max, len].min
+            up = [[en, 0].max, len].min
+            while lo < up
+              ret << n[lo]; lo += sp
+            end
+          else
+            up = [[st, -1].max, len-1].min
+            lo = [[en, -1].max, len-1].min
+            # warn "ARR3 #{st} #{en} #{sp} #{lo} #{up}"
+            while lo < up
+              ret << n[up]; up += sp
+            end
+          end
+          ret
+        else
+          []
+        end
+      end
+    in ["filt", logexp]
+      nodes = nodes.flat_map do |n|
+        enumerate(n).flat_map do |cand|
+          a = filt_apply(logexp, root_node, [cand])
+          # warn "***A #{a.inspect}"
+          if filt_to_logical(a)
+            [cand]
+          else
+            []
+          end
+        end
+      end
+    end
+    nodes.delete(:nothing)
+    nodes
+  end
+
+  def enumerate(n)
+    case n
+    in Array
+      n
+    in Hash
+      n.map{|k, v| v}
+    else
+      []
+    end
+  end
+
+  def containers(n)
+    case n
+    in Array
+      [n, *n.flat_map{containers(_1)}]
+    in Hash
+      [n, *n.flat_map{|k, v| containers(v)}]
+    else
+      []
+    end
+  end
+
+  def filt_to_logical(val)
+    case val
+    in [:nodes, v]
+      v != []
+    in [:logical, v]
+      v
+    end
+  end
+
+  def filt_to_value(val)
+    case val
+    in [:nodes, v]
+      if v.length == 1
+        v[0]
+      else
+        :nothing
+      end
+    in [:value, v]
+      v
+    end
+  end
+
+  COMPARE_SWAP = {">" => "<", ">=" => "<="}
+
+  def filt_apply(logexp, root_node, curr_node)
+    # warn "***B #{logexp.inspect} #{root_node.inspect} #{curr_node.inspect}"
+    case logexp
+    in ["@", *]
+      [:nodes, select_query(logexp, curr_node, root_node, curr_node)]
+    in ["$", *]
+      [:nodes, select_query(logexp, root_node, root_node, curr_node)]
+    in [("==" | "!=" | "<" | ">" | "<=" | ">="), a, b]
+      lhs = filt_to_value(filt_apply(a, root_node, curr_node)) rescue :nothing
+      rhs = filt_to_value(filt_apply(b, root_node, curr_node)) rescue :nothing
+      op = logexp[0]
+      # warn "***C #{op} #{lhs.inspect}, #{rhs.inspect}"
+      if sop = COMPARE_SWAP[op]
+        lhs, rhs = rhs, lhs
+        op = sop
+      end
+      # warn "***C1 #{op} #{lhs.inspect}, #{rhs.inspect}"
+      res = if op != "<" && (lhs == rhs rescue false)
+              op == "!=" ? false : true
+            else
+              if op[0] == "<"   # "<" or "<="
+                case [lhs, rhs]
+                in Numeric, Numeric
+                  lhs < rhs
+                in String, String
+                  lhs < rhs
+                else
+                  false
+                end
+              else op == "!="
+              end
+            end
+      # warn "***C9 #{res}"
+      [:logical, res]
+    in ["and" | "or", a, b]
+      lhs = filt_to_logical(filt_apply(a, root_node, curr_node))
+      rhs = filt_to_logical(filt_apply(b, root_node, curr_node))
+      op = logexp[0]
+      # warn "***C #{op} #{lhs.inspect}, #{rhs.inspect}"
+      [:logical, case op
+                 in "or"
+                   lhs || rhs
+                 in "and"
+                   lhs && rhs
+                 end]
+    in ["not", a]
+      lhs = filt_to_logical(filt_apply(a, root_node, curr_node))
+      [:logical, !lhs]
+    in ["func", "length", value]
+      value = filt_to_value(filt_apply(value, root_node, curr_node))
+      [:value,
+       case value
+       in Hash | Array | String
+         value.length
+       else
+         :nothing
+       end
+      ]
+    in ["func", "count", nodes]
+      ty, nodes = filt_apply(nodes, root_node, curr_node)
+      [:value,
+       if ty != :nodes
+         warn "*** func count ty #{ty.inspect}"
+         0
+       else
+         nodes.length
+       end]
+    in ["func", "match", str, re]
+      str = filt_to_value(filt_apply(str, root_node, curr_node))
+      re = filt_to_value(filt_apply(re, root_node, curr_node))
+      [:logical,
+       begin
+         /\A(?:#{re})\z/ === str
+       rescue => e
+         warn "*** #{e.detailed_message} #{e.backtrace}"
+         false
+       end
+      ]
+    in ["func", "search", str, re]
+      str = filt_to_value(filt_apply(str, root_node, curr_node))
+      re = filt_to_value(filt_apply(re, root_node, curr_node))
+      [:logical,
+       begin
+         /#{re}/ === str
+       rescue => e
+         warn "*** #{e.detailed_message} #{e.backtrace}"
+         false
+       end
+      ]
+    in ["func", name, *args]
+      warn "*** Unknown function extension #{name} with args #{args.inspect}"
+      [:logical, false]
+    in String | Numeric | false | true | nil
+      [:value, logexp]
+    end
+  end
 end

data/lib/parser/jptgrammar.rb

@@ -2974,7 +2974,7 @@ module JPTGRAMMAR
 
   module AbsSingularPath1
     def ast
-      ["@", *singular_path_segments.ast]
+      ["$", *singular_path_segments.ast]
     end
   end
 

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: jpt
 version: !ruby/object:Gem::Version
-  version: 0.0.5
+  version: 0.1.0
 platform: ruby
 authors:
 - Carsten Bormann
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2023-02-21 00:00:00.000000000 Z
+date: 2023-02-23 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler