contextr 0.0.3 → 0.1.0

data/lib/contextr/modules/mutex_code.rb

@@ -0,0 +1,22 @@
+require "thread"
+module MutexCode
+  def semaphore
+    @semaphore ||= Mutex.new
+  end
+
+  def synchronized
+    semaphore.synchronize do
+      yield
+    end
+  end
+
+  def is_blocked?
+    semaphore.locked?
+  end
+
+  def only_once
+    synchronized do
+      yield
+    end unless is_blocked?
+  end
+end

data/lib/contextr/modules/unique_id.rb

@@ -0,0 +1,13 @@
+module UniqueId
+  def new_unique_id
+    $id_semaphore ||= Mutex.new
+    $id_semaphore.synchronize do
+      $gen_unique_id ||= 0
+      $gen_unique_id += 1
+    end
+  end
+
+  def last_unique_id
+    $gen_unique_id ||= 0
+  end
+end

data/lib/contextr/public_api.rb

@@ -0,0 +1,58 @@
+module ContextR
+  module ClassMethods
+    include MutexCode
+
+    # allows the explicit activation of layers within a block context
+    #
+    #   ContextR::with_layers(:foo, :bar) do
+    #     ContextR::current_layers            # => [:default, :foo, :bar]
+    #
+    #     ContextR::with_layers(:baz) do
+    #       ContextR::current_layers          # => [:default, :foo, :bar, :baz]
+    #     end
+    #
+    #   end
+    # 
+    # :call-seq:
+    #   with_layers(layer_name, ...) { ... }
+    #
+    def with_layers(*layer_symbols, &block)
+      layers = layer_symbols.collect do | layer_symbol |
+        layer_by_symbol(layer_symbol)
+      end
+      Dynamic.let({ :layers => Dynamic[:layers] | layers }, &block)
+    end
+    alias with_layer with_layers
+
+    # allows the explicit deactivation of layers within a block context
+    # 
+    #   ContextR::with_layers(:foo, :bar) do
+    #     ContextR::current_layers            # => [:default, :foo, :bar]
+    #
+    #     ContextR::without_layers(:foo) do
+    #       ContextR::current_layers          # => [:default, :bar]
+    #     end
+    #
+    #   end
+    #
+    # :call-seq:
+    #   without_layers(layer_name, ...) { ... }
+    #
+    def without_layers(*layer_symbols, &block)
+      layers = layer_symbols.collect do | layer_symbol |
+        layer_by_symbol(layer_symbol)
+      end
+      Dynamic.let({ :layers => Dynamic[:layers] - layers }, &block)
+    end
+    alias without_layer without_layers
+
+    def layers
+      Dynamic[:layers]
+    end
+
+    def layer_symbols
+      layers.collect { | layer | symbol_by_layer(layer) }
+    end
+  end
+end
+

data/lib/contextr/version.rb

@@ -1,8 +1,8 @@
 module ContextR #:nodoc:
   module VERSION #:nodoc:
     MAJOR = 0
-    MINOR = 0
-    TINY  = 3
+    MINOR = 1
+    TINY  = 0
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

data/lib/ext/active_support_subset.rb

@@ -0,0 +1,85 @@
+unless Object.const_defined? "ActiveSupport"
+  class Module
+    def alias_method_chain(target, feature)
+      # Strip out punctuation on predicates or bang methods since
+      # e.g. target?_without_feature is not a valid method name.
+      aliased_target, punctuation = target.to_s.sub(/([?!=])$/, ''), $1
+      yield(aliased_target, punctuation) if block_given?
+     
+      with_method = "#{aliased_target}_with_#{feature}#{punctuation}"
+      without_method = "#{aliased_target}_without_#{feature}#{punctuation}"
+     
+      alias_method without_method, target
+      alias_method target, with_method
+     
+      case
+        when public_method_defined?(without_method)
+          public target
+        when protected_method_defined?(without_method)
+          protected target
+        when private_method_defined?(without_method)
+          private target
+      end
+    end
+  end
+
+  module Inflector
+    extend self
+    
+    def camelize(lower_case_and_underscored_word, 
+                 first_letter_in_uppercase = true)
+      if first_letter_in_uppercase
+        lower_case_and_underscored_word.to_s.gsub(/\/(.?)/) { 
+                            "::" + $1.upcase }.gsub(/(^|_)(.)/) { $2.upcase }
+      else
+        lower_case_and_underscored_word.first + 
+                              camelize(lower_case_and_underscored_word)[1..-1]
+      end
+    end
+
+    def underscore(camel_cased_word)
+      camel_cased_word.to_s.gsub(/::/, '/').
+                            gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+                            gsub(/([a-z\d])([A-Z])/,'\1_\2').
+                            tr("-", "_").
+                            downcase
+    end
+
+    def constantize(camel_cased_word)
+      unless /\A(?:::)?([A-Z]\w*(?:::[A-Z]\w*)*)\z/ =~ camel_cased_word
+        raise NameError, 
+              "#{camel_cased_word.inspect} is not a valid constant name!"
+      end
+
+      Object.module_eval("::#{$1}", __FILE__, __LINE__)
+    end
+  end
+
+  module ActiveSupport
+    module CoreExtensions
+      module String
+        module Inflections
+          def camelize(first_letter = :upper)
+            case first_letter
+            when :upper then Inflector.camelize(self, true)
+            when :lower then Inflector.camelize(self, false)
+            end
+          end
+          alias_method :camelcase, :camelize
+
+          def underscore 
+            Inflector.underscore(self)
+          end
+
+          def constantize
+            Inflector.constantize(self)
+          end
+        end
+      end
+    end
+  end
+
+  class String
+    include ActiveSupport::CoreExtensions::String::Inflections
+  end
+end

