rmtools 1.0.0

data/lib/rmtools/string_to_proc.rb

@@ -0,0 +1,113 @@
+# 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
+# 
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+
+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 !block and proc = RMTools::String_to_proc_cache[self]
+        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] = proc if !block
+      proc
+    end
+    
+  end
+end
+
+

data/lib/rmtools/stringscanner.rb

@@ -0,0 +1,58 @@
+# encoding: utf-8
+
+class StringScanner
+  attr_reader :last
+  
+  def each(re, cbs=nil, &cb)
+    @last = 0
+    res = scan_until re
+    if cbs
+      if cbs[0].kinda Integer
+        while res
+          if cb = cbs[matched.ord]
+            cb[self]
+            @last = pos
+            res = !eos? && scan_until(re)
+          else break
+          end
+        end
+      else
+        while res
+          if cb = cbs.find {|pattern, proc| pattern.in matched}
+            # patterns must be as explicit as possible
+            cb[1][self]
+            @last = pos
+            res = !eos? && scan_until(re)
+          else break
+          end
+        end
+      end
+    else
+      while res
+          cb[self]
+          @last = pos
+          res = !eos? && scan_until(re)
+      end
+    end
+    if (cb = cbs[nil]) and !eos?
+      cb[tail]
+    end
+  end
+  
+  def head
+    string[@last...pos-matched.size]
+  end
+  
+  def tail
+    string[pos..-1]
+  end
+  
+  def hl_next(re)
+    (res = scan_until re) && RMTools.hl(string[pos-1000..pos+1000], res)
+  end
+  
+  def self.each string, *args, &b
+    new string, *args, &b
+  end
+  
+end

data/lib/rmtools/time.rb

@@ -0,0 +1,32 @@
+# encoding: utf-8
+module RMTools
+
+  def timer(ts=1, output=true)
+    timez = ts - 1
+    panic, verbose = $panic, $verbose
+    $panic = $verbose = false
+    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
+    res = res.inspect
+    puts "#{output ? "res: #{res.size > 1000 ? res[0...1000]+"…" : res}\n" : "size of res string: #{res.to_s.size}, "}one: #{(t2-t1).to_f/ts}ms, total: #{(t2-t1).to_f}ms"
+  end
+    
+  def puttime(ms=nil)
+    t = Time.now
+    if ms
+      t.strftime("%H:%M:%S")+sprintf(".%03d ", t.usec/1000)
+    else
+      t.strftime("%d.%m.%y %H:%M:%S ")
+    end
+  end
+    
+  def putdate
+    Time.now.strftime("%d.%m.%y")
+  end
+  
+  module_function :puttime, :putdate
+end

data/lib/rmtools/traceback.rb

