mack-facets 0.8.1 → 0.8.2

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

@@ -0,0 +1,41 @@
+# = NackClass
+#
+# Not Acknowledge. An alternatice to NilClass is cases where
+# nil is a valid option, but an non-option still needs to
+# be recorgnized.
+#
+# == Authors
+#
+# * Thomas Sawyer
+#
+# == Copying
+#
+# Copyright (c) 2004 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.
+
+
+# = NackClass
+#
+# Not Acknowledge. An alternatice to NilClass is cases where
+# nil is a valid option, but an non-option still needs to
+# be recorgnized.
+#
+class NackClass < Exception
+end
+
+module Kernel
+  # This is a light version of NackClass intended
+  # for minor usecases. See mega/nack for a complete version.
+  #
+  def nack
+    NackClass.new
+  end
+end

data/lib/gems/facets-2.4.5/lib/more/facets/net/smtp_tls.rb

@@ -0,0 +1,131 @@
+# TITLE:
+#
+#   SMTP/TLS
+#
+# SUMMARY:
+#
+#   SMTP with TLS support.
+#
+# COPYRIGHT:
+#
+#   Copyright (c) 2006 Kyle Maxwell
+#
+# 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.
+#
+# HISTORY:
+#
+#   Original code seems to be public domain. Modifications made by Kyle Maxwell were
+#   picked up from ar_mailer's version. Until someone else step foward, we'll give
+#   copyrights to Kyle.
+#
+# AUTHORS:
+#
+#   - Kyle Maxwell
+
+require "openssl"
+require "net/smtp"
+
+
+class Net::SMTP
+
+  class << self
+    send :remove_method, :start
+  end
+
+  def self.start(address, port=nil, helo='localhost.localdomain', user=nil, secret=nil, authtype=nil, use_tls=false, &block) # :yield: smtp
+    new(address, port).start(helo, user, secret, authtype, use_tls, &block)
+  end
+
+  alias tls_old_start start
+
+  def start(helo='localhost.localdomain', user=nil, secret=nil, authtype=nil, use_tls=false) # :yield: smtp
+    start_method = use_tls ? :do_tls_start : :do_start
+    if block_given?
+      begin
+        send start_method, helo, user, secret, authtype
+        return yield(self)
+      ensure
+        do_finish
+      end
+    else
+      send start_method, helo, user, secret, authtype
+      return self
+    end
+  end
+
+  private
+
+  def do_tls_start(helodomain, user, secret, authtype)
+    raise IOError, 'SMTP session already started' if @started
+    check_auth_args user, secret, authtype if user or secret
+
+    sock = timeout(@open_timeout) { TCPSocket.open(@address, @port) }
+    @socket = Net::InternetMessageIO.new(sock)
+    @socket.read_timeout = 60 #@read_timeout
+    @socket.debug_output = STDERR if $DEBUG #@debug_output
+
+    check_response(critical { recv_response() })
+    do_helo(helodomain)
+
+    raise 'openssl library not installed' unless defined?(OpenSSL)
+    starttls
+    ssl = OpenSSL::SSL::SSLSocket.new(sock)
+    ssl.sync_close = true
+    ssl.connect
+    @socket = Net::InternetMessageIO.new(ssl)
+    @socket.read_timeout = 60 #@read_timeout
+    @socket.debug_output = STDERR if $DEBUG #@debug_output
+    do_helo(helodomain)
+
+    authenticate user, secret, authtype if user
+    @started = true
+  ensure
+    unless @started
+      # authentication failed, cancel connection.
+        @socket.close if not @started and @socket and not @socket.closed?
+      @socket = nil
+    end
+  end
+
+  def do_helo(helodomain)
+     begin
+      if @esmtp
+        ehlo helodomain
+      else
+        helo helodomain
+      end
+    rescue Net::ProtocolError
+      if @esmtp
+        @esmtp = false
+        @error_occured = false
+        retry
+      end
+      raise
+    end
+  end
+
+  def starttls
+    getok('STARTTLS')
+  end
+
+  alias tls_old_quit quit
+
+  def quit
+    begin
+      getok('QUIT')
+    rescue EOFError
+    end
+  end
+
+end unless Net::SMTP.private_method_defined? :do_tls_start or
+           Net::SMTP.method_defined? :tls?
+

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

@@ -0,0 +1,47 @@
+class NilClass
+
+  # Nil#status makes it possible to pass messages
+  # through a "failure" chain.
+  #
+  #   def foo
+  #     return nil.status("failed foo!")
+  #   end
+  #
+  #   result = foo
+  #   if result.nil?
+  #     result.status?  #=> true
+  #     result.status   #=> "failed foo!"
+  #   end
+  #
+  #  CREDIT: Trans
+
+  def status(status=nil)
+    if status
+      @status = status
+      self
+    else
+      @status
+    end
+  end
+
+  # Check status.
+  #
+  #   def foo
+  #     return nil.status("failed foo!")
+  #   end
+  #
+  #   result = foo
+  #   if result.nil?
+  #     result.status?  #=> true
+  #     result.status   #=> "failed foo!"
+  #   end
+  #
+  #   CREDIT: Trans
+
+  def status?
+    return unless @status
+    return false if @status.empty?
+    return true
+  end
+
+end

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

