carats 0.3.0

data/lib/carat-dev/import-module/import-module-0.81/test/times-do.sh

@@ -0,0 +1,10 @@
+#!/bin/sh
+times=$1
+shift
+a=0
+while test $a -lt $times
+do
+    a=`expr $a + 1`
+    echo "$a)"
+    $*
+done

data/lib/carat-dev/interface_work/SCRAP/i-contracts.rb

@@ -0,0 +1,37 @@
+
+class ImplementationError < StandardError
+end
+
+# namespace to store contracts
+module InterfaceContracts
+end
+
+class Module
+
+  def implements(*klasses)
+    klasses.each do |klass|
+      unless klass === Class
+        InterfaceContracts.module_eval %Q{
+          class ::InterfaceContracts::#{klass} < ::#{klass}; end
+          #{klass}.freeze
+        }
+      end
+    end
+    ifc_str = '[' + klasses.collect { |k| "InterfaceContracts::#{k.name}" }.join(',') + ']'
+    ifm = Module.new
+    ifm.module_eval %Q{
+      def initialize(*args)
+        #{ifc_str}.each do |k|
+          umeths = k.public_instance_methods(true) - self.public_methods
+          if umeths != []
+            raise ImplementationError, self.class.name + " as "  + k.name + "\n" + umeths.sort.join(', ')
+          end
+        end
+        super
+      end
+    }
+    class_eval { include ifm }
+  end
+
+end
+

data/lib/carat-dev/interface_work/SCRAP/interface.rb

@@ -0,0 +1,105 @@
+# Ruby Treasures 0.4
+# Copyright (C) 2002 Paul Brannan <paul@atdesk.com>
+# 
+# You may distribute this software under the same terms as Ruby (see the file
+# COPYING that was distributed with this library).
+# 
+##
+# A hack to allow a mixin to be used like Java's "interfaces".
+#
+# E.g.:
+# <pre>
+#   module Foo
+#     interface_method :foo
+#     interface_method :bar
+#   end
+#   
+#   class XYZ
+#     def bar
+#     end
+#   end
+#   
+#   class Bar < XYZ
+#     include Foo
+#     def foo
+#       puts "foo"
+#     end
+#   end
+#   
+#   b = Bar.new
+#   assert_object_includes_complete(b, Foo)
+# </pre>
+#
+class Module
+public
+  ##
+  # Determine if a class includes a module, in O(n) time.
+  #
+  # @return true if the class includes the module, false otherwise.
+  #
+  def includes_module?(mod)
+    return included_modules.index(mod)
+  end
+
+private
+  ##
+  # Declare an abstract method.
+  #
+  # @param symbol the name of the method.
+  #
+  def interface_method(symbol)
+    self.class_eval %{
+      if not defined?(@@__interface_methods__) then
+        @@__interface_methods__ = Array.new
+      end
+      @@__interface_methods__.push(symbol)
+    }
+  end
+end
+
+##
+# Determine if a class includes a module, in O(n) time.
+#
+# @return true if the class includes the module, false otherwise.
+#
+def assert_class_includes(klass, mod)
+  if not klass.includes_module?(mod) then
+    raise TypeError, "foo_obj should have the Foo interface"
+  end
+end
+
+##
+# Determine if an object's class includes a module, in O(n) time.
+#
+# @return true if the object's class includes the module, false otherwise.
+#
+def assert_object_includes(obj, mod)
+  assert_class_includes(obj.class, mod)
+end
+
+##
+# Determine if a class includes a module and implements all the module's
+# abstract methods, in O(n+m) time.
+#
+# @return true if the class includes the module, false otherwise.
+#
+def assert_class_includes_complete(klass, mod)
+  assert_class_includes(klass, mod)
+  imethods = mod.class_eval("@@__interface_methods__")
+  imethods.each do |meth|
+    if not klass.method_defined?(meth) then
+      raise TypeError, "Class #{klass} should have method #{meth} from module #{mod} defined"
+    end
+  end
+end
+
+##
+# Determine if an object's class includes a module and implements all the
+# module's abstract methods, in O(n+m) time.
+#
+# @return true if the object's class includes the module, false otherwise.
+#
+def assert_object_includes_complete(obj, mod)
+  assert_class_includes_complete(obj.class, mod)
+end
+

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/CHANGES

