Gecko [ www.corporacionhdm.com.pe ]

Name	Size	Permission	Date
bigdecimal	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
cgi	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
date	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
digest	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
dl	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
drb	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
io	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
irb	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
net	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
openssl	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
optparse	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
racc	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
rdoc	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
rexml	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
rinda	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
rss	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
runit	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
shell	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
soap	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
test	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
uri	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
webrick	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
wsdl	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
x86_64-linux	[ DIR ]	drwxr-xr-x	2024-03-03 22:50
xmlrpc	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
xsd	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
yaml	[ DIR ]	drwxr-xr-x	2024-03-03 22:48
English.rb	5.6 KB	-rw-r--r--	2007-02-12 23:01
Env.rb	274 B	-rw-r--r--	2007-02-12 23:01
abbrev.rb	2.5 KB	-rw-r--r--	2007-02-12 23:01
base64.rb	3.37 KB	-rw-r--r--	2007-07-16 15:47
benchmark.rb	17.73 KB	-rw-r--r--	2008-02-10 15:24
cgi-lib.rb	6.89 KB	-rw-r--r--	2007-02-12 23:01
cgi.rb	73.74 KB	-rw-r--r--	2009-12-14 02:40
complex.rb	12.84 KB	-rw-r--r--	2009-08-03 05:59
csv.rb	24.46 KB	-rw-r--r--	2007-02-12 23:01
date.rb	53.02 KB	-rw-r--r--	2010-06-08 04:45
date2.rb	128 B	-rw-r--r--	2007-02-12 23:01
debug.rb	20.61 KB	-rw-r--r--	2007-02-12 23:01
delegate.rb	8.81 KB	-rw-r--r--	2009-07-16 00:35
digest.rb	1.12 KB	-rw-r--r--	2007-07-28 00:40
drb.rb	19 B	-rw-r--r--	2007-02-12 23:01
e2mmap.rb	4.04 KB	-rw-r--r--	2007-02-12 23:01
erb.rb	21.38 KB	-rw-r--r--	2009-02-23 17:44
eregex.rb	487 B	-rw-r--r--	2007-02-12 23:01
expect.rb	633 B	-rw-r--r--	2008-02-18 01:17
fileutils.rb	42.23 KB	-rw-r--r--	2011-05-20 22:29
finalize.rb	5.38 KB	-rw-r--r--	2007-02-12 23:01
find.rb	1.84 KB	-rw-r--r--	2007-02-12 23:01
forwardable.rb	6.16 KB	-rw-r--r--	2008-06-06 08:05
ftools.rb	6.17 KB	-rw-r--r--	2007-02-12 23:01
generator.rb	8.1 KB	-rw-r--r--	2008-04-10 10:52
getoptlong.rb	14.88 KB	-rw-r--r--	2007-02-12 23:01
getopts.rb	2.25 KB	-rw-r--r--	2007-02-12 23:01
gserver.rb	6.43 KB	-rw-r--r--	2007-02-12 23:01
importenv.rb	590 B	-rw-r--r--	2007-02-12 23:01
ipaddr.rb	21.96 KB	-rw-r--r--	2008-07-12 15:08
irb.rb	7.43 KB	-rw-r--r--	2009-08-09 08:44
jcode.rb	4.3 KB	-rw-r--r--	2007-02-12 23:01
kconv.rb	8.12 KB	-rw-r--r--	2007-02-12 23:01
logger.rb	17.59 KB	-rw-r--r--	2011-05-30 02:08
mailread.rb	1.28 KB	-rw-r--r--	2007-02-12 23:01
mathn.rb	5.42 KB	-rw-r--r--	2007-02-12 23:01
matrix.rb	27.21 KB	-rw-r--r--	2009-01-24 15:02
md5.rb	411 B	-rw-r--r--	2007-03-06 10:09
mkmf.rb	50.65 KB	-rw-r--r--	2010-12-04 06:34
monitor.rb	7.93 KB	-rw-r--r--	2009-11-25 07:45
mutex_m.rb	2.07 KB	-rw-r--r--	2007-02-12 23:01
observer.rb	5.15 KB	-rw-r--r--	2007-02-12 23:01
open-uri.rb	20.49 KB	-rw-r--r--	2007-10-08 11:16
open3.rb	2.1 KB	-rw-r--r--	2009-12-14 04:28
openssl.rb	575 B	-rw-r--r--	2010-11-22 07:21
optparse.rb	47.12 KB	-rw-r--r--	2009-02-20 11:43
ostruct.rb	3.35 KB	-rw-r--r--	2009-05-26 12:06
parsearg.rb	1.55 KB	-rw-r--r--	2007-02-12 23:01
parsedate.rb	1.33 KB	-rw-r--r--	2007-02-12 23:01
pathname.rb	29.39 KB	-rw-r--r--	2010-11-23 08:21
ping.rb	1.48 KB	-rw-r--r--	2007-02-12 23:01
pp.rb	15.97 KB	-rw-r--r--	2007-06-07 10:06
prettyprint.rb	18.33 KB	-rw-r--r--	2007-02-16 19:53
profile.rb	90 B	-rw-r--r--	2007-02-12 23:01
profiler.rb	1.59 KB	-rw-r--r--	2007-02-12 23:01
pstore.rb	11.15 KB	-rw-r--r--	2008-06-06 08:05
rational.rb	12.05 KB	-rw-r--r--	2010-06-08 05:02
readbytes.rb	835 B	-rw-r--r--	2007-02-12 23:01
resolv-replace.rb	1.55 KB	-rw-r--r--	2008-08-08 01:58
resolv.rb	56.83 KB	-rw-r--r--	2010-12-23 03:22
rss.rb	504 B	-rw-r--r--	2007-10-21 12:19
rubyunit.rb	180 B	-rw-r--r--	2007-02-12 23:01
scanf.rb	20.63 KB	-rw-r--r--	2009-01-20 03:23
securerandom.rb	4.27 KB	-rw-r--r--	2011-12-10 12:17
set.rb	27.08 KB	-rw-r--r--	2008-06-09 09:20
sha1.rb	418 B	-rw-r--r--	2007-03-06 10:09
shell.rb	4.66 KB	-rw-r--r--	2007-02-12 23:01
shellwords.rb	3.99 KB	-rw-r--r--	2008-03-21 12:16
singleton.rb	8.08 KB	-rw-r--r--	2008-07-03 11:14
sync.rb	6.09 KB	-rw-r--r--	2009-02-19 16:41
tempfile.rb	4.86 KB	-rw-r--r--	2008-04-21 09:43
thread.rb	104 B	-rw-r--r--	2007-02-13 19:39
thwait.rb	4.32 KB	-rw-r--r--	2010-06-08 07:08
time.rb	31.58 KB	-rw-r--r--	2008-06-06 08:05
timeout.rb	3 KB	-rw-r--r--	2010-06-08 06:24
tmpdir.rb	3.69 KB	-rw-r--r--	2009-01-26 02:12
tracer.rb	2.73 KB	-rw-r--r--	2007-02-12 23:01
tsort.rb	7.99 KB	-rw-r--r--	2007-02-12 23:01
un.rb	4.54 KB	-rw-r--r--	2007-02-12 23:01
uri.rb	710 B	-rw-r--r--	2008-04-15 09:41
weakref.rb	2.68 KB	-rw-r--r--	2007-02-12 23:01
webrick.rb	811 B	-rw-r--r--	2007-02-12 23:01
yaml.rb	12.36 KB	-rw-r--r--	2008-04-19 11:45

