rmtools 1.1.6 → 1.1.9

data/Manifest.txt

@@ -55,6 +55,7 @@ lib/rmtools/debug/observing.rb
 lib/rmtools/debug/traceback.rb
 lib/rmtools/debug/binding.rb
 lib/rmtools/debug/logging.rb
+lib/rmtools/debug/trace_format.rb
 lib/rmtools/debug/highlight.rb
 lib/rmtools/debug/timer.rb
 lib/rmtools/fs.rb
@@ -64,7 +65,7 @@ lib/rmtools/functional.rb
 lib/rmtools/load.rb
 lib/rmtools/experimental.rb
 lib/rmtools/install.rb
-lib/rmtools/functional/string_to_proc.rb
+lib/rmtools/functional/decorate.rb
 lib/rmtools/functional/fold.rb
 lib/rmtools/functional/unfold.rb
 lib/rmtools/text.rb
@@ -97,5 +98,4 @@ lib/rmtools_no_b.rb
 ./Rakefile
 ./Manifest.txt
 ./License.txt
-./README.txt
-./History.txt
+./README.txt

data/README.txt

@@ -7,4 +7,32 @@ This work is licensed under the same license as Ruby language.
 Methods for basic classes addon collection.
 
 == CHANGES
-:include: History.txt
+
+=== Version 1.1.8
+
+* Deleted String#to_proc. It's anyway inconsistent and causes bug in ActiveRecord 3.0.5 Base#interpolate_and_sanitize_sql and potentially somewhere else
+* Solved problem with String#sub methods in 1.9: that's associated with String#to_hash in some mystic way. #to_hash is now #to_params
+* Completed Binding#inspect_env
+
+=== Version 1.1.7
+
+* Cosmetic fixes for txts here
+
+=== Version 1.1.6
+
+* Rewrited few functions
+* Fixed bug with RDoc and RI
+* Compatible with 1.9
+* Binding#start_interaction and RMTools::Observer for debugging purposes
+* To require any file from lib/rmtools now RMTools::require is used
+* In order to not overload Rails apps initialization tracing is lightened and gem now may be also required as "rmtools_nodebug" and "rmtools_notrace"
+
+=== Version 1.1.0
+
+* Fixed some bugs
+* Divided by semantics
+* Compatible with ruby 1.8.7 (2010-08-16 patchlevel 302)
+
+=== Version 1.0.0
+
+* Divided by classes and packed as gem

data/Rakefile

@@ -2,19 +2,18 @@ require 'rake'
 require 'lib/rmtools/install'
 compile_manifest
 
-RMTOOLS_VERSION = '1.1.6'
+RMTOOLS_VERSION = '1.1.9'
 begin
     require 'hoe'
-    config = Hoe.spec 'rmtools' do |h|
-        h.developer("Shinku", "tinbka@gmail.com")
+    config = Hoe.spec 'rmtools' do
+        developer("Shinku", "tinbka@gmail.com")
 
-        h.summary = 'Yet another Ruby applied framework'
-        h.description = h.paragraphs_of('README.txt', 2..3).join("\n\n")
-        h.changes = h.paragraphs_of('History.txt', 0..1).join("\n\n")
-        h.url = 'http://github.com/tinbka'
+        self.summary = 'Yet another Ruby applied framework'
+        self.description = 'Applied framework primarily for debug and text/arrays/files operation.'
+        self.changes = paragraphs_of('README.txt', 5..-1).join("\n\n")
+        self.url = 'http://github.com/tinbka'
        
-        h.extra_deps << ['rake','>= 0.8.7']
-        h.extra_deps << ['activesupport','>= 2.3.8']
+        self.extra_deps = [['rake','>= 0.8.7'], ['activesupport','>= 2.3.8']]
     end
     config.spec.extensions << 'ext/extconf.rb'
 rescue LoadError
@@ -25,7 +24,7 @@ rescue Exception => e
 end
 
 ruby  = RbConfig::CONFIG['RUBY_INSTALL_NAME']
-windoze = PLATFORM =~ /mswin32/
+windoze = RUBY_PLATFORM =~ /mswin32/
 make = windoze ? 'nmake' : 'make'
 
 Dir.chdir "ext" do

data/ext/rmtools.cpp

@@ -54,7 +54,7 @@ static VALUE rb_ary_string_transpose(VALUE ary)
             for (j=0; j<elen; j++) rb_ary_store(result, j, rb_str_new("", 0));
         }
         else if (elen != RSTRING_LEN(tmp))
-            rb_raise(rb_eIndexError, "element size differs (%d should be %d)",
+            rb_raise(rb_eIndexError, "element size differs (%ld should be %ld)",
                      RARRAY_LEN(tmp), elen);
         for (j=0; j<elen; j++) rb_str_buf_cat(RARRAY_PTR(result)[j], &(RSTRING_PTR(tmp)[j]), 1);
     }