@@ -0,0 +1,3 @@
+0.1.0 - 9-May-2004
+===================
+- Initial release

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/MANIFEST

@@ -0,0 +1,15 @@
+CHANGES
+MANIFEST
+README
+install.rb
+
+doc/interface.rd
+doc/interface.txt
+
+lib/interface.rb
+
+test/tc_interface.rb
+test/test_instance.rb
+test/test_sub.rb
+test/test_unrequire.rb
+test/test.rb

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/README

@@ -0,0 +1,32 @@
+Quick Description
+=================
+This module provides Java style interfaces for Ruby, including a fairly
+similar syntax.  I don't necessarily believe in interfaces, but I wanted to
+put it out there as proof that it could be done.  Frankly, Java needs mixins
+more than Ruby needs interfaces, but here you go.
+
+Installation
+============
+ruby install.rb (may require root access)
+
+A bit about how this module came to be
+======================================
+A discussion on IRC with Mauricio Fernandez got us talking about traits.
+During that discussion I remembered a blog entry by David Naseby.  I revisited
+his blog entry (at http://homepages.ihug.com.au/~naseby/33.html) and took
+a closer look.
+
+Keep in mind that I also happened to be thinking about Java at the moment
+because of a recent job switch that involved coding in Java.  I was also
+trying to figure out what good interfaces were.
+
+As I read the first page of David Naseby's article I realized that,
+whether intended or not, he had implemented a rudimentary form of interfaces
+for Ruby.  When I discovered this, I talked about it some more with Mauricio
+and he and I (mostly him) fleshed out the rest of the module, including some
+syntax improvements.  The result is syntax and functionality that is nearly
+identical to Java.
+
+I should note that, although I am listed as the author, this was mostly the
+combined work of David Naseby and Mauricio Fernandez.  I just happened to be
+the guy that put it all together.

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/doc/interface.rd

@@ -0,0 +1,73 @@
+=begin
+= Description
+	Java style interfaces for Ruby.
+= Synopsis
+	require "interface"
+	
+	MyInterface = interface{
+		required_methods :foo, :bar, :baz
+	}
+	
+	# Raises an error until 'baz' is defined
+	class MyClass
+		def foo
+			puts "foo"
+		end
+		def bar
+			puts "bar"
+		end
+	    implements MyInterface
+	end
+= Constants
+--- Interface::VERSION
+	Returns the current version number of this package as a String.	
+= Methods
+--- extends(module)
+	An alias for 'extend'.
+	
+--- implements(module)
+	An alias for 'include'.  Syntactic sugar for the Java folks. :)
+	
+--- interface(&block)
+	Accepts a block.  There are only two methods you should ever pass to this
+	block: required_methods and/or unrequired_methods.	
+	
+	Subinterfaces will need to 'extend' their parent interface.
+= Module Methods
+--- Interface.required_methods(:method1, :method2, ...)
+	Accepts an array of method names that define the interface.  When this
+	module is included/implemented, those method names must have already been
+	defined.
+
+--- Interface.unrequired_methods(:method1, :method2, ...)
+	Accepts an array of method names that are removed as a requirement for
+	implementation.
+	
+	Presumably, you would use this in a subinterface where you only wanted a
+	partial implementation of an existing interface.
+= Error classes
+--- Interface::MethodMissing
+	Raised if a class or instance does not meet the interface requirements.
+= Notes
+	Subinterfaces work as well.  See the test_sub.rb file under the 'test'
+	directory for a sample.
+= Acknowledgements
+	This module was largely inspired and somewhat copied from a post by
+	David Naseby at http://homepages.ihug.com.au/~naseby/33.html.  It was
+	subsequently modified almost entirely by Mauricio Fernandez through a
+	series of discussions on IRC.
+= Copyright
+	(C) 2004 Daniel J. Berger
+	All rights reserved.
+= Warranty
+	This package is provided "as is" and without any express or
+	implied warranties, including, without limitation, the implied
+	warranties of merchantability and fitness for a particular purpose.
+= License
+	Ruby's
+= Author
+	Daniel J. Berger (who mostly stole it from David Naseby, which was then
+	modified by Mauricio Fernandez)
+	djberg96 at yahoo dot com
+	rubyhacker1/imperator on IRC
+=end

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/doc/interface.txt

