lib/tap.rb in markdown_exec-1.3.0 vs lib/tap.rb in markdown_exec-1.3.1

@@ -9,34 +9,89 @@
 include Env
 
 ## application-level debug control
 #
 module Tap
-  $tap_enable = env_bool 'TAP_DEBUG'
+  DN = 'return'
+  NONE = 0x0
+  T1 = 1 # RESULT
+  T2 = 2 # CONTEXT
+  T3 = 4 # MONITOR
+  T4 = 8 # DUMP
+  ALL2 = 0x77
+  ALL = 0xFF
+  TDD = 0x11
+  TB1 = 0x22
+  TB2 = 0x44
+  TB3 = 0x88
+  TD = 0x0F
+  TD0 = 0x01
+  TD1 = 0x02
+  TD2 = 0x04
+  TP = 0xF0
+  TP0 = 0x10
+  TP1 = 0x20
+  TP2 = 0x40
 
-  def tap_config(enable: nil, envvar: nil, value: nil)
-    $tap_enable = if envvar
-                    env_bool envvar
-                  elsif value
-                    value.to_i != 0
-                  elsif enable
-                    enable
-                  end
+  # cast with message per tap_inspect type
+  # type: message
+  #
+  CVT = {
+    json: :to_json,
+    string: :to_s,
+    yaml: :to_yaml,
+    else: :inspect
+  }.freeze
+
+  $tap_enable = false
+  $tap_mask = ALL2
+
+  def tap_config(enable: true, envvar: nil, value: nil)
+    $tap_enable = false
+    if envvar
+      $tap_enable = (env_int envvar).positive?
+      $tap_mask = ALL2 if $tap_enable
+    elsif value
+      $tap_mask = value.to_i
+      $tap_enable = $tap_mask.positive?
+    elsif enable
+      $tap_mask = ALL2
+      $tap_enable = true
+    end
+    # puts "$tap_enable: #{$tap_enable}"
+    # puts "$tap_mask: #{$tap_mask.to_s(2)}"
   end
 
-  def tap_inspect(format: nil, name: 'return')
+  def tap_inspect(name_ = nil, caller0: nil, mask: TDD, name: DN, source: nil, type: nil)
     return self unless $tap_enable
+    return self unless (mask & $tap_mask).positive?
 
-    cvt = {
-      json: :to_json,
-      string: :to_s,
-      yaml: :to_yaml,
-      else: :inspect
-    }
-    fn = cvt.fetch(format, cvt[:else])
+    fn = CVT.fetch(type, CVT[:else])
+    outs = []
+    outs.push("#{source}") if source
+    outs.push("#{(caller0 || caller[0]).scan(/in `?(\S+)'$/)[0][0]}()") # if (mask & $tap_mask & TP).positive?
+    outs.push("#{name_ || name}: #{method(fn).call}") # if (mask & $tap_mask & TD).positive?
+    puts outs.join(' ') if outs.length.positive?
 
-    puts "-> #{caller[0].scan(/in `?(\S+)'$/)[0][0]}()" \
-         " #{name}: #{method(fn).call}"
-
     self
+  end
+
+  def tap_print(mask: TDD)
+    return self unless (mask & $tap_mask).positive?
+
+    print self
+  end
+
+  def tap_puts(name_ = nil, caller0: nil, mask: TDD, name: nil, type: nil)
+    # return self unless (mask & $tap_mask).positive?
+
+    if (name1 = name_ || name).present?
+      puts "#{name1}: #{self}"
+    else
+      puts self
+    end
+  end
+
+  def tap_yaml(name_ = nil, caller0: nil, mask: TDD, name: DN, source: nil)
+    tap_inspect name_, caller0: (caller0 || caller[0]), mask: mask, name: name, source: source, type: :yaml
   end
 end