@@ -82,7 +82,7 @@ static VALUE rb_ary_turn_ccw(VALUE ary)
     for (i=0; i<alen; i++) {
         if (i) tmp = RARRAY_PTR(ary)[i];
         if (elen != RSTRING_LEN(tmp))
-            rb_raise(rb_eIndexError, "element size differs (%d should be %d)",
+            rb_raise(rb_eIndexError, "element size differs (%ld should be %ld)",
                      RARRAY_LEN(tmp), elen);
         for (j=0; j<elen; j++) rb_str_buf_cat(RARRAY_PTR(result)[j], &(RSTRING_PTR(tmp)[elen-1-j]), 1);
     }
@@ -93,7 +93,7 @@ static VALUE rb_ary_turn_ccw(VALUE ary)
     for (i=0; i<alen; i++) {
         if (i) tmp = RARRAY_PTR(ary)[i];
         if (elen != RARRAY_LEN(tmp))
-            rb_raise(rb_eIndexError, "element size differs (%d should be %d)",
+            rb_raise(rb_eIndexError, "element size differs (%ld should be %ld)",
                      RARRAY_LEN(tmp), elen);
         for (j=0; j<elen; j++) rb_ary_store(RARRAY_PTR(result)[j], i, RARRAY_PTR(tmp)[elen-1-j]);
     }
@@ -123,7 +123,7 @@ static VALUE rb_ary_turn_cw(VALUE ary)
     for (i=alen-1; i>-1; i--) {
         tmp = RARRAY_PTR(ary)[i];
         if (elen != RSTRING_LEN(tmp))
-            rb_raise(rb_eIndexError, "element size differs (%d should be %d)",
+            rb_raise(rb_eIndexError, "element size differs (%ld should be %ld)",
                      RARRAY_LEN(tmp), elen);
         for (j=0; j<elen; j++) rb_str_buf_cat(RARRAY_PTR(result)[j], &(RSTRING_PTR(tmp)[j]), 1);
     }
@@ -134,7 +134,7 @@ static VALUE rb_ary_turn_cw(VALUE ary)
     for (i=0; i<alen; i++) {
         if (i) tmp = RARRAY_PTR(ary)[i];
         if (elen != RARRAY_LEN(tmp))
-            rb_raise(rb_eIndexError, "element size differs (%d should be %d)",
+            rb_raise(rb_eIndexError, "element size differs (%ld should be %ld)",
                      RARRAY_LEN(tmp), elen);
         for (j=0; j<elen; j++) rb_ary_store(RARRAY_PTR(result)[j], elen-1-i, RARRAY_PTR(tmp)[j]);
     }
@@ -150,7 +150,7 @@ static VALUE rb_ary_turn_cw(VALUE ary)
 static VALUE rb_str_disjunction(VALUE self, VALUE str)
 {
   if (RSTRING_LEN(self) != RSTRING_LEN(str))
-    rb_raise(rb_eIndexError, "strings sizes differs (%d and %d)",
+    rb_raise(rb_eIndexError, "strings sizes differs (%ld and %ld)",
                      RSTRING_LEN(self), RSTRING_LEN(str));
   VALUE new_str = rb_str_new("", 0);
   int i;
@@ -171,7 +171,7 @@ static VALUE rb_str_disjunction(VALUE self, VALUE str)
 static VALUE rb_str_conjunction(VALUE self, VALUE str)
 {
   if (RSTRING_LEN(self) != RSTRING_LEN(str))
-    rb_raise(rb_eIndexError, "strings sizes differs (%d and %d)",
+    rb_raise(rb_eIndexError, "strings sizes differs (%ld and %ld)",
                      RSTRING_LEN(self), RSTRING_LEN(str));
   VALUE new_str = rb_str_new("", 0);
   int i;

data/lib/rmtools.rb

@@ -1,5 +1,6 @@
 # encoding: utf-8
 SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
+$__MAIN__ = self
 require 'rmtools/load'
 RMTools::require 'b'
 RMTools::require 'debug'

data/lib/rmtools/conversions/string.rb

@@ -3,8 +3,8 @@ require 'cgi'
 
 class String
 
-  # with default delimiters - inversion of #urlencode
-  def to_hash(unscp=true, params_delim='&', k_v_delim='=')
+  # with default delimiters - the opposite of #urlencode
+  def to_params(unscp=true, params_delim='&', k_v_delim='=')
     params = split(params_delim)
     h = {}
     params.each {|par|
@@ -18,7 +18,7 @@ class String
     h
   end
   
-  # inversion of #to_json
+  # the opposite of #to_json
   # active support activesupport
   def from_json
     ActiveSupport::JSON.decode self

data/lib/rmtools/core/class.rb

@@ -39,6 +39,11 @@ class Class
     (self.public_instance_methods - self.superclass.public_instance_methods).sort!.grep(filter)
   end
   
+  # differs with #ancestors in that it doesn't show included modules
+  def superclasses
+    unfold(lambda {|c|!c}) {|c| [c.superclass, c]} 
+  end
+  
 end
 
 [Hash, Regexp, File, Dir].each {|klass| klass.__init__}

data/lib/rmtools/core/module.rb

@@ -13,12 +13,12 @@ class Module
   end
   
   def children
-    constants.map! {|c| module_eval c}.find_all {|c| c.kinda Module rescue()}
+    constants.map! {|c| module_eval c.to_s}.find_all {|c| c.kinda Module rescue()}
   end
                 
   def each_child
-    constants.map! {|c| module_eval c}.each {|c| yield c if c.kinda Module}
-    constants
+    (cs = constants.map! {|c| module_eval c.to_s}).each {|c| yield c if c.kinda Module}
+    cs
   end
   
   def self_name
@@ -30,58 +30,5 @@ class Module
   end
   alias personal_methods my_methods
   
-private
-  #   example:
-  #
-  #   def divide_ten_by x
-  #       10 / x
-  #   end
-  #
-  #   def maybe(*args)
-  #       yield *args rescue(puts $!) 
-  #   end
-  #    ...
-  #  
-  #   decorate :divide_ten_by, :maybe  #  =>
-  #   def divide_ten_by x
-  #       10 / x rescue(puts $!)
-  #   end
-  def decorate f1, f2
-    f1_clone = f1.to_s.dup
-    f1_clone.bump! '_' while private_method_defined? f1_clone.to_sym
-    class_eval(<<-EVAL, __FILE__, __LINE__+1
-      alias #{f1_clone} #{f1}
-      private :#{f1_clone}
-      def #{f1}(*args) #{f2}(*args, &method(:#{f1_clone})) end
-    EVAL
-    )
-  end
-  
-  #   some FP, example:
-  #
-  #   def divide_ten_by x
-  #       10 / x
-  #   end
-  #
-  #   def maybe
-  #       lambda {|*args| yield *args rescue(puts $!)} 
-  #   end
-  #    ...
-  #  
-  #   decorated_fof :divide_ten_by, :maybe  #  =>
-  #   def divide_ten_by
-  #       lambda {|x| 10 / x rescue(puts $!)}
-  #   end
-  def decorated_fof f1, f2
-    f1_clone = f1.to_s.dup
-    f1_clone.bump! '_' while private_method_defined? f1_clone
-    class_eval(<<-EVAL, __FILE__, __LINE__+1
-      alias #{f1_clone} #{f1}
-      private :#{f1_clone}
-      def #{f1}() #{f2}(&method(:#{f1_clone})) end
-    EVAL
-    )
-  end
-  
 end
 

data/lib/rmtools/core/string_compliance.rb

@@ -1,59 +1,7 @@
 # encoding: utf-8
-class String
-
-  if RUBY_VERSION < "1.9"
+# Problem with subs is solved, so now here will be only #ord
+if RUBY_VERSION < "1.9"
+  class String
     def ord; self[0] end
-    
-    # TODO?
-    # [g]sub[!] in ruby 1.8 takes the second arg which can operate \1, \2 etc keys as if it were MatchData parts
-    # Though, in ruby 1.9 it ignores (without exception) the second arg and only pay attention to block. I can emulate ruby 1.8 second-arg-behaviour but
-    # block passed to old method must be of the same context as that method's caller
-    # in order to $~, $1 and such variables to work (and blocks with them are actualy used i.e. in Readline).
-    # So now I'm afraid it useless to redefine these methods for 1.9 but I'll try some to hack it in C-ext
-=begin
-  else
-    alias :sub19 :sub
-    alias :sub19! :sub!
-    alias :gsub19 :gsub
-    alias :gsub19! :gsub!
-    
-    def sub a,b=nil,&c
-      if b
-        if b=~/\\\d/
-          b = b.gsub19(/\\\d/) {|m| "\#$#{m[1]}"}
-          sub19(a) {eval "\"#{b}\""}
-        else sub19(a) {b} end
-      else gsub19(a, &c) end
-    end
-    
-    def sub! a,b=nil,&c
-      if b
-        if b=~/\\\d/
-          b = b.gsub19(/\\\d/) {|m| "\#$#{m[1]}"}
-          sub19!(a) {eval "\"#{b}\""}
-        else sub19!(a) {b} end
-      else sub19!(a, &c) end
-    end
-
-    def gsub a,b=nil,&c
-      if b
-        if b=~/\\\d/
-          b = b.gsub19(/\\\d/) {|m| "\#$#{m[1]}"}
-          gsub19(a) {eval "\"#{b}\""}
-        else gsub19(a) {b} end
-      else gsub19(a, &c) end
-    end
-    
-    def gsub! a,b=nil,&c
-      if b
-        if b=~/\\\d/
-          b = b.gsub19(/\\\d/) {|m| "\#$#{m[1]}"}
-          p a
-          gsub19!(a) {p "\"#{b}\""; p $~; p eval "\"#{b}\""; p eval "\"#{b}\""}
-        else gsub19!(a) {b} end
-      else gsub19!(a, &c) end
-    end
-=end
   end
-
 end

data/lib/rmtools/db.rb

@@ -3,6 +3,11 @@ begin
   require 'active_record'
   ActiveRecord::Base
   RMTools::require __FILE__, 'active_record'
+  # fix for that mystic bug
+  #   /usr/lib/ruby/1.8/openssl/ssl-internal.rb:30: [BUG] Segmentation fault
+  #   ruby 1.8.7 (2010-08-16 patchlevel 302) [i686-linux]
+  require 'openssl/ssl'
 rescue Exception
+  p $!
   nil
 end

data/lib/rmtools/debug/binding.rb

@@ -12,14 +12,30 @@ class Binding
   
   def inspect_instance_variables
     vars = self.eval('instance_variables') # ['@a', '@b']
-    values = self.eval "[#{vars * ','}]" # ["@a's value", "@b's value"]
-    Hash[vars.zip(values)]
+    if !vars.empty?
+      values = self.eval "[#{vars * ','}]" # ["@a's value", "@b's value"]
+      Hash[vars.zip(values)]
+    else {}
+    end
   end
   
-  def inspect_env
-    self.eval("{'self' => self}").merge(inspect_local_variables).merge(inspect_instance_variables)
+  def inspect_class_variables
+    vars = self.eval('self.class.class_variables') # ['@@a', '@@b']
+    if !vars.empty?
+      values = self.eval "[#{vars * ','}]" # ["@@a's value", "@@b's value"]
+      Hash[vars.zip(values)]
+    else {}
+    end
   end
   
+  def inspect_special_variables
+    Hash[self.eval(%[{"self" => self, #{['!', '`', '\'', '&', '~', *(1..9)].map {|lit| %{"$#{lit}" => $#{lit}, }}.join}}]).reject {|k,v| v.nil?}]
+  end
+  
+  def inspect_env
+    inspect_local_variables + inspect_instance_variables + inspect_class_variables + inspect_special_variables
+  end 
+  
   def valid_types(pattern_ary)
     self.eval("[#{self.eval('local_variables')*','}]").valid_types(pattern_ary)
   end
@@ -34,12 +50,12 @@ class Binding
   
   # it's supposed to be called during TDD in an IRB session
   # $__MAIN__ must be `self' or root IRB session, i.e. `main' object
-  # def tested_function
-  #   blah blah blah
-  # rescue => err
-  #   binding.start_interaction
-  #   raise err
-  # end
+  #   def tested_function
+  #     blah blah blah
+  #   rescue => err
+  #     binding.start_interaction
+  #     raise err
+  #   end
   def start_interaction(sandbox=true)
     $__env__ = inspect_env
     puts "Caller trace:"

data/lib/rmtools/debug/highlight.rb

@@ -8,7 +8,15 @@ module RMTools
       "   >>   #{Painter.green SCRIPT_LINES__[file][line.to_i - 1].chop}"
     else
       file = Readline::TEMPLOG if file == '(irb)' and defined? Readline::TEMPLOG
-      "   #{Painter.cyan '>>'}   #{Painter.green read_lines(file, line.to_i).chop}" if File.file? file
+      if File.file? file
+        line_read = read_lines(file, line.to_i)
+        if defined? SCRIPT_LINES__
+          SCRIPT_LINES__[file] = IO.readlines(file)
+          highlighted_line file, line
+        else
+          "   #{Painter.cyan '>>'}   #{Painter.green line_read.chop}" 
+        end
+      end
     end
   end
     

data/lib/rmtools/debug/logging.rb

@@ -36,7 +36,7 @@ module RMTools
       file.path_format = '%'.in file.out if file.out
       file.tf   = format.time.to_a
       file.cf0 = format.caller
-      file.cf = file.cf0.sub('%p'){'\1'}.sub('%f'){'\2'}.sub('%l'){'\3'}.sub('%m'){'\4'}
+      file.cf = file.cf0.sub('%p') {'\1'}.sub('%f') {'\2'}.sub('%l') {'\3'}.sub('%m') {'\4'}
       file.fmt = format.format
       file._time, file._caller = '%time'.in(file.fmt), '%caller'.in(file.fmt)
     end
@@ -91,7 +91,9 @@ module RMTools
         end
         out = now.strftime cfg.out if cfg.path_format
       end
-      str.sub! "%caller", caler.sub(String::CALLER_RE, cfg.cf) if caler
+      if caler
+        str.sub! "%caller", caler.sub(String::CALLER_RE, cfg.cf)
+      end
       log_str = @clr.clean str
       RMTools.write out, log_str if log_
       Kernel.print str if print_

data/lib/rmtools/debug/observing.rb

@@ -76,5 +76,33 @@ module RMTools
       set_trace_func nil
     end
     
+    def self.trace_calls(out='log/calltrace.log')
+      logger = RMLogger.new :out => out, :format => '[%time]: %text'
+      offset, last_logline, quo, quos = 0, nil, 1, ''
+      set_trace_func lambda {|event, file, line, id, binding, classname| 
+        if event == 'call' or event == 'c-call' or event == 'raise'
+          logline = "#{quos}\n#{'  '*([offset, 0].max)}#{classname}##{id} < #{file} > #{event=='c-call' ? '[CC]' : event == 'raise' ? '[RAISE]' : ''}"
+          if last_logline != logline
+            logger.log(last_logline = logline, RMLogger::INLINE) 
+            quo = 1
+            quos = ''
+          else
+            quo += 1
+            quos = " x#{q}"
+          end 
+        end
+        if event == 'call' or event == 'c-call'
+          offset += 1
+        elsif event == 'return' or event == 'c-return'
+          offset -= 1
+        end
+      }
+      begin yield
+      rescue Exception
+        nil
+      ensure set_trace_func nil
+      end
+    end
+    
   end
 end

data/lib/rmtools/debug/trace_format.rb

@@ -0,0 +1,77 @@
+# encoding: utf-8
+RMTools::require 'debug/highlight'
+RMTools::require 'debug/logging'
+
+module RMTools
+
+	# Python-like traceback for exceptions; uses ANSI coloring.
+  # In case of any low-level ruby error it may hang up interpreter
+  # (although you must have done VERY creepy things for that). If you find 
+  # interpreter in hanging up, require 'rmtools_notrace' instead of 'rmtools'
+  # or run "Exception.trace_format false" right after require
+  #
+  #   1:0> def divbyzero
+  #   2:1< 10/0 end
+  #   => nil
+  #   3:0> divbyzero
+  #   ZeroDivisionError: divided by 0
+  #          from (irb):2:in `divbyzero' <- `/'
+  #     >>  10/0 end
+  #          from (irb):3
+  #     >>  divbyzero
+  def format_trace(a)
+    bt, calls, i = [], [], 0
+  #  $log.info 'a.size', binding
+    m = a[0].parse:caller
+    while i < a.size
+  #    $log.info 'i a[i]', binding
+      m2 = a[i+1] && a[i+1].parse(:caller)
+  #    $log.info 'm m2', binding
+  #    $log.info 'm.func [m.path,m.line]==[m2.path,m2.line]', binding if m and m2
+  #    $log.info 'm.path m.line a[i]', binding if m
+  #    $log.info RMTools.highlighted_line(m.path, m.line) if m
+      if m and m.func and m2 and [m.path, m.line] == [m2.path, m2.line]
+        calls << " -> `#{m.func}'"
+      elsif m and m.line != 0 and line = RMTools.highlighted_line(m.path, m.line)
+        bt << "#{a[i]}#{calls.join}\n#{line}"
+        calls = []
+      else bt << a[i]
+      end
+      i += 1
+      m = m2
+    end
+  #  $log << RMTools::Painter.r("FORMAT DONE! #{bt.size} lines formatted")
+    bt
+  end
+  
+  def format_trace_to_html(a)
+    a.map! do |lines|
+      caller_string, snippet = lines/"\n"
+      caller = caller_string.parse(:caller)
+      if caller
+        path = caller.path
+        lines = ["<a href='#{CGI.escape 'file://'+path}'>#{path}</a>:#{caller.line} in #{caller.func}"]
+        lines << RMTools::Painter.clean(snippet) if snippet
+        lines * "\n"
+      else
+        lines
+      end
+    end
+  end
+  
+  module_function :format_trace, :format_trace_to_html
+end
+
+class Class
+  
+private
+  def trace_format method
+    if Exception.in ancestors
+      class_attribute :__trace_format
+      self.__trace_format = method
+    else
+      raise NoMethodError, "undefined method `trace_format' for class #{self}"
+    end
+  end
+  
+end

data/lib/rmtools/debug/traceback.rb

@@ -1,83 +1,22 @@
 # encoding: utf-8
-RMTools::require 'debug/highlight'
-RMTools::require 'debug/logging'
+RMTools::require 'debug/trace_format'
+require 'active_support/core_ext/class/attribute'
 
-module RMTools
-
-	# Python-like traceback for exceptions; uses ANSI coloring.
-  # In case of any low-level ruby error it may hang up interpreter
-  # (although you must have done creepy things for that). If you find 
-  # interpreter in hanging up, require 'rmtools_notrace' instead of 'rmtools'
-  # or run "Exception.trace_format false" right after require
-  #
-  # 1:0> def divbyzero
-  # 2:1< 10/0 end
-  # => nil
-  # 3:0> divbyzero
-  # ZeroDivisionError: divided by 0
-  #        from (irb):2:in `divbyzero' <- `/'
-  #   >>  10/0 end
-  #        from (irb):3
-  #   >>  divbyzero
-  def format_trace(a)
-    bt, calls, i = [], [], 0
-  #  $log.info 'a.size', binding
-    m = a[0].parse:caller
-    while i < a.size
-  #    $log.info 'i a[i]', binding
-      m2 = a[i+1] && a[i+1].parse(:caller)
-  #    $log.info 'm m2', binding
-  #    $log.info 'm.func [m.path,m.line]==[m2.path,m2.line]', binding if m and m2
-  #    $log.info 'm.path m.line a[i]', binding if m
-  #    $log.info RMTools.highlighted_line(m.path, m.line) if m
-      if m and m.func and m2 and [m.path, m.line] == [m2.path, m2.line]
-        calls << " -> `#{m.func}'"
-      elsif m and m.line != 0 and line = RMTools.highlighted_line(m.path, m.line)
-        bt << "#{a[i]}#{calls.join}\n#{line}"
-        calls = []
-      else bt << a[i]
-      end
-      i += 1
-      m = m2
-    end
-  #  $log << RMTools::Painter.r("FORMAT DONE! #{bt.size} lines formatted")
-    bt
-  end
-  
-  module_function :format_trace
-end
-
-class Class
-  
-private
-  def trace_format method
-    if Exception.in ancestors
-      self.__trace_format = method
-    else
-      raise NoMethodError, "undefined method `trace_format' for class #{self}"
-    end
-  end
-  
-end
-
-    # 1.9 may hung up processing IO while generating traceback
+# 1.9 may hung up processing IO while generating traceback
 if RUBY_VERSION < '1.9'
   class Exception
     alias :set_bt :set_backtrace
     class_attribute :__trace_format
     
-    # to use trace formatting ensure that you have SCRIPT_LINES__ constant set
-    # SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
-    #
     # If you also set (e.g. in irbrc file) 
-    # module Readline
-    #   alias :orig_readline :readline
-    #   def readline(*args)
-    #     ln = orig_readline(*args)
-    #     SCRIPT_LINES__['(irb)'] << "#{ln}\n"
-    #     ln
+    #   module Readline
+    #     alias :orig_readline :readline
+    #     def readline(*args)
+    #       ln = orig_readline(*args)
+    #       SCRIPT_LINES__['(irb)'] << "#{ln}\n"
+    #       ln
+    #     end
     #   end
-    # end
     # it will be possible to get the lines entered in IRB
     # else it reads only ordinal require'd files
     def set_backtrace src

data/lib/rmtools/debug_notrace.rb

@@ -1,2 +1,2 @@
 # encoding: utf-8
-RMTools::require 'debug', '{binding,logging,present,timer}'
+RMTools::require 'debug/{observing,timer}'

data/lib/rmtools/experimental/blackhole.rb

@@ -6,7 +6,7 @@ class BlackHole
   # => #<BlackHole:0xb66367b0>
   # 
   # Think twice before use it. It may devour your code!
-  def method_missing *args
+  def method_missing(*)
     BlackHole.new
   end
   

data/lib/rmtools/functional/decorate.rb

@@ -0,0 +1,57 @@
+# Emulate python's @-operator
+class Module
+  
+private
+  #   example:
+  #
+  #   def divide_ten_by x
+  #       10 / x
+  #   end
+  #
+  #   def maybe(*args)
+  #       yield *args rescue(puts $!) 
+  #   end
+  #    ...
+  #  
+  #   decorate :divide_ten_by, :maybe  #  =>
+  #   def divide_ten_by x
+  #       10 / x rescue(puts $!)
+  #   end
+  def decorate f1, f2
+    f1_clone = f1.to_s.dup
+    f1_clone.bump! '_' while private_method_defined? f1_clone.to_sym
+    class_eval(<<-EVAL, __FILE__, __LINE__+1
+      alias #{f1_clone} #{f1}
+      private :#{f1_clone}
+      def #{f1}(*args) #{f2}(*args, &method(:#{f1_clone})) end
+    EVAL
+    )
+  end
+  
+  #   some FP, example:
+  #
+  #   def divide_ten_by x
+  #       10 / x
+  #   end
+  #
+  #   def maybe
+  #       lambda {|*args| yield *args rescue(puts $!)} 
+  #   end
+  #    ...
+  #  
+  #   decorated_fof :divide_ten_by, :maybe  #  =>
+  #   def divide_ten_by
+  #       lambda {|x| 10 / x rescue(puts $!)}
+  #   end
+  def decorated_fof f1, f2
+    f1_clone = f1.to_s.dup
+    f1_clone.bump! '_' while private_method_defined? f1_clone
+    class_eval(<<-EVAL, __FILE__, __LINE__+1
+      alias #{f1_clone} #{f1}
+      private :#{f1_clone}
+      def #{f1}() #{f2}(&method(:#{f1_clone})) end
+    EVAL
+    )
+  end
+  
+end

data/lib/rmtools/install.rb

@@ -4,16 +4,11 @@ RMTools::require 'fs'
 require 'digest/md5'
 
 def ext_files_not_modified(ext_name='rmtools', version='\d')
-    return unless name = Gem.source_index.gems.keys.find {|n| 
-      n =~ /^#{ext_name}-#{version}/
-    }
-    gemspec = Gem.source_index.gems[name]
-    full_path  = gemspec.full_gem_path
-    ext_files  = gemspec.files.grep(/^ext\//)
-    ext_files.each {|f| 
-      installed = File.join(full_path, f)
-      return unless File.file? installed and Digest::SHA256.file(f) == Digest::SHA256.file(installed)
-    }
+    gem = Gem.source_index.select {|a| a[0] =~ /^#{ext_name}-#{version}$/}[0]
+    return unless gem
+    gemspec = gem[1]
+    path = gemspec.full_gem_path
+    gemspec.files.grep(/^ext\//).find {|f| !(File.file?(installed=File.join(path, f)) and Digest::SHA256.file(f) == Digest::SHA256.file(installed))}
 end
   
 def compile_manifest(exc=['pkg'])

data/lib/rmtools/load.rb

@@ -1,6 +1,5 @@
 # encoding: utf-8
 require 'active_support'
-
 module RMTools
   dir = File.dirname __FILE__
   VERSION = IO.read(File.join dir, '..', '..', 'Rakefile').match(/RMTOOLS_VERSION = '(.+?)'/)[1]

data/lib/rmtools/require.rb

@@ -1,8 +1,8 @@
 # encoding: utf-8
 module RMTools
-  # ` RMTools::require __FILE__, "*" ' requires all ruby files from dir named as file
-  # ` RMTools::require "folder", "file" ' requires file.rb from dir `folder' in working directory
-  # `RMTools::require "file" ' requires 'file.rb' from working directory
+  # ` RMTools::require __FILE__, "*" ' requires all ruby files from dir named as file under 'rmtools-gem/lib/rmtools'
+  # ` RMTools::require "folder", "mask" ' requires all files come within `mask' from dir `folder' under 'rmtools-gem/lib/rmtools'
+  # `RMTools::require "file" ' requires 'file.rb' under 'rmtools-gem/lib/rmtools'
   def self.require(location, mask=nil)
     if !mask
       location, mask = File.dirname(__FILE__), location # /path/to/gems/rmtools

data/lib/rmtools/text/string_parse.rb

@@ -4,7 +4,7 @@ RMTools::require 'conversions/string'
 class String
   CALLER_RE =    %r{^(.*?([^/\\]+?))#{	    # ( path ( file ) ) 
                               }:(\d+)(?::in #{	      # :( line )[ :in
-                              }[`<]([^'>]+)[>']#{   # `( closure )' ]
+                              }[`<](.+?)[>']#{   # `( closure )' ]
                             })?$}
   URL_RE = %r{^((?:([^:]+)://)#{	            #  ( protocol
                       }([^/:]*(?::(\d+))?))?#{	  #  root[:port] )

data/lib/rmtools/xml/finders.rb

@@ -11,9 +11,11 @@ module LibXML::XML
     node.is(Array) && node.size == 1 ? node[0] : node
   }
   FindByProc = lambda {|node, ns, ss|
+    str_to_eval = ss.matched[1..-2]
+    '_' >> str_to_eval if !str_to_eval['_']
     node = node.is(Array) ?
-      node.sum {|n| n.__find(nil, ns, ss).select(&ss.matched[1..-2]).to_a} : 
-                      node.__find(nil, ns, ss).select(&ss.matched[1..-2])
+      node.sum {|n| n.__find(nil, ns, ss).select{|_| eval str_to_eval}.to_a} : 
+                      node.__find(nil, ns, ss).select{|_| eval str_to_eval}
     node.is(Array) && node.size == 1 ? node[0] : node
   }
     

data/lib/rmtools_notrace.rb

@@ -1,5 +1,6 @@
 # encoding: utf-8
 SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
+$__MAIN__ = self
 require 'rmtools/load'
 RMTools::require 'b'
 RMTools::require 'debug_notrace'

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: rmtools
 version: !ruby/object:Gem::Version 
-  hash: 31
+  hash: 1
   prerelease: 
   segments: 
   - 1
   - 1
-  - 6
-  version: 1.1.6
+  - 9
+  version: 1.1.9
 platform: ruby
 authors: 
 - Shinku
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-02-24 00:00:00 +03:00
+date: 2011-03-17 00:00:00 +03:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -66,10 +66,7 @@ dependencies:
         version: 2.9.0
   type: :development
   version_requirements: *id003
-description: "== RMTools\n\
-  Methods for basic classes addon collection.\n\n\
-  == CHANGES\n\
-  :include: History.txt\n"
+description: Applied framework primarily for debug and text/arrays/files operation.
 email: 
 - tinbka@gmail.com
 executables: []
@@ -80,7 +77,6 @@ extra_rdoc_files:
 - ./Manifest.txt
 - ./License.txt
 - ./README.txt
-- ./History.txt
 files: 
 - ext/extconf.rb
 - ext/rmtools.h
@@ -139,6 +135,7 @@ files:
 - lib/rmtools/debug/traceback.rb
 - lib/rmtools/debug/binding.rb
 - lib/rmtools/debug/logging.rb
+- lib/rmtools/debug/trace_format.rb
 - lib/rmtools/debug/highlight.rb
 - lib/rmtools/debug/timer.rb
 - lib/rmtools/fs.rb
@@ -148,7 +145,7 @@ files:
 - lib/rmtools/load.rb
 - lib/rmtools/experimental.rb
 - lib/rmtools/install.rb
-- lib/rmtools/functional/string_to_proc.rb
+- lib/rmtools/functional/decorate.rb
 - lib/rmtools/functional/fold.rb
 - lib/rmtools/functional/unfold.rb
 - lib/rmtools/text.rb
@@ -182,7 +179,6 @@ files:
 - ./Manifest.txt
 - ./License.txt
 - ./README.txt
-- ./History.txt
 has_rdoc: true
 homepage: http://github.com/tinbka
 licenses: []

data/History.txt

@@ -1,18 +0,0 @@
-=== Version 1.0.0
-
-* Divided by classes and packed as gem
-
-=== Version 1.1.0
-
-* Fixed some bugs
-* Divided by semantics
-* Compatible with ruby 1.8.7 (2010-08-16 patchlevel 302)
-
-=== Version 1.1.6
-
-* Rewrited few functions
-* Fixed bug with RDoc and RI
-* Compatible with 1.9
-* Binding#start_interaction and RMTools::Observer for debugging purposes
-* To require any file from lib/rmtools now RMTools::require is used
-* In order to not overload Rails apps initialization tracing is lightened and gem now may be also required as "rmtools_nodebug" and "rmtools_notrace"

data/lib/rmtools/functional/string_to_proc.rb

@@ -1,94 +0,0 @@
-# encoding: utf-8
-# String#to_proc
-#
-# See http://weblog.raganwald.com/2007/10/stringtoproc.html ( Subscribe in a reader)
-#
-# Ported from the String Lambdas in Oliver Steele's Functional Javascript
-# http://osteele.com/sources/javascript/functional/
-#
-# This work is licensed under the MIT License:
-#
-# (c) 2007 Reginald Braithwaite
-# Portions Copyright (c) 2006 Oliver Steele
-
-
-class String
-  unless ''.respond_to?(:to_proc)
-=begin original definition:
-    def to_proc &block
-      params = []
-      expr = self
-      sections = expr.split(/\s*->\s*/m)
-      if sections.length > 1 then
-          eval sections.reverse!.inject { |e, p| "(Proc.new { |#{p.split(/\s/).join(', ')}| #{e} })" }, block && block.binding
-      elsif expr.match(/\b_\b/)
-          eval "Proc.new { |_| #{expr} }", block && block.binding
-      else
-          leftSection = expr.match(/^\s*(?:[+*\/%&|\^\.=<>\[]|!=)/m)
-          rightSection = expr.match(/[+\-*\/%&|\^\.=<>!]\s*$/m)
-          if leftSection || rightSection then
-              if (leftSection) then
-                  params.push('$left')
-                  expr = '$left' + expr
-              end
-              if (rightSection) then
-                  params.push('$right')
-                  expr = expr + '$right'
-              end
-          else
-              self.gsub(
-                  /(?:\b[A-Z]|\.[a-zA-Z_$])[a-zA-Z_$\d]*|[a-zA-Z_$][a-zA-Z_$\d]*:|self|arguments|'(?:[^'\\]|\\.)*'|"(?:[^"\\]|\\.)*"/, ''
-              ).scan(
-                /([a-z_$][a-z_$\d]*)/i
-              ) do |v|  
-                params.push(v) unless params.include?(v)
-              end
-          end
-          eval "Proc.new { |#{params.join(', ')}| #{expr} }", block && block.binding
-      end
-    end
-=end
-
-    RMTools::String_to_proc_cache = {}
-    def to_proc &block
-      # improving performance
-      if proc = RMTools::String_to_proc_cache[[self, block]]
-        return proc
-      end
-      params = []
-      expr = self
-      sections = expr.split(/\s*->\s*/m)
-      proc = 
-      if sections.length > 1
-          str = sections.reverse!.inject { |e, p| "(Proc.new { |#{p.split(/\s/).join(', ')}| #{e} })" }
-          (proc = eval str, block && block.binding).string = str
-          proc
-      elsif expr.match(/\b_\b/)
-          Proc.eval "|_| #{expr}", block && block.binding
-      else
-          leftSection = expr.match(/^\s*(?:[+*\/%&|\^\.=<>\[]|!=)/m)
-          rightSection = expr.match(/[+\-*\/%&|\^\.=<>!]\s*$/m)
-          if leftSection || rightSection
-              if leftSection
-                  params.push('__left')
-                  expr = '__left' + expr
-              end
-              if rightSection
-                  params.push('__right')
-                  expr = expr + '__right'
-              end
-          else
-              params = gsub(/(?:\b[A-Z]|\.[a-zA-Z_$])[a-zA-Z_$\d]*|[a-zA-Z_$][a-zA-Z_$\d]*:|self|arguments|'(?:[^'\\]|\\.)*'|"(?:[^"\\]|\\.)*"/, ''
-              ).scan(
-                /([a-z_$][a-z_$\d]*)/i
-              ).uniq
-          end
-          Proc.eval "|#{params.join(', ')}| #{expr}", block && block.binding
-      end
-      RMTools::String_to_proc_cache[[self, block]] ||= proc
-    end
-    
-  end
-end
-
-