facets 2.9.1 → 2.9.2

data/src/core-uncommon/facets/module/module_load.rb

@@ -0,0 +1,78 @@
+class Module
+
+  # Load file directly into module/class namespace.
+  #
+  # Please use this with careful consideration.
+  # It is best suited to loading plugin-type scripts,
+  # and should generally not be used as a substitue for
+  # Ruby's standard load system.
+  #
+  # NOTE: This is not (presently) a common core extension and is not
+  # loaded automatically when using <code>require 'facets'</code>.
+  #
+  # CREDIT: Trans
+
+  def module_load( path )
+    if path =~ /^[\/~.]/
+      file = File.expand_path(path)
+    else
+      $LOAD_PATH.each do |lp|
+        file = File.join(lp,path)
+        break if File.exist?(file)
+        file = nil
+      end
+    end
+    raise LoadError, "no such file to load -- #{path}" unless file
+    module_eval(File.read(file))
+  end
+
+  # Require file into module/class namespace.
+  #
+  # Unlike load this keeps a per-module cache and will
+  # not load the same file into the same module more
+  # than once despite repeated attempts.
+  #
+  # The cache is kept in a global var called +$module_require+.
+  #
+  # Please use this with careful consideration.
+  # It is best suited to loading plugin-type scripts,
+  # and should generally not be used as a substitue for
+  # Ruby's standard load system.
+  #
+  # NOTE: This is not a common core extension and is not loaded
+  # automatically when using <code>require 'facets'</code>.
+  #
+  # CREDIT: Trans
+
+  def module_require( path )
+    if path =~ /^[\/~.]/
+      file = File.expand_path(path)
+    else
+      $LOAD_PATH.each do |lp|
+        file = File.join(lp,path)
+        break if File.exist?(file)
+        file += '.rb'
+        break if File.exist?(file)
+        file = nil
+      end
+    end
+    raise LoadError, "no such file to load -- #{path}" unless file
+    # per-module load cache
+    $module_require ||= {}
+    $module_require[self] ||= {}
+    loaded = $module_require[self]
+    if loaded.key?(file)
+      false
+    else
+      loaded[file] = true
+      script = File.read(file)
+      module_eval(script)
+      true
+    end
+  end
+
+  alias_method :class_require, :module_require
+  alias_method :class_load, :module_load
+
+end
+

data/src/core-uncommon/facets/module/preextend.rb

@@ -0,0 +1,29 @@
+class Module
+
+  # Prepend an +aspect+ module to a module.
+  # This only works at the module level.
+  #
+  #   module ::PreX
+  #     def x; "x"; end
+  #   end
+  #
+  #   module ::PreU
+  #     def x; '{' + super + '}'; end
+  #   end
+  #
+  #   PreX.preextend(PreU)
+  #
+  #   PreX.x  # => "{x}"
+  #
+  # NOTE: This is not a common core extension and is not loaded
+  # automatically when using <code>require 'facets'</code>.
+  #
+  # CREDIT Trans
+
+  def preextend(aspect)
+    aspect.__send__(:include, self)
+    extend aspect
+  end
+
+end
+

data/src/core-uncommon/facets/module/prepend.rb

@@ -0,0 +1,61 @@
+module Prependable
+
+  def self.included(base)
+    base.extend Self
+    base.instance_methods(false).each do |meth|
+      base.method_added(meth)
+    end
+  end
+
+  module Self
+    def prepend_module
+      @_prepend_module ||= Module.new
+    end
+
+    def method_added(meth)
+      return if meth.to_s[-2,2] == ':-'
+      alias_method "#{meth}:-", meth
+      remove_method(meth)
+      prepend_module.module_eval %{
+        def #{meth}(*a,&b); __send__("#{meth}:-",*a,&b); end
+      }
+      include prepend_module
+    end
+  end
+
+end
+
+class Module
+
+  # Prepend module.
+  #
+  #   class X
+  #     def a; "Xa"; end
+  #   end
+  #
+  #   module M
+  #     def a; "M" + super ; end
+  #   end
+  #
+  #   class X
+  #     prepend M
+  #   end
+  #
+  #   X.new.a  #=> MXa
+  #
+  # IMPORTANT! #prepend is not dynamic, rather it copies all methods
+  # when included on a class or module. For this reason one must be careful
+  # to invoke #prepend AFTER any method definitions that are to be effected.
+  # Ideally this would not be necessary, but it would require support in
+  # Ruby's C+ source to make it possible.
+  #
+  # NOTE: This is not a common core extension and is not loaded
+  # automatically when using <code>require 'facets'</code>.
+
+  def prepend(mod)
+    include Prependable
+    include mod
+  end
+
+end
+

