rmtools 1.1.11 → 1.2.0

data/lib/rmtools/dev/present.rb

@@ -0,0 +1,63 @@
+# encoding: utf-8
+class Object
+  
+  def present
+    [true, false, nil, Numeric, String, Regexp].each {|klass| return puts inspect if klass === self}
+    Hash[readable_variables.map {|v| [":#{v}", __send__(v)]}].present
+  end
+  
+end
+
+class Array
+  
+  def present(inspect_string=nil)
+    res = "[ "
+    indent = (size-1).to_s.size
+    res << map_with_index {|k,i|
+      "#{i.to_s.rjust(indent)}: #{(k.is String and !inspect_string) ? k : k.inspect}"
+    }*"\n  "
+    res << "]"
+    puts res
+  end
+  
+  # draw array as box
+  # just calls #inspect if max element.inspect size is greater than console width
+  def as_box(opts={})
+    opts = {:max_cols => Inf, :padding => 0}.merge opts
+    return inspect unless cols = ENV['COLUMNS']
+    cols = cols.to_i
+    cell_size = map {|e| e.inspect.size}.max + opts[:padding]*2
+    if n = [(1..cols/2).max {|i| i*(cell_size+1) < cols}, opts[:max_cols]].min
+      table = div(n)
+      border = '+'+('-'*cell_size+'+')*n
+      need_lb = border.size < cols
+      border << "\n" if need_lb
+      last_border = table.last.size == n ? 
+        border : 
+        '+'+('-'*cell_size+'+')*table.last.size + '-'*((cell_size+1)*(n-table.last.size)-1) + '+'
+      table.map {|rows| 
+        str = '|'+rows.map {|cell| cell.inspect.center(cell_size)}*'|'+'|'
+        str << ' '*((cell_size+1)*(n-rows.size)-1)+'|' if rows.size < n
+        border + str + ("\n" if need_lb)
+      }.join + last_border
+    else inspect
+    end
+  end
+  
+end
+
+class Hash
+  
+  def present(inspect_string=nil)
+    str = "{ "
+    sorted = sort rescue to_a.sort_by_to_s
+    str << sorted.map {|k,v|
+      "#{(k.is String and !inspect_string) ? k : k.inspect} => #{(v.is String and !inspect_string) ? v : v.inspect},"
+    }*"\n  "
+    str << "}"
+    puts str
+  end
+  
+end
+
+

data/lib/rmtools/{debug → dev}/timer.rb

@@ -5,14 +5,14 @@ module RMTools
 
   def timer(ts=1, output=true)
     timez = ts - 1
-    panic, verbose = $panic, $verbose
-    $panic = $verbose = false
+    quiet, mute_warn = $quiet, $log.mute_warn
+    $quiet = $log.mute_warn = true
     t1 = Time.now
     timez.times {yield}
     res = yield
     t2 = (Time.now.to_f*1000).round
     t1 = (t1.to_f*1000).round
-    $panic, $verbose = panic, verbose
+    $quiet, $log.mute_warn = quiet, mute_warn
     res = res.inspect
     puts "#{output ? "res: #{res.size > 1000 ? res[0...1000]+"…" : res}\n" : "size of res string: #{res.to_s.size}, "}one: #{Painter.gray '%0.4fms'%[(t2-t1).to_f/ts]}, total: #{Painter.gray "#{(t2-t1).to_f}ms"}"
   end

data/lib/rmtools/{debug → dev}/trace_format.rb

@@ -1,6 +1,6 @@
 # encoding: utf-8
-RMTools::require 'debug/highlight'
-RMTools::require 'debug/logging'
+RMTools::require 'dev/highlight'
+RMTools::require 'dev/logging'
 
 module RMTools
 
@@ -21,15 +21,9 @@ module RMTools
   #     >>  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)
@@ -40,10 +34,10 @@ module RMTools
       i += 1
       m = m2
     end
-  #  $log << RMTools::Painter.r("FORMAT DONE! #{bt.size} lines formatted")
     bt
   end
   
+  # disclaimer: Firefox (at least 3.6+) on Windoze does not allow to use file:// protocol T_T
   def format_trace_to_html(a)
     a.map! do |lines|
       caller_string, snippet = lines/"\n"

