glue 0.22.0 → 0.23.0

data/test/glue/tc_metadata.rb

@@ -0,0 +1,33 @@
+__END__
+
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'lib')
+
+require 'yaml'
+require 'test/unit'
+require 'glue/metadata'
+
+class Dummy
+  include MetadataMixin
+
+  attr_accessor :name
+  ann :name, :class => String
+  ann :properties => :name
+    
+  def run
+    puts 'hello'
+  end
+  ann :run, :doc => 'documentation'  
+  ann :order => 'oid DESC'
+end
+
+class TestMetadata < Test::Unit::TestCase # :nodoc: all
+
+  def test_all
+    p Dummy.metadata.self.properties
+    assert_equal 'documentation', Dummy.metadata.run.doc
+    assert_equal 'oid DESC', Dummy.metadata.self.order    
+    assert_equal 1, Dummy.metadata.self.properties.size 
+  end
+  
+end
+

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: glue
 version: !ruby/object:Gem::Version 
-  version: 0.22.0
-date: 2005-08-07 00:00:00 +03:00
+  version: 0.23.0
+date: 2005-08-31 00:00:00 +03:00
 summary: Glue utilities
 require_paths: 
   - lib
@@ -29,84 +29,71 @@ cert_chain:
 authors: 
   - George Moschovitis
 files: 
-  - README
-  - CHANGELOG
   - Rakefile
+  - README
   - INSTALL
   - install.rb
   - doc/RELEASES
   - doc/LICENSE
   - doc/AUTHORS
+  - doc/CHANGELOG.1
   - lib/glue
   - lib/html
   - lib/glue.rb
-  - lib/vendor
-  - lib/glue/logger.rb
-  - lib/glue/array.rb
+  - lib/glue/builder
+  - lib/glue/mailer
   - lib/glue/validation.rb
-  - lib/glue/flexob.rb
-  - lib/glue/hash.rb
-  - lib/glue/property.rb
-  - lib/glue/sanitize.rb
-  - lib/glue/number.rb
-  - lib/glue/autoreload.rb
   - lib/glue/uri.rb
-  - lib/glue/aspects.rb
-  - lib/glue/misc.rb
-  - lib/glue/time.rb
-  - lib/glue/annotation.rb
-  - lib/glue/attribute.rb
-  - lib/glue/builder
-  - lib/glue/string.rb
-  - lib/glue/object.rb
+  - lib/glue/template.rb
+  - lib/glue/settings.rb
+  - lib/glue/sanitize.rb
+  - lib/glue/property.rb.old
+  - lib/glue/property.rb
+  - lib/glue/mock.rb
   - lib/glue/mixins.rb
-  - lib/glue/pool.rb
-  - lib/glue/configuration.rb
+  - lib/glue/metadata.rb
+  - lib/glue/mailer.rb
+  - lib/glue/mail.rb
+  - lib/glue/logger.rb
   - lib/glue/localization.rb
   - lib/glue/helper.rb
-  - lib/glue/settings.rb
-  - lib/glue/builder.rb
+  - lib/glue/flexob.rb
   - lib/glue/fixture.rb
-  - lib/glue/cache.rb
-  - lib/glue/mail.rb
-  - lib/glue/snapshot.rb
-  - lib/glue/mailer
-  - lib/glue/mailer.rb
-  - lib/glue/template.rb
+  - lib/glue/configuration.rb
+  - lib/glue/builder.rb
+  - lib/glue/attribute.rb
+  - lib/glue/aspects.rb
   - lib/glue/builder/xml.rb
-  - lib/glue/mailer/incoming.rb
   - lib/glue/mailer/outgoing.rb
-  - lib/html/document.rb
-  - lib/html/node.rb
+  - lib/glue/mailer/incoming.rb
   - lib/html/version.rb
   - lib/html/tokenizer.rb
-  - lib/vendor/blankslate.rb
-  - test/glue
+  - lib/html/node.rb
+  - lib/html/document.rb
   - test/fixture
+  - test/glue
   - test/public
-  - test/glue/tc_configuration.rb
-  - test/glue/tc_strings.rb
+  - test/fixture/user.yml
+  - test/fixture/article.yml
+  - test/fixture/article.csv
+  - test/glue/builder
   - test/glue/tc_validation.rb
-  - test/glue/tc_numbers.rb
+  - test/glue/tc_uri.rb
+  - test/glue/tc_template.rb
   - test/glue/tc_property_mixins.rb
