facets 0.9.0 → 1.0.0

data/lib/mega/ansicolor.rb

@@ -1,193 +0,0 @@
-#--
-# ANSIColor
-#
-# Copyright (c) 2002-2005 Florian Frank
-#
-# GNU Lesser General Public License
-#
-# This program is free software.
-# You can distribute/modify this program under the terms of
-# the GNU Lesser General Public License version 2 or later.
-#
-#
-# ==========================================================================
-# Revision History ::
-# --------------------------------------------------------------------------
-#  2005.04.28  Trans  * Minor modifications to documentation.
-#
-#  2004-11-30  Trans  * Ported to Facets collection (transami)
-#
-#  2004-09-28  FF     * First release on Rubyforge
-#                     * Supports Rubygems now
-#
-#  2003-10-09  FF     * Added uncolored method as suggested by
-#                       Thomas Husterer <Thomas.Husterer@heidelberg.com>
-#                     * Added attribute methods with string arguments
-#                     * Deleted now unused files
-#
-#  2002-07-27  FF     * Minor Code Cleanup
-#                     * Added cdiff.rb
-#
-#  2002-06-12  FF     * Initial Release
-# ==========================================================================
-#++
-
-#:title: ANSIColor
-#
-# Module which makes it very easy to use ANSI codes.
-# These are esspecially nice for beautifying shell output.
-#
-# == Synopsis
-#
-#   require 'mega/ansicolor'
-#
-#   include ANSIColor
-#
-#   p red, "Hello", blue, "World"   
-#   => "\e[31mHello\e[34mWorld"
-#
-#   p red { "Hello" } + blue { "World" }
-#   => "\e[31mHello\e[0m\e[34mWorld\e[0m"
-#
-# == Supported ANSI Commands
-#
-#     clear
-#     reset           # synonym for :clear
-#     bold
-#     dark
-#     italic          # not widely implemented
-#     underline
-#     underscore      # synonym for :underline
-#     blink
-#     rapid_blink     # not widely implemented
-#     negative        # no reverse because of String#reverse
-#     concealed
-#     strikethrough   # not widely implemented
-#     black
-#     red
-#     green
-#     yellow
-#     blue
-#     magenta
-#     cyan
-#     white
-#     on_black
-#     on_red
-#     on_green
-#     on_yellow
-#     on_blue
-#     on_magenta
-#     on_cyan
-#     on_white
-#
-# == Author(s)
-#
-# * Florian Frank <flori#ping.de>
-#
-
-module ANSIColor
-
-  @@attributes = [
-    [ :clear        ,   0 ], 
-    [ :reset        ,   0 ],     # synonym for :clear
-    [ :bold         ,   1 ], 
-    [ :dark         ,   2 ], 
-    [ :italic       ,   3 ],     # not widely implemented
-    [ :underline    ,   4 ], 
-    [ :underscore   ,   4 ],     # synonym for :underline
-    [ :blink        ,   5 ], 
-    [ :rapid_blink  ,   6 ],     # not widely implemented
-    [ :negative     ,   7 ],     # no reverse because of String#reverse
-    [ :concealed    ,   8 ], 
-    [ :strikethrough,   9 ],     # not widely implemented
-    [ :black        ,  30 ], 
-    [ :red          ,  31 ], 
-    [ :green        ,  32 ], 
-    [ :yellow       ,  33 ], 
-    [ :blue         ,  34 ], 
-    [ :magenta      ,  35 ], 
-    [ :cyan         ,  36 ], 
-    [ :white        ,  37 ], 
-    [ :on_black     ,  40 ], 
-    [ :on_red       ,  41 ], 
-    [ :on_green     ,  42 ], 
-    [ :on_yellow    ,  43 ], 
-    [ :on_blue      ,  44 ], 
-    [ :on_magenta   ,  45 ], 
-    [ :on_cyan      ,  46 ], 
-    [ :on_white     ,  47 ], 
-  ]
-
-  @@attributes.each do |c, v|
-    eval %Q{
-        def #{c.to_s}(string = nil)
-            result = "\e[#{v}m"
-            if block_given?
-                result << yield
-                result << "\e[0m"
-            elsif string
-                result << string
-                result << "\e[0m"
-            elsif respond_to?(:to_str)
-                result << self
-                result << "\e[0m"
-            end
-            return result
-        end
-    }
-  end
-
-  ColoredRegexp = /\e\[([34][0-7]|[0-9])m/
-
-  def uncolored(string = nil)
-    if block_given?
-      yield.gsub(ColoredRegexp, '')
-    elsif string
-      string.gsub(ColoredRegexp, '')
-    elsif respond_to?(:to_str)
-      gsub(ColoredRegexp, '')
-    else
-      ''
-    end
-  end
-
-  module_function
-
-  def attributes
-    @@attributes.map { |c| c[0] }
-  end
-
-end #module ANSIColor
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin testing
-
-  require 'test/unit'
-
-  class TC_ANSIColor < Test::Unit::TestCase
-
-    include ANSIColor
-
-    def test_methods
-      str = red + "Hello" + blue + "World"
-      out = "\e[31mHello\e[34mWorld"
-      assert_equal( out, str )
-    end
-
-    def test_blocks
-      str = red { "Hello" } + blue { "World" }
-      out = "\e[31mHello\e[0m\e[34mWorld\e[0m"
-      assert_equal( out, str )
-    end
-
-  end
-
-=end

data/lib/mega/association.rb

@@ -1,174 +0,0 @@
-#--
-# Association
-#
-# Copyright (c) 2005 Thmas Sawyer
-#
-# 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.
-#
-# ==========================================================================
-# Revision History ::
-# --------------------------------------------------------------------------
-#  2005-10-25  Trans     * Initial Release
-# ==========================================================================
-#++
-
-#:title: Association
-#
-# Gerenal binary association, useful for creating ordered hashes,
-# or mixed collections.
-#
-# The method :>> is used to construct the association. It is an uncommon
-# method, but wehere is has been used prior a suitable alias has been
-# made, #rshift. For Date class it has ben named #months_later.
-#
-# == Synopsis
-#
-#   c = [ :a >> 1, :b >> 2 ]
-#
-#   c.each { |k,v| puts "#{k} associated with #{v} }
-#
-# _produces_
-#
-#   a associated with 1
-#   b associated with 2
-#
-# == Author(s)
-#
-# * Thomas Sawyer
-#
-
-class Association
-
-  include Comparable
-
-  attr_accessor :index, :value
-
-  def self.[](*args)
-    new(*args)
-  end
-
-  def initialize(index, value=nil)
-    @index = index
-    @value = value
-  end
-
-  def <=>(assoc)
-     return -1 if self.value < assoc.value
-     return 1 if self.value > assoc.value
-     return 0 if self.value == assoc.value
-  end
-
-  def invert!
-    temp = @index
-    @index = @value
-    @value = temp
-  end
-
-  def to_s
-    return "#{index.to_s}#{value.to_s}"
-  end
-
-  def inspect
-    %{#{@index.inspect} >> #{@value.inspect}}
-  end
-
-  def to_ary
-    [ @index, @value ]
-  end
-
-end
-
-# Setup the >> method, aliasing where already used.
-
-class Bignum
-  alias_method( :rshift, :>>) if method_defined?(:>>)
-end
-
-class Fixnum
-  alias_method( :rshift, :>>) if method_defined?(:>>)
-end
-
-class Date
-  alias_method( :months_later, :>>) if method_defined?(:>>)
-end
-
-class IPAddr
-  alias_method( :rshift, :>>) if method_defined?(:>>)
-end
-
-class Process::Status
-  alias_method( :rshift, :>>) if method_defined?(:>>)
-end
-
-class Object
-  def >>(to)
-    Association.new(self, to)
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-# TODO
-=begin #test
-
-  require 'test/unit'
-
-  class TC01 < Test::Unit::TestCase
-
-complex_hierarchy = [
-  'parent' >> 'child',
-  'childless',
-  'another_parent' >> [
-    'subchildless',
-    'subparent' >> 'subchild'
-  ]
-]
-
-puts complex_hierarchy.inspect
-
-
-# ordered hash
-
-ohash = [ 'A' >> '3', 'B' >> '2', 'C' >> '1' ]
-
-puts ohash.inspect
-
-puts
-ohash.each { |e1,e2| puts "#{e1} ~> #{e2}" }
-puts
-
-ohash.sort!
-puts ohash.inspect
-
-ohash.each { |a| a.invert! }
-
-puts ohash.inspect
-ohash.sort!
-puts ohash.inspect
-
-
-# complex hierarchies
-
-complex = [ 'Drop Menu' >> [ 'Button 1', 'Button 2', 'Button 3' ],
-            'Help'
-          ]
-
-puts complex.inspect
-
-complex[0].index = 'DropDown Menu'
-
-puts complex.inspect
-
-=end

data/lib/mega/basicobject.rb

@@ -1,108 +0,0 @@
-#--
-# BasicObject
-#
-# Copyright (c) 2005 Thomas Sawyer
-# based on BlankSlate, Copyright (c) 2004 by Jim Weirich
-#
-# 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.
-#
-# ==========================================================================
-#  Revision History
-# ==========================================================================
-#  2005.10.26
-#  * preserved a few addtional methods --everyhting ending in ?, dup and
-#    object_id.
-#  * changed name from BlankSlate to BasicObject
-#
-#  2005.04.28  trans
-#  * ported to mega and added __class__
-# ==========================================================================
-#++
-
-require 'nano/kernel/__class__'
-
-# :title: BasicObject
-#
-# BasicObject provides an abstract base class with no predefined
-# methods, except for <tt>respond_to?</tt>, any method starting in
-# <tt>\_\_</tt> (two underscore, like <tt>\_\_id__</tt>) as well as
-# any method starting with <tt>instance_</ttr>.
-#
-# BasicObject is useful as a base class when writing classes that
-# depend upon <tt>method_missing</tt> (e.g. dynamic proxies).
-#
-# The pattern used to reserve methods is:
-#
-#   /(^__|^instance_|^object_|^null$|^inspect$|^dup$|\?$)/
-#
-# By default these are the reserved methods:
-#
-#   __id__ __class__ __send__ dup eql? equal? frozen? inspect instance_eval
-#   instance_of? instance_variable_get instance_variable_set instance_variables
-#   is_a? kind_of? nil? null object_id respond_to? tainted?
-#
-class BasicObject
-  EXCLUDE = /(^__|^instance_|^object_|^null$|^inspect$|^dup$|\?$)/
-  class << self
-    def hide(name)
-      #if instance_methods.include?(name.to_s) and name !~ EXCLUDE #/^(#{EXCLUDE.join('|')})/
-      if method_defined?(name) and name !~ EXCLUDE
-        undef_method name
-      end
-    end
-  end
-  instance_methods.each { |m| hide(m) }
-end
-
-# This must be down here to prevent circular dependency
-require 'nano/kernel/__meta__'
-
-# Since Ruby is very dynamic, methods added to the ancestors of
-# BasicObject <em>after BasicObject is defined</em> will show up in the
-# list of available BasicObject methods.  We handle this by defining a hook
-# in the Object and Kernel classes that will hide any defined.
-module Kernel
-  class << self
-    #alias_method :blank_slate_method_added, :method_added
-    #def method_added(name)
-    #  return if name == :blank_slate_method_added
-    #  blank_slate_method_added(name)
-    madded = instance_method(:method_added)
-    define_method(:method_added) do |name|
-      madded.bind(self).call(name)
-      return if self != Kernel
-      BasicObject.hide(name)
-    end
-  end
-end
-
-class Object
-  class << self
-    madded = instance_method(:method_added)
-    define_method(:method_added) do |name|
-      madded.bind(self).call(name)
-      return if self != Object
-      BasicObject.hide(name)
-    end
-  end
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-# TODO
-
-=begin #testing
-=end