support.rb in activefacts-1.1.0

- old
+ new

@@ -1,111 +1,13 @@
 #
 #       ActiveFacts Support code.
-#       The debug method supports indented tracing.
-#       Set the DEBUG environment variable to enable it. Search the code to find the DEBUG keywords, or use "all".
+#       The trace method supports indented tracing.
+#       Set the TRACE environment variable to enable it. Search the code to find the TRACE keywords, or use "all".
 #
 # Copyright (c) 2009 Clifford Heath. Read the LICENSE file.
 #
-#module ActiveFacts
-  $debug_indent = 0
-  $debug_nested = false   # Set when a block enables all enclosed debugging
-  $debug_keys = nil
-  $debug_available = {}
 
-  def debug_initialize
-    # First time, initialise the tracing environment
-    $debug_indent = 0
-    unless $debug_keys
-      $debug_keys = {}
-      if (e = ENV["DEBUG"])
-	e.split(/[^_a-zA-Z0-9]/).each{|k| debug_enable(k) }
-	if $debug_keys[:help]
-	  at_exit {
-	    $stderr.puts "---\nDebugging keys available: #{$debug_available.keys.map{|s| s.to_s}.sort*", "}"
-	  }
-	end
-      end
-    end
-  end
-
-  def debug_keys
-    $debug_available.keys
-  end
-
-  def debug_enabled key
-    !key.empty? && $debug_keys[key.to_sym]
-  end
-
-  def debug_enable key
-    !key.empty? && $debug_keys[key.to_sym] = true
-  end
-
-  def debug_disable key
-    !key.empty? && $debug_keys.delete(key.to_sym)
-  end
-
-  def debug_toggle key
-    !key.empty? and debug_enabled(key) ? (debug_disable(key); false) : (debug_enable(key); true)
-  end
-
-  def debug_selected(args)
-    # Figure out whether this trace is enabled (itself or by :all), if it nests, and if we should print the key:
-    key =
-      if Symbol === args[0]
-        control = args.shift
-        if (s = control.to_s) =~ /_\Z/
-          nested = true
-          s.sub(/_\Z/, '').to_sym     # Avoid creating new strings willy-nilly
-        else
-          control
-        end
-      else
-        :all
-      end
-
-    $debug_available[key] ||= key   # Remember that this debug was requested, for help
-    enabled = $debug_nested ||      # This debug is enabled because it's in a nested block
-              $debug_keys[key] ||   # This debug is enabled in its own right
-              $debug_keys[:all]     # This debug is enabled because all are
-    $debug_nested = nested
-    [
-      (enabled ? 1 : 0),
-      $debug_keys[:all] ? " %-15s"%control : nil
-    ]
-  end
-
-  def debug_show(*args)
-    unless $debug_keys
-      debug_initialize
-    end
-
-    enabled, key_to_show = debug_selected(args)
-
-    # Emit the message if enabled or a parent is:
-    if args.size > 0 && enabled == 1
-      puts "\##{key_to_show} " +
-        '  '*$debug_indent +
-        args.
-#          A laudable aim, certainly, but in practise the Procs leak and slow things down:
-#          map{|a| a.respond_to?(:call) ? a.call : a}.
-          join(' ')
-    end
-    $debug_indent += enabled
-    enabled
-  end
-
-  def debug(*args, &block)
-    begin
-      old_indent, old_nested, enabled  = $debug_indent, $debug_nested, debug_show(*args)
-      return (block || proc { enabled == 1 }).call
-    ensure
-      $debug_indent, $debug_nested = old_indent, old_nested
-    end
-  end
-
-#end
-
 # Return all duplicate objects in the array (using hash-equality)
 class Array
   def duplicates(&b)
     inject({}) do |h,e|
       h[e] ||= 0
@@ -153,36 +55,80 @@
     end
     self
   end
 end
 
-# Load the ruby debugger before everything else, if requested
-if debug :debug or debug :firstaid
-  begin
-    require 'ruby-debug'
-    Debugger.start # (:post_mortem => true)  # Some Ruby versions crash on post-mortem debugging
-  rescue LoadError
-    # Ok, no debugger, tough luck.
-  end
+class String
+  class Words
+    def initialize words
+      @words = words
+    end
 
-  if debug :trap
-    trap('SIGINT') do
-      puts "Stopped at:\n\t"+caller*"\n\t"
-      debugger
-      true
+    def map(&b)
+      @words.map(&b)
     end
-  end
 
-  if debug :firstaid
-    puts "Preparing first aid kit"
-    class ::Exception
-      alias_method :firstaid_initialize, :initialize
+    def to_s
+      titlecase
+    end
 
-      def initialize *args, &b
-	send(:firstaid_initialize, *args, &b)
-	puts "Stopped due to #{self.class}: #{message} at "+caller*"\n\t"
-	debugger
-	true # Exception thrown
+    def titlewords
+      @words.map do |word|
+	word[0].upcase+word[1..-1].downcase
       end
     end
+
+    def titlecase
+      titlewords.join('')
+    end
+
+    def capwords
+      @words.map do |word|
+	word[0].upcase+word[1..-1]
+      end
+    end
+
+    def capcase
+      capwords.join('')
+    end
+
+    def camelwords
+      count = 0
+      @words.map do |word|
+	if (count += 1) == 1
+	  word
+	else
+	  word[0].upcase+word[1..-1].downcase
+	end
+      end
+    end
+
+    def camelcase
+      camelwords.join('')
+    end
+
+    def snakewords
+      @words.map do |w|
+	w.downcase
+      end
+    end
+
+    def snakecase
+      snakewords.join('_')
+    end
+
+    def to_a
+      @words
+    end
+
+    def +(words)
+      Words.new(@words + Array(words))
+    end
   end
+
+  def words
+    Words.new(
+      self.split(/(?:[^[:alnum:]]+|(?<=[[:alnum:]])(?=[[:upper:]][[:lower:]]))/).reject{|w| w == '' }
+    )
+  end
 end
+