facets 2.9.2 → 2.9.3

data/work/consider/attr.rb

@@ -1,82 +0,0 @@
-class Module
-
-  # 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_toggler,  :attr_accessor!
-  alias_method :alias_switcher, :alias_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
-
-  # 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/work/consider/bin.rb

@@ -1,26 +0,0 @@
-require 'facets/filetest/safe'
-require 'facets/filetest/contains'
-require 'facets/filetest/relative'
-
-=begin
-module FileTest
-
-  # Return a cached list of the PATH environment variable.
-  # This is a support method used by #bin?
-  def command_paths
-    @command_paths ||= ENV['PATH'].split(/[:;]/)
-  end
-
-  # Is a file a bin/ executable?
-  #
-  # TODO: Make more robust. Probably needs to be fixed for Windows.
-  def bin?(fname)
-    is_bin = command_paths.any? do |f|
-      FileTest.exist?(File.join(f, fname))
-    end
-    #is_bin ? File.basename(fname) : false
-    is_bin ? fname : false
-  end
-
-end
-=end

data/work/consider/blackmagic.rb

@@ -1,103 +0,0 @@
-# BALCK MAJIC
-
-
-__END__
-
-
-class Class
-
-  # query langauge for the ruby object model
-
-  def defn(name, &procedure)
-    define_method(name, &procedure
-  end
-
-end
-
-def Class(name, &initialize)
-  const_set(name.capitalize, Class.new(&initialize))
-end
-
- Class(HelloWorld) do%{
-     attr(:msg).default("")
-     defn(:sayit) {
-       puts("Hello World")
-     }
-   }end
-
-
-
-
-# WE PROGRAM BACKWARDS
-
-1. class(name).method(name)
-
-
-
-
-class ObjectX
-  def initialize(a, h, &b)
-    attributes = h
-    elements = a
-    body = b
-  end
-
-  def
-
-  def +(x)
-    case type, x.type
-    when [:integer, :integer]
-      ObjectX.new(:integer, elements[0] + x.elements[0])
-    when [:string, :string]
-      x.attributes
-    when
-  end
-
-  def <<()
-
-end
-
-class NilClass
-
-  def object(*a, &b)
-    h = a.last.is_a?(Hash) ? a.pop : {}
-    ObjectX.new(a, h, &b)
-  end
-
-  def array(*a)
-    a
-  end
-
-  def hash(hash_or_array)
-    case hash_or_array
-    when Array
-      Hash[*hash_or_array]
-    when Hash
-      hash_or_array.dup
-    else
-
-    end
-  end
-
-  def string(*a, &b)
-    String.new(*a, &b)
-  end
-
-
-
-  def array1(*a, &b)
-    Array.new(*a, &b)
-  end
-
-  def hash1(*a, &b)
-    Hash.new(*a, &b)
-  end
-
-  def string1(*a, &b)
-    String.new(*a, &b)
-  end
-
-end
-
-
-array(1,2,3)

data/work/consider/bool_attr_accessor.rb

@@ -1,414 +0,0 @@
-#--
-# Author::    Thomas Sawyer, Tyler Rick
-# Copyright:: Copyright (c) Thomas Sawyer, probably, since this is a derivative work
-# License::   Ruby License
-# Submit to Facets?:: Yes
-# Developer notes::
-# * Based on /usr/lib/ruby/gems/1.8/gems/facets-1.8.54/lib/facets/core/module/attr_tester.rb
-# * Hey Thomas, don't you think Module#attr_tester should only create the read-only a? method and have another method that creates the writer (like there how we have attr_reader, _writer, and _accessor?) ? "tester" does not imply "setter" in my mind...
-# * I'm going to rename this one to bool_attr_accessor, which calls both bool_attr_reader and bool_attr_writer
-# * Then you also have the option to use bool_attr_reader and bool_attr_writer separately if you so desire.
-# * Other changes made:
-#   * Changed it so that if you call a!(false) it would actually set @a to false rather than leaving it unchanged. (I assume that was a bug.)
-#++
-
-# bool_attr_accessor
-
-class Module
-  # This creates a reader method for a boolean (flag) attribute (instance variable).
-  #
-  #   bool_attr_reader :a
-  #
-  # is equivalent to
-  #
-  #   def a?
-  #     @a ? true : @a
-  #   end
-  #
-  # Example:
-  #   class Foo
-  #     def set_it
-  #       @a = true
-  #     end
-  #   end
-  #   x = Foo.new
-  #   x.a?        # => false
-  #   x.set_it
-  #   x.a?        # => true
-  #
-  def bool_attr_reader(*args)
-    make = {}
-    args.each { |a|
-      make["#{a}?".to_sym] = %{
-        def #{a}?(true_value=true)
-          @#{a} ? true_value : @#{a}
-        end
-      }
-    }
-    module_eval make.values.join("\n"), __FILE__, __LINE__
-
-    make.keys
-  end
-
-  # This creates a setter method for a boolean (flag) attribute (instance variable).
-  #
-  #   bool_attr_setter :a
-  #
-  # is equivalent to
-  #
-  #   def a!(switch=Exception)
-  #     if switch == Exception
-  #       @a = !@a
-  #     else
-  #       @a = switch ? true : false
-  #       self
-  #     end
-  #   end
-  #
-  # This setter method can either be used to set it directly to true or false or to toggle it.
-  #
-  # Examples:
-  #   x = Klass.new
-  #   x.a! true   # sets @a to true
-  #   x.a!        # toggles @a, so that it ends up being false
-  #   x.a!        # toggles @a, so that it ends up being true
-  #   x.a! false  # sets @a to false
-  #
-  def bool_attr_setter(*args)
-    make = {}
-    args.each { |a|
-      make["#{a}!".to_sym] = %{
-        def #{a}!(switch=Exception)
-          if switch == Exception
-            @#{a} = !@#{a}
-          else
-            @#{a} = switch ? true : false
-                    # used to be @#{a} instead of false in Facets version
-            self
-          end
-        end
-      }
-    }
-    module_eval make.values.join("\n"), __FILE__, __LINE__
-    make.keys
-  end
-
-
-  # This creates both a reader and a setter for a boolean (flag) attribute (instance variable).
-  #
-  #   bool_attr_accessor :a
-  #
-  # is equivalent to
-  #
-  #   bool_attr_reader :a
-  #   bool_attr_setter :a
-  #
-  # Examples:
-  #   x = Klass.new
-  #   x.a! true   # sets @a to true
-  #   x.a?        # => true
-  #   x.a!        # toggles @a, so that it ends up being false
-  #   x.a!        # toggles @a, so that it ends up being true
-  #   x.a! false  # sets @a to false
-  #
-  def bool_attr_accessor(*args)
-    bool_attr_reader *args
-    bool_attr_setter *args
-  end
-
-end
-
-# mbool_attr_accessor
-
-class Module
-  # This creates a reader method for a boolean (flag) class/module variable.
-  #
-  #   mbool_attr_reader :a
-  #
-  # is equivalent to
-  #
-  #   def self.a?
-  #     @@a ? true : @@a
-  #   end
-  #
-  # Works for both classes and modules.
-  #
-  def mbool_attr_reader(*args)
-    make = {}
-    args.each { |a|
-      make["#{a}?".to_sym] = %{
-        def self.#{a}?(true_value=true)
-          @@#{a} ? true_value : @@#{a}
-        end
-      }
-    }
-    module_eval make.values.join("\n"), __FILE__, __LINE__
-    make.keys
-  end
-
-  # This creates a setter method for a boolean (flag) class/module variable.
-  #
-  #   mbool_attr_setter :a
-  #
-  # is equivalent to
-  #
-  #   def self.a!(switch=Exception)
-  #     if switch == Exception
-  #       @@a = !@@a
-  #     else
-  #       @@a = switch ? true : false
-  #       self
-  #     end
-  #   end
-  #
-  # Works for both classes and modules.
-  #
-  def mbool_attr_setter(*args)
-    make = {}
-    args.each { |a|
-      # Initialize it first so that we won't have any NameErrors.
-      module_eval %{ @@#{a} = nil if !defined?(@@#{a}) }, __FILE__, __LINE__
-
-      make["#{a}!".to_sym] = %{
-        def self.#{a}!(switch=Exception)
-          if switch == Exception
-            @@#{a} = !@@#{a}
-          else
-            @@#{a} = switch ? true : false
-            self
-          end
-        end
-      }
-    }
-    module_eval make.values.join("\n"), __FILE__, __LINE__
-    make.keys
-  end
-
-  # This creates both a reader and a setter for a boolean (flag) class/module variable.
-  #
-  #   mbool_attr_accessor :a
-  #
-  # is equivalent to
-  #
-  #   mbool_attr_reader :a
-  #   mbool_attr_setter :a
-  #
-  # Works for both classes and modules.
-  #
-  def mbool_attr_accessor(*args)
-    mbool_attr_reader :a
-    mbool_attr_setter :a
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-require 'test/unit'
-require 'rubygems'
-require 'qualitysmith_extensions/object/ignore_access'
-
-# Test that it works for *instances*
-class TestBoolAttr < Test::Unit::TestCase
-  def setup
-    @x = C.new
-  end
-
-  class C_for_default_is_nil
-    bool_attr_accessor :a, :b
-  end
-
-  # Also tests that it can create multiple accessors at once.
-  def test1_default_is_nil
-    assert_equal nil, C_for_default_is_nil.new.a? 
-    assert_equal nil, C_for_default_is_nil.new.b? 
-  end
-
-  class C
-    bool_attr_accessor :a
-  end
-
-  def test2_toggle
-    assert_equal nil, @x.a? 
-    @x.a!
-    assert_equal true, @x.a? 
-    @x.a!
-    assert_equal false, @x.a? 
-  end
-
-  def test3_setter
-    @x.a! true
-    @x.a! true
-    assert_equal true, @x.a? 
-
-    @x.a! false 
-    assert_equal false, @x.a? 
-  end
-  def test4_sets_to_boolean_even_if_try_to_set_to_other_type
-    @x.a! "whatever" 
-    assert_equal true, @x.a?     # Still returns a boolean even though we tried to set it to a string.
-
-    @x.a! nil
-    assert_equal false, @x.a?    # Still returns a boolean even though we tried to set it to nil.
-  end
-end
-
-# Test that it works for *modules*
-class TestForModules < Test::Unit::TestCase
-
-  class M_for_default_is_nil
-    mbool_attr_accessor :a
-  end
-  def test1_default_is_nil
-    assert_equal nil, M_for_default_is_nil.a? 
-  end
-
-  module M
-    mbool_attr_accessor :a
-  end
-  def test2_toggle
-    assert_equal nil, M.a? 
-    M.a!
-    assert_equal true, M.a? 
-    M.a!
-    assert_equal false, M.a? 
-  end
-  def test3_setter
-    M.a! true
-    M.a! true
-    assert_equal true, M.a? 
-
-    M.a! false 
-    assert_equal false, M.a? 
-  end
-  def test4_sets_to_boolean_even_if_try_to_set_to_other_type
-    M.a! "whatever" 
-    assert_equal true, M.a?     # Still returns a boolean even though we tried to set it to a string.
-
-    M.a! nil
-    assert_equal false, M.a?    # Still returns a boolean even though we tried to set it to nil.
-  end
-end
-
-# Test that it also works for *classes*
-class TestForClasses < Test::Unit::TestCase
-
-  class C_for_default_is_nil
-    mbool_attr_accessor :a
-  end
-  def test1_default_is_nil
-    assert_equal nil, C_for_default_is_nil.a? 
-  end
-
-  class C
-    mbool_attr_accessor :a
-  end
-
-  def test2_toggle
-    C.access.class_variable_set :@@a, false 
-    assert_equal false, C.a?    # otherwise would have been nil
-    C.a!
-    assert_equal true, C.a? 
-    C.a!
-    assert_equal false, C.a? 
-
-    assert_equal ["@_ignore_access_functor"], C.instance_variables
-    assert_equal ["@@a"], C.class_variables
-  end
-
-  def test3_setter
-    C.a! true
-    C.a! true
-    assert_equal true, C.a? 
-
-    C.a! false 
-    assert_equal false, C.a? 
-  end
-  def test4_sets_to_boolean_even_if_try_to_set_to_other_type
-    C.a! "whatever" 
-    assert_equal true, C.a?     # Still returns a boolean even though we tried to set it to a string.
-
-    C.a! nil
-    assert_equal false, C.a?    # Still returns a boolean even though we tried to set it to nil.
-  end
-end
-
-
-# Observation: You can also the normal bool_attr_accessor in conjunction with class << self.
-# The methods generated seem to *behave* in the same way. Both techniques allow you to query the class, C.a?
-# The only difference is in which *variables* are use to store the state:
-# * class << self and the normal bool_attr_accessor:
-#   Stores the state in an instance variable for the *class*: @a
-# * mbool_attr_accessor:
-#   Stores the state in a *class* variable: @@a
-#
-# Can someone explain to me the difference between class variables and instance variables of a class?
-# It seems silly (confusing even!) to have both of them!
-#
-# My best explanation is that the fact that we can even *have* instance variables of a class does *not* mean it's a good idea
-# to use them. It simply means that Matz made the language with as few arbitrary restrictions as possible. He made it
-# technically *possible* to do a lot of things that it is probably not good practice to do... And one of those things is
-# using instance variables of classes to store state information for that class.
-#
-# What do you think class variables are for? Exactly that! There's a *reason* we have both @a and @@a variables -- to
-# *differentiate* between the two kinds of variables and keep programmers sane. So please don't blur the distinction and
-# use the @a-type variable to do the job that @@a-type variables are for.
-#
-# Or am I missing something here?
-#
-class TestWith_class_self_and_plain_bool_attr_accessor < Test::Unit::TestCase
-
-  class C_for_default_is_nil
-    class << self
-      bool_attr_accessor :a
-    end
-  end
-  def test1_default_is_nil
-    assert_equal nil, C_for_default_is_nil.a? 
-  end
-
-  class C
-    class << self
-      bool_attr_accessor :a
-    end
-  end
-  # This is where I spotted a class that uses this technique:
-  # * Test::Unit::Assertions::AssertionMessage
-
-  def test_2_toggle
-    assert_equal false, C.a?  # Why isn't it nil like it is for the instance use case of bool_attr_accessor?
-    C.a!
-    assert_equal true, C.a? 
-    C.a!
-    assert_equal false, C.a? 
-
-    assert_equal ["@a"], C.instance_variables
-    assert_equal [], C.new.instance_variables  # @a is an instance variable of the *class*  *not* objects of the class  -- weird!
-    assert_equal [], C.class_variables
-  end
-
-  def test3_setter
-    C.a! true
-    C.a! true
-    assert_equal true, C.a? 
-
-    C.a! false 
-    assert_equal false, C.a? 
-  end
-  def test4_sets_to_boolean_even_if_try_to_set_to_other_type
-    C.a! "whatever" 
-    assert_equal true, C.a?     # Still returns a boolean even though we tried to set it to a string.
-
-    C.a! nil
-    assert_equal false, C.a?    # Still returns a boolean even though we tried to set it to nil.
-  end
-
-end
-=end
-