data/lib/rmtools/{debug → dev}/traceback.rb

@@ -1,5 +1,5 @@
 # encoding: utf-8
-RMTools::require 'debug/trace_format'
+RMTools::require 'dev/trace_format'
 require 'active_support/core_ext/class/attribute'
 
 # 1.9 may hung up processing IO while generating traceback

data/lib/rmtools/dev_min.rb

@@ -0,0 +1,2 @@
+# encoding: utf-8
+RMTools::require 'dev/{observing,timer,trace_format,blackhole}'

data/lib/rmtools/enumerable/array.rb

@@ -105,10 +105,12 @@ class Array
   #   when [/\d/, '10']; '%*d'%[a, b]
   #   ...
   # end
+  #
+  # symbol :~ stands for Object
   def ===(obj)
     return true if casecmp(obj) 
     !!(obj.kinda(Array) and obj.size == size and 
-        each_with_index {|e, i| e == :_ or e === obj[i] or return false})
+        each_with_index {|e, i| e == :~ or e === obj[i] or return false})
   end
   
   
@@ -131,4 +133,13 @@ class Array
   # fastering activesupport's method
   def group_by(&b) count(:group, &b) end
   
+  
+  
+  
+  # rightmost #find
+  def rfind
+    reverse_each {|e| return e if yield e}
+    nil
+  end
+  
 end

data/lib/rmtools/enumerable/array_iterators.rb

@@ -18,9 +18,11 @@ unless defined? RMTools::Iterators
     
     def method_missing(method, *args, &block)
       if match = (meth = method.to_s).match(RMTools::Iterators)
-        iterator, meth = match[1..2]
-        meth = meth.to_sym
-        begin return send(iterator) {|i| i.__send__ meth, *args, &block}
+        iterator, meth = match[1], match[2].to_sym
+        begin
+          return iterator == :sum ?
+            __send__(iterator, args.shift) {|i| i.__send__ meth, *args, &block}: 
+            __send__(iterator) {|i| i.__send__ meth, *args, &block}
         rescue NoMethodError => e
           e.message << " (`#{method}' interpreted as decorator-function `#{meth}')"
           raise e

data/lib/rmtools/enumerable/common.rb

@@ -1,6 +1,4 @@
 # encoding: utf-8
-require 'set'
-
 module Enumerable
   
   def import(arr, index)

data/lib/rmtools/enumerable/hash.rb

@@ -11,10 +11,11 @@ class Hash
 if RUBY_VERSION >= '1.9.2'
   def unify_keys
     keys.each {|k|
-      if k.is String
+      case k
+      when String
         sk = k.to_sym
         self[sk] = self[k] if !self[sk]
-      elsif k.is Symbol
+      when Symbol, Numeric
         sk = k.to_s
         self[sk] = self[k] if !self[sk]
       end
@@ -24,16 +25,21 @@ if RUBY_VERSION >= '1.9.2'
 else
   def unify_keys
     each {|k, v|
-      if k.is String
+      case k
+      when String
         sk = k.to_sym
         self[sk] = v if !self[sk]
-      elsif k.is Symbol
+      when Symbol, Numeric
         sk = k.to_s
         self[sk] = v if !self[sk]
       end
     }
   end
 end
+
+  def any?
+    !empty?
+  end
   
   def max_by_key; [(m = keys.max), self[m]] end
   

data/lib/rmtools/enumerable/object_space.rb

@@ -3,18 +3,20 @@ RMTools::require 'enumerable/common'
 
 module ObjectSpace
   extend Enumerable
+  class << self
  
-  def self.each(&b) each_object(&b) end
+    def each(&b) each_object(&b) end
   
-  def self.size; each_object {} end
+    def size() each_object {} end
   
-  def self.find(id=nil)
-    if id
-      find {|obj| obj.object_id == id} 
-    else
-      each_object {|obj| return obj if yield obj}
-      nil
+    def find(id=nil)
+      if id
+        find {|obj| obj.object_id == id} 
+      else
+        each_object {|obj| return obj if yield obj}
+        nil
+      end
     end
+    
   end
- 
 end

data/lib/rmtools/enumerable/range.rb

@@ -99,6 +99,27 @@ class Range
     ie*(ie+1)/2 - (1..self.begin-1).sum
   end
   
+  # monotone function definition interval min/max border
+  def min(&fun)
+    return first if yield first
+    return unless yield last
+    if yield(c = center)
+      (first+1..c-1).min(&fun) || c
+    else
+      (c+1..last).min(&fun)
+    end
+  end 
+  
+  def max(&fun)
+    return last if yield last
+    return unless yield first
+    if yield(c = center)
+      (c+1..last-1).max(&fun) || c
+    else 
+      (first..c-1).max(&fun)
+    end
+  end 
+  
 end
 
 class XRange

data/lib/rmtools/fs/tools.rb

@@ -33,14 +33,18 @@ module RMTools
       return if !lines or lines.empty?
       str = ""
       last = lines.max
+      lines_found = false
       if File.file?(df)
         File.open(df, 'r') {|f|
           f.each {|line|
               no = f.lineno
-              str << line if no.in lines
+              if no.in lines
+                str << line 
+                lines_found = true
+              end
               break if no == last
         }}
-        str
+        lines_found && str
       else
         STDERR.puts "#{df} is missed!"
       end

data/lib/rmtools/install.rb

@@ -8,10 +8,12 @@ def ext_files_not_modified(ext_name='rmtools', version='\d')
     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))}
