prototype 0.0.0 → 0.1.0

data/README

@@ -21,7 +21,9 @@ WHY
 
 EXAMPLES
 
+  __________________________________________
   ~ > cat samples/a.rb
+  __________________________________________
   require 'prototype'
 
   singleton = Prototype.new{
@@ -33,13 +35,16 @@ EXAMPLES
   p singleton.answer
 
 
+  __________________________________________
   ~ > ruby samples/a.rb
+  __________________________________________
   42
 
 
 
-
+  __________________________________________
   ~ > cat samples/b.rb
+  __________________________________________
   require 'prototype'
 
   DB = Prototype.new{
@@ -55,10 +60,71 @@ EXAMPLES
   DB.connect
 
 
+  __________________________________________
   ~ > ruby samples/b.rb
+  __________________________________________
   "localhost"
   4242
   ["localhost", 4242]
+
+
+
+  __________________________________________
+  ~ > cat samples/e.rb
+  __________________________________________
+  require 'prototype'
+
+  proto = prototype{
+    @a = 40
+    @b = 2
+  }
+
+  p(proto.a + proto.b)
+
+
+  ~ > ruby -Ilib samples/e.rb
+  42
+
+
+
+  __________________________________________
+  ~ > cat samples/f.rb
+  __________________________________________
+  require 'prototype'
+
+  a = prototype{ attributes 'a' => 4, 'b' => 10, 'c' => 2 }
+
+  b = prototype{ a 4; b 10; c 2 }
+
+  c = prototype{ @a, @b, @c = 4, 10, 2 }
+
+  [a, b, c].each{|obj| p(obj.a * obj.b + obj.c) }
+
+
+  ~ > ruby -Ilib samples/f.rb
+  42
+  42
+  42
+
+
+
+  __________________________________________
+  ~ > cat samples/g.rb
+  __________________________________________
+  require 'prototype'
+
+  a = prototype
+
+  b = prototype(a){ @a, @b, @c = 4, 10, 2 }
+
+  a.extend{ def answer() a * b + c end }
+
+  p b.answer
+
+
+  ~ > ruby -Ilib samples/g.rb
+  42
+
   
 
 DOCS

data/lib/prototype-0.0.0.rb

@@ -4,75 +4,178 @@
 #
 
 class Prototype
-  VERSION = '0.0.0'
+  VERSION = '0.1.0'
 
-  class << self
-    def version() VERSION end
+  #
+  # inline my attribute.rb file here
+  #
+  module Attrbiutes
+    def attributes *a, &b
+      unless a.empty?
+        hashes, names = a.partition{|x| Hash === x}
 
-    def new proto = Object, *a, &b
-      proto = proto.protoclass unless Class === proto
+        names_and_defaults = {}
+        hashes.each{|h| names_and_defaults.update h}
+        names.each{|name| names_and_defaults.update name => nil}
 
-      c = Class.new proto
+        names_and_defaults.each do |name, default|
+          init = b || lambda { default }
+          ivar = "@#{ name }"
+          getter = "#{ name }"
+          setter = "#{ name }="
+          query = "#{ name }?"
 
-      c.module_eval do
-        define_method(:protoclass) do
-          c
-        end
-      end
+          define_method(setter) do |value|
+            instance_variable_set ivar, value
+          end
 
-      c.module_eval <<-code
-        class << self
-          def method_missing m, *a, &b
-            ivar = "@%s" % m
-            if a.size == 0
-              if defined? ivar
-                instance_variable_get ivar
-              else
-                super
-              end
-            elsif a.size == 1
-              instance_variable_set ivar, a.shift
-              attr_accessor m
+          define_method(getter) do |*value|
+            unless value.empty?
+              send setter, value.shift
             else
-              super
+              defined = instance_eval "defined? #{ ivar }"
+              unless defined
+                send setter, instance_eval(&init) 
+              end
+              instance_variable_get ivar
             end
           end
+
+          alias_method query, getter
+
+          (attributes << name).uniq!
+          attributes
+        end
+      else
+        @attributes ||= [] 
+      end
+    end
+
+    def attribute *a, &b
+      attributes *a, &b
+    end
+  end
+
+  module ClassMethods
+    include Attrbiutes
+
+    def method_missing m, *a, &b
+      ivar = "@#{ m }"
+      if a.size == 0
+        if defined? ivar
+          instance_variable_get ivar
+        else
+          super
         end
-      code
+      elsif a.size == 1
+        instance_variable_set ivar, a.shift
+      else
+        super
+      end
+    end
+  end
+
+  module InstanceMethods
+    def initialize(*a, &b)
+      __protoinit__
+      super
+    end
 
-      c.module_eval &b if b
+    def __protoinit__
+      self.class.__prototable__.each do |ivar, value|
+        defined = instance_eval "defined? #{ ivar }"
+        unless defined
+          instance_variable_set ivar, value
+        end
+
+        a = ivar[%r/\w+/]
+        #defined = respond_to? a 
+        defined = self.class.module_eval{ attributes }.include? a
+        unless defined
+          self.class.module_eval{ attribute a }
+        end
+      end
+    end
+
+    def extend *a, &b
+      unless a.empty?
+        super
+      else
+        self.class.__prototype__ &b
+        __protoinit__
+        self
+      end
+    end
+
+    def clone *a, &b
+      obj = prototype(self.class, *a, &b)
+      instance_variables.each do |ivar|
+        value = instance_variable_get ivar
+        obj.instance_variable_set ivar, value
+      end
+      obj
+    end
+  end
+
+  module Prototype
+    def __prototable__  # uses const to avoid copying instance var
+      if const_defined? 'PROTOTABLE'
+        const_get 'PROTOTABLE'
+      else
+        const_set 'PROTOTABLE', {}
+      end
+    end
+
+    def __prototype__ &b
+      return unless b
+
+      module_eval &b
 
       table =
-        c.instance_variables.inject({}) do |t,ivar|
+        instance_variables.inject({}) do |t,ivar|
           value = 
-            c.instance_eval do
+            instance_eval do
               begin
                 instance_variable_get ivar
               ensure
                 remove_instance_variable ivar
               end
             end
-            t.update ivar => value
+          t.update ivar => value
         end
 
-      c.const_set 'PROTOTABLE', table
+      __prototable__.update table
+    end
 
-      c.module_eval <<-code
-        def initialize(*a, &b)
-          PROTOTABLE.each do |ivar, value|
-            instance_variable_set ivar, value
-          end
-          super
-        end
-      code
+    def self.extend_object other
+      other.extend ClassMethods
+      other.module_eval{ include InstanceMethods }
+      super
+    end
+  end
 
+  class << self
+    def new parent = Object, *a, &b
+      parent = parent.class unless Class === parent
+      c = Class.new parent
+      c.extend Prototype
+      prototable = parent.const_get 'PROTOTABLE' rescue nil
+      c.__prototable__.update prototable if prototable
+      c.__prototype__ &b
       obj = c.new *a 
-
       obj
     end
 
     alias_method "exnihilo", "new"
     alias_method "ex_nihilo", "new"
-    alias_method "clone", "new"
+  end
+end
+
+class Object
+  def Prototype *a, &b
+    Prototype.new *a, &b
+  end
+  def prototype *a, &b
+    Prototype.new *a, &b
   end
 end

data/lib/prototype.rb

@@ -4,75 +4,178 @@
 #
 
 class Prototype
-  VERSION = '0.0.0'
+  VERSION = '0.1.0'
 
-  class << self
-    def version() VERSION end
+  #
+  # inline my attribute.rb file here
+  #
+  module Attrbiutes
+    def attributes *a, &b
+      unless a.empty?
+        hashes, names = a.partition{|x| Hash === x}
 
-    def new proto = Object, *a, &b
-      proto = proto.protoclass unless Class === proto
+        names_and_defaults = {}
+        hashes.each{|h| names_and_defaults.update h}
+        names.each{|name| names_and_defaults.update name => nil}
 
-      c = Class.new proto
+        names_and_defaults.each do |name, default|
+          init = b || lambda { default }
+          ivar = "@#{ name }"
+          getter = "#{ name }"
+          setter = "#{ name }="
+          query = "#{ name }?"
 
-      c.module_eval do
-        define_method(:protoclass) do
-          c
-        end
-      end
+          define_method(setter) do |value|
+            instance_variable_set ivar, value
+          end
 
-      c.module_eval <<-code
-        class << self
-          def method_missing m, *a, &b
-            ivar = "@%s" % m
-            if a.size == 0
-              if defined? ivar
-                instance_variable_get ivar
-              else
-                super
-              end
-            elsif a.size == 1
-              instance_variable_set ivar, a.shift
-              attr_accessor m
+          define_method(getter) do |*value|
+            unless value.empty?
+              send setter, value.shift
             else
-              super
+              defined = instance_eval "defined? #{ ivar }"
+              unless defined
+                send setter, instance_eval(&init) 
+              end
+              instance_variable_get ivar
             end
           end
+
+          alias_method query, getter
+
+          (attributes << name).uniq!
+          attributes
+        end
+      else
+        @attributes ||= [] 
+      end
+    end
+
+    def attribute *a, &b
+      attributes *a, &b
+    end
+  end
+
+  module ClassMethods
+    include Attrbiutes
+
+    def method_missing m, *a, &b
+      ivar = "@#{ m }"
+      if a.size == 0
+        if defined? ivar
+          instance_variable_get ivar
+        else
+          super
         end
-      code
+      elsif a.size == 1
+        instance_variable_set ivar, a.shift
+      else
+        super
+      end
+    end
+  end
+
+  module InstanceMethods
+    def initialize(*a, &b)
+      __protoinit__
+      super
+    end
 
-      c.module_eval &b if b
+    def __protoinit__
+      self.class.__prototable__.each do |ivar, value|
+        defined = instance_eval "defined? #{ ivar }"
+        unless defined
+          instance_variable_set ivar, value
+        end
+
+        a = ivar[%r/\w+/]
+        #defined = respond_to? a 
+        defined = self.class.module_eval{ attributes }.include? a
+        unless defined
+          self.class.module_eval{ attribute a }
+        end
+      end
+    end
+
+    def extend *a, &b
+      unless a.empty?
+        super
+      else
+        self.class.__prototype__ &b
+        __protoinit__
+        self
+      end
+    end
+
+    def clone *a, &b
+      obj = prototype(self.class, *a, &b)
+      instance_variables.each do |ivar|
+        value = instance_variable_get ivar
+        obj.instance_variable_set ivar, value
+      end
+      obj
+    end
+  end
+
+  module Prototype
+    def __prototable__  # uses const to avoid copying instance var
+      if const_defined? 'PROTOTABLE'
+        const_get 'PROTOTABLE'
+      else
+        const_set 'PROTOTABLE', {}
+      end
+    end
+
+    def __prototype__ &b
+      return unless b
+
+      module_eval &b
 
       table =
-        c.instance_variables.inject({}) do |t,ivar|
+        instance_variables.inject({}) do |t,ivar|
           value = 
-            c.instance_eval do
+            instance_eval do
               begin
                 instance_variable_get ivar
               ensure
                 remove_instance_variable ivar
               end
             end
-            t.update ivar => value
+          t.update ivar => value
         end
 
-      c.const_set 'PROTOTABLE', table
+      __prototable__.update table
+    end
 
-      c.module_eval <<-code
-        def initialize(*a, &b)
-          PROTOTABLE.each do |ivar, value|
-            instance_variable_set ivar, value
-          end
-          super
-        end
-      code
+    def self.extend_object other
+      other.extend ClassMethods
+      other.module_eval{ include InstanceMethods }
+      super
+    end
+  end
 
+  class << self
+    def new parent = Object, *a, &b
+      parent = parent.class unless Class === parent
+      c = Class.new parent
+      c.extend Prototype
+      prototable = parent.const_get 'PROTOTABLE' rescue nil
+      c.__prototable__.update prototable if prototable
+      c.__prototype__ &b
       obj = c.new *a 
-
       obj
     end
 
     alias_method "exnihilo", "new"
     alias_method "ex_nihilo", "new"
-    alias_method "clone", "new"
+  end
+end
+
+class Object
+  def Prototype *a, &b
+    Prototype.new *a, &b
+  end
+  def prototype *a, &b
+    Prototype.new *a, &b
   end
 end

data/samples/c.rb

@@ -4,7 +4,22 @@ a = Prototype.new{
   def method() 42 end
 }
 
-b = Prototype.clone a
+b = a.clone 
 
+p a.method
 p b.method
 
+a.extend{
+  def method2() '42' end
+}
+
+p a.method2
+p b.method2
+
+b.extend{
+  def method3() 42.0 end
+}
+
+p b.method3
+p a.method3  # throws error!
+

data/samples/d.rb

@@ -0,0 +1,12 @@
+require 'prototype'
+
+proto = prototype{ attributes 'a' => 1, 'b' => 2, 'c' => 3 }
+proto = prototype{ a 1; b 2; c 3 }
+
+%w( a b c ).each{|attr| p proto.send(attr)}
+
+clone = proto.clone
+proto.c = 42
+
+%w( a b c ).each{|attr| p proto.send(attr)}
+%w( a b c ).each{|attr| p clone.send(attr)}

data/samples/e.rb

@@ -0,0 +1,8 @@
+require 'prototype'
+
+proto = prototype{
+  @a = 40
+  @b = 2
+}
+
+p(proto.a + proto.b)

data/samples/f.rb

@@ -0,0 +1,9 @@
+require 'prototype'
+
+a = prototype{ attributes 'a' => 4, 'b' => 10, 'c' => 2}
+
+b = prototype{ a 4; b 10; c 2 } 
+
+c = prototype{ @a = 4; @b = 10; @c = 2 }
+
+[a, b, c].each{|obj| p(obj.a * obj.b + obj.c) }

data/samples/g.rb

@@ -0,0 +1,11 @@
+
+require 'prototype'
+
+a = prototype
+
+b = prototype(a){ @a, @b, @c = 4, 10, 2 } 
+
+a.extend{ def answer() a * b + c end }
+
+p b.answer
+

metadata

@@ -3,7 +3,7 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: prototype
 version: !ruby/object:Gem::Version 
-  version: 0.0.0
+  version: 0.1.0
 date: 2006-07-12 00:00:00.000000 -06:00
 summary: prototype
 require_paths: 
@@ -30,7 +30,6 @@ authors:
   - Ara T. Howard
 files: 
   - lib
-  - prototype.rb
   - install.rb
   - gemspec.rb
   - samples
@@ -40,6 +39,10 @@ files:
   - samples/c.rb
   - samples/a.rb
   - samples/b.rb
+  - samples/d.rb
+  - samples/e.rb
+  - samples/f.rb
+  - samples/g.rb
 test_files: []
 rdoc_options: []
 extra_rdoc_files: []

data/prototype.rb

@@ -1,74 +0,0 @@
-
-#
-# http://en.wikipedia.org/wiki/Prototype-based_programming
-#
-
-class Prototype
-  class << self
-    def new proto = Object, *a, &b
-      proto = proto.protoclass unless Class === proto
-
-      c = Class.new proto
-
-      c.module_eval do
-        define_method(:protoclass) do
-          c
-        end
-      end
-
-      c.module_eval <<-code
-        class << self
-          def method_missing m, *a, &b
-            ivar = "@%s" % m
-            if a.size == 0
-              if defined? ivar
-                instance_variable_get ivar
-              else
-                super
-              end
-            elsif a.size == 1
-              instance_variable_set ivar, a.shift
-              attr_accessor m
-            else
-              super
-            end
-          end
-        end
-      code
-
-      c.module_eval &b if b
-
-      table =
-        c.instance_variables.inject({}) do |t,ivar|
-          value = 
-            c.instance_eval do
-              begin
-                instance_variable_get ivar
-              ensure
-                remove_instance_variable ivar
-              end
-            end
-            t.update ivar => value
-        end
-
-      c.const_set 'PROTOTABLE', table
-
-      c.module_eval <<-code
-        def initialize(*a, &b)
-          PROTOTABLE.each do |ivar, value|
-            instance_variable_set ivar, value
-          end
-          super
-        end
-      code
-
-      obj = c.new *a 
-
-      obj
-    end
-
-    alias_method "exnihilo", "new"
-    alias_method "ex_nihilo", "new"
-    alias_method "clone", "new"
-  end
-end