mack-facets 0.8.1 → 0.8.2

data/lib/gems/facets-2.4.5/lib/more/facets/attr.rb

@@ -0,0 +1,208 @@
+class Module
+
+  # Like attr_writer, but the writer method validates the
+  # setting against the given block.
+  #
+  #   CREDIT: ?
+
+  def attr_validator(*symbols, &validator)
+    made = []
+    symbols.each do |symbol|
+      define_method "#{symbol}=" do |val|
+        unless validator.call(val)
+          raise ArgumentError, "Invalid value provided for #{symbol}"
+        end
+        instance_variable_set("@#{symbol}", val)
+      end
+      made << "#{symbol}=".to_sym
+    end
+    made
+  end
+
+  # Create aliases for validators.
+
+  def alias_validator(*args)
+    orig = args.last
+    args = args - [orig]
+    args.each do |name|
+      #alias_method(name, orig)
+      alias_method("#{name}=", "#{orig}=")
+    end
+  end
+
+  # TODO Perhaps need to make a check against overriding annotated version.
+
+  # Create an attribute method for both getting
+  # and setting an instance variable.
+  #
+  #   attr_setter :a
+  #
+  # _is equivalent to_
+  #
+  #   def a(*args)
+  #     if args.size > 0
+  #       @a = args[0]
+  #       self
+  #     else
+  #       @a
+  #     end
+  #   end
+  #
+  #  CREDIT: Trans
+
+  def attr_setter(*args)
+    code, made = '', []
+    args.each do |a|
+      code << %{
+        def #{a}(*args)
+          args.size > 0 ? ( @#{a}=args[0] ; self ) : @#{a}
+        end
+      }
+      made << "#{a}".to_sym
+    end
+    module_eval code
+    made
+  end
+
+  # Alias an accessor. This create an alias for
+  # both a reader and a writer.
+  #
+  #   class X
+  #     attr_accessor :a
+  #     alias_accessor :b, :a
+  #   end
+  #
+  #   x = X.new
+  #   x.b = 1
+  #   x.a        #=> 1
+  #
+  #  CREDIT: Trans
+
+  def alias_setter(*args)
+    args = args - [orig]
+    args.each do |name|
+      alias_method(name, orig)
+    end
+  end
+
+  # Create a toggle attribute. This creates two methods for
+  # each given name. One is a form of tester and the other
+  # is used to toggle the value.
+  #
+  #   attr_accessor! :a
+  #
+  # is equivalent to
+  #
+  #   def a?
+  #     @a
+  #   end
+  #
+  #   def a!(value=true)
+  #     @a = value
+  #     self
+  #   end
+  #
+  #  CREDIT: Trans
+
+  def attr_accessor!(*args)
+    attr_reader!(*args) + attr_writer!(*args)
+  end
+  alias_method :attr_switcher, :attr_accessor!
+  alias_method :attr_toggler,  :attr_accessor!
+
+  # Create aliases for flag accessors.
+  #
+  #  CREDIT: Trans
+
+  def alias_accessor!(*args)
+    orig = args.last
+    args = args - [orig]
+    args.each do |name|
+      alias_method("#{name}?", "#{orig}?")
+      alias_method("#{name}!", "#{orig}!")
+    end
+  end
+  alias_method :alias_switcher, :alias_accessor!
+  alias_method :alias_toggler,  :alias_accessor!
+
+  # Create an tester attribute. This creates a single method
+  # used to test the attribute for truth.
+  #
+  #   attr_reader! :a
+  #
+  # is equivalent to
+  #
+  #   def a?
+  #     @a ? true : @a
+  #   end
+
+  def attr_reader!(*args)
+    code, made = '', []
+    args.each do |a|
+      code << %{
+        def #{a}?(truth=nil)
+          @#{a} ? truth || @#{a} : @#{a}
+        end
+      }
+      made << "#{a}?".to_sym
+    end
+    module_eval code
+    made
+  end
+  alias_method :attr_reader?, :attr_reader!
+  alias_method :attr_tester, :attr_reader!
+
+  # Create aliases for flag reader.
+  #
+  #  CREDIT: Trans
+
+  def alias_reader!(*args)
+    orig = args.last
+    args = args - [orig]
+    args.each do |name|
+      alias_method("#{name}?", "#{orig}?")
+    end
+  end
+  alias_method :alias_reader?, :alias_reader!
+  alias_method :alias_tester, :alias_reader!
+
+  # Create a flaggable attribute. This creates a single methods
+  # used to set an attribute to "true".
+  #
+  #   attr_writer! :a
+  #
+  # is equivalent to
+  #
+  #   def a!(value=true)
+  #     @a = value
+  #     self
+  #   end
+
+  def attr_writer!(*args)
+    code, made = '', []
+    args.each do |a|
+      code << %{
+        def #{a}!(value=true)
+          @#{a} = value
+          self
+        end
+      }
+      made << "#{a}!".to_sym
+    end
+    module_eval code
+    made
+  end
+
+  # Create aliases for flag writer.
+  #
+  #  CREDIT: Trans
+
+  def alias_writer!(*args)
+    orig = args.last
+    args = args - [orig]
+    args.each do |name|
+      alias_method("#{name}!", "#{orig}!")
+    end
+  end
+
+end

data/lib/gems/facets-2.4.5/lib/more/facets/autoarray.rb

@@ -0,0 +1,62 @@
+# = AutoArray
+#
+# An Array that automatically expands dimensions as needed.
+#
+#   a  = Autoarray.new
+#   a[1][2][3] = 12
+#   a             #=> [nil, [nil, nil, [nil, nil, nil, 12]]]
+#   a[2][3][4]    #=> []
+#   a             #=> [nil, [nil, nil, [nil, nil, nil, 12]]]
+#   a[1][-2][1] = "Negative"
+#   a             #=> [nil, [nil, [nil, "Negative"], [nil, nil, nil, 12]]]
+#
+# == Authors
+#
+# * Brian Schröder
+#
+# == License
+#
+#   Copyright (c) 2005 Brian Schröder
+#
+#   Ruby License
+#
+#   This module is free software. You may use, modify, and/or redistribute this
+#   software under the same terms as Ruby.
+#
+#   This program is distributed in the hope that it will be useful, but WITHOUT
+#   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#   FOR A PARTICULAR PURPOSE.
+
+# = AutoArray
+#
+# An Array that automatically expands dimensions as needed.
+#
+#   a  = Autoarray.new
+#   a[1][2][3] = 12
+#   a             #=> [nil, [nil, nil, [nil, nil, nil, 12]]]
+#   a[2][3][4]    #=> []
+#   a             #=> [nil, [nil, nil, [nil, nil, nil, 12]]]
+#   a[1][-2][1] = "Negative"
+#   a             #=> [nil, [nil, [nil, "Negative"], [nil, nil, nil, 12]]]
+#
+class Autoarray < Array
+
+  def initialize(size=0, default=nil, update = nil, update_index = nil)
+    super(size, default)
+    @update, @update_index = update, update_index
+  end
+
+  def [](k)
+    if -self.length+1 < k and k < self.length
+      super(k)
+    else
+      Autoarray.new(0, nil, self, k)
+    end
+  end
+
+  def []=(k, v)
+    @update[@update_index] = self if @update and @update_index
+    super
+  end
+
+end

data/lib/gems/facets-2.4.5/lib/more/facets/autoreload.rb

@@ -0,0 +1,150 @@
+# = Autoreload
+#
+# Autoreload feature files.
+#
+# Automatically reload, at regular intervals, any previously loaded features,
+# and/or other files not already loaded, if they have been modified since the last
+# interval check. A numeric parameter sets the reload interval in seconds
+# and the file parameter can either be a glob string or an array
+# of file paths. If a glob string, it is expanded only once on the initial
+# method call. Supplying a boolean parameter of 'false' will force autreload to
+# skip previously loaded features and only reload the specified files.
+# Also keeps a "dirty" flag.
+#
+# == Authors
+#
+#   - Michael Neumann
+#   - George Moschovitis
+#
+# == TODO
+#
+# * Create tests for autoreload.
+#
+# == Copying
+#
+# Copyright (c) 2003 Michael Neumann
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+
+#
+module Kernel
+
+  # Autoreload feature files.
+  #
+  # Automatically reload, at regular intervals, any previously loaded features,
+  # and/or other files not already loaded, if they have been modified since the last
+  # interval check. A numeric parameter sets the reload interval in seconds
+  # and the file parameter can either be a glob string or an array
+  # of file paths. If a glob string, it is expanded only once on the initial
+  # method call. Supplying a boolean parameter of 'false' will force autreload to
+  # skip previously loaded features and only reload the specified files.
+  # Also keeps a "dirty" flag.
+
+  def autoreload( *args )
+
+    check_interval=10
+    include_features = true
+    files = nil
+
+    args.each do |arg|
+      case arg
+      when Numeric
+        check_interval = arg
+      when String
+        files = Dir.glob( arg )
+      when Array
+        files = arg
+      when TrueClass, FalseClass
+        include_features = arg
+      end
+    end
+
+    file_mtime = {}
+
+    Thread.new(Time.now) do |start_time|
+      loop do
+        sleep check_interval
+
+        if include_features
+          feature_files = $LOADED_FEATURES.collect { |feature|
+            $LOAD_PATH.each { |lp| file = File.join(lp, feature) }
+          }.flatten
+
+          feature_files.each { |file|
+            if File.exists?(file) and (mtime = File.stat(file).mtime) > (file_mtime[file] || start_time)
+              $autoreload_dirty = true
+              file_mtime[file] = mtime
+              STDERR.puts "File '#{ file }' reloaded"
+              begin
+                load(file)
+              rescue Exception => e
+                STDERR.puts e.inspect
+              end
+            end
+          }
+        end
+
+        if files
+          files.each do |file|
+            if File.exists?(file) and (mtime = File.stat(file).mtime) > (file_mtime[file] || start_time)
+              $autoreload_dirty = true
+              file_mtime[file] = mtime
+              STDERR.puts "File '#{ file }' changed"
+            end
+          end
+        end
+
+      end
+    end
+
+  end
+
+  # Same as #autoreload, but does not include previously loaded features.
+  # This is equivalent to as adding a 'false' parameter to #autoreload.
+  #
+  def autoreload_files( *args )
+    autoreload( false, *args )
+  end
+
+  # deprecate
+  #def autoreload_glob(*args)
+  #  warn "autoreload_glob will be deprecated. Use autoreload_files instead."
+  #  autoreload_files(*args)
+  #end
+
+end
+
+#--
+#   # OLD VERSION
+#   def autoreload(check_interval=10)
+#     Thread.new(Time.now) { |start_time|
+#       file_mtime = {}
+#       loop {
+#         sleep check_interval
+#         $LOADED_FEATURES.each { |feature|
+#           $LOAD_PATH.each { |lp|
+#             file = File.join(lp, feature)
+#             if (File.exists?(file) and
+#               File.stat(file).mtime > (file_mtime[file] || start_time))
+#               file_mtime[file] = File.stat(file).mtime
+#               STDERR.puts "reload #{ file }"
+#               begin
+#                 load(file)
+#               rescue Exception => e
+#                 STDERR.puts e.inspect
+#               end
+#             end
+#           }
+#         }
+#       }
+#     }
+#   end
+#++
+

data/lib/gems/facets-2.4.5/lib/more/facets/basex.rb

@@ -0,0 +1,37 @@
+class BaseX
+
+  BASE62 = ["0".."9", "a".."z", "A".."Z"].map { |r| r.to_a }.flatten
+
+  attr :chars, :base, :values
+
+  def initialize(chars=BASE62)
+    @chars  = chars
+    @base   = @chars.size
+    @values = Hash[*(0...@base).map { |i| [ @chars[i], i ] }.flatten]
+  end
+
+  def encode(byte_string)
+    convert_base(byte_string.unpack("C*"), 256, @base).map { |d|
+      @chars[d]
+    }.join('')
+  end
+
+  def decode(encoded)
+    convert_base(encoded.split('').map { |c|
+      @values[c]
+    }, @base, 256).pack("C*")
+  end
+
+  def convert_base(digits, from_base, to_base)
+    bignum = 0
+    digits.each { |digit| bignum = bignum * from_base + digit }
+    converted = []
+    until bignum.zero?
+      bignum, digit = bignum.divmod to_base
+      converted.push digit
+    end
+    converted.reverse
+  end
+
+end
+