loveseat 0.1.0

data/lib/core_ext/hash.rb

@@ -0,0 +1,8 @@
+class Hash
+  def to_query
+    components = self.map do |k,v|
+      [URI.escape(k.to_s), URI.escape(v.to_s)].join('=')
+    end
+    components.join("&")
+  end
+end

data/lib/loveseat.rb

@@ -0,0 +1,26 @@
+require 'core_ext/hash.rb'
+require 'rest/resource.rb'
+require 'rest/server.rb'
+require 'rest/document.rb'
+require 'rest/database.rb'
+require 'rest/design_document.rb'
+require 'loveseat/document.rb'
+require 'loveseat/document/dsl.rb'
+require 'loveseat/document/support.rb'
+require 'loveseat/document/instance_adapter.rb'
+require 'loveseat/document/property/base.rb'
+require 'loveseat/document/property/string.rb'
+require 'loveseat/document/property/integer.rb'
+require 'loveseat/document/property/float.rb'
+require 'loveseat/document/property/date.rb'
+require 'loveseat/document/property/time.rb'
+require 'loveseat/document/property/array.rb'
+require 'loveseat/document/property/hash.rb'
+require 'loveseat/document/property/raw.rb'
+require 'loveseat/design_document.rb'
+require 'loveseat/design_document/dsl.rb'
+require 'loveseat/design_document/support.rb'
+require 'loveseat/design_document/view_row.rb'
+require 'loveseat/model.rb'
+require 'loveseat/view_set.rb'
+

data/lib/loveseat/design_document.rb

@@ -0,0 +1,45 @@
+module Loveseat
+  module DesignDocument 
+    Document.add_resolver(/_design\/([A-Za-z:]+)/)
+
+    def self.setup(klass, options = {}, &block)
+      Document.setup(klass, { :support => Support.new(klass, options) }, &block)
+    end
+    
+    def self.all(db)
+      resource = db._all_docs
+      response, body = resource.get(:query => {:startkey => "_design/".to_json,
+                                               :endkey => "_design/\ufff0".to_json,
+                                               :include_docs => true})
+      response.value
+
+      body['rows'].map do |row|
+        klass = Document.resolve(row['id'])
+        support = Document.registry[klass]
+        support.from_hash(row['doc'])
+      end
+    end
+
+    def self.view(db, design_document, name, options = {})
+      resource = Rest::DesignDocument.new(db, design_document.name)
+      view_resource = resource._view(name)
+
+      keys = options.delete(:keys)
+      
+      response, body = if keys
+        view_resource.post(:query => options, :body => {:keys => keys}.to_json)
+      else
+        view_resource.get(:query => options)
+      end
+      response.value
+      
+      body['rows'].map do |row|
+        ViewRow.from_hash(row)
+      end
+    end
+
+    def self.generate_id(klass)
+      "_design/#{klass.name}"
+    end
+  end
+end

data/lib/loveseat/design_document/dsl.rb

@@ -0,0 +1,9 @@
+module Loveseat
+  module DesignDocument
+    class DSL < Document::DSL
+      def view(name, functions = {})
+        @support.add_view(name, functions)
+      end
+    end
+  end
+end

data/lib/loveseat/design_document/support.rb

@@ -0,0 +1,25 @@
+module Loveseat
+  module DesignDocument
+    class Support < Document::Support
+      def initialize(klass, options = {})
+        super(klass, options)
+        @dsl = DSL.new(self)
+        add_property(:views, Document::Property::Hash, {})
+        alter_property(:_id, Document::Property::String, DesignDocument.generate_id(klass))
+      end
+
+      def from_hash(doc)
+        object = super(doc)
+        object.views = properties[:views][DEFAULT]
+        object
+      end
+
+      def add_view(name, options = {})
+        type, default = properties[:views]
+        default.merge!(
+          name => options
+        )
+      end 
+    end
+  end
+end

data/lib/loveseat/design_document/view_row.rb

@@ -0,0 +1,16 @@
+module Loveseat
+  module DesignDocument
+    class ViewRow
+      Loveseat::Document.setup(self, :abstract => true) do 
+        string :id
+        raw :key
+        raw :value
+        hash :doc
+      end
+
+      def self.from_hash(doc)
+        Document.registry[self.name].from_hash(doc)
+      end
+    end
+  end
+end

