contextr 0.0.1

data/Rakefile

@@ -0,0 +1,162 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'fileutils'
+require 'hoe'
+include FileUtils
+require File.join(File.dirname(__FILE__), 'lib', 'contextr', 'version')
+
+AUTHOR = 'schmidt'  # can also be an array of Authors
+EMAIL = "ruby@schmidtwisser.de"
+DESCRIPTION = "The goal is to equip Ruby with an API to allow context-oriented programming."
+GEM_NAME = 'contextr' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'contextr' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+NAME = "contextr"
+REV = File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+VERS = ContextR::VERSION::STRING + (REV ? ".#{REV}" : "")
+CLEAN.include ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']
+RDOC_OPTS = ['--quiet', '--title', 'contextr documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject { |x| Array(x).first == 'hoe' } 
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.author = AUTHOR 
+  p.description = DESCRIPTION
+  p.email = EMAIL
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs = CLEAN  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  #p.extra_deps = []     # An array of rubygem dependencies [name, version], e.g. [ ['active_support', '>= 1.3.1'] ]
+  #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+end
+
+
+desc 'Generate website files'
+task :website_generate do
+  Dir['website/**/*.txt'].each do |txt|
+    sh %{ ruby scripts/txt2html #{txt} > #{txt.gsub(/txt$/,'html')} }
+  end
+end
+
+desc 'Upload website files to rubyforge'
+task :website_upload do
+  config = YAML.load(File.read(File.expand_path("~/.rubyforge/user-config.yml")))
+  host = "#{config["username"]}@rubyforge.org"
+  remote_dir = "/var/www/gforge-projects/#{RUBYFORGE_PROJECT}/"
+  # remote_dir = "/var/www/gforge-projects/#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+  local_dir = 'website'
+  sh %{rsync -av --delete-excluded --exclude=".*/" #{local_dir}/ #{host}:#{remote_dir}}
+end
+
+desc 'Generate and upload website files'
+task :website => [:website_generate, :website_upload]
+
+desc 'Release the website and new gem version'
+task :deploy => [:check_version, :website, :release]
+
+task :check_version do
+  unless ENV['VERSION']
+    puts 'Must pass a VERSION=x.y.z release version'
+    exit
+  end
+  unless ENV['VERSION'] == VERS
+    puts "Please update your version.rb to match the release version, currently #{VERS}"
+    exit
+  end
+end
+
+
+# Most of this code was taken from the Rubinius Rakefile. 
+# Thanks for the help.
+
+ROOT = File.expand_path(File.dirname(__FILE__))
+
+def load_files(files)
+  files.each do |path|
+    begin
+      require(path)
+    rescue Object => e
+      STDERR.puts "Unable to load #{path}. #{e.message} (#{e.class})"
+    end
+  end
+end
+def require_files(files)
+  files.each do |path|
+    begin
+      require(path)
+    rescue Object => e
+      STDERR.puts "Unable to load #{path}. #{e.message} (#{e.class})"
+    end
+  end
+end
+
+begin
+    require 'spec/rake/spectask'
+rescue LoadError
+    raise <<-EOM
+Unable to load spec/rake/spectask. RSpec is a requirement to build Rubinius.
+Please install RSpec before building (http://rspec.rubyforge.org).
+    EOM
+end
+
+# Task class extensions
+paths = Dir[ File.join(File.dirname(__FILE__), 'rake/*') ]
+require_files(paths)
+#
+# Other tasks 
+paths = Dir[ File.join(File.dirname(__FILE__), 'tasks/*') ]
+load_files(paths)
+
+desc "Run all specs and tests"
+task :default => [ :spec, :test ]
+
+task :spec => 'spec:all'
+
+# Generate all the spec tasks
+namespace :spec do
+
+  spec_targets = %w(contextr core_ext)
+
+  spec_targets.each do | group |
+    spec_files = Dir[ File.join( File.dirname(__FILE__), 
+                      "spec/#{group}/*_spec.rb") ]
+
+    GroupSpecTask.new( group )
+
+    namespace group do
+      spec_files.each do | file |
+        SpecificGroupSpecTask.new( File.basename( file, '_spec.rb'), group )
+      end
+    end
+  end
+  
+  desc "Run all specs."
+  task :all => spec_targets.collect! { | group | 'spec:' << group }
+end
+
+desc "Run all benchmarks - currently none"
+task :benchmark
+

data/examples/education.rb

@@ -0,0 +1,67 @@
+require "rubygems"
+require "contextr" 
+
+class Person
+  layer :address, :education
+
+  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
+
+  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
+
+  attr_accessor :name, :address
+
+  def initialize name, address
+    self.name = name
+    self.address = address
+  end
+
+  def to_s
+    "Name: #{name}"
+  end
+
+  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 :address do
+  puts 
+  puts somePerson
+
+  ContextR::with_layers :education do
+    puts 
+    puts somePerson
+
+    ContextR::without_layers :address do
+      puts 
+      puts somePerson
+    end
+  end
+end
+puts 

data/examples/fibonacci.rb

@@ -0,0 +1,123 @@
+require "rubygems"
+require "contextr" 
+
+require 'test/unit'
+require 'benchmark'
+
+class FibonacciCalculator
+  def compute fixnum
+    if fixnum == 1 or fixnum == 0
+      fixnum
+    elsif fixnum < 0
+      raise ArgumentError, "Fibonacci not defined for negative numbers"
+    else
+      compute(fixnum - 1) + compute(fixnum - 2)
+    end
+  end
+
+  layer :fib_pre_post, :fib_wrap
+  attr_accessor :cache
+
+  fib_pre_post.pre :compute do | nature |
+    self.cache ||= {}
+    if self.cache.key? nature.arguments.first
+      nature.break! self.cache[nature.arguments.first]
+    end
+  end
+
+  fib_pre_post.post :compute do | nature |
+    self.cache[nature.arguments.first] = nature.return_value
+  end
+  
+  fib_wrap.wrap :compute do | nature |
+    self.cache ||= {}
+    if self.cache.key? nature.arguments.first
+      nature.return_value = self.cache[nature.arguments.first]
+    else
+      nature.call_next
+      self.cache[nature.arguments.first] = nature.return_value
+    end
+  end
+end
+
+class Fixnum
+  def fibonacci
+    if self == 1 or self == 0
+      self
+    elsif self < 0
+      raise ArgumentError, "Fibonacci not defined for negative numbers"
+    else
+      old_fib, fib = 0, 1
+      for i in 2..self
+        fib, old_fib = old_fib + fib, fib
+      end
+      fib
+    end
+  end
+end
+
+class FibonacciTest < Test::Unit::TestCase
+  def setup
+    @fibonacci = FibonacciCalculator.new
+  end
+  
+  def test_basic_function
+    Benchmark.bm(20) do |x|
+      x.report("Recursive:") {
+        assert_equal       0, @fibonacci.compute(  0 )
+        assert_equal       1, @fibonacci.compute(  1 )
+        assert_equal       1, @fibonacci.compute(  2 )
+        assert_equal      55, @fibonacci.compute( 10 )
+        assert_equal    6765, @fibonacci.compute( 20 )
+        # The following are too hard for the simple solution
+        assert_equal  75_025, 25.fibonacci
+        assert_equal 9227465, 35.fibonacci
+        assert_equal 280571172992510140037611932413038677189525,
+                              200.fibonacci
+        assert_equal 176023680645013966468226945392411250770384383304492191886725992896575345044216019675,
+                              400.fibonacci
+      }
+    end
+  end
+  
+  def test_layered_function_with_pre_post
+    Benchmark.bm(20) do |x|
+      x.report("Layered Pre/Post:") {
+        ContextR.with_layers :fib_pre_post do
+          assert_equal       0, @fibonacci.compute(  0 )
+          assert_equal       1, @fibonacci.compute(  1 )
+          assert_equal       1, @fibonacci.compute(  2 )
+          assert_equal       2, @fibonacci.compute(  3 )
+          assert_equal      55, @fibonacci.compute( 10 )
+          assert_equal    6765, @fibonacci.compute( 20 )
+          assert_equal  75_025, @fibonacci.compute( 25 )
+          assert_equal 9227465, @fibonacci.compute( 35 )
+          assert_equal 280571172992510140037611932413038677189525,
+                                @fibonacci.compute( 200 )
+          assert_equal 176023680645013966468226945392411250770384383304492191886725992896575345044216019675,
+          @fibonacci.compute( 400 )
+        end
+      }
+    end
+  end
+  
+  def test_layered_function_with_wrap
+    Benchmark.bm(20) do |x|
+      x.report("Layered Wrap:") {
+        ContextR.with_layers :fib_wrap do
+          assert_equal       0, @fibonacci.compute(  0 )
+          assert_equal       1, @fibonacci.compute(  1 )
+          assert_equal       1, @fibonacci.compute(  2 )
+          assert_equal      55, @fibonacci.compute( 10 )
+          assert_equal    6765, @fibonacci.compute( 20 )
+          assert_equal  75_025, @fibonacci.compute( 25 )
+          assert_equal 9227465, @fibonacci.compute( 35 )
+          assert_equal 280571172992510140037611932413038677189525,
+                                @fibonacci.compute( 200 )
+          assert_equal 176023680645013966468226945392411250770384383304492191886725992896575345044216019675,
+                                @fibonacci.compute( 400 )
+        end
+      }
+    end
+  end
+end

data/ext/dynamic.rb

@@ -0,0 +1,73 @@
+module Dynamic
+  class << self
+    Thread.main[:DYNAMIC] = Hash.new { |hash, key|
+      raise NameError, "no such dynamic variable: #{key}"
+    }
+
+    def here!
+      Thread.current[:DYNAMIC] = Hash.new { |hash, key|
+        raise NameError, "no such dynamic variable: #{key}"
+      }.update Thread.main[:DYNAMIC]
+    end
+
+    def variables
+      Thread.current[:DYNAMIC] or here!
+    end
+    
+    def variable(definition)
+      case definition
+      when Symbol
+        if variables.has_key? definition
+          raise NameError, "dynamic variable `#{definition}' already exists"
+        end
+        variables[definition] = nil
+      when Hash
+        definition.each { |key, value|
+          if variables.has_key? key
+            raise NameError, "dynamic variable `#{key}' already exists"
+          end
+          variables[key] = value
+        }
+      else
+        raise ArgumentError,
+        "can't create a new dynamic variable from #{definition.class}"
+      end
+    end
+    
+    def [](key)
+      variables[key]
+    end
+    
+    def []=(key, value)
+      variables[key] = value
+    end
+
+    def undefine(*keys)
+      keys.each { |key|
+        self[key]
+        variables.delete key
+      }
+    end
+
+    def let(bindings, &block)
+      save = {}
+      bindings.to_hash.collect { |key, value|
+        save[key] = self[key]
+        self[key] = value
+      }
+      return_value = block.call
+      variables.update save
+      return_value
+    end
+
+    def method_missing(name, *args)
+      if match = /=\Z/.match(name.to_s)    # setter?
+        raise ArgumentError, "invalid setter call"  unless args.size == 1
+        self[match.pre_match.intern] = args.first
+      else
+        raise ArgumentError, "invalid getter call"  unless args.empty?
+        self[name]
+      end
+    end
+  end
+end

data/ext/method_nature.rb

@@ -0,0 +1,17 @@
+unless Object.const_defined? "MethodNatureSuperClass"
+  MethodNatureSuperClass = Struct.new(:arguments, :return_value, :break, :block)
+end
+class MethodNature < MethodNatureSuperClass 
+  def break!( *value )
+    self.break = true
+    self.return_value = value.first unless value.empty?
+  end
+
+  def call_next
+    block.call( *arguments )
+  end
+
+  def call_next_with( *args )
+    block.call( *args )
+  end
+end

data/lib/contextr.rb

@@ -0,0 +1,13 @@
+# TODO: get rid of this workaround to avoid double loading on `rake test`
+unless Object.const_defined? "ContextR"
+  require 'rubygems'
+  require 'active_support'
+
+  Dir[File.join(File.dirname(__FILE__), '../ext/**/*.rb')].sort.each { |lib| require lib }
+  Dir[File.join(File.dirname(__FILE__), 'core_ext/**/*.rb')].sort.each { |lib| require lib }
+  Dir[File.join(File.dirname(__FILE__), 'contextr/**/*.rb')].sort.each { |lib| require lib }
+
+end
+unless Dynamic.variables.include?( :layers )
+  Dynamic.variable( :layers => [ ContextR::DefaultLayer ] )
+end