red 3.4.1 → 3.4.2

data/History.txt

@@ -1,3 +1,11 @@
+== 3.4.2 2008-08-12
+
+* 1 major enhancement:
+  * Added Prototype support for constructible class definition.
+
+* 1 bug fix:
+  * @instance_variable no longer initializes with reduplicated "this". Bug was introduced with addition of incremental operators.
+
 == 3.4.1 2008-08-09
 
 * 1 major enhancement:

data/lib/red/assignment_nodes.rb

@@ -42,7 +42,7 @@ module Red
       def compile_node(options = {})
         receiver = "this.%s" % @variable_name.compile_node
         return self.compile_increment(:receiver => receiver) if self.call_to_increment?
-        return "this.%s = %s" % [receiver, @expression.compile_node(:as_argument => true)]
+        return "%s = %s" % [receiver, @expression.compile_node(:as_argument => true)]
       end
     end
     

data/lib/red/definition_nodes.rb

@@ -2,18 +2,25 @@ module Red
   class DefinitionNode # :nodoc:
     class ClassNode # :nodoc:
       def initialize(class_name, superclass, scope)
-        raise(BuildError::NoClassInheritance, "Class inheritance is currently not supported#{"for the #{@@red_library} JavaScript library";''}") if superclass
+        raise(BuildError::NoClassInheritance, "Class inheritance is currently not supported#{" for the #{@@red_library} JavaScript library";''}") if superclass
         old_class = @@red_class
         @@red_class = @class = class_name
         @class_name, @superclass = [class_name, superclass].build_nodes
         block_node = scope.assoc(:block) || scope
-        if initializer_node = block_node.rassoc(:initialize)
-          args_node = initializer_node.assoc(:scope).assoc(:block).assoc(:args)
-          @arguments = (args_node[1..-1] || []).build_nodes
-          @initializer = initializer_node.assoc(:scope).assoc(:block).reject {|node| node == args_node}.build_node
+        case @@red_library
+        when :Prototype
+          @initializer = block_node.rassoc(:initialize)
+          @properties = block_node.select {|node| (node.first == :cvdecl) rescue false }.build_nodes
+          @functions = block_node.select {|node| ![:block, :scope].include?(node) && ((node.first != :cvdecl) rescue false) }.build_nodes
+        else
+          if initializer_node = block_node.rassoc(:initialize)
+            args_node = initializer_node.assoc(:scope).assoc(:block).assoc(:args)
+            @arguments = (args_node[1..-1] || []).build_nodes
+            @initializer = initializer_node.assoc(:scope).assoc(:block).reject {|node| node == args_node}.build_node
+          end
+          @properties = block_node.select {|node| (node.first == :cvdecl) rescue false }.build_nodes
+          @functions = block_node.select {|node| (node != initializer_node) && ![:block, :scope].include?(node) && ((node.first != :cvdecl) rescue false) }.build_nodes
         end
-        @properties = block_node.select {|node| (node.first == :cvdecl) rescue false }.build_nodes
-        @functions = block_node.select {|node| (node != initializer_node) && ![:block, :scope].include?(node) && ((node.first != :cvdecl) rescue false) }.build_nodes
         @@red_class = old_class
       end
       
@@ -21,7 +28,12 @@ module Red
         old_class = @@red_class
         @@red_class = @class
         if @initializer
-          output = self.compile_as_standard_class
+          case @@red_library
+          when :Prototype
+            output = self.compile_as_prototype_class
+          else
+            output = self.compile_as_standard_class
+          end
         else
           output = self.compile_as_virtual_class
         end
@@ -29,6 +41,12 @@ module Red
         return output
       end
       
+      def compile_as_prototype_class
+        class_name = @class_name.compile_node
+        slots = (@properties | @functions).compile_nodes(:as_prototype => true).compact.join(', ')
+        return "%s%s = Class.create({ %s })" % [self.var?, class_name, slots]
+      end
+      
       def compile_as_standard_class(options = {})
         class_name = @class_name.compile_node
         arguments = @arguments.compile_nodes.join(', ')

data/lib/red/version.rb

@@ -2,7 +2,7 @@ module Red
   module VERSION #:nodoc:
     MAJOR = 3
     MINOR = 4
-    TINY  = 1
+    TINY  = 2
     
     STRING = [MAJOR, MINOR, TINY].join('.')
   end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: red
 version: !ruby/object:Gem::Version 
-  version: 3.4.1
+  version: 3.4.2
 platform: ruby
 authors: 
 - Jesse Sielaff
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-08-10 00:00:00 -04:00
+date: 2008-08-12 00:00:00 -04:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency