fossil 0.1.0

data/lib/sequel/pervasive_adapter.rb

@@ -0,0 +1,214 @@
+module Sequel
+  module Pervasive
+    module DatabaseMethods
+      # Pervasive SQL Server uses the :psql type.
+      def database_type
+        :psql
+      end
+
+      def dataset(opts = nil)
+        ds = super
+        ds.extend(DatasetMethods)
+        ds
+      end
+
+      def connect(server)
+        conn = super(server)
+        conn.autocommit = false if RAILS_ENV == 'test'
+        conn
+      end
+
+      def select_fields(table, *fields)
+        dataset.select_fields(table, *fields)
+      end
+
+      # overriding execute to be able to thow a DatabaseDisconnectError when the ODBC::Error is code 08S01.
+      def execute(sql, opts={})
+        log_info(sql)
+        synchronize(opts[:server]) do |conn|
+          begin
+            r = conn.run(sql)
+            yield(r) if block_given?
+          rescue Sequel::DatabaseConnectionError => se
+            p "got a Sequel::DatabaseConnectionError error: #{se.message}"
+            raise Sequel.convert_exception_class(se, Sequel::DatabaseDisconnectError)
+          rescue Sequel::DatabaseError => se
+            p "got a Sequel::DatabaseError error: #{se.message}"
+            se = Sequel.convert_exception_class(se, Sequel::DatabaseDisconnectError) if se.message.match(/ODBC::Error: 08S01/)   
+            raise_error(se)
+          rescue ::ODBC::Error => e
+            raise_error(e)
+          ensure
+            r.drop if r
+          end
+          nil
+        end
+      end
+
+      private
+
+      # Log the given SQL and then execute it on the connection, used by the transaction code.
+      def log_connection_execute(conn, sql)
+        return if sql.blank?
+        log_info(sql)
+        conn.send(connection_execute_method, sql)
+      end
+
+      def auto_increment_sql
+        AUTO_INCREMENT
+      end
+
+    end
+
+    module DatasetMethods
+
+      def fetch_rows(sql, &block)
+        execute(sql) do |s|
+          i = -1
+          cols = s.columns(true).map{|c| [output_identifier(c.name), i+=1]}
+          
+          @columns = cols.map{|c| c.at(0)}
+
+          if rows = s.fetch_all
+            rows.each do |row|
+              hash = {}
+              cols.each{|n, i| hash[n] = convert_odbc_value(row[i], get_column_type(@columns[i]))}
+              yield hash
+            end
+          end
+        end
+        self
+      end
+
+      def convert_odbc_value(v, column_type=nil)
+        case column_type
+        when :date then
+          Date.from_fos_days(v.to_i)
+        when :time then
+          Date.from_fos_days(0).to_time.utc + v.to_i.minutes
+        else
+          v = v.unpack('A*')[0] if v.is_a? String
+          super(v)
+        end
+      end
+
+      def get_column_type(column_name)
+        if model and model.respond_to?(:datatypes) and model.datatypes and model.datatypes[column_name]
+          return model.datatypes[column_name][:type]
+        end
+        nil
+      end
+
+      SELECT_CLAUSE_METHODS = Dataset.clause_methods(:select, %w'limit distinct columns from with join where group order having compounds')
+
+      def quoted_identifier(name, convert=true)
+        convert ? "\"#{convert_aliased_col_to_real_col(name)}\"" : "\"#{name}\""
+      end
+
+      # Take a table name and write out the field names for that table in this style:
+      # "`DUDES`.`KID - DATE`".lit    where the table name is :dudes,
+      # and fields are [:kid_date]
+      def select_fields(hash)
+        new_hash = Hash.new{|k, v| k[v]= {}}
+
+        hash.each do |association, fields|
+          new_hash[association][:fields] = fields
+
+          if association == :self
+            new_hash[association][:model] = self.model
+            new_hash[association][:association_name] = self.model.table_name
+          elsif association.to_s.match /(\w+)__(\w+)/  # crew_legs__position_code
+            # not an assocation on the current model .. but another one
+            new_hash[association][:association_name] = $2.to_s.upcase
+            new_hash[association][:model] = model.association_reflection($1.to_sym)[:class].association_reflection($2.to_sym)[:class]
+          else
+            raise(Sequel::Error, "Invalid #{model} association: #{association}") unless model.association_reflection(association)
+            new_hash[association][:association_name] = association.to_s.upcase
+            new_hash[association][:model] = model.association_reflection(association)[:class]
+          end
+          fields = fields + new_hash[association][:model].primary_key unless fields[0] == :*
+          new_hash[association][:fields] = fields
+        end
+
+        s = []
+        new_hash.each do |association, hash|
+          if hash[:fields].size == 1 and hash[:fields][0] == :*
+            s << "#{quoted_identifier(hash[:association_name], false)}.*".lit
+          else
+            s << hash[:fields].collect do |field|
+              raw_field_name = convert_aliased_col_to_real_col_with_model(field, hash[:model])
+              as_alias = ''
+              raw_field_name
+
+              if association != :self and ( hash[:model].primary_key.include? field or field_duplicate(new_hash, association, field) )
+                as_field_name = "#{hash[:association_name]}_#{raw_field_name}"
+                as_alias = "AS #{quoted_identifier(as_field_name, false)}"
+              end
+              "#{quoted_identifier(hash[:association_name], false)}.#{quoted_identifier(raw_field_name, false)} #{as_alias}".lit
+            end
+          end
+        end
+        
+        clone(:select => s.flatten)
+      end
+
+      private
+
+      # is the field name found in the fields of any other association besides the one you passed in
+      def field_duplicate(hash, association, field)
+        hash.each do |association_key, hash_values|
+          next if association_key == association
+          return true if hash_values[:fields].include? field
+        end
+        return false
+      end
+
+      def convert_aliased_col_to_real_col(col_name)
+        if respond_to?(:model) and model.respond_to?(:aliases) and model.aliases
+          sym_name = col_name.to_s.downcase.to_sym
+          col_name = model.aliases[sym_name].to_s.upcase if model.aliases.include? sym_name
+        end
+        col_name
+      end
+
+      def convert_aliased_col_to_real_col_with_model(col_name, model)
+        if model.respond_to?(:aliases) and model.aliases
+          sym_name = col_name.to_s.downcase.to_sym
+          col_name = model.aliases[sym_name].to_s.upcase if model.aliases.include? sym_name
+        end
+        col_name
+      end
+
+      def literal_string(v)
+        "#{super}"
+      end
+
+      def literal_date(v)
+        v.is_a?(Date) ? v.to_fos_days : super(v)
+      end
+
+      def select_clause_methods
+        SELECT_CLAUSE_METHODS
+      end
+
+      # Modify the sql to add the DISTINCT modifier
+      def select_distinct_sql(sql)
+        if distinct = @opts[:distinct]
+          sql << " DISTINCT#{" (#{expression_list(distinct)})" unless distinct.empty?}"
+        end
+      end
+
+      # PSQL uses TOP for limit, with no offset support
+      def select_limit_sql(sql)
+        raise(Error, "OFFSET not supported") if @opts[:offset]
+        sql << " TOP #{@opts[:limit]}" if @opts[:limit]
+      end
+
+      # PSQL uses the WITH statement to lock tables
+      def select_with_sql(sql)
+        sql << " WITH #{@opts[:with]}" if @opts[:with]
+      end
+    end
+  end
+end
+

data/lib/sequel/serializer/json_serializer.rb

@@ -0,0 +1,129 @@
+module Sequel
+  module Serialization
+    def self.included(base)
+      base.cattr_accessor :include_root_in_json, :instance_writer => false
+      base.extend ClassMethods
+    end
+
+    # Returns a JSON string representing the model. Some configuration is
+    # available through +options+.
+    #
+    # The option <tt>ActiveRecord::Base.include_root_in_json</tt> controls the
+    # top-level behavior of to_json. In a new Rails application, it is set to
+    # <tt>true</tt> in initializers/new_rails_defaults.rb. When it is <tt>true</tt>,
+    # to_json will emit a single root node named after the object's type. For example:
+    #
+    #   konata = User.find(1)
+    #   ActiveRecord::Base.include_root_in_json = true
+    #   konata.to_json
+    #   # => { "user": {"id": 1, "name": "Konata Izumi", "age": 16,
+    #                   "created_at": "2006/08/01", "awesome": true} }
+    #
+    #   ActiveRecord::Base.include_root_in_json = false
+    #   konata.to_json
+    #   # => {"id": 1, "name": "Konata Izumi", "age": 16,
+    #         "created_at": "2006/08/01", "awesome": true}
+    #
+    # The remainder of the examples in this section assume include_root_in_json is set to
+    # <tt>false</tt>.
+    #
+    # Without any +options+, the returned JSON string will include all
+    # the model's attributes. For example:
+    #
+    #   konata = User.find(1)
+    #   konata.to_json
+    #   # => {"id": 1, "name": "Konata Izumi", "age": 16,
+    #         "created_at": "2006/08/01", "awesome": true}
+    #
+    # The <tt>:only</tt> and <tt>:except</tt> options can be used to limit the attributes
+    # included, and work similar to the +attributes+ method. For example:
+    #
+    #   konata.to_json(:only => [ :id, :name ])
+    #   # => {"id": 1, "name": "Konata Izumi"}
+    #
+    #   konata.to_json(:except => [ :id, :created_at, :age ])
+    #   # => {"name": "Konata Izumi", "awesome": true}
+    #
+    # To include any methods on the model, use <tt>:methods</tt>.
+    #
+    #   konata.to_json(:methods => :permalink)
+    #   # => {"id": 1, "name": "Konata Izumi", "age": 16,
+    #         "created_at": "2006/08/01", "awesome": true,
+    #         "permalink": "1-konata-izumi"}
+    #
+    # To include associations, use <tt>:include</tt>.
+    #
+    #   konata.to_json(:include => :posts)
+    #   # => {"id": 1, "name": "Konata Izumi", "age": 16,
+    #         "created_at": "2006/08/01", "awesome": true,
+    #         "posts": [{"id": 1, "author_id": 1, "title": "Welcome to the weblog"},
+    #                   {"id": 2, author_id: 1, "title": "So I was thinking"}]}
+    #
+    # 2nd level and higher order associations work as well:
+    #
+    #   konata.to_json(:include => { :posts => {
+    #                                  :include => { :comments => {
+    #                                                :only => :body } },
+    #                                  :only => :title } })
+    #   # => {"id": 1, "name": "Konata Izumi", "age": 16,
+    #         "created_at": "2006/08/01", "awesome": true,
+    #         "posts": [{"comments": [{"body": "1st post!"}, {"body": "Second!"}],
+    #                    "title": "Welcome to the weblog"},
+    #                   {"comments": [{"body": "Don't think too hard"}],
+    #                    "title": "So I was thinking"}]}
+    def to_json(options = {})
+      if include_root_in_json
+        "{#{self.class.json_class_name}: #{JsonSerializer.new(self, options).to_s}}"
+      else
+        JsonSerializer.new(self, options).to_s
+      end
+    end
+
+    # special to_fos_json .. adds the only=> [] option by default, because we are using
+    # mostly the methods option
+    def to_fos_json(options = {})
+      to_json({:only=>[]}.merge(options))
+    end
+
+    def from_json(json)
+      self.attributes = ActiveSupport::JSON.decode(json)
+      self
+    end
+
+    class JsonSerializer < Sequel::Serialization::Serializer #:nodoc:
+      def serialize
+        serializable_record.to_json
+      end
+    end
+
+    module ClassMethods
+      def json_class_name
+        @json_class_name ||= name.demodulize.underscore.inspect
+      end
+    end
+  end
+end
+
+module ActiveSupport #:nodoc:
+  module CoreExtensions #:nodoc:
+    module Array #:nodoc:
+      module Conversions
+        def to_fos_json(options = {})
+          to_json({:only=>[]}.merge(options))
+        end
+      end
+    end
+  end
+end
+
+module ActiveSupport #:nodoc:
+  module CoreExtensions #:nodoc:
+    module Hash #:nodoc:
+      module Conversions
+        def to_fos_json(options = {})
+          to_json({:only=>[]}.merge(options))
+        end
+      end
+    end
+  end
+end

data/lib/sequel/serializer/serializer.rb

@@ -0,0 +1,94 @@
+require 'active_support/json'
+
+module Sequel
+  module Serialization
+    class Serializer 
+      attr_reader :options
+
+      def initialize(record, options = {})
+        @record, @options = record, options.dup
+      end
+
+      # To replicate the behavior in ActiveRecord#attributes,
+      # <tt>:except</tt> takes precedence over <tt>:only</tt>.  If <tt>:only</tt> is not set
+      # for a N level model but is set for the N+1 level models,
+      # then because <tt>:except</tt> is set to a default value, the second
+      # level model can have both <tt>:except</tt> and <tt>:only</tt> set.  So if
+      # <tt>:only</tt> is set, always delete <tt>:except</tt>.
+      def serializable_attribute_names
+        attribute_names = @record.columns
+        attribute_names += @record.class.aliases.keys if @record.class.aliases 
+
+        if options[:only]
+          options.delete(:except)
+          attribute_names = attribute_names & Array(options[:only]).collect{ |n| n } 
+        else
+#          options[:except] = Array(options[:except]) | Array(@record.class.inheritance_column)
+#          attribute_names = attribute_names - options[:except].collect { |n| n }
+        end
+        attribute_names
+      end
+
+      def serializable_method_names
+        Array(options[:methods]).inject([]) do |method_attributes, name|
+          method_attributes << name if !name.blank? and @record.respond_to?(name.to_s)
+          method_attributes
+        end
+      end
+
+      def serializable_names
+        serializable_attribute_names + serializable_method_names
+      end
+
+      # Add associations specified via the <tt>:includes</tt> option.
+      # Expects a block that takes as arguments:
+      #   +association+ - name of the association
+      #   +records+     - the association record(s) to be serialized
+      #   +opts+        - options for the association records
+      def add_includes(&block)
+        if include_associations = options.delete(:include)
+          base_only_or_except = { :except => options[:except],
+                                  :only => options[:only] }
+
+          include_has_options = include_associations.is_a?(Hash)
+          associations = include_has_options ? include_associations.keys : Array(include_associations)
+
+          for association in associations
+            records = @record.send(association)
+            unless records.nil?
+              association_options = include_has_options ? include_associations[association] : base_only_or_except
+              opts = options.merge(association_options)
+              yield(association, records, opts)
+            end
+          end
+
+          options[:include] = include_associations
+        end
+      end
+
+      def serializable_record
+        returning(serializable_record = {}) do
+          serializable_names.each { |name| serializable_record[name] = @record.send(name) }
+          add_includes do |association, records, opts|
+            if records.is_a?(Enumerable)
+              serializable_record[association] = records.collect { |r| self.class.new(r, opts).serializable_record }
+            else
+              serializable_record[association] = self.class.new(records, opts).serializable_record
+            end
+          end
+        end
+      end
+
+      def serialize
+        # overwrite to implement
+      end
+
+      def to_s(&block)
+        serialize(&block)
+      end
+    end
+  end
+end
+
+require File.dirname(__FILE__) +'/xml_serializer.rb'
+require File.dirname(__FILE__) +'/json_serializer.rb'

data/lib/sequel/serializer/xml_serializer.rb

@@ -0,0 +1,393 @@
+module Sequel #:nodoc:
+  module Serialization
+    # Builds an XML document to represent the model. Some configuration is
+    # available through +options+. However more complicated cases should
+    # override ActiveRecord::Base#to_xml.
+    #
+    # By default the generated XML document will include the processing
+    # instruction and all the object's attributes. For example:
+    #
+    #   <?xml version="1.0" encoding="UTF-8"?>
+    #   <topic>
+    #     <title>The First Topic</title>
+    #     <author-name>David</author-name>
+    #     <id type="integer">1</id>
+    #     <approved type="boolean">false</approved>
+    #     <replies-count type="integer">0</replies-count>
+    #     <bonus-time type="datetime">2000-01-01T08:28:00+12:00</bonus-time>
+    #     <written-on type="datetime">2003-07-16T09:28:00+1200</written-on>
+    #     <content>Have a nice day</content>
+    #     <author-email-address>david@loudthinking.com</author-email-address>
+    #     <parent-id></parent-id>
+    #     <last-read type="date">2004-04-15</last-read>
+    #   </topic>
+    #
+    # This behavior can be controlled with <tt>:only</tt>, <tt>:except</tt>,
+    # <tt>:skip_instruct</tt>, <tt>:skip_types</tt>, <tt>:dasherize</tt> and <tt>:camelize</tt> .
+    # The <tt>:only</tt> and <tt>:except</tt> options are the same as for the
+    # +attributes+ method. The default is to dasherize all column names, but you
+    # can disable this setting <tt>:dasherize</tt> to +false+. Setting <tt>:camelize</tt>
+    # to +true+ will camelize all column names - this also overrides <tt>:dasherize</tt>.
+    # To not have the column type included in the XML output set <tt>:skip_types</tt> to +true+.
+    #
+    # For instance:
+    #
+    #   topic.to_xml(:skip_instruct => true, :except => [ :id, :bonus_time, :written_on, :replies_count ])
+    #
+    #   <topic>
+    #     <title>The First Topic</title>
+    #     <author-name>David</author-name>
+    #     <approved type="boolean">false</approved>
+    #     <content>Have a nice day</content>
+    #     <author-email-address>david@loudthinking.com</author-email-address>
+    #     <parent-id></parent-id>
+    #     <last-read type="date">2004-04-15</last-read>
+    #   </topic>
+    #
+    # To include first level associations use <tt>:include</tt>:
+    #
+    #   firm.to_xml :include => [ :account, :clients ]
+    #
+    #   <?xml version="1.0" encoding="UTF-8"?>
+    #   <firm>
+    #     <id type="integer">1</id>
+    #     <rating type="integer">1</rating>
+    #     <name>37signals</name>
+    #     <clients type="array">
+    #       <client>
+    #         <rating type="integer">1</rating>
+    #         <name>Summit</name>
+    #       </client>
+    #       <client>
+    #         <rating type="integer">1</rating>
+    #         <name>Microsoft</name>
+    #       </client>
+    #     </clients>
+    #     <account>
+    #       <id type="integer">1</id>
+    #       <credit-limit type="integer">50</credit-limit>
+    #     </account>
+    #   </firm>
+    #
+    # To include deeper levels of associations pass a hash like this:
+    #
+    #   firm.to_xml :include => {:account => {}, :clients => {:include => :address}}
+    #   <?xml version="1.0" encoding="UTF-8"?>
+    #   <firm>
+    #     <id type="integer">1</id>
+    #     <rating type="integer">1</rating>
+    #     <name>37signals</name>
+    #     <clients type="array">
+    #       <client>
+    #         <rating type="integer">1</rating>
+    #         <name>Summit</name>
+    #         <address>
+    #           ...
+    #         </address>
+    #       </client>
+    #       <client>
+    #         <rating type="integer">1</rating>
+    #         <name>Microsoft</name>
+    #         <address>
+    #           ...
+    #         </address>
+    #       </client>
+    #     </clients>
+    #     <account>
+    #       <id type="integer">1</id>
+    #       <credit-limit type="integer">50</credit-limit>
+    #     </account>
+    #   </firm>
+    #
+    # To include any methods on the model being called use <tt>:methods</tt>:
+    #
+    #   firm.to_xml :methods => [ :calculated_earnings, :real_earnings ]
+    #
+    #   <firm>
+    #     # ... normal attributes as shown above ...
+    #     <calculated-earnings>100000000000000000</calculated-earnings>
+    #     <real-earnings>5</real-earnings>
+    #   </firm>
+    #
+    # To call any additional Procs use <tt>:procs</tt>. The Procs are passed a
+    # modified version of the options hash that was given to +to_xml+:
+    #
+    #   proc = Proc.new { |options| options[:builder].tag!('abc', 'def') }
+    #   firm.to_xml :procs => [ proc ]
+    #
+    #   <firm>
+    #     # ... normal attributes as shown above ...
+    #     <abc>def</abc>
+    #   </firm>
+    #
+    # Alternatively, you can yield the builder object as part of the +to_xml+ call:
+    #
+    #   firm.to_xml do |xml|
+    #     xml.creator do
+    #       xml.first_name "David"
+    #       xml.last_name "Heinemeier Hansson"
+    #     end
+    #   end
+    #
+    #   <firm>
+    #     # ... normal attributes as shown above ...
+    #     <creator>
+    #       <first_name>David</first_name>
+    #       <last_name>Heinemeier Hansson</last_name>
+    #     </creator>
+    #   </firm>
+    #
+    # As noted above, you may override +to_xml+ in your ActiveRecord::Base
+    # subclasses to have complete control about what's generated. The general
+    # form of doing this is:
+    #
+    #   class IHaveMyOwnXML < ActiveRecord::Base
+    #     def to_xml(options = {})
+    #       options[:indent] ||= 2
+    #       xml = options[:builder] ||= Builder::XmlMarkup.new(:indent => options[:indent])
+    #       xml.instruct! unless options[:skip_instruct]
+    #       xml.level_one do
+    #         xml.tag!(:second_level, 'content')
+    #       end
+    #     end
+    #   end
+    def to_fos_xml(options ={}, &block) 
+      options = {:skip_instruct=>true, :dasherize=>false, :only=>[]}.merge(options)
+      to_xml(options, &block)
+    end
+
+    def to_xml(options = {}, &block)
+      serializer = XmlSerializer.new(self, options)
+      block_given? ? serializer.to_s(&block) : serializer.to_s
+    end
+
+    def from_xml(xml)
+      self.attributes = Hash.from_xml(xml).values.first
+      self
+    end
+  end
+
+  class XmlSerializer < Sequel::Serialization::Serializer #:nodoc:
+
+    FOS_XML_OPTIONS = {:skip_instruct=>true, :dasherize=>false}
+
+    def builder
+      @builder ||= begin
+        options[:indent] ||= 2
+        builder = options[:builder] ||= Builder::XmlMarkup.new(:indent => options[:indent])
+
+        unless options[:skip_instruct]
+          builder.instruct!
+          options[:skip_instruct] = true
+        end
+
+        builder
+      end
+    end
+
+    def root
+      root = (options[:root] || @record.class.to_s.underscore).to_s
+      reformat_name(root)
+    end
+
+    def dasherize?
+      !options.has_key?(:dasherize) || options[:dasherize]
+    end
+
+    def camelize?
+      options.has_key?(:camelize) && options[:camelize]
+    end
+
+    def reformat_name(name)
+      name = name.camelize if camelize?
+      name = dasherize? ? name.to_s.dasherize : name.to_s
+    end
+
+    def serializable_attributes
+      serializable_attribute_names.collect { |name| Attribute.new(name, @record) }
+    end
+
+    def serializable_method_attributes
+      Array(options[:methods]).inject([]) do |method_attributes, name|
+        method_attributes << MethodAttribute.new(name.to_s, @record) if @record.respond_to?(name.to_s)
+        method_attributes
+      end
+    end
+
+    def add_attributes
+      (serializable_attributes + serializable_method_attributes).each do |attribute|
+        add_tag(attribute)
+      end
+    end
+
+    def add_procs
+      if procs = options.delete(:procs)
+        [ *procs ].each do |proc|
+          proc.call(options)
+        end
+      end
+    end
+
+    def add_tag(attribute)
+      builder.tag!(
+        reformat_name(attribute.name),
+        attribute.value.to_s,
+        attribute.decorations(!options[:skip_types], !options[:skip_nils])
+      )
+    end
+
+    def add_associations(association, records, opts)
+      if records.is_a?(Enumerable)
+        tag = reformat_name(association.to_s)
+        type = options[:skip_types] ? {} : {:type => "array"}
+
+        if records.empty?
+          builder.tag!(tag, type)
+        else
+          builder.tag!(tag, type) do
+            association_name = association.to_s.singularize
+            records.each do |record|
+              if options[:skip_types]
+                record_type = {}
+              else
+                record_class = (record.class.to_s.underscore == association_name) ? nil : record.class.name
+                record_type = {:type => record_class}
+              end
+
+              record.to_xml opts.merge(:root => association_name).merge(record_type)
+            end
+          end
+        end
+      else
+        if record = @record.send(association)
+          record.to_xml(opts.merge(:root => association))
+        end
+      end
+    end
+
+    def serialize
+      args = [root]
+
+      if options[:namespace]
+        args << {:xmlns=>options[:namespace]}
+      end
+
+      if options[:type]
+        args << {:type=>options[:type]}
+      end
+
+      @tag_names = []
+      builder.tag!(*args) do
+        add_attributes
+        procs = options.delete(:procs)
+        add_includes { |association, records, opts| @tag_names << association; add_associations(association, records, opts) }
+        options[:procs] = procs
+        add_procs
+        yield builder if block_given?
+#        strip_associations if options[:flatten]
+      end
+    end
+
+#    def strip_associations
+#      p @tag_names
+#    end
+
+    class Attribute #:nodoc:
+      attr_reader :name, :value, :type
+
+      def initialize(name, record)
+        @name, @record = name, record
+
+        @type  = compute_type
+        @value = compute_value
+      end
+
+      # There is a significant speed improvement if the value
+      # does not need to be escaped, as <tt>tag!</tt> escapes all values
+      # to ensure that valid XML is generated. For known binary
+      # values, it is at least an order of magnitude faster to
+      # Base64 encode binary values and directly put them in the
+      # output XML than to pass the original value or the Base64
+      # encoded value to the <tt>tag!</tt> method. It definitely makes
+      # no sense to Base64 encode the value and then give it to
+      # <tt>tag!</tt>, since that just adds additional overhead.
+      def needs_encoding?
+        ![ :binary, :date, :datetime, :boolean, :float, :integer ].include?(type)
+      end
+
+      # I added include_nils option, which rails will in rails 3 anyway
+      def decorations(include_types = true, include_nils = true)
+        decorations = {}
+
+        if type == :binary
+          decorations[:encoding] = 'base64'
+        end
+
+        if include_types && type != :string
+          decorations[:type] = type
+        end
+
+        if include_nils && value.nil?
+          decorations[:nil] = true
+        end
+
+        decorations
+      end
+
+      protected
+        def compute_type
+          type = @record.class.datatypes[name][:type] if @record.class.datatypes and @record.class.datatypes[name]
+#          type = @record.class.serialized_attributes.has_key?(name) ? :yaml : @record.class.db_schema[name][:type]
+          case type
+            when :text, nil
+              :string
+            when :time
+              :datetime
+            else
+              type
+          end
+        end
+
+        def compute_value
+          value = @record.send(name)
+
+          if formatter = Hash::XML_FORMATTING[type.to_s]
+            value ? formatter.call(value) : nil
+          else
+            value
+          end
+        end
+    end
+
+    class MethodAttribute < Attribute #:nodoc:
+      protected
+        def compute_type
+          Hash::XML_TYPE_NAMES[@record.send(name).class.name] || :string
+        end
+    end
+  end
+end
+
+module ActiveSupport #:nodoc:
+  module CoreExtensions #:nodoc:
+    module Array #:nodoc:
+      module Conversions
+        def to_fos_xml(options = {})
+          to_xml({:skip_instruct=>true, :dasherize=>false, :only=>[]}.merge(options))
+        end
+      end
+    end
+  end
+end
+
+module ActiveSupport #:nodoc:
+  module CoreExtensions #:nodoc:
+    module Hash #:nodoc:
+      module Conversions
+        def to_fos_xml(options = {})
+          to_xml({:dasherize=>false, :only=>[]}.merge(options))
+        end
+      end
+    end
+  end
+end