facets 1.0.3 → 1.1.0

data/packages/more/lib/facet/ansicode.rb

@@ -1,313 +0,0 @@
-#--
-# ANSICode
-#
-# Copyright (c) Thomsa 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-04-28  Trans  * Modifications to documentation.
-#
-#  2004-11-30  Trans  * Ported to Calibre collection
-#
-#  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
-# ==========================================================================
-#
-# THANKS Florian Frank. ANSICode is a partial adaptation of
-#        ANSIColor, Copyright (c) 2002-2005 Florian Frank, LGPL.
-#
-# TODO Need to add rest of ANSI codes. Include modes?
-#
-# TODO Re-evaluate how color/yielding methods are defined.
-#
-# TODO Maybe up, down, right, left should have yielding
-#      versions too?
-#
-#++
-
-# :title: ANSICode
-#
-# Module which makes it very easy to use ANSI codes.
-# These are esspecially nice for beautifying shell output.
-#
-# == Synopsis
-#
-#   require 'calibre/ansicode'
-#
-#   include ANSICode
-#
-#   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
-#
-#     save
-#     restore
-#     clear_screen
-#     cls             # synonym for :clear_screen
-#     clear_line
-#     clr             # synonym for :clear_line
-#     move
-#     up
-#     down
-#     left
-#     right
-#     display
-#
-#     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)
-#
-# * Thomas Sawyer
-# * Florian Frank
-#
-#
-
-module Console
-
-  module ANSICode
-
-    # Save current cursor positon.
-
-    def save
-      "\e[s"
-    end
-
-    # Restore saved cursor positon.
-
-    def restore
-      "\e[u"
-    end
-
-    # Clear the screen and move cursor to home.
-
-    def clear_screen
-      "\e[2J"
-    end
-    alias_method :cls, :clear_screen
-
-    # Clear to the end of the current line.
-
-    def clear_line
-      "\e[K"
-    end
-    alias_method :clr, :clear_line
-
-    #--
-    #def position
-    #  "\e[#;#R"
-    #end
-    #++
-
-    # Move curose to line and column.
-
-    def move( line, column=0 )
-      "\e[#{line.to_i};#{column.to_i}H"
-    end
-
-    # Move cursor up a specificed number of spaces.
-
-    def up( spaces=1 )
-      "\e[#{spaces.to_i}A"
-    end
-
-    # Move cursor down a specificed number of spaces.
-
-    def down( spaces=1 )
-      "\e[#{spaces.to_i}B"
-    end
-
-    # Move cursor left a specificed number of spaces.
-
-    def left( spaces=1 )
-      "\e[#{spaces.to_i}D"
-    end
-
-    # Move cursor right a specificed number of spaces.
-
-    def right( spaces=1 )
-      "\e[#{spaces.to_i}C"
-    end
-
-    # Like +move+ but returns to original positon
-    # after yielding block or adding string argument.
-
-    def display( line, column=0, string=nil ) #:yield:
-      result = "\e[s"
-      result << "\e[#{line.to_i};#{column.to_i}H"
-      if block_given?
-        result << yield
-        result << "\e[u"
-      elsif string
-        result << string
-        result << "\e[u"
-      elsif respond_to?(:to_str)
-        result << self
-        result << "\e[u"
-      end
-      return result
-    end
-
-    # Define color codes.
-
-    def self.define_ansicolor_method(name,code)
-      class_eval <<-HERE
-        def #{name.to_s}(string = nil)
-            result = "\e[#{code}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
-      HERE
-    end
-
-    @@colors = [
-      [ :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 ], 
-    ]
-
-    @@colors.each do |c, v|
-      define_ansicolor_method(c, v)
-    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 colors
-      @@colors.map { |c| c[0] }
-    end
-
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin testing
-
-  require 'test/unit'
-
-  class TC_ANSICode < Test::Unit::TestCase
-
-    include Console::ANSICode
-
-    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/packages/more/lib/facet/association.rb

@@ -1,156 +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
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-
-=begin test
-
-  require 'test/unit'
-
-  class TC01 < Test::Unit::TestCase
-
-    def setup
-      @complex_hierarchy = [
-        'parent' >> 'child',
-        'childless',
-        'another_parent' >> [
-          'subchildless',
-          'subparent' >> 'subchild'
-        ]
-      ]
-    end
-
-    def test_ohash
-      k,v = [],[]
-      ohash = [ 'A' >> '3', 'B' >> '2', 'C' >> '1' ]
-      ohash.each { |e1,e2| k << e1 ; v << e2 }
-      assert_equal( ['A','B','C'], k )
-      assert_equal( ['3','2','1'], v )
-    end
-
-    def test_complex
-      complex = [ 'Drop Menu' >> [ 'Button 1', 'Button 2', 'Button 3' ], 'Help' ]
-      assert_equal( 'Drop Menu', complex[0].index )
-    end
-
-  end
-
-=end