-  - test/glue/tc_logger.rb
-  - test/glue/tc_aspects.rb
-  - test/glue/builder
-  - test/glue/tc_property_type_checking.rb
-  - test/glue/tc_flexob.rb
-  - test/glue/tc_hash.rb
-  - test/glue/tc_attribute.rb
   - test/glue/tc_property.rb
-  - test/glue/tc_builder.rb
-  - test/glue/tc_uri.rb
+  - test/glue/tc_property_type_checking.rb
+  - test/glue/tc_metadata.rb
+  - test/glue/tc_mail.rb
+  - test/glue/tc_logger.rb
   - test/glue/tc_localization.rb
+  - test/glue/tc_flexob.rb
   - test/glue/tc_fixture.rb
-  - test/glue/tc_mail.rb
-  - test/glue/tc_template.rb
+  - test/glue/tc_configuration.rb
+  - test/glue/tc_builder.rb
+  - test/glue/tc_attribute.rb
+  - test/glue/tc_aspects.rb
   - test/glue/builder/tc_xml.rb
-  - test/fixture/user.yml
-  - test/fixture/article.yml
-  - test/fixture/article.csv
   - test/public/dummy_mailer
   - test/public/dummy_mailer/registration.xhtml
 test_files: []
@@ -118,21 +105,30 @@ rdoc_options:
   - "--all"
   - "--inline-source"
 extra_rdoc_files: 
-  - README
-  - CHANGELOG
   - Rakefile
+  - README
   - INSTALL
 executables: []
 extensions: []
 requirements: []
 dependencies: 
   - !ruby/object:Gem::Dependency 
-    name: facets
+    name: nano
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - ">="
+          - !ruby/object:Gem::Version 
+            version: 0.8.2
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: mega
     version_requirement: 
     version_requirements: !ruby/object:Gem::Version::Requirement 
       requirements: 
         - 
           - ">="
           - !ruby/object:Gem::Version 
-            version: 0.7.2
+            version: 0.3.1
       version: 

data/lib/glue/annotation.rb

@@ -1,33 +0,0 @@
-# Based on an original idea by Aslak Hellesoy.
-
-require 'glue/hash'
-
-class Module
-  def ann(anns)
-    @@anns ||= SafeHash.new
-    def self.method_missing(sym, *args) #:nodoc:
-      @@anns[sym]
-    end
-    t = Thread.current
-    t[:attr_anns] ||= {}
-    t[:attr_anns].merge!(anns)
-  end
-
-  alias old_attr_reader attr_reader #:nodoc:
-  def attr_reader(*syms) #:nodoc:
-    t = Thread.current
-    syms.each do |sym|
-      @@anns[sym] = t[:attr_anns]
-    end
-    
-    t[:attr_anns] = nil
-    old_attr_reader(*syms)
-  end
-
-  def attr_accessor(*syms) #:nodoc:
-    attr_reader(*syms)
-    attr_writer(*syms)
-  end
-end
-
-# * George Moschovitis <gm@navel.gr>

data/lib/glue/array.rb

@@ -1,61 +0,0 @@
-# * George Moschovitis  <gm@navel.gr>
-# (c) 2002-2005 Navel, all rights reserved.
-# $Id: array.rb 182 2005-07-22 10:07:50Z gmosx $
-
-require 'sync'
-
-module Glue
-
-# 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.
-
-class SafeArray < Array
-  
-  attr :sync
-
-  # gmosx: delegator is not used.
-  
-  def initialize(delegator = nil)
-    @sync = Sync.new()
-  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
-
-end 

data/lib/glue/autoreload.rb

@@ -1,30 +0,0 @@
-# Copied from Wee 0.8.0
-# (c) 2004 Michael Neumann.
-
-module Kernel
-
-def autoreload(check_interval=10)
-  Thread.new(Time.now) { |start_time|
-    file_mtime = {}
-    loop do
-      sleep check_interval 
-      $LOADED_FEATURES.each do |feature|
-        $LOAD_PATH.each do |lp|
-          file = File.join(lp, feature)
-          if (File.exists?(file) and 
-            File.stat(file).mtime > (file_mtime[file] || start_time))
-            file_mtime[file] = File.stat(file).mtime
-            STDERR.puts "reload #{ file }"
-            begin
-              load(file)
-            rescue Exception => e
-              STDERR.puts e.inspect
-            end
-          end
-        end
-      end
-    end
-  }
-end
-
-end

data/lib/glue/cache.rb