@@ -0,0 +1,106 @@
+module RMTools
+
+  def format_trace a
+    bt, calls, i = [], [], 0
+  #  $log.info 'a.size', binding
+    m = a[0].match(/^(.+):(\d+)(?::in `([^']+)')?$/)
+    while i < a.size
+  #    $log.info i
+      m2 = a[i+1] && a[i+1].match(/^(.+):(\d+)(?::in `([^']+)')?$/)
+  #    $log.info 'm', binding
+  #    $log.info 'm2', binding
+  #    $log.info 'm[3] m[1..2]==m2[1..2]', binding if m and m2
+  #    $log.info 'm[1] m[2]', binding if m
+  #    $log.info highlighted_line(*m[1..2]) if m
+      if m and m[3] and m2 and m[1..2] == m2[1..2]
+        calls.unshift " <- `#{m[3]}'"
+      elsif m and m[1] !~ /\.gemspec$/ and line = highlighted_line(*m[1..2])
+        bt << "#{a[i]}#{calls.join}\n#{line}"
+        calls = []
+      else bt << a[i]
+      end
+      i += 1
+      m = m2
+    end
+  #  $log << Painter.r("FORMAT DONE! #{bt.size} lines formatted")
+    bt
+  end
+  
+  def highlighted_line_html file, line
+    if File.file?(file)
+      "   >>   <a style=\"color:#0A0; text-decoration: none;\"#{
+        " href=\"http://#{
+          defined?(DEBUG_SERVER) ? DEBUG_SERVER : 'localhost:8888'
+        }/code/#{CGI.escape CGI.escape(file).gsub('.', '%2E')}/#{line}\""
+      }>#{read_lines(file, line.to_i).chop}</a>" 
+    end
+  end
+
+  def format_trace_html a
+    bt, calls, i = [], [], 0
+    m = a[0].match(/^(.+):(\d+)(?::in `([^']+)')?$/)
+    while i < a.size
+      m2 = a[i+1] && a[i+1].match(/^(.+):(\d+)(?::in `([^']+)')?$/)
+      if m and m[3] and m2 and m[1..2] == m2[1..2]
+        calls.unshift " <- `#{m[3]}'"
+      elsif m and m[1] !~ /\.gemspec$/ and line = highlighted_line_html(*m[1..2])
+        bt << "#{a[i]}#{calls.join}\n#{line}"
+        calls = []
+      else bt << a[i]
+      end
+      i += 1
+      m = m2
+    end
+    bt
+  end
+  
+  module_function :format_trace, :format_trace_html, :highlighted_line_html
+end
+
+    # 1.9 may hung up processing IO while generating traceback
+if RUBY_VERSION < '1.9'
+
+  class Class
+    
+    def trace_format method
+      if new.kinda Exception
+        if method; class_eval(%{
+          def set_backtrace src
+            src = #{method} src
+            set_bt src
+          end
+        })
+        else        class_eval(%{
+          def set_backtrace src
+            set_bt src
+          end
+        })
+        end
+      end
+    end
+  
+  end
+
+  class Exception
+    alias :set_bt :set_backtrace
+    
+    # If you set (e.g. in irbrc file) IRB logging and Readline::TEMPLOG:
+    # module Readline
+    #   TEMPLOG = "path/to/logs/#{Time.now.to_i}.rb"
+    #   alias :orig_readline :readline
+    #   def readline(*args)
+    #     ln = orig_readline(*args)
+    #     RMTools::write TEMPLOG, "#{ln}\n"
+    #     return ln
+    #   end
+    # end
+    # it will be possible to get the lines entered in IRB
+    # else it reads only ordinal require'd files
+    
+    trace_format :format_trace
+    
+  end
+  
+  SystemStackError.trace_format false
+  
+end

data/lib/rmtools/tree.rb

@@ -0,0 +1,71 @@
+class Array
+  
+	def to_tree(set_keys=false)
+		ary = Tree.new dup
+		ary.set_keys! if set_keys
+		ary
+	end
+  
+  protected
+    def set_keys!(i=-1)
+      each {|e| Array === e && e.unshift(i+=1).set_keys!}
+    end
+  
+end
+
+module RMTools
+
+  class Tree < Array
+    
+    def self.from(*obj) new(*obj) end
+    
+    def initialize(obj, to_ary_method=nil)
+      super(to_ary_method ? recurse_build(obj, to_ary_method) : obj.to_a)
+    end
+    
+    def recurse_build(obj, to_ary_method)
+      to_ary_method = [to_ary_method] unless Array === to_ary_method
+      if to_ary_method = to_ary_method.find {|m| obj.respond_to?(m) && Array === (ary = obj.send m) && ary.size > 0} 
+        obj.send(to_ary_method).map {|branch| 
+          [branch, recurse_build(branch, to_ary_method)]
+        }
+      else
+        [self]
+      end
+    end
+    
+    def trace_leaf(a, c, cont=[])
+      return unless Array === a
+      return (a[0] == c && cont) if a.size == 1
+      y = nil
+      a[1..-1].each_with_index.find {|_, i|
+          y = trace_leaf(_, c, cont+[[a[0], i]])
+      }; y
+    end
+
+    def trace_branch(a, c, cont=[])
+      return unless Array === a
+      return cont if a[0] == c
+      y = nil
+      a[1..-1].each_with_index.find {|_, i|
+          y = trace_branch(_, c, cont+[[a[0], i]])
+      }; y
+    end
+        
+    def leaves
+      y=[]
+      each {|_| Array === node && (node.size>1 ? y.concat(node.leaves) : y.concat(node))}
+      y
+    end
+
+    def get_branch_by_key(a, key, value)
+      return unless Array === a
+      return a if a[0][key] == value
+      y = nil
+      a[1..-1].find {|record| y = get_branch_by_key(record, key, value)}
+      y
+    end
+    
+  end
+
+end

metadata

@@ -0,0 +1,191 @@
+--- !ruby/object:Gem::Specification 
+name: rmtools
+version: !ruby/object:Gem::Version 
+  hash: 23
+  prerelease: false
+  segments: 
+  - 1
+  - 0
+  - 0
+  version: 1.0.0
+platform: ruby
+authors: 
+- Shinku Templar
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-10 00:00:00 +03:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rake
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 49
+        segments: 
+        - 0
+        - 8
+        - 7
+        version: 0.8.7
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: activesupport
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 9
+        segments: 
+        - 2
+        - 3
+        - 5
+        version: 2.3.5
+  type: :runtime
+  version_requirements: *id002
+- !ruby/object:Gem::Dependency 
+  name: rubyforge
+  prerelease: false
+  requirement: &id003 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 7
+        segments: 
+        - 2
+        - 0
+        - 4
+        version: 2.0.4
+  type: :development
+  version_requirements: *id003
+- !ruby/object:Gem::Dependency 
+  name: gemcutter
+  prerelease: false
+  requirement: &id004 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 11
+        segments: 
+        - 0
+        - 5
+        - 0
+        version: 0.5.0
+  type: :development
+  version_requirements: *id004
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  prerelease: false
+  requirement: &id005 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 27
+        segments: 
+        - 2
+        - 5
+        - 0
+        version: 2.5.0
+  type: :development
+  version_requirements: *id005
+description: "== RMTools\n\
+  Methods for basic classes addon collection.\n\n\
+  == CHANGES\n\
+  :include: History.txt\n"
+email: 
+- tinbka@gmail.com
+executables: []
+
+extensions: 
+- ext/extconf.rb
+extra_rdoc_files: 
+- ./Manifest.txt
+- ./License.txt
+- ./README.txt
+- ./History.txt
+files: 
+- ext/extconf.rb
+- ext/rmtools.h
+- ext/rmtools.cpp
+- lib/rmtools.rb
+- lib/rmtools/arguments.rb
+- lib/rmtools/numeric.rb
+- lib/rmtools/string.rb
+- lib/rmtools/io.rb
+- lib/rmtools/js.rb
+- lib/rmtools/cyrilic.rb
+- lib/rmtools/coloring.rb
+- lib/rmtools/stringscanner.rb
+- lib/rmtools/enum.rb
+- lib/rmtools/string_to_proc.rb
+- lib/rmtools/traceback.rb
+- lib/rmtools/time.rb
+- lib/rmtools/random.rb
+- lib/rmtools/binding.rb
+- lib/rmtools/printing.rb
+- lib/rmtools/range.rb
+- lib/rmtools/tree.rb
+- lib/rmtools/boolean.rb
+- lib/rmtools/hash.rb
+- lib/rmtools/logging.rb
+- lib/rmtools/limited_string.rb
+- lib/rmtools/module.rb
+- lib/rmtools/object.rb
+- lib/rmtools/array.rb
+- lib/rmtools/setup.rb
+- lib/rmtools/cyr-time.rb
+- lib/rmtools/dumps.rb
+- lib/rmtools/proc.rb
+- ./Rakefile
+- ./Manifest.txt
+- ./License.txt
+- ./README.txt
+- ./History.txt
+has_rdoc: true
+homepage: http://github.com/tinbka
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+- ext
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: rmtools
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Yet another Ruby applied framework
+test_files: []
+