data/spec/contextr_spec.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/spec_helper.rb'
+
+# Time to add your specs!
+# http://rspec.rubyforge.org/
+describe "Place your specs here" do
+  
+  it "find this spec in spec directory" do
+    violated "Be sure to write your specs"
+  end
+  
+end

data/spec/spec.opts

@@ -0,0 +1 @@
+--colour

data/spec/spec_helper.rb

@@ -1 +1 @@
-require File.dirname(__FILE__) + '/../lib/contextr'
+require 'spec'

data/test/test_contextr.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestContextR < Test::Unit::TestCase
+
+  def setup
+  end
+  
+  def test_truth
+    assert true
+  end
+end

data/website/index.html

@@ -5,7 +5,7 @@
   <link rel="stylesheet" href="stylesheets/screen.css" type="text/css" media="screen" />
   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
   <title>
-      Context-oriented Programming in Ruby
+      contextr
   </title>
   <script src="javascripts/rounded_corners_lite.inc.js" type="text/javascript"></script>
 <style>
@@ -30,10 +30,10 @@
 <body>
 <div id="main">
 
-    <h1>Context-oriented Programming in Ruby</h1>
+    <h1>contextr</h1>
     <div id="version" class="clickable" onclick='document.location = "http://rubyforge.org/projects/contextr"; return false'>
-      Get Version
-      <a href="http://rubyforge.org/projects/contextr" class="numbers">0.0.3</a>
+      <p>Get Version</p>
+      <a href="http://rubyforge.org/projects/contextr" class="numbers">0.0.9</a>
     </div>
     <h1>&#x2192; &#8216;contextr&#8217;</h1>
 
@@ -47,9 +47,6 @@
 	<h2>Installing</h2>
 
 
-	<p>Nothing more than typing</p>
-
-
 <pre syntax="ruby">sudo gem install contextr</pre>
 
 	<h2>The basics</h2>
@@ -58,7 +55,7 @@
 	<p>In your code use</p>
 
 
-<pre syntax="ruby">require 'rubygems'
+<pre syntax="ruby">require 'rubygems' 
 require 'contextr'</pre>
 
 	<p>and ContextR will be ready to use.</p>
@@ -67,93 +64,13 @@ require 'contextr'</pre>
 	<h2>Demonstration of usage</h2>
 
 
-<pre syntax="ruby">
-require "rubygems" 
-require "contextr" 
-
-class Person
-  attr_accessor :name, :address, :university
-
-  def initialize name, address, university
-    self.name = name
-    self.address = address
-    self.university = university
-  end
-
-  def to_s
-    "Name: #{name}" 
-  end
-end
-
-class University
-  attr_accessor :name, :address
-
-  def initialize name, address
-    self.name = name
-    self.address = address
-  end
-
-  def to_s
-    "Name: #{name}" 
-  end
-end
-
-class Person
-  layer :address, :education
-
-  address.post :to_s do | n |
-    n.return_value += "; Address: #{address}" 
-  end
-
-  education.post :to_s do | n |
-    n.return_value += ";\n[Education] #{university}" 
-  end
-end
-
-class University
-  layer :address
+	<p>Please see the examples/ folder in the source distribution for example uses</p>
 
-  address.post :to_s do | n |
-    n.return_value += "; Address: #{address}" 
-  end
-end
 