@@ -0,0 +1,94 @@
+Description
+===========
+	Java style interfaces for Ruby.
+	
+Synopsis
+========
+	require "interface"
+	
+	MyInterface = interface{
+		required_methods :foo, :bar, :baz
+	}
+	
+	# Raises an error until 'baz' is defined
+	class MyClass
+		def foo
+			puts "foo"
+		end
+		def bar
+			puts "bar"
+		end
+	    implements MyInterface
+	end
+	
+Constants
+=========
+Interface::VERSION
+	Returns the current version number of this package as a String.
+		
+Methods
+=======
+extends(module)
+	An alias for 'extend'.
+	
+implements(module)
+	An alias for 'include'.  Syntactic sugar for the Java folks. :)
+	
+interface(&block)
+	Accepts a block.  There are only two methods you should ever pass to this
+	block: required_methods and/or unrequired_methods.	
+	
+	Subinterfaces will need to 'extend' their parent interface.
+	
+Module Methods
+==============
+Interface.required_methods(:method1, :method2, ...)
+	Accepts an array of method names that define the interface.  When this
+	module is included/implemented, those method names must have already been
+	defined.
+
+Interface.unrequired_methods(:method1, :method2, ...)
+	Accepts an array of method names that are removed as a requirement for
+	implementation.
+	
+	Presumably, you would use this in a subinterface where you only wanted a
+	partial implementation of an existing interface.
+	
+Error classes
+=============
+Interface::MethodMissing
+	Raised if a class or instance does not meet the interface requirements.
+	
+Notes
+=====
+	Subinterfaces work as well.  See the test_sub.rb file under the 'test'
+	directory for a sample.
+	
+Acknowledgements
+================
+	This module was largely inspired and somewhat copied from a post by
+	David Naseby at http://homepages.ihug.com.au/~naseby/33.html.  It was
+	subsequently modified almost entirely by Mauricio Fernandez through a
+	series of discussions on IRC.
+	
+Copyright
+=========
+	(C) 2004 Daniel J. Berger
+	All rights reserved.
+	
+Warranty
+========
+	This package is provided "as is" and without any express or
+	implied warranties, including, without limitation, the implied
+	warranties of merchantability and fitness for a particular purpose.
+	
+License
+=======
+	Ruby's
+	
+Author
+======
+	Daniel J. Berger (who mostly stole it from David Naseby, which was then
+	modified by Mauricio Fernandez)
+	djberg96 at yahoo dot com
+	rubyhacker1/imperator on IRC

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/install.rb

@@ -0,0 +1,16 @@
+require 'rbconfig'
+require 'ftools'
+include Config
+
+sitelibdir = CONFIG["sitelibdir"]
+source_file = "lib/interface.rb"
+
+puts "cp #{source_file} #{sitelibdir}"
+begin
+   File.copy(source_file,sitelibdir)
+rescue
+   puts "Error installing interface: [" + $! + "]"
+   exit
+end
+
+puts "interface has been successfully installed"

data/lib/carat-dev/interface_work/SCRAP/j-interface/interface-0.1.0/lib/interface.rb

@@ -0,0 +1,50 @@
+module Interface
+    Interface::VERSION = "0.1.0"
+    class MethodMissing < RuntimeError; end
+ 
+    def extends(o)
+        extend o
+    end
+ 
+    def extend_object(o)
+        return append_features(o) if Interface === o
+        append_features(class << o; self end)
+        included(o)
+    end
+ 
+    def append_features(mod)
+        return super if Interface === mod
+        inherited = (self.ancestors-[self]).select{|x| Interface === x}.
+            map{|x| x.instance_variable_get("@ids")}
+        ids = @ids + inherited.flatten
+        @unreq ||= []
+        (ids-@unreq).uniq.each do |id|
+            unless mod.instance_methods( true ).include?( id.to_s )
+                raise Interface::MethodMissing, id.to_s
+            end
+        end
+        super mod
+    end
+    
+    def required_methods(*ids)
+        @ids = ids
+    end
+ 
+    def unrequired_methods(*ids)
+        @unreq ||= []
+        @unreq += ids
+    end
+end
+ 
+def interface(&block)
+    mod = Module.new
+    mod.extend Interface
+    mod.instance_eval(&block)
+    mod
+end
+ 
+class Module
+    def implements m
+        include m
+    end
+end