facets 1.0.2 → 1.0.3

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

@@ -0,0 +1,87 @@
+#--
+# StaticHash
+#
+# Copyright (c) 2005 Thomas Sawyer
+#
+# Ported from Gavin Kistner's WriteOnceHash in basiclibrary.rb
+# Copyright (c) 2004 Gavin Kistner
+#
+# Reuse License
+#
+# It is covered under the license viewable at
+#   http://phrogz.net/JS/_ReuseLicense.txt
+# Reuse or modification is free provided you abide by the terms of that
+# license. (Including the first two lines above in your source code 
+# usually satisfies the conditions.)
+#
+# ==========================================================================
+#  Revision History
+# ==========================================================================
+#
+#  2004-06-01 Trans  * Ported to Calibre
+#
+# ==========================================================================
+#++
+
+#:title: StaticHash
+#
+# A Hash object which raises an error if any
+# previously-defined key attempts to be set again.
+#
+# == Synopsis
+#
+#   foo = Hash::Static.new
+#   foo['name'] = 'Tom'    #=> 'Tom'
+#   foo['age']  = 30       #=> 30
+#   foo['name'] = 'Bob'
+#
+# _produces_
+#
+#   Error: StaticHash has value for key 'name' in object:
+#       {"name"=>"Tom", "age"=>30} (RuntimeError)  
+#
+# == Author(s)
+#
+# * Gavin Kistner
+#
+
+class StaticHash < Hash
+
+  # Set a value for a key;
+  # raises an error if that key already exists with a different value.
+  def []=(key,val)
+    if self.has_key?(key) && self[key]!=val
+      raise ArgumentError, "StaticHash already has value for key '#{key.to_s}'"
+    end
+    super
+  end
+
+end
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+
+=begin testing
+
+require 'test/unit'
+
+class TC_StaticHash < Test::Unit::TestCase 
+
+  def setup
+    @sh1 = StaticHash.new
+  end
+
+  def test_assign
+    @sh1["x"] = 1
+    assert_raises( ArgumentError ){  @sh1["x"] = 2 }
+  end
+
+end
+
+=end

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