@@ -0,0 +1,74 @@
+# = NullClass
+#
+# NullClass is essentially NilClass but it differs in one
+# important way. When a method is called against it that it
+# deoesn't have, it will simply return null value rather then
+# raise an error.s
+#
+# == Authors
+#
+# * Thomas Sawyer
+#
+# = Copying
+#
+# Copyright (c) 2005 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.
+
+# = Nullclass
+#
+# NullClass is essentially NilClass but it differs in one
+# important way. When a method is called against it that it
+# deoesn't have, it will simply return null value rather then
+# raise an error.
+#
+# TODO: Perhaps NullClass and NackClass should be one and the same?
+#
+class NullClass #< NilClass
+  class << self
+    def new
+      @null ||= NullClass.allocate
+    end
+  end
+  def inspect ; 'null' ; end
+  def nil?  ; true ; end
+  def null? ; true ; end
+  def [](key); nil; end
+  def method_missing(sym, *args)
+    return nil if sym.to_s[-1,1] == '?'
+    self
+  end
+end
+
+module Kernel
+  def null
+    NullClass.new
+  end
+end
+
+class Object
+  def null?
+    false
+  end
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+
+# TODO
+
+=begin #testing
+=end

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

@@ -0,0 +1,94 @@
+# = opencascade.rb
+#
+# Copyright (c) 2006 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.
+
+require 'facets/boolean' # bool
+require 'facets/openobject'
+#require 'facets/nullclass'
+
+# = OpenCascade
+#
+# OpenCascade is subclass of OpenObject. It differs in a few
+# significant ways.
+#
+# The main reason this class is labeled "cascade", every internal
+# Hash is transformed into an OpenCascade dynamically upon access.
+# This makes it easy to create "cascading" references.
+#
+#   h = { :x => { :y => { :z => 1 } } }
+#   c = OpenCascade[h]
+#   c.x.y.z  #=> 1
+#
+# As soon as you access a node it automatically becomes an OpenCascade.
+#
+#   c = OpenCascade.new   #=> #<OpenCascade:0x7fac3680ccf0 {}>
+#   c.r                   #=> #<OpenCascade:0x7fac368084c0 {}>
+#   c.a.b                 #=> #<OpenCascade:0x7fac3680a4f0 {}>
+#
+# But if you set a node, then that will be it's value.
+#
+#   c.a.b = 4             #=> 4
+#
+# To query a node without causing the auto-creation of an OpenCasade
+# object, use the ?-mark.
+#
+#   c.a.z?                #=> nil
+#
+# Finally, you can set a node and get the reciever back using
+# the !-mark.
+#
+#   c = OpenCascade.new   #=> #<OpenCascade:0x7fac3680ccf0 {}>
+#   c.x!(4).y!(3)         #=> #<OpenCascade:0x7fac3680ccf0 {:x=>4, :y=>3}>
+#
+#--
+# Last, when an entry is not found, 'null' is returned rather then 'nil'.
+# This allows for run-on entries withuot error. Eg.
+#
+#   o = OpenCascade.new
+#   o.a.b.c  #=> null
+#
+# Unfortuately this requires an explict test for of nil? in 'if' conditions,
+#
+#   if o.a.b.c.null?  # True if null
+#   if o.a.b.c.nil?   # True if nil or null
+#   if o.a.b.c.not?   # True if nil or null or false
+#
+# So be sure to take that into account.
+#++
+
+class OpenCascade < OpenObject
+
+  def method_missing( sym, arg=nil )
+    type = sym.to_s[-1,1]
+    name = sym.to_s.gsub(/[=!?]$/, '').to_sym
+    if type == '='
+      self[name] = arg
+    elsif type == '!'
+      self[name] = arg
+      self
+    elsif type == '?'
+      self[name]
+    else
+      if val = self[name]
+        if Hash === val
+          self[name] = self.class.new(val)
+        else
+          self[name]
+        end
+      else
+        self[name] = self.class.new
+      end
+    end
+  end
+
+end
+

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

@@ -0,0 +1,43 @@
+# = OpenCollection
+#
+# A mapping OpenObject.
+#
+# == Authors
+#
+# * Thomas Sawyer
+#
+# == Copying
+#
+# Copyright (c) 2005 Thomas Sawyer, George Moschovitis
+#
+# 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.
+
+require 'facets/openobject'
+
+# = OpenCollection
+#
+# Mapping OpenObject.
+#
+class OpenCollection
+
+  def initialize(*hash)
+    @opens = hash.map do |h|
+      OpenObject.new(h)
+    end
+  end
+
+  def method_missing(sym)
+    @opens.map do |o|
+      o.send(sym)
+    end
+  end
+
+end
+

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

@@ -0,0 +1,39 @@
+# = OpenHash
+#
+# OpenHash is akin to an OpenStruct or an OpenObject,
+# but it is much simplier in nature. It is a hash with
+# an method_missing definition that routes to [] and []=.
+#
+# == Author
+#
+# * Trans
+
+# = OpenHash
+#
+# OpenHash is akin to an OpenStruct or an OpenObject,
+# but it is much simplier in nature. It is a hash with
+# an method_missing definition that routes to [] and []=.
+#
+class OpenHash < Hash
+  #private *instance_methods.select{|m| m !~ /^__/}
+
+  # New OpenHash.
+
+  def initialize(data)
+    super()
+    update(data)
+  end
+
+  # Route get and set calls.
+
+  def method_missing(s, *a)
+    if s =~ /=$/
+      self[s] = a[0]
+    elsif a.empty?
+      self[s]
+    else
+      super
+    end
+  end
+
+end