-hpi = University.new( "Hasso-Plattner-Institut", "Potsdam" )
-somePerson = Person.new( "Gregor Schmidt", "Berlin", hpi )
+	<h2>Forum</h2>
 
-puts 
-puts somePerson
-ContextR::with_layers :education do
-  puts 
-  puts somePerson
 
-  ContextR::with_layers :address do
-    puts 
-    puts somePerson
-
-    ContextR::without_layers :education do
-      puts 
-      puts somePerson
-    end
-  end
-end
-puts 
-</pre>
-The above code prints:
-
-<pre>
-Name: Gregor Schmidt
-
-Name: Gregor Schmidt;
-[Education] Name: Hasso-Plattner-Institut
-
-Name: Gregor Schmidt; Address: Berlin;
-[Education] Name: Hasso-Plattner-Institut; Address: Potsdam
-
-Name: Gregor Schmidt; Address: Berlin
-</pre>
-
-	<p>You may find other examples in the <code>examples</code> folder.</p>
+	<p><a href="http://groups.google.com/group/contextr">http://groups.google.com/group/contextr</a></p>
 
 
 	<h2>Other resources</h2>
@@ -162,33 +79,38 @@ Name: Gregor Schmidt; Address: Berlin
 	<ul>
 	<li><a href="http://contextr.rubyforge.org/contextr">ContextR <span class="caps">API</span> documentation</a></li>
 		<li><a href="http://rubyforge.org/projects/contextr">RubyForge Project Page</a></li>
-		<li><a href="http://www.nach-vorne.de">Author&#8217;s Development Blog &#8211; The Ruby Ahead</a></li>
+		<li><a href="http://www.swa.hpi.uni-potsdam.de/cop/"><span class="caps">COP</span> at <span class="caps">SWA</span> at the <span class="caps">HPI</span></a> More information on other context-oriented programming libaries as well as papers and theoretical work can be found at the <span class="caps">COP</span> page of Prof. Hirschfeld&#8217;s software architecture group at the <span class="caps">HPI</span></li>
+		<li><a href="http://www.nach-vorne.de">Author‘s Development Blog &#8211; The Ruby Ahead</a></li>
 		<li><a href="http://www.ohloh.net/projects/5037">ContextR Statistics on ohloh</a></li>
 	</ul>
 
 
+	<h2>How to submit patches</h2>
+
+
+	<p>Read the <a href="http://drnicwilliams.com/2007/06/01/8-steps-for-fixing-other-peoples-code/">8 steps for fixing other people&#8217;s code</a> and for section <a href="http://drnicwilliams.com/2007/06/01/8-steps-for-fixing-other-peoples-code/#8b-google-groups">8b: Submit patch to Google Groups</a>, use the Google Group above.</p>
+
+
+	<p>The trunk repository is <code>http://contextr.rubyforge.org/svn/trunk/</code> for anonymous access.</p>
+
+
 	<h2>License</h2>
 
 
-	<p>This code is free to use under the same terms as Ruby</p>
+	<p>This code is free to use under the terms of the <a href="http://www.ruby-lang.org/en/LICENSE.txt">Ruby license</a>.</p>
 
 
 	<h2>Contact</h2>
 
 
-	<p>Comments are welcome. Send an email to <a href="mailto:ruby@schmidtwisser.de">Gregor Schmidt</a></p>
+	<p>Comments are welcome. Send an email to <a href="mailto:ruby@schmidtwisser.de">Gregor Schmidt</a>.</p>
     <p class="coda">
-      <a href="mailto:drnicwilliams@gmail.com">Dr Nic</a>, 10th May 2007<br>
+      7th September 2007<br>
       Theme extended from <a href="http://rb2js.rubyforge.org/">Paul Battley</a>
     </p>
 </div>
 
-<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
-</script>
-<script type="text/javascript">
-  _uacct = "UA-510991-4";
-  urchinTracker();
-</script>
+<!-- insert site tracking codes here, like Google Urchin -->
 
 </body>
 </html>

data/website/index.txt

@@ -1,129 +1,61 @@
-h1. Context-oriented Programming in Ruby
+h1. contextr
 
 h1. → 'contextr'
 
 
 h2. What
 
-TODO
+This is the first release of ContextR after the 0.0.3 release. Since then a 
+full redesign took place. The API changed entirely so make sure to not use 
+this release with older code.
 