Rename

# The Singleton module implements the Singleton pattern.
#
# Usage:
#    class Klass
#       include Singleton
#       # ...
#    end
#
# *  this ensures that only one instance of Klass lets call it
#    ``the instance'' can be created.
#
#    a,b  = Klass.instance, Klass.instance
#    a == b   # => true
#    a.new    #  NoMethodError - new is private ...
#
# *  ``The instance'' is created at instantiation time, in other
#    words the first call of Klass.instance(), thus
#
#      class OtherKlass
#        include Singleton
#        # ...
#      end
#      ObjectSpace.each_object(OtherKlass){} # => 0.
#
# *  This behavior is preserved under inheritance and cloning.
#
#
#
# This is achieved by marking
# *  Klass.new and Klass.allocate - as private
#
# Providing (or modifying) the class methods
# *  Klass.inherited(sub_klass) and Klass.clone()  -
#    to ensure that the Singleton pattern is properly
#    inherited and cloned.
#
# *  Klass.instance()  -  returning ``the instance''. After a
#    successful self modifying (normally the first) call the
#    method body is a simple:
#
#       def Klass.instance()
#         return @__instance__
#       end
#
# *  Klass._load(str)  -  calling Klass.instance()
#
# *  Klass._instantiate?()  -  returning ``the instance'' or
#    nil. This hook method puts a second (or nth) thread calling
#    Klass.instance() on a waiting loop. The return value
#    signifies the successful completion or premature termination
#    of the first, or more generally, current "instantiation thread".
#
#
# The instance method of Singleton are
# * clone and dup - raising TypeErrors to prevent cloning or duping
#
# *  _dump(depth) - returning the empty string.  Marshalling strips
#    by default all state information, e.g. instance variables and
#    taint state, from ``the instance''.  Providing custom _load(str)
#    and _dump(depth) hooks allows the (partially) resurrections of
#    a previous state of ``the instance''.