data/lib/loveseat/document.rb

@@ -0,0 +1,92 @@
+module Loveseat
+  module Document
+    @@registry = {}
+    @@resolvers = [
+      /^([A-Za-z:]+):/
+    ]
+    
+    def self.registry
+      @@registry
+    end
+
+    def self.add_resolver(regexp)
+      @@resolvers << regexp
+    end
+    
+    def self.next_id(server, klass)
+      response, body = server._uuids.get
+      response.value
+
+      uuid = body['uuids'].first
+      "#{klass.name}:#{uuid}"
+    end
+
+    def self.resolve(id)
+      @@resolvers.each do |regexp|
+        match = regexp.match(id)
+        if match
+          return match[1]
+        end
+      end
+      nil
+    end
+    
+    def self.setup(klass, options = {}, &block)
+      support = options.delete(:support) ||
+                  Support.new(klass, options)
+      Document.registry[klass.name] = support
+      support.dsl.instance_eval(&block)
+      support
+    end
+
+    def self.put(db, object)
+      klass = ( object.instance_of?(Class) ) ? object : object.class
+      support = Document.registry[klass.name]
+      raise "Not Registered" if support.nil?
+      raise "Abstract Document" if support.abstract?
+      
+      if object._id.nil?
+        object._id = next_id(db.server, object.class)
+      end
+
+      resource = Rest::Document.new(db, object._id)
+      response, body = resource.put(support.to_doc(object))
+
+      response.value
+
+      object._rev = body["rev"]
+      object
+    end
+
+    def self.get(db, id)
+      resource = Rest::Document.new(db, id)
+      response, body = resource.get
+      response.value
+
+      klass = resolve(id)
+      support = Document.registry[klass]
+      support.from_hash(body)
+    end
+
+    def self.all(db, klass)
+      support = Document.registry[klass.name]
+      resource = db._all_docs
+      response, body = resource.get(:query => {:startkey => "#{klass.name}:".to_json,
+                                               :endkey => "#{klass.name}:\ufff0".to_json,
+                                               :include_docs => true})
+      response.value
+
+      body['rows'].map do |row|
+        support.from_hash(row['doc'])
+      end
+    end
+
+    def self.delete(db, object)
+      resource = Rest::Document.new(db, object._id)
+      response, body = resource.delete(:query => {:rev => object._rev})
+      response.value
+      object._rev = nil
+    end
+  end
+end
+

data/lib/loveseat/document/dsl.rb

@@ -0,0 +1,41 @@
+module Loveseat
+  module Document
+    class DSL
+      def initialize(support)
+        @support = support 
+      end
+
+      def integer(name, default = nil)
+        @support.add_property(name, Property::Integer, default)
+      end
+
+      def string(name, default = nil)
+        @support.add_property(name, Property::String, default)
+      end
+
+      def float(name, default = nil)
+        @support.add_property(name, Property::Float, default)
+      end
+      
+      def date(name, default = nil)
+        @support.add_property(name, Property::Date, default)
+      end
+      
+      def time(name, default = nil)
+        @support.add_property(name, Property::Time, default)
+      end
+
+      def hash(name, default = nil)
+        @support.add_property(name, Property::Hash, default)
+      end
+      
+      def array(name, default = nil)
+        @support.add_property(name, Property::Array, default)
+      end
+      
+      def raw(name, default = nil)
+        @support.add_property(name, Property::Raw, default)
+      end
+    end
+  end
+end

data/lib/loveseat/document/instance_adapter.rb

@@ -0,0 +1,22 @@
+module Loveseat
+  module Document
+    class InstanceAdapter
+      def initialize(klass)
+        @support = Document.registry[klass]
+        @klass = klass
+      end
+
+      def [](name)
+        property_map[name]
+      end
+
+      def inspect
+        "#<Loveseat::Document::InstanceAdapter:#{@klass}>"
+      end
+
+      def property_map
+        @property_map ||= @support.generate_property_map
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/array.rb