data/src/core-uncommon/facets/regexp/op_or.rb

@@ -0,0 +1,13 @@
+class Regexp
+
+  # Operator form of `Regexp.union`:
+  #
+  #   /a/ | /b/  #=> /(a|b)/
+  #
+  # NOTE: This is not (presently) a common core extension and is not
+  # loaded automatically when using <code>require 'facets'</code>.
+  def |(arg)
+    Regexp.union(self, arg.is_a?(Regexp) ? arg : arg.to_s)
+  end
+
+end

data/src/core-uncommon/facets/string/acronym.rb

@@ -0,0 +1,8 @@
+class String
+
+  # CREDIT: Robert Fey
+  def acronymize
+	  gsub(/(([a-zA-Z0-9])([a-zA-Z0-9])*)./,"\\2")
+  end
+
+end

data/src/core-uncommon/facets/string/crypt.rb

@@ -0,0 +1,19 @@
+class String
+
+  alias_method :_crypt, :crypt
+
+  # Common Unix cryptography method.
+  # This adds a default salt to the built-in crypt method.
+  #
+  # NOTE: This is not (presently) a common core extension and is not
+  # loaded automatically when using <code>require 'facets'</code>.
+
+  def crypt(salt=nil)
+    salt ||= (
+      (rand(26) + (rand(2) == 0 ? 65 : 97) ).chr +
+      (rand(26) + (rand(2) == 0 ? 65 : 97) ).chr
+    )
+    _crypt(salt)
+  end
+
+end

data/src/core-uncommon/facets/string/roman.rb

@@ -0,0 +1 @@
+require 'facets/integer/roman'

data/src/core/facets.rb

@@ -0,0 +1,70 @@
+module Facets
+  #
+  def self.profile
+    @profile ||= (
+      require 'yaml'
+      YAML.load(File.new(File.dirname(__FILE__) + '/facets.yml'))
+    )
+  end
+
+  #
+  def self.const_missing(name)
+    key = name.to_s.downcase
+    profile[key] || super(name)
+  end
+
+  #
+  VERSION = '<%= File.read('VERSION').strip %>'  # profile['version']
+end
+
+<%=
+  dir  = File.dirname(__FILE__) + '/facets/'
+  list = []
+  Dir.new(dir).each do |path|
+    next unless File.extname(path) == '.rb'
+    list << %Q{require 'facets/#{path}'}
+  end
+  list.sort.join("\n")
+%>
+
+=begin
+require 'facets/array.rb'
+require 'facets/binding.rb'
+require 'facets/boolean.rb'
+require 'facets/class.rb'
+require 'facets/comparable.rb'
+require 'facets/denumerable.rb'
+require 'facets/dir.rb'
+require 'facets/enumerable.rb'
+require 'facets/enumerator.rb'
+require 'facets/exception.rb'
+require 'facets/file.rb'
+require 'facets/filetest.rb'
+require 'facets/float.rb'
+require 'facets/functor.rb'
+require 'facets/hash.rb'
+require 'facets/indexable.rb'
+require 'facets/instance.rb'
+require 'facets/integer.rb'
+require 'facets/kernel.rb'
+require 'facets/lazy.rb'
+require 'facets/matchdata.rb'
+require 'facets/method.rb'
+require 'facets/module.rb'
+require 'facets/na.rb'
+require 'facets/nilclass.rb'
+require 'facets/numeric.rb'
+require 'facets/object.rb'
+require 'facets/objectspace.rb'
+require 'facets/proc.rb'
+require 'facets/process.rb'
+require 'facets/range.rb'
+require 'facets/regexp.rb'
+require 'facets/string.rb'
+require 'facets/struct.rb'
+require 'facets/symbol.rb'
+require 'facets/time.rb'
+require 'facets/to_hash.rb'
+require 'facets/unboundmethod.rb'
+=end
+

data/src/core/facets.yml

