x12-lite 0.3.6 → 0.4.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0e175feff272628ec0164f5df6f42d417ba303d8ac500b068b382c5f07c3a610
-  data.tar.gz: 88f3082cd0cf4e4222f511d79ac9514ec3a39c508ad707c3bc3a7cfa1bffab73
+  metadata.gz: 54a8c2fb07d59082d7803d063f97ac9252cbea9359a154233ca32c5890224c6e
+  data.tar.gz: af40d70fcb563fa5e463ebe4f48586357c804d964853ea383e8306e4ce649220
 SHA512:
-  metadata.gz: 155c80204f474bc905c854fb99403431bdb5dc179c9121c33fb05a2c1c8e24253257ddd184cdfcb2fb1922fadf642b53e6ebbfa5cc8d9cdd407c15ea015dde32
-  data.tar.gz: aee6f06c2b012a0955cc01966fcd06ead8efd499aa3dc1a62a097f0b911c0acc83ec045c13e97c899d9f3db6751a120c30ef9d093cb7de84e5fb19f7110b35cc
+  metadata.gz: 9d9f4ffd7f32426ec208d88b7a6b84e266b391ffb4e0a31b46a753e923199f6932c1afc2d5469c659e5870020e36ae469d22288952bc178031b0903b38ddf8da
+  data.tar.gz: fa9466f71e763b8c70641a5b5542938b7b527ca4924879e5f4635f1ba0a11aafcf9bf63134ab7628459926340fbc3a031f94357268da4cd98e8608f30e2bf41a

data/bin/x12

@@ -26,6 +26,7 @@ OptionParser.new.instance_eval do
   @banner  = "usage: #{program_name} [options] <file> <file> ..."
 
   on "-a", "--after <date>"  , "After (date as 'YYYYMMDD' or time as 'YYYYMMDD HHMMSS')"
+  on       "--ansi"          , "Use ANSI color codes to display values"
   on "-c", "--count"         , "Count messages at the end"
   on "-d", "--dive"          , "Dive into directories recursively"
 # on       "--delim <char>"  , "Delimiter to use"
@@ -36,10 +37,10 @@ OptionParser.new.instance_eval do
   on "-l", "--lower"         , "Show segment names in lowercase"
   on "-m", "--message"       , "Show message body"
   on "-p", "--path"          , "Show path for each message"
-# on "-q", "--query <value>" , "Query a specific value"
+  on "-q", "--query <value>" , "Query a specific value"
 # on "-r", "--repeats"       , "Show field repeats on their own line"
   on "-s", "--spacer"        , "Show an empty line between messages"
-# on "-t", "--tsv"           , "Tab-delimit output (tsv format)"
+  on "-t", "--tsv"           , "Tab-delimit output (tsv format)"
   on "-v", "--version"       , "Show version" do abort "v#{::X12::VERSION}"; end
 # on "-w", "--width  <width>", "Width of segment names", Integer
 
@@ -54,13 +55,14 @@ require "time" if opts["after"]
 time = Time.parse(opts["after"]) if opts["after"]
 dive = opts["dive"]
 only = opts["fields-only"] and opts["fields"] = true
-# quer = opts["query"].split(',').map(&:strip) if opts["query"]
-# from = quer.delete("-") if quer.is_a?(Array)
-# delm = opts["tsv"] ? "\t" : (opts["delim"] || "|")
-# delm = {"\\n" => "\n", "\\t" => "\t"}[delm] || delm
+quer = opts["query"].split(',').map(&:strip) if opts["query"]
+from = quer.delete("-") if quer.is_a?(Array)
+seps = opts["tsv"] ? "\t" : (opts["delim"] || "|")
+seps = {"\\n" => "\n", "\\t" => "\t"}[seps] || seps
 
 args = []
 # args << :deep if  opts["repeats"]
+args << :ansi if  opts["ansi"]
 args << :down if  opts["lower"]
 args << :full if  opts["message"] || opts.empty?
 args << :hide if !opts["fields"]
@@ -126,13 +128,13 @@ list.each do |file|
       abort "ERROR: malformed X12 file: \"#{file}\" (#{$!})" unless opts["ignore"]
       next
     end
