dbg_tags 1.0.1 → 1.1.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 0665b5e4280aea457cd828d6cfab8730c71502fc8e32daae72904bd60abe87b3
-  data.tar.gz: 7ad792027dc763687f856bdae2126d5ad8816b949dc4b16365420c78c9b3aa10
+  metadata.gz: aaad620ad2b1c43ee4fad44431ff99f22d5fe07f66dbb68eb11247246d99083e
+  data.tar.gz: e33c27bb2b870e18bd4a910ef0918db018174f89eb3aaf95c2619bca74e0dee6
 SHA512:
-  metadata.gz: 4cf3f313c0f1c54978f2b9e9538e99c80e8a9a3148fb85f03c5f63b87305db344e508745fce939e5dc94e32550a058515986cef7c282950450c506a61748e82c
-  data.tar.gz: 5bb9dafd4b182778c9e6ff07208cae8f9b6b713eef2c4ab4fef89c8d20e973faf06a9e442b28d627cc1180e4e6459250bb1a8f0431b7cd259d5e5c486652db57
+  metadata.gz: 660f4307b55f0c7b0ff5e029916b436f000346c31cca80e1956eaada5a71599a2e1e21f654bc0d8cd6dfb086e0489445a4f4385394ec4f558e8f8284a9aaee59
+  data.tar.gz: 5be152c20aa033ba1372d132b7f514a0ddbd5fe5da459148e9790f120ad5c342564e24402c344cfb61aee4e437aa16238380b13f9a86520fe624242f1c4ec00b

data/lib/dbg_tags.rb

@@ -3,45 +3,41 @@
 #
 #   # enabling
 #   # -----------
-# require 'dbg_tags'
+#   require 'dbg_tags'
 #
-# Tag.enable :feature1, :feature2..., featureN: :log, featureO: :val, ...
-# Tag.enable feature1: :trc, feature2: :val
-# Tag.enable feature: Tag::TRC
-# Tag.enable :dtl # enables ALL logging for :generic 
-# Tag.enable :val # enables val+trc+log+err for :generic only
-# Tag.enable :trc # enables trc+log+err for :generic only
-# Tag.enable :log # enables log+err tags for :generic
-# Tag.enable :err # enables err tags for :generic
-# Tag.enable # sets :generic to :trc
-# Tag.enable(...) do ... end
-# Tag.enable feature: nil
-# Tag.enable feature: :nil
-# Tag.enable all: :err    # :all is a default for ALL systems, including :generic
-# Tag.enable test: :err # switch on paranoia checking
-# Tag.enable feature: '>=trc'  # make sure at least level trc
+#   Tag.enable :feature1, :feature2..., featureN: :log, featureO: :val, ...
+#   Tag.enable feature1: :trc, feature2: :val
+#   Tag.enable feature: Tag::TRC
+#   Tag.enable :dtl # enables ALL logging for :generic 
+#   Tag.enable :val # enables val+trc+log+err for :generic only
+#   Tag.enable :trc # enables trc+log+err for :generic only
+#   Tag.enable :log # enables log+err tags for :generic
+#   Tag.enable :err # enables err tags for :generic
+#   Tag.enable # sets :generic to :trc
+#   Tag.enable(...) do ... end
+#   Tag.enable feature: nil
+#   Tag.enable feature: :nil
+#   Tag.enable all: :err    # :all is a default for ALL systems, including :generic
+#   Tag.enable test: :err # switch on paranoia checking
+#   Tag.enable feature: '>=trc'  # make sure at least level trc
 #
 #   # logging 
 #   # -----------
-# Tag.err 'text', short for Tag.err(:generic) 'text' 
+#   Tag.err 'text', short for Tag.err(:generic) 'text' 
 # 		    # :err should be used for fail states and paranoia stuff