@@ -0,0 +1,15 @@
+module Loveseat
+  module Document
+    module Property
+      class Array < Base
+        def self.cast(value)
+          value.to_a
+        end
+        
+        def empty?
+          @value.nil? || @value.empty?
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/base.rb

@@ -0,0 +1,30 @@
+module Loveseat
+  module Document
+    module Property
+      class Base
+        attr_reader :value
+
+        def initialize(default_value = nil)
+          @value = cast(default_value)
+        end
+
+        def get
+          @value
+        end
+
+        def set(value)
+          @value = cast(value)
+        end
+
+        def empty?
+         @value.nil?
+        end
+        
+        private 
+          def cast(value)
+            self.class.cast(value) unless value.nil?
+          end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/date.rb

@@ -0,0 +1,17 @@
+require 'date'
+
+module Loveseat
+  module Document
+    module Property
+      class Date < Base
+        def self.cast(value)
+          if value.is_a?(::Date)
+            return value
+          end
+
+          ::Date.parse(value)
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/float.rb

@@ -0,0 +1,11 @@
+module Loveseat
+  module Document
+    module Property
+      class Float < Base
+        def self.cast(value)
+          value.to_f
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/hash.rb

@@ -0,0 +1,15 @@
+module Loveseat
+  module Document
+    module Property
+      class Hash < Base
+        def self.cast(value)
+          value.to_hash
+        end
+
+        def empty?
+          @value.nil? || @value.empty?
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/integer.rb

@@ -0,0 +1,11 @@
+module Loveseat
+  module Document
+    module Property
+      class Integer < Base
+        def self.cast(value)
+          value.to_i
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/raw.rb

@@ -0,0 +1,11 @@
+module Loveseat
+  module Document
+    module Property
+      class Raw < Base
+        def self.cast(value)
+          value
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/string.rb

@@ -0,0 +1,11 @@
+module Loveseat
+  module Document
+    module Property
+      class String < Base
+        def self.cast(value)
+          value.to_s
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/property/time.rb

@@ -0,0 +1,17 @@
+require 'time'
+
+module Loveseat
+  module Document
+    module Property
+      class Time < Base
+        def self.cast(value)
+          if value.is_a?(::Time)
+            return value
+          end
+
+          ::Time.parse(value)
+        end
+      end
+    end
+  end
+end

data/lib/loveseat/document/support.rb

@@ -0,0 +1,106 @@
+module Loveseat
+  module Document
+    class Support
+      attr_accessor :properties, :dsl
+
+      TYPE = 0
+      DEFAULT= 1
+
+      def initialize(klass, options = {})
+        @klass = klass
+        @properties = {}
+        @dsl = DSL.new(self)
+        @abstract = !!options[:abstract]
+        @singleton = !!options[:singleton]
+
+        add_instance_adapter_accessor!
+
+        unless @abstract
+          add_property(:_id, Property::String)
+          add_property(:_rev, Property::String)
+        end
+      end
+
+      def add_property(name,type,default = nil)
+        name = name.to_sym
+        alter_property(name,type,default)
+        add_instance_methods!(name)
+      end
+
+      def alter_property(name,type,default = nil)
+        @properties[name] = [type, default]
+      end
+
+      def to_doc(instance)
+        doc = {}
+        instance.__loveseat_instance_adapter.property_map.each do |k,v|
+          value = v.get 
+          doc[k] = value unless v.empty?
+        end
+        doc.to_json
+      end
+
+      def from_hash(doc)
+        object = nil
+        if singleton?
+          object = @klass
+        else
+          object = @klass.new
+        end
+        properties.each do |k,v|
+          object.send(:"#{k}=", doc[k.to_s])
+        end
+        object
+      end
+
+      def generate_property_map
+        map = {}
+        properties.each do |name,value|
+          type, default = value
+          map[name] = type.new(default)
+        end
+        map
+      end
+
+      def singleton?
+        @singleton
+      end
+
+      def abstract?
+        @abstract
+      end
+
+      private
+
+        def add_instance_adapter_accessor!
+          method = <<-SOURCE
+            def __loveseat_instance_adapter
+              class_name = ( self.instance_of?(Class) ) ? self.name : self.class.name
+              @__loveseat_instance_adapter ||= Loveseat::Document::InstanceAdapter.new(class_name)
+            end
+          SOURCE
+          eval_appropriately(method)
+        end
+
+        def add_instance_methods!(method)
+          methods = <<-SOURCE
+            def #{method}
+              __loveseat_instance_adapter["#{method}".to_sym].get
+            end
+            def #{method}=(value)
+              __loveseat_instance_adapter["#{method}".to_sym].set(value)
+            end
+          SOURCE
+          eval_appropriately(methods)
+        end
+        
+        def eval_appropriately(arg)
+          if singleton?
+            @klass.instance_eval(arg)
+          else
+            @klass.class_eval(arg)
+          end
+        end
+    end
+  end
+end