module Singleton
  #  disable build-in copying methods
  def clone
    raise TypeError, "can't clone instance of singleton #{self.class}"
  end
  def dup
    raise TypeError, "can't dup instance of singleton #{self.class}"
  end

#  default marshalling strategy
  def _dump(depth=-1)
    ''
  end
end

class << Singleton
  #  Method body of first instance call.
  FirstInstanceCall = proc do
    #  @__instance__ takes on one of the following values
    #  * nil     -  before and after a failed creation
    #  * false  -  during creation
    #  * sub_class instance  -  after a successful creation
    #  the form makes up for the lack of returns in progs
    Thread.critical = true
    if  @__instance__.nil?
      @__instance__  = false
      Thread.critical = false
      begin
        @__instance__ = new
      ensure
        if @__instance__
          class <<self
            remove_method :instance
            def instance; @__instance__ end
          end
        else
          @__instance__ = nil #  failed instance creation
        end
      end
    elsif  _instantiate?()
      Thread.critical = false
    else
      @__instance__  = false
      Thread.critical = false
      begin
        @__instance__ = new
      ensure
        if @__instance__
          class <<self
            remove_method :instance
            def instance; @__instance__ end
          end
        else
          @__instance__ = nil
        end
      end
    end
    @__instance__
  end

module SingletonClassMethods
    # properly clone the Singleton pattern - did you know
    # that duping doesn't copy class methods?
    def clone
      Singleton.__init__(super)
    end

def _load(str)
      instance
    end

private

#  ensure that the Singleton pattern is properly inherited
    def inherited(sub_klass)
      super
      Singleton.__init__(sub_klass)
    end

# waiting-loop hook
    def _instantiate?()
      while false.equal?(@__instance__)
        Thread.critical = false
        sleep(0.08)   # timeout
        Thread.critical = true
      end
      @__instance__
    end
  end

def __init__(klass)
    klass.instance_eval { @__instance__ = nil }
    class << klass
      define_method(:instance,FirstInstanceCall)
    end
    klass
  end

private
  #  extending an object with Singleton is a bad idea
  undef_method :extend_object

def append_features(mod)
    #  help out people counting on transitive mixins
    unless mod.instance_of?(Class)
      raise TypeError, "Inclusion of the OO-Singleton module in module #{mod}"
    end
    super
  end