@@ -0,0 +1,144 @@
+#--
+# SyncArray
+#
+# Copyright (c) 2004-2005 Navel, all rights reserved.
+#
+# 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.08.07 trans  Ported to Mega Modules
+# ==========================================================================
+#++
+
+#:title: SyncArray
+#
+# A thread-safe array. We use a sync object instead of a 
+# mutex, because it is re-entrant. An exclusive lock is 
+# needed when writing, a shared lock IS NEEDED when reading.
+#
+# == Usage
+#
+#   TODO
+#
+# == Author(s)
+#
+# * George Moschovitis  <gm@navel.gr>
+
+require 'sync'
+
+class Array
+
+  def self.mutable_methods
+    @mutable ||= %w{ << []= abbrev clear collect! compact! concat
+      delete delete_at delete_if fill flatten insert map! pop push
+      reject! replace reverse! shift slice! sort! transpose uniq!
+      unshift
+    }
+  end
+
+end
+
+class SyncArray < Array
+
+  attr :sync
+
+  #
+  # gmosx: delegator is not yet used.
+  #
+  def initialize(delegator = nil)
+    @sync = ::Sync.new()
+    super()
+  end
+
+  instance_methods.each do |m|
+    next if Object.instance_methods.include?(m)
+    if mutable_methods.include?(m)
+      sync_type = "Sync::EX"
+    else
+      sync_type = "Sync::SH"
+    end
+    class_eval %{
+      def #{m}(*args)
+        return @sync.synchronize(#{sync_type}) { super }
+      end
+    }
+  end
+
+#  def << (value)
+#    return @sync.synchronize(Sync::SH) { super }
+#  end
+#
+#  def delete_if(&block)
+#    return @sync.synchronize(Sync::SH) { super }
+#  end
+#
+#  def [](key)
+#    return @sync.synchronize(Sync::SH) { super }
+#  end
+#
+#  def []=(key, value)
+#    return @sync.synchronize(Sync::EX) { super }
+#  end
+#
+#  def delete(key)
+#    return @sync.synchronize(Sync::EX) { super }
+#  end
+#
+#  def clear
+#    @sync.synchronize(Sync::EX) { super }
+#  end
+#
+#  def size
+#    return @sync.synchronize(Sync::SH) { super }
+#  end
+#
+#  def shift
+#    return @sync.synchronize(::Sync::EX) { super }
+#  end
+#
+#  def unshift(el)
+#    return @sync.synchronize(::Sync::EX) { super }
+#  end
+
+end
+
+#--
+# Funniest thing, remove the :: in front of Sync.new in the initialize
+# routine and uncomment the alias line below and watch the stack blow chunks.
+# I'm leaving this comment here as a reminder.
+### Array::Sync = SyncArray
+#++
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+
+=begin testing
+
+require 'test/unit'
+
+# TODO
+
+class TC_SyncArray < Test::Unit::TestCase
+
+  def test_01
+    assert_nothing_raised{ @s = SyncArray.new }
+  end
+
+end
+
+=end

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

@@ -0,0 +1,173 @@
+#--
+# SyncHash
+#
+# Copyright (c) 2004-2005 Navel, all rights reserved.
+#
+# 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
+# ==========================================================================
+#
+#  05.08.23 trans  United Inherited and Delegated forms in a single class.
+#
+#  05.08.07 trans  Ported to Mega from Glue.
+#
+# ==========================================================================
+#++
+
+#:title: SyncHash
+#
+# A thread-safe hash. We use a sync object instead of a mutex,
+# because it is re-entrant. An exclusive lock is needed when
+# writing, a shared lock IS NEEDED when reading.
+#
+# Uses the delegator pattern to allow for multiple
+# implementations!
+#
+# === Design
+#
+# This class uses the delegator pattern. However we dont use Ruby's
+# delegation facilities, they are more general and powerful than we
+# need here (and slower). Instead a custom (but simple) solution is
+# used.
+#
+# == Usage
+#
+# hash = SyncHash.new
+# hash = SyncHash.new(Hash.new)   # Delegates
+#
+# ==Author(s)
+#
+# * George Moschovitis
+# * Thomas Sawyer
+#
+
+require 'sync'
+
+class SyncHash < Hash
+
+  attr :delegate, :sync
+
+  def initialize(delegate=nil)
+    @delegate = delegate
+    @sync = ::Sync.new
+    if delegate
+      self.extend Delegator
+    else
+      self.extend Inheritor
+    end
+  end
+
+  # Is this even advisable ?
+  #def replace(new_delegate)
+  #  self.extend Delegator unless @delegate
+  #  # or? raise 'not a delegating synchash' unless @delegate
+  #  @delegate = new_delegate
+  #end
+
+  # This module is used when a delegate is NOT being used.
+  module Inheritor
+
+    def [](key)
+      @sync.synchronize(::Sync::SH) { super }
+    end
+
+    def []=(key, value)
+      @sync.synchronize(::Sync::EX) { super }
+    end
+
+    def delete(key)
+      @sync.synchronize(::Sync::EX) { super }
+    end
+
+    def clear
+      @sync.synchronize(::Sync::EX) { super }
+    end
+
+    def size
+      @sync.synchronize(::Sync::SH) { super }
+    end
+
+    def values
+      @sync.synchronize(::Sync::SH) { super }
+    end
+
+    def keys
+      @sync.synchronize(::Sync::SH) { super }
+    end
+  end
+
+  # This module is used when a delegate is being used.
+  module Delegator
+
+    def [](key)
+      @sync.synchronize(::Sync::SH) { @delegate[key] }
+    end
+
+    def []=(key, value)
+      @sync.synchronize(::Sync::EX) { @delegate[key] = value }
+    end
+
+    def delete(key)
+      @sync.synchronize(::Sync::EX) { @delegate.delete(key) }
+    end
+
+    def clear
+      @sync.synchronize(::Sync::EX) { @delegate.clear }
+    end
+
+    def size
+      @sync.synchronize(::Sync::SH) { @delegate.size() }
+    end
+
+    def values
+      @sync.synchronize(::Sync::SH) { @delegate.values() }
+    end
+
+    def keys
+      @sync.synchronize(::Sync::SH) { @delegate.keys() }
+    end
+
+  end #module Delegator
+
+end #class SyncHash
+
+#--
+# Funniest thing, remove the :: in front of Sync.new in the initialize
+# routine and uncomment the alias line below and watch the stack blow chunks.
+# I'm leaving this comment here as a reminder.
+### Hash::Sync = SyncHash
+#++
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+
+=begin testing
+
+require 'test/unit'
+
+# TODO
+
+class TC_SyncHash < Test::Unit::TestCase
+
+  def test_01
+    assert_nothing_raised{ @h = SyncHash.new }
+  end
+
+end
+
+=end

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

@@ -0,0 +1,169 @@
+#--
+# System
+#
+# Copyright (c) 2005 Thomas Sawyer
+#
+# Adapted from RubyParams module by Minero Aoki
+# Copyright (c) 1999-2002 Minero Aoki <aamine@loveruby.net>
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU Lesser General Public License version 2 or later.
+#  
+# =============================================================
+#  Revision History
+# =============================================================
+#  2005-11-29 trans  * Pieced together.
+# =============================================================
+#++
+
+require 'rbconfig'
+
+# :title: System
+#
+# The System module provides Platform and Ruby system info.
+# It is intended for use as a service module although it
+# can be mixed too.
+#
+
+module System
+
+  extend self
+
+  # Execution Environment -------------------------------------
+
+  def program_name; $0 ; end
+  def program_name=(x); $0=x ; end
+
+  def argv; $* ; end
+  alias options argv
+
+  # these won't work here
+  #def file; __FILE__ ; end
+  #def filepath; File.expand_path(__FILE__) ; end
+  #def lineno; __LINE__ ; end
+
+  def process_id; $$ ; end
+  alias_method :pid, :process_id
+
+  def child_status; $? ; end
+  alias exit_status child_status
+
+  def error_info; $! ; end
+  def error_position; $@ ; end 
+
+  def debug; $DEBUG; end
+
+  def safe; $SAFE; end
+
+  def verbose; $VERBOSE; end
+  def verbose=(x); $VERBOSE=x; end
+
+  def coding; $-K ; end
+  def coding=(x); $-K=x ; end
+
+  def line_end_processing; $-l ; end
+
+  def program_loop; $-p ; end
+
+  def environment; ENV ; end
+  def env; ENV ; end
+
+  # Input/Ouput Variables -------------------------------------
+
+  def stdin; $stdin ; end
+  def stdin=(x); $stdin=x ; end
+
+  def stdout ; $stdout ; end
+  def stdout=(x); $stdout=x ; end
+
+  def stderr ; $stderr ; end
+  def stderr=(x); $stderr=x ; end
+
+  def default_input ; $< ; end
+  alias_method :defin, :default_input
+  alias_method :argf, :default_input
+
+  def default_output ; $> ; end
+  def default_output=(x); $defout=x ; end
+  alias_method :defout, :default_output
+  alias_method :defout=, :default_output=
+
+  def output_record_separator ; $\ ; end
+  def output_record_separator=(x) ; $\=x ; end
+  alias_method :ors, :output_record_separator
+  alias_method :ors=, :output_record_separator=
+
+  def output_field_separator ; $-F ; end
+  def output_field_separator=(x) ; $-F=x ; end
+  alias_method :ofs, :output_field_separator
+  alias_method :ofs=, :output_field_separator=
+
+  def input_record_separator ; $/ ; end
+  def input_record_separator=(x) ; $/=x ; end
+  alias_method :rs, :input_record_separator
+  alias_method :rs=, :input_record_separator=
+
+  def input_field_separator ; $/ ; end
+  def input_field_separator=(x) ; $/=x ; end
+  alias_method :fs, :input_field_separator
+  alias_method :fs=, :input_field_separator=
+
+  def input_line_number ; $. ; end
+  alias_method :input_lineno, :input_line_number
+
+  # Miscellaneous ---------------------------------------------
+
+  def data; DATA ; end
+
+  # Ruby Config -----------------------------------------------
+
+  ::Config::CONFIG.each do |k,v|
+    define_method( k.downcase ) { v }
+  end
+
+  alias_method :ruby, :ruby_install_name
+
+  def rubypath
+    File.join( bindir, ruby_install_name )
+  end
+
+  def platform
+    RUBY_PLATFORM
+  end
+
+  def version
+    RUBY_VERSION
+  end
+
+  def release
+    RUBY_RELEASE_DATE
+  end
+
+  def extentions
+    [ 'rb', DLEXT ]
+  end
+
+  def rubylibdir
+    File.join( libdir, 'ruby'  )
+  end
+
+  #def sitelibdir
+  #  File.join( rubylibdir, 'site_ruby', version )
+  #end
+  #
+  #STDLIBDIR  = File.join( LIBDIR, VERSION )
+  #RBDIR      = File.join( STDLIBDIR )
+  #SODIR      = File.join( STDLIBDIR, ARCH )
+  #
+  #SITE_RB    = File.join( SITELIBDIR )
+  #SITE_SO    = File.join( SITELIBDIR, ARCH )
+
+  # load path ----------------------------------------------------
+
+  def load_path; $: ; end
+
+  def loaded_features; $" ; end
+  alias_method :required, :loaded_features
+
+end