data/lib/loveseat/model.rb

@@ -0,0 +1,42 @@
+module Loveseat
+  class Model
+    def self.connection=(connection_hash)
+      @@server = Rest::Server.new(connection_hash[:host],
+                                connection_hash[:port],
+                                connection_hash[:user],
+                                connection_hash[:password])
+      @@database = Rest::Database.new(@@server, connection_hash[:database])
+    end
+
+    def put
+      Document.put(self.class.database, self)
+    end
+  
+    def delete
+      Document.delete(self.class.database, self)
+    end 
+
+    def self.get(id)
+      unless id[self.name]
+        id = [self.name, id].join(':')
+      end
+      Document.get(self.database, id)
+    end
+
+    def self.all
+      Document.all(self.database, self)
+    end
+
+    def self.setup(options = {}, &block)
+      Document.setup(self, options, &block)
+    end
+
+    def self.server
+      @@server
+    end
+
+    def self.database
+      @@database
+    end
+  end
+end

data/lib/loveseat/view_set.rb

@@ -0,0 +1,39 @@
+module Loveseat
+  class ViewSet < Model
+    def self.setup(options = {}, &block)
+      options = options.merge(:singleton => true)
+      DesignDocument.setup(self, options, &block)
+    end
+   
+    def self.view(name, options = {})
+      DesignDocument.view(self.database, self, name, options)
+    end 
+
+    def self.put
+      Document.put(self.database, self)
+    end
+
+    def self.delete
+      Document.delete(self.database, self)
+    end
+
+    def self.latest!
+      begin
+        put
+      rescue 
+        Document.get(self.database, self._id)
+        retry
+      end
+    end
+  
+    def self.get(*args)
+      latest!
+    end
+
+    def self.all
+      DesignDocument.all(self.database)       
+    end
+
+    private :put, :delete
+  end
+end

data/lib/rest/database.rb

@@ -0,0 +1,18 @@
+module Rest
+  class Database < Resource
+    attr_reader :server
+
+    nested_resource :_all_docs
+    nested_resource :_revs_limit
+    nested_resource :_changes
+    nested_resource :_bulk_docs
+    nested_resource :_temp_view
+    nested_resource :_view_cleanup
+    nested_resource :_compact
+
+    def initialize(server, name)
+      @server = server
+      super(server.connection, "/#{name}/", server.username, server.password)
+    end
+  end
+end

data/lib/rest/design_document.rb

@@ -0,0 +1,9 @@
+module Rest
+  class DesignDocument < Document
+    nested_resource :_view
+  
+    def initialize(database, name)
+      super(database, "_design/#{name}")
+    end
+  end
+end

data/lib/rest/document.rb

@@ -0,0 +1,7 @@
+module Rest
+  class Document < Resource
+    def initialize(database, id)
+      super(database.connection, database.nested_resource_path(id), database.server.username, database.server.password)
+    end
+  end
+end

data/lib/rest/resource.rb