def included(klass)
    super
    klass.private_class_method  :new, :allocate
    klass.extend SingletonClassMethods
    Singleton.__init__(klass)
  end
end

if __FILE__ == $0

def num_of_instances(klass)
    "#{ObjectSpace.each_object(klass){}} #{klass} instance(s)"
end

# The basic and most important example.

class SomeSingletonClass
  include Singleton
end
puts "There are #{num_of_instances(SomeSingletonClass)}"

a = SomeSingletonClass.instance
b = SomeSingletonClass.instance # a and b are same object
puts "basic test is #{a == b}"

begin
  SomeSingletonClass.new
rescue  NoMethodError => mes
  puts mes
end

puts "\nThreaded example with exception and customized #_instantiate?() hook"; p
Thread.abort_on_exception = false

class Ups < SomeSingletonClass
  def initialize
    self.class.__sleep
    puts "initialize called by thread ##{Thread.current[:i]}"
  end
end

class << Ups
  def _instantiate?
    @enter.push Thread.current[:i]
    while false.equal?(@__instance__)
      Thread.critical = false
      sleep 0.08
      Thread.critical = true
    end
    @leave.push Thread.current[:i]
    @__instance__
  end

def __sleep
    sleep(rand(0.08))
  end

def new
    begin
      __sleep
      raise  "boom - thread ##{Thread.current[:i]} failed to create instance"
    ensure
      # simple flip-flop
      class << self
        remove_method :new
      end
    end
  end

def instantiate_all
    @enter = []
    @leave = []
    1.upto(9) {|i|
      Thread.new {
        begin
          Thread.current[:i] = i
          __sleep
          instance
        rescue RuntimeError => mes
          puts mes
        end
      }
    }
    puts "Before there were #{num_of_instances(self)}"
    sleep 3
    puts "Now there is #{num_of_instances(self)}"
    puts "#{@enter.join '; '} was the order of threads entering the waiting loop"
    puts "#{@leave.join '; '} was the order of threads leaving the waiting loop"
  end
end

Ups.instantiate_all
# results in message like
# Before there were 0 Ups instance(s)
# boom - thread #6 failed to create instance
# initialize called by thread #3
# Now there is 1 Ups instance(s)
# 3; 2; 1; 8; 4; 7; 5 was the order of threads entering the waiting loop
# 3; 2; 1; 7; 4; 8; 5 was the order of threads leaving the waiting loop

puts "\nLets see if class level cloning really works"
Yup = Ups.clone
def Yup.new
  begin
    __sleep
    raise  "boom - thread ##{Thread.current[:i]} failed to create instance"
  ensure
    # simple flip-flop
    class << self
      remove_method :new
    end
  end
end
Yup.instantiate_all

puts "\n\n","Customized marshalling"
class A
  include Singleton
  attr_accessor :persist, :die
  def _dump(depth)
    # this strips the @die information from the instance
    Marshal.dump(@persist,depth)
  end
end

def A._load(str)
  instance.persist = Marshal.load(str)
  instance
end

a = A.instance
a.persist = ["persist"]
a.die = "die"
a.taint

stored_state = Marshal.dump(a)
# change state
a.persist = nil
a.die = nil
b = Marshal.load(stored_state)
p a == b  #  => true
p a.persist  #  => ["persist"]
p a.die      #  => nil

puts "\n\nSingleton with overridden default #inherited() hook"
class Up
end
def Up.inherited(sub_klass)
  puts "#{sub_klass} subclasses #{self}"
end

class Middle < Up
  include Singleton
end

class Down < Middle; end

puts  "and basic \"Down test\" is #{Down.instance == Down.instance}\n
Various exceptions"

begin
  module AModule
    include Singleton
  end
rescue TypeError => mes
  puts mes  #=> Inclusion of the OO-Singleton module in module AModule
end

begin
  'aString'.extend Singleton
rescue NoMethodError => mes
  puts mes  #=> undefined method `extend_object' for Singleton:Module
end

end