@@ -0,0 +1,57 @@
+---
+authors:
+- name: Thomas Sawyer
+  email: transfire@gmail.com
+copyrights:
+- holder: Thomas Sawyer
+  year: '2004'
+  license: Ruby
+replacements: []
+conflicts: []
+requirements:
+- name: lemon
+  groups:
+  - test
+  development: true
+- name: qed
+  groups:
+  - test
+  development: true
+- name: detroit
+  groups:
+  - build
+  development: true
+dependencies: []
+repositories:
+- uri: git@github.com:rubyworks/facets.git
+  scm: git
+  name: upstream
+resources:
+  home: http://rubyworks.github.com/facets
+  code: http://github.com/rubyworks/facets
+  docs: http://rubyworks.github.com/facets/learn.html
+  wiki: http://wiki.github.com/rubyworks/facets
+  talk: http://groups.google.com/group/facets-universal
+load_path:
+- lib/core
+- lib/core-uncommon
+- lib/standard
+- lib/supplemental
+extra:
+  slogan: ALL YOUR BASE ARE BELONG TO RUBY!
+  manifest: MANIFEST
+source: []
+alternatives: []
+revision: 0
+title: Facets
+name: facets
+summary: Premium Ruby Extensions
+created: '2004-12-16'
+description: Facets is the premier collection of extension methods for the Ruby programming
+  language. Facets extensions are unique by virtue of thier atomicity. They are stored
+  in individual files allowing for highly granular control of requirements. In addition,
+  Facets includes a few additional classes and mixins suitable to wide variety of
+  applications.
+organization: rubyworks
+version: 2.9.2
+date: '2011-08-23'

data/src/core/facets/applique/file_helpers.rb

@@ -0,0 +1,33 @@
+#
+def temporary_directory
+  @temporary_directory ||= 'tmp'
+end
+
+When /Given a directory '(.*?)' containing/ do |dir, text|
+  @temporary_directory = File.join(@temporary_directory, dir)
+  text.lines.each do |file|
+    next if file =~ /^\s*$/
+    file = File.join(@temporary_directory, file.strip)
+    dir  = File.dirname(file)
+    FileUtils.mkdir_p(dir)
+    File.open(file, 'w'){ |f| f << "SPINICH" }
+  end
+end
+
+Before :all do
+  if File.exist?(temporary_directory)
+    FileUtils.rm_r(temporary_directory)
+  end
+  FileUtils.mkdir_p(temporary_directory)
+end
+
+# Used for File extensions
+When "had a file '(((.*?)))'" do |name|
+  name = name.sub(/^tmp\//, '')  # b/c QED now runs from tmp/qed
+  File.open(name, 'w'){|f| f << "Hello World"}
+end
+
+When "had a binary file '(((.*?)))'" do |name|
+  name = name.sub(/^tmp\//, '')  # b/c QED now runs from tmp/qed
+  File.open(name, 'wb'){|f| f << "Hello\nWorld\n"}
+end

data/src/core/facets/array.rb

@@ -0,0 +1,28 @@
+# Load all Array core extensions.
+
+if RUBY_VERSION < '1.9'
+<%=
+  path = __FILE__.chomp('.rb')
+  base = File.basename(path)
+  Dir[File.join(path, '*.rb')].map do |lib|
+    %Q{  require "facets/#{base}/#{File.basename(lib)}"}
+  end.sort.join("\n")
+%>
+else
+<%=
+  path = __FILE__.chomp('.rb')
+  base = File.basename(path)
+  Dir[File.join(path, '*.rb')].map do |lib|
+    %Q{  require_relative "#{base}/#{File.basename(lib)}"}
+  end.sort.join("\n")
+%>
+end
+
+
+# OLD WAY
+#dir, base = *File.split(__FILE__)
+#base = base.chomp('.rb')
+#Dir[File.join(dir, base, '*.rb')].each do |lib|
+#  require "facets/#{base}/#{File.basename(lib)}"
+#end
+

data/src/core/facets/array/after.rb

@@ -0,0 +1 @@
+require 'facets/array/before'

data/src/core/facets/array/before.rb

@@ -0,0 +1,39 @@
+class Array
+
+  # Returns the value previous to the given value. The value previous
+  # to the first is the last. Returns nil if the given value is not
+  # in the array.
+  #
+  # Examples
+  #
+  #   sequence = ['a', 'b', 'c']
+  #   sequence.before('a')           #=> 'c'
+  #   sequence.before('b')           #=> 'a'
+  #   sequence.before('c')           #=> 'b'
+  #   sequence.before('d')           #=> nil
+  #
+  # CREDIT: Tyler Rick
+  def before(value)
+    return nil unless include? value
+    self[(index(value).to_i - 1) % length]
+  end
+
+  # Returns the value after the given value. The value before the last
+  # is the first. Returns nil if the given value is not in the array.
+  #
+  # Examples
+  #
+  #   sequence = ['a', 'b', 'c']
+  #   sequence.after('a')           #=> 'b'
+  #   sequence.after('b')           #=> 'c'
+  #   sequence.after('c')           #=> 'a'
+  #   sequence.after('d')           #=> nil
+  #
+  # CREDIT: Tyler Rick
+  def after(value)
+    return nil unless include? value
+    self[(index(value).to_i + 1) % length]
+  end
+
+end
+