-# Tag.log 'text' # prints very important messages only
-# Tag.trc 'text' # default level, method entries, for example
-# Tag.val 'text' # prints more details
-# Tag.dtl 'text' # likely prints megabytes of details
-# Tag.err :feature, 'FAILURE'
-# Tag.log :feature, 'log me'
-# Tag.trc :feature, 'called method'
-# Tag.val(:feature) { "text#{expr}" }
-# Tag.dtl(:feature) { "text#{very complicated expr}" }
-# Tag.err(:test) { raise 'aaaarg' if complex_paranoia_failure }
-# Tag.err(:test) { raise 'CANTHAPPEN' if complex_paranoia_failure }
+#   Tag.log 'text' # prints very important messages only
+#   Tag.trc 'text' # default level, method entries, for example
+#   Tag.val 'text' # prints more details
+#   Tag.dtl 'text' # likely prints megabytes of details
+#   Tag.err :feature, 'FAILURE'
+#   Tag.log :feature, 'log me'
+#   Tag.trc :feature, 'called method'
+#   Tag.val(:feature) { "text#{expr}" }
+#   Tag.dtl(:feature) { "text#{very complicated expr}" }
+#   Tag.err(:test) { raise 'aaaarg' if complex_paranoia_failure }
+#   Tag.err(:test) { raise 'CANTHAPPEN' if complex_paranoia_failure }
 
 module Tag
-
-  # the default is :trc
-  TAG_DEFAULT_LEVEL = 3
-
   # :all overrides the minimum level on ALL tags in the system
   TAG_FEATURE_ALL = :all
 
@@ -66,81 +62,26 @@ module Tag
   # level 5. Mostly used for exhaustive dumping of attribute values and minor details
   DTL = 5
 
+  # the default is :trc
+  TAG_DEFAULT_LEVEL = TRC 
+
   # nil and :nil will both map to NONE
   TAG_MAPPING =  { none: NONE, err: ERR, log: LOG, trc: TRC, val: VAL, dtl: DTL, 
                    nil: NONE,
                    nil => NONE
                  } # TAG_MAPPING
 