@@ -1,189 +0,0 @@
-unless Enumerable.instance_methods.include?("min_by")
-  # for Ruby 1.8
-  module Enumerable
-    def min_by(&block)
-      min {|i,j| block.call(i) <=> block.call(j) }
-    end
-  end
-end
-
-module Glue
-
-# Abstract super class of all cache implementations.
-class Cache; end
-
-# Abstract super class of all caching strategies.
-class Cache::Strategy; end
-
-# Implements an unbounded cache strategy. The cache size can 
-# grow to infinity.
-
-class Cache::Strategy::Unbounded < Cache::Strategy
-  class Item < Struct.new(:value); end
-  def item_class() Item end
-
-  def access(item) end
-  def delete(item) end
-  def insert_or_extrude(item, enum) end
-end
-
-# Abstract class for a capacity bounded strategy. Only up to 
-# _capacity_ items are allowed to be stored in the cache 
-# at any time.
-
-class Cache::Strategy::CapacityBounded < Cache::Strategy
-  attr_accessor :capacity
-
-  def initialize(capacity)
-    @capacity = capacity
-    @n_items = 0  # number of items in cache
-  end
-
-  def inc(item)
-    raise if full?
-    @n_items += 1
-  end
-
-  def dec(item)
-    raise if empty?
-    @n_items -= 1
-  end
-
-  def full?
-    @n_items >= @capacity 
-  end
-
-  def empty?
-    @n_items == 0
-  end
-end
-
-# Implements the least frequently used (LFU) strategy.
-
-class Cache::Strategy::LFU < Cache::Strategy::CapacityBounded
-  class Item < Struct.new(:value, :freq); end 
-  def item_class() Item end
-
-  def access(item)
-    item.freq += 1
-  end
-
-  def delete(item)
-    dec(item)
-  end
-
-  # enum::
-  #    a [key, item] enumerable
-
-  def insert_or_extrude(item, enum)
-    # find least recently used key/item and yield
-    yield enum.min_by {|key, it| it.freq} while full?
-    item.freq = 0 
-    inc(item)
-  end
-end
-
-# Implements the least recently used (LRU) strategy.
-
-class Cache::Strategy::LRU < Cache::Strategy::CapacityBounded
-  class Item < Struct.new(:value, :time); end 
-  def item_class() Item end
-
-  def access(item)
-    item.time = Time.now
-  end
-
-  def delete(item)
-    dec(item)
-  end
-
-  # enum::
-  #    a [key, item] enumerable
-  #
-  def insert_or_extrude(item, enum)
-    # find least recently used key/item and yield
-    yield enum.min_by {|key, it| it.time} while full?
-    item.time = Time.now
-    inc(item)
-  end
-end
-
-# Implements a cache using a parameterizable strategy and a storage. 
-# The protocol that the _store_ must understand is: 
-#
-#   fetch(key) -> val
-#   has_key?(key)
-#   delete(key) -> val
-#   each {|key, val| }
-
-class Cache::StorageCache < Cache
-
-  def initialize(strategy, store=Hash.new, store_on_update=false)
-    @strategy = strategy
-    @store = store
-    @store_on_update = store_on_update
-  end
-
-  def has_key?(key)
-    @store.has_key?(key)
-  end
-
-  def delete(key)
-    if @store.has_key?(key)
-      item = @store.delete(key)
-      @strategy.delete(item)
-      item.value
-    else
-      nil
-    end
-  end
-
-  def fetch(key, default_value=nil)
-    if @store.has_key?(key)
-      item = @store.fetch(key)
-      @strategy.access(item)
-      @store.store(key, item) if @store_on_update
-      item.value
-    else
-      default_value
-    end
-  end
-
-  def store(key, value)
-    if @store.has_key?(key)
-      # update only 
-      item = @store.fetch(key)
-      item.value = value 
-      @strategy.access(item)
-      @store.store(key, item) if @store_on_update
-    else 
-      # insert new item
-      item = @strategy.item_class.new 
-      item.value = value  
-      @strategy.insert_or_extrude(item, @store) do |k, i|
-        @strategy.delete(i)
-        @store.delete(k)
-      end
-      @store.store(key, item) # correct!
-    end
-    value
-  end
-
-  alias [] fetch
-  alias []= store
-end
-
-# Implements an in-memory cache (uses a Hash as store) with a LRU replacement
-# stragegy.
-
-class Cache::MemoryLRUCache < Cache::StorageCache
-  DEFAULT_CAPACITY = 20
-
-  def initialize(capacity=DEFAULT_CAPACITY)
-    super(Cache::Strategy::LRU.new(capacity))
-  end
-end
-
-end # module Glue
-
-# * Michael Neumann <mneumann@ntecs.de>