=begin rdoc

  = Property Registry
  
  This module allows model classes to register properties that have setter and getter methods,
  and are earmarked to be included in calls between instances of those classes and the API.
  
  Properties are registered using a DataMapper-style syntax (ActiveRecord-style autodiscovery not
  being possible).

=end

module Videojuicer
  module Resource
    module PropertyRegistry

      def self.included(base)        
        # Class-level inheritable reader
        base.extend(SingletonMethods)
        base.class_eval do
          @attributes = {}
          class << self
            attr_accessor :attributes
          end
        end
        base.property :id, Integer
      end
      
      # Allow subclasses of each resource to get the attributes accessor
      def self.inherited(subclass)
        v = "@attributes"
        subclass.instance_variable_set(v, instance_variable_get(v))
      end

      
      def initialize(attrs={})
        self.attributes = default_attributes
        self.attributes = attrs
      end
      
      def attributes
        @attributes ||= {}
        @attributes
      end
      
      def attributes=(arg)
        raise ArgumentError, "Attributes must be set as a Hash" unless arg.is_a?(Hash)
        arg.each do |key, value|
          self.send("#{key}=", value)
        end
      end
      
      def default_attributes
        d = {}
        self.class.attributes.each do |key, props|
          d[key] = props[:default] ||  nil
        end
        return d
      end
      
      def attr_get(key)
        key = key.to_sym
        attributes[key]
      end
      
      def attr_set(key, value)
        key = key.to_sym
        attributes[key] = coerce_value(key, value)
      end
      
      # Takes what is normally a string and coerces it into the correct object type for the 
      # attribute's actual type.
      def coerce_value(key, value)
        return value unless value
        klass = self.class.attributes[key][:class]
        if value.is_a?(String) and value.any?
          # In-built types
          if klass.kind_of?(Videojuicer::Resource::Types::Base)
            return klass.new(value).dump
          end
          
          # Dates
          if klass.respond_to?(:parse)
            return klass.parse(value) rescue raise "Invalid date: #{value.inspect}"
          end
        elsif value.is_a? Hash and value.any?
          if klass == DateTime
            if value.is_a?(Hash)
              year   = value[:year]
              month  = value[:month]
              day    = value[:day]
              hour   = value[:hour] or "00"
              minute = value[:minute] or "00"
              value = klass.parse("#{year}-#{month}-#{day}T#{hour}:#{minute}:00+00:00")
            else
              raise ArgumentError, "Please supply a DateTime, Hash keyed w/ [:day, :month, :year, :hour, :minute] or a String that can be coerced into a date"
            end
          end
        end
        return value
      end
      
      # Returns a hash of the attributes for this object, minus the
      # private attributes that should not be included in the response.
      def returnable_attributes
        attrs = attributes.dup
        self.class.attributes.select {|name, props| props[:writer] != :public}.each do |name, props|
          attrs.delete name
        end
        attrs.delete(:id)
        attrs
      end
      
      module SingletonMethods
        
        # Registers an attribute using a datamapper-style syntax.
        # Creates setter and getter methods
        def property(prop_name, klass, options={})
          # Can't raise twice.          
          prop_name = prop_name.to_sym
          raise ArgumentError, "Property #{prop_name} already registered." if self.attributes.include?(prop_name)
          
          options = {:class=>klass, :writer=>:public}.merge(options)
          # Register with the class
          self.attributes[prop_name] = options
          # Create setter methods
          define_method prop_name do
            attr_get(prop_name)
          end
          
          private if options[:writer] == :private
          protected if options[:writer] == :protected
          
            define_method "#{prop_name}=" do |arg|
              attr_set(prop_name, arg)
            end
          
          public
        end
        
      end
      
    end
  end
end