-  # if quer
-  #   hits = *x12.find(*quer)
-  #   hits.unshift file if opts["path"] || from
-  #   puts hits.join(delm)
-  #   puts if opts["path"]
-  #   next
-  # end
+    if quer
+      hits = *x12.find(*quer)
+      hits.unshift file if opts["path"] || from
+      puts hits.join(seps)
+      puts if opts["path"]
+      next
+    end
     x12.show(*args)
     msgs += 1
   rescue => e

data/lib/x12-lite.rb

@@ -45,7 +45,7 @@ end
 # ==[ X12 ]=====================================================================
 
 class X12
-  VERSION="0.3.6"
+  VERSION="0.4.1"
 
   include Enumerable
 
@@ -59,6 +59,14 @@ class X12
     ! " # & ' ( ) * + , - . / : ; = ?
   end
 
+  REGEX = /^
+    (..[^-.(]?)            # seg: eb
+    (?:\((\d*|[+!?*]?)\))? # num: eb(3)
+    [-.]?(\d+)?            # fld: eb(3)-4
+    (?:\((\d*|[+!?*]?)\))? # rep: eb(3)-4(5)
+    [-.]?(\d+)?$           # com: eb(3)-4(5).6
+  /x
+
   # delimiter  pos chr
   # ---------- --- ---
   # field        4 (*)
@@ -156,9 +164,10 @@ class X12
     full = opts.include?(:full) # show body at top
     deep = opts.include?(:deep) # dive into repeats
     down = opts.include?(:down) # show segments in lowercase
-    list = opts.include?(:list) # give back a list or print it
+    list = opts.include?(:list) # puts output or return a list
     hide = opts.include?(:hide) # hide output
     only = opts.include?(:only) # only show first of each segment type
+    ansi = opts.include?(:ansi) # highlight data using ansi color codes
     left = opts.grep(Integer).first || 15 # left justify size
 
     out = full ? [to_s] : []
@@ -183,7 +192,7 @@ class X12
             end
           end
           tag = "#{seg}%s-#{j}" % [num > 1 && !only ? "(#{num})" : ""]
-          out << (tag.ljust(left) + ansi(fld, "fff", "369"))
+          out << (tag.ljust(left) + (ansi ? ansi(fld, "fff", "369") : fld))
         end
       end
     end
@@ -224,8 +233,8 @@ class X12
     val = args[1]
 
     # Syntax: seg(num)-fld(rep).com
-    pos =~ /^(..[^-.(]?)?(?:\((\d*|[+!?*]?)\))?[-.]?(\d+)?(?:\((\d*|[+!?*]?)\))?[-.]?(\d+)?$/
-    seg = $1 or return ""; want = /^#{seg}[^#{Regexp.escape(@seg)}\r\n]*/i
+    pos =~ REGEX or raise "bad selector '#{pos}'"
+    seg = $1; want = /^#{seg}[^#{Regexp.escape(@seg)}\r\n]*/i
     num = $2 && $2.to_i; new_num = $2 == "+"; ask_num = $2 == "?"; all_num = $2 == "*"
     rep = $4 && $4.to_i; new_rep = $4 == "+"; ask_rep = $4 == "?"; all_rep = $4 == "*"
     fld = $3 && $3.to_i; len > 1 && fld == 0 and raise "zero index on field"
@@ -389,6 +398,51 @@ class X12
     end
   end
 
+  def find(*ask)
+    return if ask.empty?
+
+    str = to_s
+    say = []
+
+    ask.each do |pos|
+      say.push(nil) && next if pos.nil?
+      pos =~ REGEX or raise "bad selector '#{pos}'"
+      seg = $1; want = /^#{seg}[^#{Regexp.escape(@seg)}\r\n]*/i
+      num = $2 && $2.to_i; new_num = $2 == "+"; ask_num = $2 == "?"; all_num = $2 == "*"
+      rep = $4 && $4.to_i; new_rep = $4 == "+"; ask_rep = $4 == "?"; all_rep = $4 == "*"
+      fld = $3 && $3.to_i
+      com = $5 && $5.to_i
+
+      if all_num
+        raise "multi query allows only one selector" if ask.size > 1
+        return str.scan(want).inject([]) do |ary, out|
+          out = loop do
+            out = out.split(@fld)[fld  ] or break if fld
+            break out.split(@rep).size if ask_rep
+            out = out.split(@rep)[rep - 1] or break if rep || (com && (rep ||= 1))
+            out = out.split(@com)[com - 1] or break if com
+            break out
+          end
+          ary << out if out
+          ary
+        end
+      end
+
+      say << loop do
+        out = ""
+        break str.scan( want).size if ask_num && !ask_rep
+        out = str.scan( want)[num - 1] or break "" if num ||= 1
+        out = out.split(@fld)[fld    ] or break "" if fld
+        break out.split(@rep).size if ask_rep
+        out = out.split(@rep)[rep - 1] or break "" if rep || (com && (rep ||= 1))
+        out = out.split(@com)[com - 1] or break "" if com
+        break out
+      end
+    end
+
+    say.size > 1 ? say : say.first
+  end
+
 #   def now(fmt="%Y%m%d%H%M%S")
 #     Time.now.strftime(fmt)
 #   end
@@ -544,62 +598,6 @@ class X12
 #       end
 #     end
 #   end
-#
-#   def find(*ask)
-#     return if ask.empty?
-#
-#     str = to_s
-#     say = []
-#
-#     seg = nil
-#
-#     ask.each do |pos|
-#       say.push(nil) && next if pos.nil?
-#       pos = pos.to_s unless pos.is_a?(String)
-#       pos =~ /^([A-Z]..)?(?:\((\d*|\?|\*)\))?[-.]?(\d+)?(?:\((\d*|\?|\*)\))?[-.]?(\d+)?[-.]?(\d+)?$/i or raise "bad query #{pos.inspect}"
-#       seg = $1 if $1; want = /^#{seg}.*/i
-#       num = $2 && $2.to_i; ask_num = $2 == "?"; all_num = $2 == "*"
-#       rep = $4 && $4.to_i; ask_rep = $4 == "?"; all_rep = $4 == "*"
-#       fld = $3 && $3.to_i
-#       com = $5 && $5.to_i
-#       sub = $6 && $6.to_i
-#
-#       # p [seg, num, rep, fld, com, sub]
-#
-#       msh = seg =~ /^MSH$/i # is this an MSH segment?
-#       fld -= 1 if msh && fld # MSH fields are offset by one
-#
-#       if all_num
-#         raise "multi query allows only one selector" if ask.size > 1
-#         return str.scan(want).inject([]) do |ary, out|
-#           out = loop do
-#             out = out.split(@fld)[fld  ] or break if fld
-#             break out.split(@rep).size if ask_rep
-#             out = out.split(@rep)[rep - 1] or break if rep || (com && (rep ||= 1)) # default to first
-#             out = out.split(@com)[com - 1] or break if com
-#             out = out.split(@sub)[sub - 1] or break if sub
-#             break out
-#           end
-#           ary << out if out
-#           ary
-#         end
-#       end
-#
-#       say << loop do
-#         out = ""
-#         break str.scan( want).size if ask_num && !ask_rep
-#         out = str.scan( want)[num - 1] or break "" if num ||= 1 # default to first
-#         out = out.split(@fld)[fld    ] or break "" if fld
-#         break out.split(@rep).size if ask_rep
-#         out = out.split(@rep)[rep - 1] or break "" if rep || (com && (rep ||= 1)) # default to first
-#         out = out.split(@com)[com - 1] or break "" if com
-#         out = out.split(@sub)[sub - 1] or break "" if sub
-#         break out
-#       end
-#     end
-#
-#     say.size > 1 ? say : say.first
-#   end
 end
 
 __END__

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: x12-lite
 version: !ruby/object:Gem::Version
-  version: 0.3.6
+  version: 0.4.1
 platform: ruby
 authors:
 - Steve Shreeve
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2024-10-18 00:00:00.000000000 Z
+date: 2024-10-21 00:00:00.000000000 Z
 dependencies: []
 description: Ruby gem to parse and generate X.12 transactions
 email: steve.shreeve@gmail.com