-  # @@enabled[:feature] => 0..5
-  @@enabled = {} 
-  @@stream = STDERR
-
-  module InstanceMethods
-    @@inside = false
-
-    # @param feature [Symbol,nil] Subsystem to print logging for. Fully dynamic/free
-    # @param msg [String,nil] 
-    # @note feature and msg can be switched
-    # @param block [Proc,nil] If set the result overrides and msg passed.
-    # The call is silently ignored if called from inside another Tag block (likely
-    #   a sign of a stack overflow in process).
-    # The call is silently ignored if the current tag level is too low.
-    # For trc it should be trc or val or dtl to actually print something.
-    # @!method trc feature = TAG_FEATURE_GENERIC, msg = '', &block
-
-    # see trc 
-    # !method err feature = TAG_FEATURE_GENERIC, msg = '', &block
-   
-    # see trc 
-    # !method log feature = TAG_FEATURE_GENERIC, msg = '', &block
-   
-    # see trc 
-    # !method val feature = TAG_FEATURE_GENERIC, msg = '', &block
- 
-    # see trc 
-    # !method dtl feature = TAG_FEATURE_GENERIC, msg = '', &block
-  
-    TAG_MAPPING.each do |meth, lev|
-      next if lev == NONE
-      define_method meth do |feature = TAG_FEATURE_GENERIC, msg = '', &msg_block|
-	msg, feature = feature, TAG_FEATURE_GENERIC if String === feature
-#STDERR.puts "DEBUGTAG #{meth}. feature=#{feature}, level=#{Tag.level(feature)}, lev=#{lev}"
-	return if @@inside || (Tag.level(feature) || Tag::NONE) < lev
-	# either msg OR msg_block must be set
-	if msg_block 
-	  prev_inside = @@inside
-	  begin
-	    @@inside = true
-	    msg = msg_block.call 
-	  ensure
-	    @@inside = prev_inside
-	  end
-	end
-        if msg
-          c = caller[0]
-  #STDERR.puts "DEBUGTAG c[#{idx}] = #{c}, caller[1]=#{caller[1]}, caller[2]=#{caller[2]}"
-          label = c[/\w+\.rb:\d+:in `[^']+'/]&.sub(/in `([^']+)'/, '\1:') ||
-                  c[/\w+\.rb:\d+:/] ||
-                  c[/[^:\/]+:\d+:/] || 
-                  c
-          Tag.stream.print "#{label} #{msg}\n"
-        end
-      end # Tag.err, Tag.log, Tag.trc, Tag.val, Tag.dtl
-    end # each
-
-    # inside? -> true if we are currently executing a block in err/log/trc/val or dtl.
-    def inside?; @@inside; end
-
-  end # module Tag::InstanceMethods
+  # This class stores an instance of the global state of the Tag system
+  class GlobalState
+    private
+    def initialize
+      # @enabled[:feature] => 0..5
+      @enabled = {}
+      @inside = false
+      @stream = STDERR
+    end # GlobalState.initialize
 
-  extend InstanceMethods
-  include InstanceMethods
-
-  class << self
-    private # class methods of Tag
-
-    # @param level_spec [Integer,Symbol,String]
+    # @param level_spec [Integer,Symbol,String,nil]
     # @param feature [Symbol]
     # @return [0..5]
     def debunk_level level_spec, feature
@@ -148,6 +89,7 @@ module Tag
 # OK    STDERR.puts "DEBUNK: level_spec=#{level_spec.inspect}, feature=#{feature.inspect}"
       case level_spec
       when 0..5 then return level_spec 
+      when nil then return NONE
       when Symbol
         r = TAG_MAPPING[level_spec] and return r 
       when /\A(err|log|trc|val|dtl)\z/
@@ -161,9 +103,21 @@ module Tag
       raise ArgumentError, "bad level #{level_spec.inspect}"
     end # Tag::debunk_level
 
-    public # class methods of Tag
+    public # methods of GlobalState
+
+    # @return [{Symbol} => 0..5]
+    attr :enabled
+
+    # @return [Bool] True if a Tag.err..dtl is currently active
+    attr_accessor :inside
+    alias inside? inside
 
-    # @param features [<Symbol>]
+    # @return [IO] Current output stream
+    attr_accessor :stream
+
+    # @param features [<Symbol>] To enable on :trc level
+    # @param opts [{Symbol => Symbol}] Keys are features, values levels.
+    # A block can be given to restore the original state afterwards
     # enable :feature, ...[, feature: level, ...] [block]
     # :generic is NO LONGER IMPLICETELY ENABLED as of version 1.0.0
     # Use :all to set a default for all features not mentioned otherwise
@@ -172,62 +126,138 @@ module Tag
     # Strings can be used in the shape of 'err' or '>=err' etc.
     # If '>=LVL' is used the level will not lower, if already set in an outer block.
     # If no level is specified for a feature the default is :trc (== TRC == 3)
-    # use nil or :none to disable all tags, even the ERR level ones.
+    # use nil, :nil, :none or Tag::NONE to disable all tags, even the ERR level ones.
     #
     # enable performs a merge with an existing enable.
     def enable *features, **opts
-      org_enabled = @@enabled.dup # to restore the state at the end (unused unless block_given)
+      org_enabled = @enabled.dup # to restore the state at the end (unused unless block_given)
       features.each do |feature|
         case feature
         when 0..5 # not a feature, apply to :generic
-          @@enabled[TAG_FEATURE_GENERIC] = feature 
+          @enabled[TAG_FEATURE_GENERIC] = feature 
         when Symbol
           if TAG_MAPPING[feature] # not a feature 
-            @@enabled[TAG_FEATURE_GENERIC] = TAG_MAPPING[feature]
+            @enabled[TAG_FEATURE_GENERIC] = TAG_MAPPING[feature]
           else
-            @@enabled[feature] = TAG_DEFAULT_LEVEL
+            @enabled[feature] = TAG_DEFAULT_LEVEL
           end
         when String
-          @@enabled[TAG_FEATURE_GENERIC] = debunk_level feature, TAG_FEATURE_GENERIC
+          @enabled[TAG_FEATURE_GENERIC] = debunk_level feature, TAG_FEATURE_GENERIC
         else
           raise ArgumentError "bad level #{feature.inspect}"
         end # case
       end # each
       opts.each do |feature, level|
         # OK        STDERR.puts "OPTION!!!!!!!!!!!!!!!!!, calling debunk_level"
-        @@enabled[feature] = debunk_level level, feature
+        @enabled[feature] = debunk_level level, feature
       end
       if features.empty? && opts.empty?
-        @@enabled[TAG_FEATURE_GENERIC] = TAG_DEFAULT_LEVEL
+        @enabled[TAG_FEATURE_GENERIC] = TAG_DEFAULT_LEVEL
       end
       if block_given?
-#        STDERR.puts "TAG: block_given!"
         begin
-#          STDERR.puts "TAG: yield!"
           yield
         ensure
-          @@enabled = org_enabled
+          @enabled = org_enabled
         end # ensure
       end # block_given?
-    end # Tag.enable
+    end # GlobalState.enable
+
+    # @param feature [Symbol]
+    # @return [0..5] Current effective level for feature.
+    def level feature
+      @enabled[feature] || @enabled[TAG_FEATURE_ALL] || Tag::NONE 
+    end # GlobalState.level
+  end # GlobalState
+
+  class << self
+
+    public # class methods of Tag
+
+    # @return [GlobalState] Thread local data 
+    def global_state
+      if gs = Thread.current[:dbg_tags_global_state]
+        gs
+      else
+        Thread.current[:dbg_tags_global_state] = GlobalState.new
+      end
+    end # Tag::global_state
+
+    # @param feature [Symbol,nil] Subsystem to print logging for. Fully dynamic/free
+    # @param msg [String,nil] 
+    # @note feature and msg can be switched
+    # @param block [Proc,nil] If set the result overrides and msg passed.
+    # The call is silently ignored if called from inside another Tag block (likely
+    # a sign of a stack overflow in process).
+    # The call is silently ignored if the current tag level is too low.
+    # For trc it should be trc or val or dtl to actually print something.
+    # @!method trc feature = TAG_FEATURE_GENERIC, msg = '', &block
+
+    # @!method err feature = TAG_FEATURE_GENERIC, msg = '', &block
+    # @see trc 
+   
+    # @!method log feature = TAG_FEATURE_GENERIC, msg = '', &block
+    # @see trc 
+   
+    # @!method val feature = TAG_FEATURE_GENERIC, msg = '', &block
+    # @see trc 
+ 
+    # @!method dtl feature = TAG_FEATURE_GENERIC, msg = '', &block
+    # @see trc 
+  
+    TAG_MAPPING.each do |meth, lev|
+      next if lev == NONE
+      define_method meth do |feature = TAG_FEATURE_GENERIC, msg = '', &msg_block|
+        state = global_state
+	msg, feature = feature, TAG_FEATURE_GENERIC if String === feature
+#STDERR.puts "DEBUGTAG #{meth}. feature=#{feature}, level=#{Tag.level(feature)}, lev=#{lev}"
+        return if state.inside? || (state.level(feature) || Tag::NONE) < lev
+	# either msg OR msg_block must be set
+	if msg_block
+          prev_inside = state.inside?
+	  begin
+            state.inside = true
+	    msg = msg_block.call 
+	  ensure
+            state.inside = prev_inside
+	  end
+	end
+        if msg
+          c = caller[0]
+  #STDERR.puts "DEBUGTAG c[#{idx}] = #{c}, caller[1]=#{caller[1]}, caller[2]=#{caller[2]}"
+          label = c[/\w+\.rb:\d+:in `[^']+'/]&.sub(/in `([^']+)'/, '\1:') ||
+                  c[/\w+\.rb:\d+:/] ||
+                  c[/[^:\/]+:\d+:/] || 
+                  c
+          state.stream.print "#{label} #{msg}\n"
+        end
+      end # Tag.err, Tag.log, Tag.trc, Tag.val, Tag.dtl
+    end # each
+
+    # inside? -> true if we are currently executing a block in err/log/trc/val or dtl.
+    def inside?; global_state.inside?; end
+
+    # @see GlobalState.enable
+    def enable(...); global_state.enable(...); end
 
     # @return [{Symbol=>0..5}] Keys are the features
-    def enabled; @@enabled; end
+    def enabled; global_state.enabled; end
 
     # @return [IO] By default this is STDERR
-    def stream; @@stream; end
+    def stream; global_state.stream; end
 
     # @param val [IO] 
     # Override the output stream.
-    def stream= val; @@stream = val; end
+    def stream= val; global_state.stream = val; end
 
     # @param feature [Symbol]
     # @return [0..5] Current effective level for feature.
     # 2023-08-14 no longer returns nil
-    def level feature; @@enabled[feature] || @@enabled[TAG_FEATURE_ALL] || Tag::NONE; end
+    def level feature; global_state.level feature; end
 
     # @param feature [Symbol]
     # @return [bool] Reflects explicit enable calls only. The :all feature is IGNORED
-    def enabled? feature; (@@enabled[feature] || NONE) > NONE; end
+    def enabled? feature; (global_state.enabled[feature] || NONE) > NONE; end
+
   end # singleton class Tag
 end # module Tag

data/spec/01_tag_spec.rb

@@ -175,6 +175,12 @@ describe 'tag' do
     end
   end
 
+  it 'is allowed to use nil for :nil in enable (tag_110)' do
+    Tag.enable feature: nil do
+      expect(Tag.enabled[:feature]).to eq Tag::NONE
+    end
+  end # it
+
   # however, it only works with LAZY calls. 
   # def to_s; Tag.trc "HERE in #{self}"; super; end 
   # will OBVIOUSLY cause a stack overflow.
@@ -246,6 +252,44 @@ describe 'tag' do
     end # it
   end # context 'Nested levels'
 
+  it 'has thread local data to prevent mix ups (tag_300)' do
+    t1 = Thread.new do
+      Tag.enable threads: :trc do
+        Tag.trc(:threads) {
+          expect(Tag.inside?).to be true
+          sleep 1
+          nil
+        }
+      end
+    end 
+    t2 = Thread.new do
+      sleep 0.2
+      expect(Tag.enabled).to eq({})
+      expect(Tag.inside?).to be false
+    end 
+    t1.join
+    t2.join
+  end # it
+
+  it 'each thread has a private tag system (tag_301)' do
+    Tag.enable threads: :trc do
+      expect(Tag.enabled).to eq({threads: 3})
+      t1 = Thread.new do
+        expect(Tag.enabled).to eq({})
+        Tag.enable threads: :log do
+          expect(Tag.enabled).to eq({threads: 2})
+          Tag.trc(:threads) {
+            expect(Tag.inside?).to be true
+            sleep 1
+            nil
+          }
+        end
+      end 
+      t1.join
+      expect(Tag.enabled).to eq({threads: 3})
+    end
+  end # it
+
   it 'does not allow levels out of range (tag_900)' do
     expect do
       Tag.enable nest: 24
@@ -263,4 +307,5 @@ describe 'tag' do
       Tag.enable nest: '>=foo'
     end.to raise_error ArgumentError, /bad level/i
   end # it
+
 end # describe

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: dbg_tags
 version: !ruby/object:Gem::Version
-  version: 1.0.1
+  version: 1.1.0
 platform: ruby
 authors:
 - Eugene Brazwick
-autorequire:
+autorequire: 
 bindir: bin
 cert_chain: []
-date: 2023-08-14 00:00:00.000000000 Z
+date: 2024-05-06 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rspec
@@ -66,7 +66,7 @@ homepage: https://github.com/Eugene-Brazwick/dbg_tags
 licenses:
 - GPL-3.0
 metadata: {}
-post_install_message:
+post_install_message: 
 rdoc_options: []
 require_paths:
 - lib
@@ -74,7 +74,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
-      version: '2.7'
+      version: '3.0'
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
@@ -82,7 +82,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubygems_version: 3.3.5
-signing_key:
+signing_key: 
 specification_version: 4
 summary: a versatile dynamic debug tracing system
 test_files: