array.rb in dm-ldap-adapter-0.4.0.alpha2

- old
+ new
@@ -1,18 +1,102 @@
-module DataMapper
-  module Types
-    class LdapArray < DataMapper::Type
-      primitive Array
-      default Proc.new { Array.new }
+require 'dm-core'
+module Ldap
+  class Array < ::Array
 
-      def self.dump(value, property)
-        value || []
-      end
+    def initialize(resource, property,  *args)
+      setup(resource, property)
+      super(args)
+    end
 
-      def self.load(value, property)
-        value || []
-      end
+    def setup(resource, property)
+      @resource = resource
+      @property = property
+      self
+    end
 
+    alias :push! :push
+
+    def []=(k, v)
+      result = super
+      @resource.send("#{@property.name}=".to_sym, self)
+      result
     end
+
+    
+    def <<(element)
+      push(element)
+    end
+
+    def push(element)
+      result = super
+      @resource.send("#{@property.name}=".to_sym, self)
+      result
+    end
+
+   alias :delete! :delete
+
+    def delete(element)
+      result = super
+      @resource.send(:"#{@property.name}=", self)
+      result
+    end
   end
-  Property::TYPES << Types::LdapArray unless Property::TYPES.member? Types::LdapArray 
+
+  class LdapArray < ::DataMapper::Property::Text 
+    
+    default Proc.new { |r,p| Ldap::Array.new(r,p) }
+
+    def custom?
+      true
+    end
+
+    def primitive?(value)
+      super || value.kind_of?(::Array)
+    end
+
+    def load(value)
+      result = case value
+               when ::String then value.gsub(/^.|.$/,'').split('","').to_a.freeze
+               when ::Array then value.freeze
+               else
+                 []
+               end
+    end
+
+    def dump(value)
+      result = case value
+               when LdapArray then '"' + value.join('","') + '"'
+               when ::Array then '"' + value.join('","') + '"'
+               when ::String then '"' + value.to_s + '"'
+               else
+                 nil
+               end
+    end
+
+    def initialize(*args)
+      super
+      model.class_eval <<-RUBY, __FILE__, __LINE__ + 1
+        def #{name.to_s}=(v)
+          case v
+          when Ldap::Array
+            v.setup(self, properties[:#{name}])
+          else
+            vv = Ldap::Array.new(self, properties[:#{name}])
+            vv.replace(v)
+          end
+          attribute_set(:#{name}, v)
+        end
+
+        def #{name.to_s}
+          v = attribute_get(:#{name})
+          case v
+          when Ldap::Array
+            v.setup(self, properties[:#{name}])
+          else
+            vv = Ldap::Array.new(self, properties[:#{name}])
+            vv.replace(v)
+          end
+        end
+      RUBY
+    end
+  end
 end