-h2. Installing
+We think, that the new API is more powerful and allows better code to be written
+with ContextR. Unfortunately it has some issues as well, but we consider them 
+as less relevant than the other way around. If you have any problems or question
+concerning these changes, feel free to use the new 
+"mailing list":http://groups.google.com/group/contextr - any hint is appreciated
 
-Nothing more than typing
+h2. Installing
 
 <pre syntax="ruby">sudo gem install contextr</pre>
 
 h2. The basics
 
-In your code use 
+In your code use
 
-<pre syntax="ruby">require 'rubygems'
+<pre syntax="ruby">require 'rubygems' 
 require 'contextr'</pre>
 
 and ContextR will be ready to use.
 
-h2. Demonstration of usage
-
-<pre syntax="ruby">
-require "rubygems"
-require "contextr" 
-
-class Person
-  attr_accessor :name, :address, :university
-
-  def initialize name, address, university
-    self.name = name
-    self.address = address
-    self.university = university
-  end
-
-  def to_s
-    "Name: #{name}"
-  end
-end
-
-class University
-  attr_accessor :name, :address
-
-  def initialize name, address
-    self.name = name
-    self.address = address
-  end
-
-  def to_s
-    "Name: #{name}"
-  end
-end
-
-class Person
-  layer :address, :education
-
-  address.post :to_s do | n |
-    n.return_value += "; Address: #{address}"
-  end
 
-  education.post :to_s do | n |
-    n.return_value += ";\n[Education] #{university}"
-  end
-end
-
-class University
-  layer :address
-
-  address.post :to_s do | n |
-    n.return_value += "; Address: #{address}"
-  end
-end
-
-
-hpi = University.new( "Hasso-Plattner-Institut", "Potsdam" )
-somePerson = Person.new( "Gregor Schmidt", "Berlin", hpi )
-
-puts 
-puts somePerson
-ContextR::with_layers :education do
-  puts 
-  puts somePerson
+h2. Demonstration of usage
 
-  ContextR::with_layers :address do
-    puts 
-    puts somePerson
+Please see the examples/ folder in the source distribution for example uses
 
-    ContextR::without_layers :education do
-      puts 
-      puts somePerson
-    end
-  end
-end
-puts 
-</pre>
-The above code prints:
+h2. Forum
 
-<pre>
-Name: Gregor Schmidt
+"http://groups.google.com/group/contextr":http://groups.google.com/group/contextr
 
-Name: Gregor Schmidt;
-[Education] Name: Hasso-Plattner-Institut
+h2. Other resources
 
-Name: Gregor Schmidt; Address: Berlin;
-[Education] Name: Hasso-Plattner-Institut; Address: Potsdam
+* "ContextR API documentation":http://contextr.rubyforge.org/rdoc
+* "RubyForge Project Page":http://rubyforge.org/projects/contextr
+* "COP at SWA at the HPI":http://www.swa.hpi.uni-potsdam.de/cop/ More information on other context-oriented programming libaries as well as papers and theoretical work can be found at the COP page of Prof. Hirschfeld's software architecture group at the HPI
+* "Author‘s Development Blog - The Ruby Ahead":http://www.nach-vorne.de
+* "ContextR Statistics on ohloh":http://www.ohloh.net/projects/5037
 
-Name: Gregor Schmidt; Address: Berlin
-</pre>
 
-You may find other examples in the <code>examples</code> folder.
+h2. How to submit patches
 
-h2. Other resources
+Read the "8 steps for fixing other people's code":http://drnicwilliams.com/2007/06/01/8-steps-for-fixing-other-peoples-code/ and for section "8b: Submit patch to Google Groups":http://drnicwilliams.com/2007/06/01/8-steps-for-fixing-other-peoples-code/#8b-google-groups, use the Google Group above.
 
-* "ContextR API documentation":http://contextr.rubyforge.org/contextr
-* "RubyForge Project Page":http://rubyforge.org/projects/contextr
-* "Author's Development Blog - The Ruby Ahead":http://www.nach-vorne.de
-* "ContextR Statistics on ohloh":http://www.ohloh.net/projects/5037
+The trunk repository is <code>http://contextr.rubyforge.org/svn/trunk/</code> for anonymous access.
 
 h2. License
 
-This code is free to use under the same terms as Ruby 
+This code is free to use under the terms of the "Ruby license":http://www.ruby-lang.org/en/LICENSE.txt.
 
 h2. Contact
 
-Comments are welcome. Send an email to "Gregor Schmidt":mailto:ruby@schmidtwisser.de
+Comments are welcome. Send an email to "Gregor Schmidt":mailto:ruby@schmidtwisser.de.