@@ -0,0 +1,84 @@
+require 'net/http'
+require 'uri'
+require 'json'
+
+module Rest
+  class Resource
+    attr_reader :connection
+
+    def initialize(connection, path = '/', username=nil, password=nil)
+      @connection = connection
+      uri = [ 'http://',
+              [connection.address,
+               connection.port].join(':'), 
+              path ].join
+      @uri = URI.parse(uri)
+      @username = username
+      @password = password
+    end
+
+    def self.nested_resource(name)
+      define_method name.to_sym do |*args|
+        resource = [name.to_s, *args.first].compact.join('/')
+        Resource.new(@connection, nested_resource_path(resource))
+      end
+    end
+
+    def nested_resource_path(nested_resource = '')
+      components = @uri.request_uri.split('/')
+      components << "" if components.empty?
+      components << nested_resource
+      components.join('/')
+    end
+
+    def put(options_or_body = '')
+      do_request(options_or_body, Net::HTTP::Put)
+    end
+
+    def get(options_or_body = '')
+      do_request(options_or_body, Net::HTTP::Get)
+    end
+
+    def delete(options_or_body = '')
+      do_request(options_or_body, Net::HTTP::Delete)
+    end
+
+    def post(options_or_body = '')
+      do_request(options_or_body, Net::HTTP::Post)
+    end
+
+    private
+      def do_request(options_or_body, request_const)
+        request_uri = nil
+        request_body = nil
+        if options_or_body.is_a?(String)
+          request_uri = @uri.request_uri
+          request_body = options_or_body
+        elsif options_or_body.is_a?(Hash)
+          uri = @uri.dup
+          uri.query = (options_or_body[:query] || {}).to_query
+          request_uri = uri.request_uri
+          request_body = options_or_body[:body]
+        end
+        request = request_const.new(request_uri)
+        request['Content-Type'] = 'application/json'
+        
+        request.body = if request_body.is_a?(String)
+          request_body
+        else
+          request_body.to_json
+        end
+
+        if @username and @password
+          request.basic_auth(@username, @password)
+        end
+        
+        response = @connection.start do |http|
+          http.request(request)
+        end
+
+        [response, JSON.parse(response.body)]
+      end
+  end
+end
+

data/lib/rest/server.rb

@@ -0,0 +1,19 @@
+module Rest
+  class Server < Resource
+    attr_reader :username
+    attr_reader :password
+
+    nested_resource :_all_dbs
+    nested_resource :_config
+    nested_resource :_uuids
+    nested_resource :_replicate
+    nested_resource :_stats
+    nested_resource :_active_tasks
+
+    def initialize(host, port, username=nil, password=nil)
+      @username = username
+      @password = password
+      super(Net::HTTP.new(host, port), '/', username, password)
+    end
+  end
+end

metadata

@@ -0,0 +1,107 @@
+--- !ruby/object:Gem::Specification 
+name: loveseat
+version: !ruby/object:Gem::Version 
+  hash: 27
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  - 0
+  version: 0.1.0
+platform: ruby
+authors: 
+- John MacKenzie
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-21 00:00:00 -06:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: json
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        hash: 11
+        segments: 
+        - 1
+        - 4
+        - 6
+        version: 1.4.6
+  type: :runtime
+  version_requirements: *id001
+description: Small, lightweight CouchDB client and object document mapper. Library is meant to be kept lean while still exposing the most powerful features of the database. Took a little inspiration from outoftime/sunspot.
+email: john@nineteeneightd.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/core_ext/hash.rb
+- lib/loveseat/design_document/dsl.rb
+- lib/loveseat/design_document/support.rb
+- lib/loveseat/design_document/view_row.rb
+- lib/loveseat/design_document.rb
+- lib/loveseat/document/dsl.rb
+- lib/loveseat/document/instance_adapter.rb
+- lib/loveseat/document/property/array.rb
+- lib/loveseat/document/property/base.rb
+- lib/loveseat/document/property/date.rb
+- lib/loveseat/document/property/float.rb
+- lib/loveseat/document/property/hash.rb
+- lib/loveseat/document/property/integer.rb
+- lib/loveseat/document/property/raw.rb
+- lib/loveseat/document/property/string.rb
+- lib/loveseat/document/property/time.rb
+- lib/loveseat/document/support.rb
+- lib/loveseat/document.rb
+- lib/loveseat/model.rb
+- lib/loveseat/view_set.rb
+- lib/loveseat.rb
+- lib/rest/database.rb
+- lib/rest/design_document.rb
+- lib/rest/document.rb
+- lib/rest/resource.rb
+- lib/rest/server.rb
+has_rdoc: true
+homepage: http://198d.github.com/loveseat
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: Simple Couch Client / Object Document Mapper
+test_files: []
+