+    !gemspec.files.grep(/^ext\//).find {|f|
+      !(File.file?(installed=File.join(path, f)) and IO.read(f) == IO.read(installed))
+    }
 end
   
-def compile_manifest(exc=['pkg'])
+def compile_manifest(exc=%w(pkg))
     fs = Dir.new('.').recursive_content
     RMTools.rw 'Manifest.txt', (exc ? fs.reject {|i| i[/^(#{exc*'|'})\//]} : fs)*"\n"
 end

data/lib/rmtools/lang/cyrillic.rb

@@ -14,7 +14,7 @@ class String
     end
     
     def swap
-      sub(/([a-zA-Z])|([а-яА-ЯёЁ])/) {|m| return $~[1]? en2ru: ru2en}
+      sub(/([a-zA-Z])|([А-пр-ёЁ])/) {|m| return $~[1]? en2ru: ru2en}
       self
     end
     
@@ -23,7 +23,7 @@ class String
     end
     
     def cyr?
-      self !~ /[^а-яА-ЯёЁ]/
+      self !~ /[^А-пр-ёЁ]/
     end
     
     def csqueeze

data/lib/rmtools/load.rb

@@ -6,7 +6,7 @@ module RMTools
   
   require File.expand_path('require', dir)
   [ 'core', 'enumerable', 'text', 'time', 'functional', 
-    'conversions', 'ip', 'lang', 'rand',
+    'conversions', 'ip', 'lang', 'rand', 'console', 'b',
     'fs', 'db', 'xml',
     '../rmtools.so'
   ].each {|file| RMTools::require file}

data/lib/rmtools/text/regexp.rb

@@ -0,0 +1,74 @@
+RMTools::require 'text/string_scanner'
+
+class Regexp
+  
+  # reverses a regexp just like an ordinal string so one can use it for lookbehind
+  #     /abc(?=>d.+f){1,10}(?=>[^g+h-j]*\w+?)*?$/.reverse
+  ### => /^(?=\w+?[^g+h-j]*>)*?(?=f.+d>){1,10}cba/
+  def reverse
+    return self if source.size == 1 or source.size == 2 && (source.ord == ?\\ or source[0] == source[1])
+    new = []
+    bs = klass = count = nil
+    group_marks = []
+    oppose = {'('=>')', ')'=>'(', '^'=>'$', '$'=>'^'}
+    borders = {'Z'=>'\A', 'A'=>'\Z'}
+    ext = options&2 != 0
+    StringScanner(source).each(/./) {|s|
+      if (m = s.matched) == '\\'
+        (klass || new) << '\\' if !(bs = !bs)
+      else
+        if bs
+          if !klass and m =~ /\d/
+            if m != '0' and s.+ !~ /\d/
+              raise RegexpError, "there is no meaning in use of groups \\#{m} inside of reversed regexp at #{s.pos-1}"
+            else
+              chars = s.check_until(/\D/)[0..-2]
+              new << ((m == '0' ? m : '0' << m) << chars).to_i(8).chr
+              s.pos += chars.size
+            end
+          elsif !klass and m == 'x'
+            chars = s.check_until(/[^a-f\d]/)[0..-2]
+            new << chars.to_i(16).chr
+            s.pos += chars.size
+          else
+            (klass || new) << ((b = borders[m]) ? b.dup : '\\' << m)
+          end
+        elsif ext and m =~ /\s/
+          next
+        elsif ext and m == '#'
+          s.scan_until(/\n\s*/)
+        else case m.ord
+          when ?[;      klass = ''
+          when ?];      new << "[#{klass}]"; klass = nil
+          when ?{;      klass ? klass << m : count = ''
+          when ?};      klass ? klass << m : _find_paren(new) << "{#{count}}"; count = nil
+          when ?^, ?$; klass ? klass << m : new << oppose[m]
+          when ?+, ?*; klass ? klass << m : _find_paren(new) << m 
+          when ??
+            if new.last == ')'
+              group_marks << s.scan_until(/./)
+            else klass ? klass << m : _find_paren(new) << m 
+            end
+          when ?)
+            gm = group_marks.pop
+            gm ? new << ('(?' << gm) : (klass || new) << '('
+          else (count || klass || new) << ((op = oppose[m]) ? op.dup : m)
+          end
+        end
+        bs = false
+      end
+    }
+    new.reverse.join.to_re
+  end
+  
+private
+  def _find_paren(new)
+    if new.last.ord == ?(
+      n = 0
+      new.rfind {|e| e.ord == ?( ? !(n+=1) : (e.ord == ?) && (n-=1) == 0)}
+    else
+      new.last
+    end
+  end
+  
+end

data/lib/rmtools/text/string_rtl.rb

@@ -0,0 +1,28 @@
+RMTools::require 'text/regexp'
+
+class String
+  
+  # rightmost #sub
+  def rsub(from, to=nil, &block)
+    if block
+      reverse.sub(from.reverse) {|m| block[m.reverse].reverse}.reverse
+    else
+      q = to.scan(/\\\d(\D|$)/).size+1
+      to = to.reverse
+      to.gsub!(/(^|\D)(\d)\\/) {"#$1\\#{q-$2.to_i}"} if q > 1
+      reverse.sub(from.reverse, to).reverse
+    end
+  end
+
+  # in-place #rsub
+  def rsub!(from, to=nil, &block)
+    new = rsub from, to, &block
+    new == self ? nil : replace(new)
+  end
+    
+  # lookbehind #split
+  def rsplit(splitter=$/, qty=0)
+    reverse.split(splitter.reverse, qty).reverse.reverses
+  end
+  
+end

data/lib/rmtools/text/string_scanner.rb

@@ -5,7 +5,7 @@ class StringScanner
   attr_reader :last
   __init__
   
-  # #each( <Regexp>, { <0..255> => ->{|self|}, ... } )
+  # #each( <Regexp>, { <0..255 | :~ | nil> => ->{|self|}, ... } )
   # #each( <Regexp>, [ [ <Regexp>, ->{|self, <MatchData>|} ], ... ] )
   # #each( <Regexp> ) {|self|}
   # Example:
@@ -27,7 +27,7 @@ class StringScanner
     if cbs
       if cbs.is Hash
         while res
-          if cb = cbs[matched.ord]
+          if cb = cbs[matched.ord] || cbs[:~]
             cb[self]
             @last = pos
             res = !eos? && scan_until(re)
@@ -41,7 +41,7 @@ class StringScanner
         while res
           if cb = cbs.find {|pair| pair[0] and matched[pair[0]]}
             # patterns should be as explicit as possible
-            cb[1][self, $~]
+            cb[1][self, $~] if cb[1]
             @last = pos
             res = !eos? && scan_until(re)
           else break
@@ -61,19 +61,29 @@ class StringScanner
   end
   
   def head
-    string[@last...pos-matched.size]
+    string[@last...pos-matched_size]
   end
   
-  def tail
-    string[pos..-1]
-  end
+  alias tail post_match
   
   def hl_next(re)
-    (res = scan_until re) && RMTools.hl(string[pos-1000..pos+1000], res)
+    (res = scan_until re) && Painter.hl(string[[pos-1000, 0].max..pos+1000], res)
+  end
+  
+  def next_in(n)
+    string[pos+n-1, 1]
   end
   
+  def prev_in(n)
+    string[pos-matched_size-n, 1]
+  end
+  
+  def +; string[pos, 1] end
+  
+  def -; string[pos-matched_size-1, 1] end
+  
   def self.each string, *args, &b
-    new string, *args, &b
+    new(string).each *args, &b
   end
   
 end

data/lib/rmtools/text/string_simple.rb

@@ -2,10 +2,10 @@
 class String
   
   def inline
-    count("\n") == 0
+    index("\n").nil?
   end
     
-  def lchomp(match)
+  def lchomp(match=/\r\n?/)
     if index(match) == 0
       self[match.size..-1]
     else
@@ -13,7 +13,7 @@ class String
     end
   end
 
-  def lchomp!(match)
+  def lchomp!(match=/\r\n?/)
     if index(match) == 0
       self[0...match.size] = ''
       self
@@ -70,4 +70,12 @@ class String
     Regexp.new(esc ? Regexp.escape(self) : self)
   end
   
+  #    "b ц ~ \255 秀".bytes
+  ### => ["62", "20", "d1", "86", "20", "7e", "20", "ad", "20", "e7", "a7", "80"]
+  def bytes
+    arr = []
+    each_byte {|b| arr << b.hex}
+    arr
+  end
+  
 end

data/lib/rmtools/text/string_split.rb

@@ -3,10 +3,6 @@ RMTools::require 'text/string_simple'
 RMTools::require 'enumerable/array_iterators'
 
 class String
-    
-  def rsplit(splitter=$/, qty=0)
-    reverse.split(splitter, qty).reverse.reverses
-  end
   
   # Same as split, but without :reject_splitter option keeps splitters on the left of parts
   # with :report_headers option collects all regexp'ed splitters along with result array
@@ -48,7 +44,7 @@ class String
     
     def div(len, *)
       if !len.is Fixnum
-        deprecation "Use #sharp_split instead."
+        deprecate_method "Use #sharp_split instead."
         return sharp_split len
       end
       return [self] if len <= 0

data/lib/rmtools/xml/node.rb

@@ -117,7 +117,7 @@ module LibXML::XML
         attributes.to_hash
       end
       
-      %w{style id width height onclick ondbclick onmousedown onmousemove onmouseout onmouseover onmouseup src onerror onload href type value size onchange onselect onblur onfocus onfocusin onfocusout onkeydown onkeypress onkeyup action target enctype onsubmit checked selected}.each {|name|
+      %w{style id width height onclick ondblclick oncontextmenu onmousedown onmousemove onmouseout onmouseover onmouseup src onerror onload href type value size onchange onselect onblur onfocus onfocusin onfocusout onkeydown onkeypress onkeyup action target enctype onsubmit checked selected disabled}.each {|name|
         define_method(name) {self[name]}
         define_method(name+'=') {|value| self[name] = value}
       }

data/lib/rmtools/xml/string.rb

@@ -1,5 +1,5 @@
 # encoding: utf-8
-RMTools::require 'lang/shortcuts'
+RMTools::require 'lang/helpers'
 
 class String
   
@@ -32,7 +32,7 @@ class String
         rescue
           if enc = xml_charset
             XML::HTMLParser.string(str, :options => 97, 
-                           :encoding => eval('XML::Encoding::'+enc.upcase.tr('-','_'))).parse
+                           :encoding => XML::Encoding.const_get(enc.upcase.tr('-','_').to_sym)).parse
           else to_doc :force
           end
         end   

data/lib/rmtools.rb

@@ -1,9 +1,2 @@
-# encoding: utf-8
-SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
-$__MAIN__ = self
 require 'rmtools/load'
-RMTools::require 'b'
-RMTools::require 'debug'
-RMTools::require 'console'
-
-unless defined? Rails; class Object; include RMTools end end
+RMTools::require 'dev_min'

data/lib/rmtools_dev.rb

@@ -0,0 +1,6 @@
+SCRIPT_LINES__ = {} unless defined? SCRIPT_LINES__
+$__MAIN__ = self
+require 'rmtools/load'
+RMTools::require 'dev'
+
+unless defined? Rails; class Object; include RMTools end end