facets 2.3.0 → 2.4.0

data/lib/more/facets/advice.rb

@@ -1,159 +0,0 @@
-# = TITLE:
-#
-#   Advice
-#
-# = SUMMARY:
-#
-#   Add before, after and around advice in dynamic fashion.
-#
-# = COPYRIGHT:
-#
-#   Copyright (c) 2007 Thomas Sawyer
-#
-# = LICENSE:
-#
-#   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.
-#
-# = AUTHORS:
-#
-#   - TransAspect
-
-require 'facets/1stclassmethod'
-require 'facets/unboundmethod/arguments'
-#require 'facets/binding'
-
-#
-class Method
-  attr_accessor :advised
-
-  attr_reader :advice_before
-  attr_reader :advice_after
-  attr_reader :advice_around
-
-  def advised?
-    @advised
-  end
-
-  def advice_before=(set); @advice_before = set.flatten.compact; end
-  def advice_after=(set) ;  @advice_after = set.flatten.compact; end
-  def advice_around=(set); @advice_around = set.flatten.compact; end
-
-  # Call with advice.
-
-  def call_with_advice(obj, *args, &blk)
-    advice_before.each do |name|
-      #advice.call(*args, &blk)
-      obj.send(name, *args, &blk)
-    end
-
-    target = lambda{ call(*args, &blk) }
-    advice_around.each do |name|
-      target = lambda_target(obj, name, target, *args, &blk)
-    end
-    ret = target.call
-
-    advice_after.reverse_each do |name|
-      #advice.call(*args, &blk)
-      obj.send(name, *args, &blk)
-    end
-
-    return ret
-  end
-
-  private
-
-  # Using separate method for this prevents infinite loop.
-
-  def lambda_target(obj, name, target, *args, &blk)
-    lambda do
-      #advice.call(target, *args, &blk)
-      obj.send(name, target, *args, &blk)
-    end
-  end
-
-end
-
-
-module Advisable
-#class Module
-
-  def advice_before
-    @advice_before ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def advice_after
-    @advice_after ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def advice_around
-    @advice_around ||= {} #Hash.new{|h,k| h[k] = []}
-  end
-
-  def before(meth, &block)
-    name = "#{meth}:before#{block.object_id}"
-    define_method(name, &block)
-    (advice_before[meth.to_sym] ||= []) << name
-  end
-
-  def after(meth, &block)
-    name = "#{meth}:after#{block.object_id}"
-    define_method(name, &block)
-    (advice_after[meth.to_sym] ||= []) << name
-  end
-
-  def around(meth, &block)
-    name = "#{meth}:around#{block.object_id}"
-    define_method(name, &block)
-    (advice_around[meth.to_sym] ||= []) << name
-  end
-
-  # Advise a method.
-
-  def advise(meth)
-    #return false if defined?(meth_origin)
-    args = instance_method(meth).arguments
-
-    module_eval(<<-END, __FILE__, __LINE__)
-      alias_method '#{meth}_origin', '#{meth}'
-      def #{meth}(#{args})
-        target = method!('#{meth}_origin')
-
-        unless target.advised
-          ancs = self.class.ancestors.select{ |anc| anc.respond_to?(:advice_before) }
-          target.advice_before = ancs.collect{ |anc| anc.advice_before[:'#{meth}'] }
-          target.advice_after  = ancs.collect{ |anc| anc.advice_after[:'#{meth}'] }
-          target.advice_around = ancs.collect{ |anc| anc.advice_around[:'#{meth}'] }
-          target.advised = true
-        end
-
-        target.call_with_advice(self, *[#{args}])
-      end
-    END
-  end
-
-  #advise(:method_added)
-
-  #after :method_added do |meth|
-  #  advise(meth) unless defined?("#{meth}_orig")
-  #end
-
-  def method_added(meth)
-    return if meth == :method_added
-    @added_stack ||= []
-    return if @added_stack.last == meth
-    return if /_(origin)$/ =~ meth.to_s
-    return if /:(before|after|around)/ =~ meth.to_s
-    @added_stack << meth
-    #return if instance_methods(false).include?("#{meth}_orig")
-    advise(meth)
-    @added_stack.pop
-  end
-
-end

data/lib/more/facets/annotations.rb

@@ -1,154 +0,0 @@
-# TITLE:
-#
-#   Annotation
-#
-# DESCRIPTION:
-#
-#   Annotations allows you to annontate objects, including methods with
-#   arbitrary "metadata".
-#
-# COPYRIGHT:
-#
-#   Copyright (c) 2005 Thomas Sawyer, George Moschovitis
-#
-# LICENSE:
-#
-#   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.
-#
-# AUTHORS:
-#
-#   - Thomas Sawyer
-#   - George Moschovitis
-#
-# LOG:
-#
-#   - 2006-11-07 trans  Created this ultra-concise version of annotations.
-#
-# TODO:
-#
-#   - Might be nice to have a default object of annotation, eg. the next
-#     method defined, like how +desc+ annotates a rake +task+.
-#
-#   - The ann(x).name notation is kind of nice. Would like to add that
-#     back-in if reasonable. Basically this require heritage to be an OpenObject
-#     rather than just a hash.
-#
-
-# Author::    Thomas Sawyer, George Moschovitis
-# Copyright:: Copyright (c) 2005 Thomas Sawyer
-# License::   Ruby License
-
-require 'facets/conversion' # Hash#to_h
-require 'facets/hash/rekey'
-require 'facets/hash/op'
-
-# = Annotation
-#
-# Annotations allows you to annontate objects, including methods with arbitrary
-# "metadata". These annotations don't do anything in themselves. They are
-# merely comments. But you can put them to use. For instance an attribute
-# validator might check for an annotation called :valid and test against it.
-#
-# Annotation is an OpenObject, and is used across the board for keeping annotations.
-#
-# Annotation class serves for both simple and inherited cases depending on whether
-# a base class is given.
-#
-# == Synopsis
-#
-#   class X
-#     attr :a
-#     ann :@a, :valid => lambda{ |x| x.is_a?(Integer) }
-#
-#     def validate
-#       instance_variables.each { |iv|
-#         if validator = self.class.ann(iv)[:valid]
-#           value = instance_variable_get(iv)
-#           unless validator.call(vale)
-#             raise "Invalid value #{value} for #{iv}"
-#           end
-#         end
-#       }
-#     end
-#
-#   end
-
-#--
-# By using a global veriable rather the definining a class instance variable
-# for each class/module, it is possible to quicky scan all annotations for the
-# entire system. To do the same without this would require scanning through
-# the ObjectSpace. (Still which is better?)
-#
-#$annotations = Hash.new { |h,k| h[k] = {} }
-#++
-
-class Module
-
-  def annotations
-    #$annotations[self]
-    @annotations ||= {}
-  end
-
-  def heritage(ref)
-    ref = ref.to_sym
-    ancestors.inject({}) { |memo, ancestor|
-      ancestor.annotations[ref] ||= {}
-      ancestor.annotations[ref] + memo
-    }
-  end
-
-  # Set or read annotations.
-
-  def ann( ref, keys_or_class=nil, keys=nil )
-    return heritage(ref) unless keys_or_class or keys
-
-    if Class === keys_or_class
-      keys ||= {}
-      keys[:class] = keys_or_class
-    else
-      keys = keys_or_class
-    end
-
-    if Hash === keys
-      ref = ref.to_sym
-      annotations[ref] ||= {}
-      annotations[ref].update(keys.rekey)
-    else
-      key = keys.to_sym
-      heritage(ref)[key]
-    end
-  end
-
-  # To change an annotation's value in place for a given class or module
-  # it first must be duplicated, otherwise the change may effect annotations
-  # in the class or module's ancestors.
-
-  def ann!( ref, keys_or_class=nil, keys=nil )
-    #return heritage(ref) unless keys_or_class or keys
-    return annotations[ref] unless keys_or_class or keys
-
-    if Class === keys_or_class
-      keys ||= {}
-      keys[:class] = keys_or_class
-    else
-      keys = keys_or_class
-    end
-
-    if Hash === keys
-      ref = ref.to_sym
-      annotations[ref] ||= {}
-      annotations[ref].update(keys.rekey)
-    else
-      key = keys.to_sym
-      annotations[ref][key] = heritage(ref)[key].dup
-    end
-  end
-
-end

data/lib/more/facets/ansicode.rb

@@ -1,268 +0,0 @@
-# = ansicode.rb
-#
-# == Copyright (c) 2004 Florian Frank, Thomas 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.
-#
-# == Authors & Contributors
-#
-# * Florian Frank
-# * Thomas Sawyer
-#
-# == Speical Thanks
-#
-# Special thanks to Florian Frank. ANSICode is a partial adaptation
-# of ANSIColor, Copyright (c) 2002 Florian Frank, LGPL.
-#
-# == Developer Notes
-#
-#   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
-#        methods too?
-
-# Author::    Florian Frank, Thomas Sawyer
-# Copyright:: Copyright (c) 2006 Florian Frank, Thomas Sawyer
-# License::   Ruby License
-
-# = Console ANSICode
-#
-# Module provide methods for inserting ansicodes into strings.
-
-module Console
-
-  # = ANSICode
-  #
-  # Module which makes it very easy to use ANSI codes.
-  # These are esspecially nice for beautifying shell output.
-  #
-  # == Synopsis
-  #
-  #   include Console::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
-  #
-
-  module ANSICode
-
-    extend self
-
-    # 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