mongodb_adapter 0.1.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,5 @@
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Mark Rendle
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,6 @@
+= mongodb_adapter
+
+A mostly functional DataMapper adapter for MongoDB.
+
+4 specs are not passing, to do with OR conditions or
+negated regular expressions.

data/Rakefile

@@ -0,0 +1,70 @@
+require 'rubygems'
+
+require 'rake/gempackagetask'
+
+gemspec = Gem::Specification.new do |s|
+  s.platform = Gem::Platform::RUBY
+  s.name = "mongodb_adapter"
+  s.version = "0.1.0"
+  s.author = "Mark Rendle"
+  s.date = "2009-12-30"
+  s.email = "mark@okify.com"
+
+  s.add_dependency "mongo", ">= 0.18.0"
+
+  s.files = [
+    ".document",
+     ".gitignore",
+     "FIXME",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "mongodb_adapter.gemspec",
+     "lib/mongodb_adapter.rb",
+     "spec/mongodb_adapter_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+  s.homepage = "http://github.com/okify/mongodb_adapter"
+  s.require_paths = ["lib"]
+  s.summary = "MongoDB adapter for DataMapper"
+  s.test_files = [
+    "spec/mongodb_adapter_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+end
+
+Rake::GemPackageTask.new(gemspec) do |p|
+  p.need_tar = false
+  p.need_zip = true
+end
+
+require 'spec/rake/spectask'
+Spec::Rake::SpecTask.new(:spec) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.spec_files = FileList['spec/**/*_spec.rb']
+end
+
+Spec::Rake::SpecTask.new(:rcov) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION.yml')
+    config = YAML.load(File.read('VERSION.yml'))
+    version = "#{config[:major]}.#{config[:minor]}.#{config[:patch]}"
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "mongodb_adapter #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+

data/VERSION

@@ -0,0 +1 @@
+0.0.2

data/lib/mongodb_adapter.rb

@@ -0,0 +1,163 @@
+require 'rubygems'
+require 'dm-core'
+require 'dm-core/adapters/abstract_adapter'
+
+require 'mongo'
+require 'json'
+require 'uuidtools'
+require 'pp'
+
+module DataMapper::Adapters
+  class MongoDBAdapter < AbstractAdapter
+
+    def initialize(name, options)
+      super
+      
+      @hostname   = @options[:hostname] || 'localhost'
+      @port       = @options[:port]     || 27017
+      @database   = @options[:database] || 'dm-mongodb-test'
+      
+      @db = Mongo::Connection.new(@hostname, @port).db(@database)
+    end
+    
+    # Create mongodb entry
+    def create(resources)
+      resources.each do |resource|
+        collection = @db.collection(resource.model.storage_name)
+        id_hash = {}
+        Mongo::ObjectID.create_pk(id_hash)
+        initialize_serial(resource, id_hash[:_id].to_s.to_i(16))
+        doc = resource.attributes(:field)
+        doc[:_id] = id_hash[:_id]
+        doc = stringify_bignums(doc)
+        collection.insert(doc)
+      end
+    end
+
+    def read(query)
+      collection = @db.collection(query.model.storage_name)
+      criteria = conditions_to_hash(query.conditions)
+
+      result = []
+
+      cur = collection.find(criteria)
+      cur = cur.limit(query.limit) if query.limit
+      cur.each do |document|
+        document['__bignums'].each do |key|
+          document[key] = document[key].to_i
+        end
+        result << document
+      end
+
+      result
+    end
+
+    def update(attributes,resources)
+      collection = @db.collection(resources[0].model.storage_name)
+      resources.each do |resource|
+        doc = resource.attributes(:field)
+        serial = resource.model.serial(name).get(resource)
+        doc[:_id] = Mongo::ObjectID.from_string(serial.to_s(16))
+        doc = stringify_bignums(doc)
+        collection.save(doc)
+      end
+      resources.length
+    end
+
+    def delete(resources)
+      collection = @db.collection(resources[0].model.storage_name)
+      ids = []
+      resources.each do |resource|
+        serial = resource.model.serial(name).get(resource)
+        ids << Mongo::ObjectID.from_string(serial.to_s(16))
+      end
+      collection.remove(:_id => {'$in' => ids})
+    end
+    
+    private
+      # Generates uuid from mongodb ruby driver
+      def generate_id
+        UUIDTools::UUID.random_create.to_i
+      end
+
+      def stringify_bignums(hash)
+        hash['__bignums'] = []
+
+        hash.each do |key, value|
+          if value.class == Bignum
+            hash[key] = value.to_s
+            hash['__bignums'] << key
+          end
+        end
+        hash
+      end
+
+      def conditions_to_hash(conditions, hash = {}, negate = false)
+        case conditions
+          when DataMapper::Query::Conditions::NotOperation then operation_to_hash(conditions, hash, !negate)
+          when DataMapper::Query::Conditions::AbstractOperation then operation_to_hash(conditions, hash, negate)
+          when DataMapper::Query::Conditions::AbstractComparison then comparison_to_hash(conditions, hash, negate)
+        end
+        hash
+      end
+
+      def operation_to_hash(operation, hash, negate)
+        operation.each do |operand|
+          conditions_to_hash(operand, hash, negate)
+        end
+      end
+
+      def comparison_to_hash(comparison, hash, negate)
+        value = nil
+        if comparison.slug == :eql
+          value = mongify_value(comparison.value,negate)
+        elsif [:gt,:gte,:lt,:lte].include?(comparison.slug)
+          value = mongify_value(comparison.value,negate)
+          value = value.first[1] if value.is_a?(Hash)
+          value = {mongify_inequality(comparison.slug, negate) => value}
+        elsif comparison.slug == :in
+          value = mongify_value(comparison.value,negate)
+        elsif comparison.slug == :like
+          value = Regexp.new(comparison.value.gsub(/%/, '.*'))
+          value = mongify_value(value,negate)
+        elsif comparison.slug == :regexp
+          value = Regexp.new(comparison.value)
+          value = mongify_value(value,negate)
+        else
+          puts "!!! Not handling #{comparison.slug} !!!"
+        end
+        hash[comparison.subject.name.to_s] = value
+      end
+
+      def mongify_value(value, negate)
+        case value
+          when Bignum then mongify_value(value.to_s, negate)
+          when Array then {negate ? '$nin' : '$in' => value}
+          when Range then mongify_range(value, negate)
+          else negate ? {'$ne' => value} : value
+        end
+      end
+
+      def mongify_range(value, negate)
+        first_op = negate ? '$lt' : '$gte'
+        if value.exclude_end?
+          last_op = negate ? '$gte' : '$lt'
+        else
+          last_op = negate ? '$gt' : '$lte'
+        end
+        {first_op => value.first, last_op => value.last}
+      end
+
+      def mongify_inequality(slug, negate)
+        case slug
+          when :gt then negate ? '$lte' : '$gt'
+          when :gte then negate ? '$lt' : '$gte'
+          when :lt then negate ? '$gte' : '$lt'
+          when :lte then negate ? '$gt' : '$lte'
+        end
+      end
+    
+  end # class MongodbAdapter
+
+  MongodbAdapter = MongoDBAdapter
+end

data/mongodb_adapter.gemspec

@@ -0,0 +1,47 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mongodb_adapter}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Mark Rendle"]
+  s.date = %q{2009-12-30}
+  s.email = %q{mark@okify.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "FIXME",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "mongodb_adapter.gemspec",
+     "lib/mongodb_adapter.rb",
+     "spec/mongodb_adapter_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+  s.homepage = %q{http://github.com/okify/mongodb_adapter}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{MongoDB adapter for DataMapper}
+  s.test_files = [
+    "spec/mongodb_adapter_spec.rb",
+     "spec/spec_helper.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/spec/mongodb_adapter_spec.rb

@@ -0,0 +1,22 @@
+# require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+require File.dirname(__FILE__) + '/spec_helper'
+require 'mongo'
+
+require 'dm-core/spec/adapter_shared_spec'
+ 
+describe DataMapper::Adapters::MongoDBAdapter do
+  before :all do
+    @adapter = DataMapper.setup(:default,
+      :adapter => 'mongodb',
+      :hostname => 'localhost',
+      :port => 27017,
+      :database => 'dm-mongodb-test'
+    )
+    
+    Mongo::Connection.new.db('dm-mongodb-test')['heffalumps'].remove
+    
+  end
+ 
+  it_should_behave_like 'An Adapter'
+  
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+require 'rubygems'
+require 'spec'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+
+require 'mongodb_adapter'
+require 'dm-core'
+
+# Spec::Runner.configure do |config|
+#   
+# end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+name: mongodb_adapter
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Mark Rendle
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-12-30 00:00:00 +00:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: mongo
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.18.0
+    version: 
+description: 
+email: mark@okify.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .document
+- .gitignore
+- FIXME
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- mongodb_adapter.gemspec
+- lib/mongodb_adapter.rb
+- spec/mongodb_adapter_spec.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/okify/mongodb_adapter
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: MongoDB adapter for DataMapper
+test_files: 
+- spec/mongodb_adapter_spec.rb
+- spec/spec_helper.rb