sreeix-cache-money 0.2.24.1

data/db/schema.rb

@@ -0,0 +1,18 @@
+ActiveRecord::Schema.define(:version => 2) do
+  create_table "stories", :force => true do |t|
+    t.string "title", "subtitle"
+    t.string  "type"
+    t.boolean "published"
+  end
+
+  create_table "characters", :force => true do |t|
+    t.integer "story_id"
+    t.string "name"
+  end
+  
+  create_table :sessions, :force => true do |t|
+    t.string :session_id
+    t.text   :data
+    t.timestamps
+  end
+end

data/init.rb

@@ -0,0 +1 @@
+require File.join(File.basedir(__FILE__),'rails','init')

data/lib/cache_money.rb

@@ -0,0 +1,91 @@
+require 'active_support'
+require 'active_record'
+
+require 'cash/lock'
+require 'cash/transactional'
+require 'cash/write_through'
+require 'cash/finders'
+require 'cash/buffered'
+require 'cash/index'
+require 'cash/config'
+require 'cash/accessor'
+
+require 'cash/request'
+require 'cash/fake'
+require 'cash/local'
+
+require 'cash/query/abstract'
+require 'cash/query/select'
+require 'cash/query/primary_key'
+require 'cash/query/calculation'
+
+require 'cash/util/array'
+require 'cash/util/marshal'
+
+class ActiveRecord::Base
+  def self.is_cached(options = {})
+    if options == false
+      include NoCash
+    else
+      options.assert_valid_keys(:ttl, :repository, :version)
+      include Cash unless ancestors.include?(Cash)
+      Cash::Config.create(self, options)
+    end
+  end
+
+  def <=>(other)
+    if self.id == other.id then 
+      0
+    else
+      self.id < other.id ? -1 : 1
+    end
+  end
+end
+
+module Cash
+  def self.included(active_record_class)
+    active_record_class.class_eval do
+      include Config, Accessor, WriteThrough, Finders
+      extend ClassMethods
+    end
+  end
+
+  module ClassMethods
+    def self.extended(active_record_class)
+      class << active_record_class
+        alias_method_chain :transaction, :cache_transaction
+      end
+    end
+
+    def transaction_with_cache_transaction(*args)
+      if cache_config
+        # Wrap both the db and cache transaction in another cache transaction so that the cache 
+        # gets written only after the database commit but can still flush the inner cache
+        # transaction if an AR::Rollback is issued.
+        repository.transaction do
+          transaction_without_cache_transaction(*args) do
+            repository.transaction { yield }
+          end
+        end
+      else
+        transaction_without_cache_transaction(*args)
+      end
+    end
+
+    def cacheable?(*args)
+      true
+    end
+  end
+end
+module NoCash
+  def self.included(active_record_class)
+    active_record_class.class_eval do
+      extend ClassMethods
+    end
+  end
+  module ClassMethods
+    def cacheable?(*args)
+      false
+    end
+  end
+end

data/lib/cash/accessor.rb

@@ -0,0 +1,83 @@
+module Cash
+  module Accessor
+    def self.included(a_module)
+      a_module.module_eval do
+        extend ClassMethods
+        include InstanceMethods
+      end
+    end
+
+    module ClassMethods
+      def fetch(keys, options = {}, &block)
+        case keys
+        when Array
+          return {} if keys.empty?
+          
+          keys = keys.collect { |key| cache_key(key) }
+          hits = repository.get_multi(*keys)
+          if (missed_keys = keys - hits.keys).any?
+            missed_values = block.call(missed_keys)
+            hits.merge!(missed_keys.zip(Array(missed_values)).to_hash_without_nils)
+          end
+          hits
+        else
+          repository.get(cache_key(keys), options[:raw]) || (block ? block.call : nil)
+        end
+      end
+
+      def get(keys, options = {}, &block)
+        case keys
+        when Array
+          fetch(keys, options, &block)
+        else
+          fetch(keys, options) do
+            if block_given?
+              add(keys, result = yield(keys), options)
+              result
+            end
+          end
+        end
+      end
+
+      def add(key, value, options = {})
+        if repository.add(cache_key(key), value, options[:ttl] || cache_config.ttl, options[:raw]) == "NOT_STORED\r\n"
+          yield if block_given?
+        end
+      end
+
+      def set(key, value, options = {})
+        repository.set(cache_key(key), value, options[:ttl] || cache_config.ttl, options[:raw])
+      end
+
+      def incr(key, delta = 1, ttl = nil)
+        ttl ||= cache_config.ttl
+        repository.incr(cache_key = cache_key(key), delta) || begin
+          repository.add(cache_key, (result = yield).to_s, ttl, true) { repository.incr(cache_key) }
+          result
+        end
+      end
+
+      def decr(key, delta = 1, ttl = nil)
+        ttl ||= cache_config.ttl
+        repository.decr(cache_key = cache_key(key), delta) || begin
+          repository.add(cache_key, (result = yield).to_s, ttl, true) { repository.decr(cache_key) }
+          result
+        end
+      end
+
+      def expire(key)
+        repository.delete(cache_key(key))
+      end
+
+      def cache_key(key)
+        "#{name}:#{cache_config.version}/#{key.to_s.gsub(' ', '+')}"
+      end
+    end
+
+    module InstanceMethods
+      def expire
+        self.class.expire(id)
+      end
+    end
+  end
+end

data/lib/cash/buffered.rb

@@ -0,0 +1,129 @@
+module Cash
+  class Buffered
+    def self.push(cache, lock)
+      if cache.is_a?(Buffered)
+        cache.push
+      else
+        Buffered.new(cache, lock)
+      end
+    end
+
+    def initialize(memcache, lock)
+      @buffer = {}
+      @commands = []
+      @cache = memcache
+      @lock = lock
+    end
+
+    def pop
+      @cache
+    end
+
+    def push
+      NestedBuffered.new(self, @lock)
+    end
+
+    def get(key, *options)
+      if @buffer.has_key?(key)
+        @buffer[key]
+      else
+        @buffer[key] = @cache.get(key, *options)
+      end
+    end
+
+    def set(key, value, *options)
+      @buffer[key] = value
+      buffer_command Command.new(:set, key, value, *options)
+    end
+
+    def incr(key, amount = 1)
+      return unless value = get(key, true)
+
+      @buffer[key] = value.to_i + amount
+      buffer_command Command.new(:incr, key, amount)
+      @buffer[key]
+    end
+
+    def decr(key, amount = 1)
+      return unless value = get(key, true)
+
+      @buffer[key] = [value.to_i - amount, 0].max
+      buffer_command Command.new(:decr, key, amount)
+      @buffer[key]
+    end
+
+    def add(key, value, *options)
+      @buffer[key] = value
+      buffer_command Command.new(:add, key, value, *options)
+    end
+
+    def delete(key, *options)
+      @buffer[key] = nil
+      buffer_command Command.new(:delete, key, *options)
+    end
+
+    def get_multi(*keys)
+      values = keys.collect { |key| get(key) }
+      keys.zip(values).to_hash_without_nils
+    end
+
+    def flush
+      sorted_keys = @commands.select(&:requires_lock?).collect(&:key).uniq.sort
+      sorted_keys.each do |key|
+        @lock.acquire_lock(key)
+      end
+      perform_commands
+    ensure
+      @buffer = {}
+      sorted_keys.each do |key|
+        @lock.release_lock(key)
+      end
+    end
+
+    def respond_to?(method)
+      @cache.respond_to?(method)
+    end
+
+    protected
+
+    def perform_commands
+      @commands.each do |command|
+        command.call(@cache)
+      end
+    end
+
+    def buffer_command(command)
+      @commands << command
+    end
+    
+    private
+    
+    def method_missing(method, *args, &block)
+      @cache.send(method, *args, &block)
+    end
+  end
+
+  class NestedBuffered < Buffered
+    def flush
+      perform_commands
+    end
+  end
+
+  class Command
+    attr_accessor :key
+
+    def initialize(name, key, *args)
+      @name = name
+      @key = key
+      @args = args
+    end
+
+    def requires_lock?
+      @name == :set
+    end
+
+    def call(cache)
+      cache.send @name, @key, *@args
+    end
+  end
+end

data/lib/cash/config.rb

@@ -0,0 +1,75 @@
+module Cash
+  module Config
+    def self.create(active_record, options, indices = [])
+      active_record.cache_config = Cash::Config::Config.new(active_record, options)
+      indices.each { |i| active_record.index i.attributes, i.options }
+    end
+    
+    def self.included(a_module)
+      a_module.module_eval do
+        extend ClassMethods
+        delegate :repository, :to => "self.class"
+      end
+    end
+
+    module ClassMethods
+      def self.extended(a_class)
+        class << a_class
+          def cache_config
+            @cache_config ? @cache_config : superclass.cache_config
+          end
+          
+          delegate :repository, :indices, :to => :cache_config
+          alias_method_chain :inherited, :cache_config
+        end
+      end
+
+      def inherited_with_cache_config(subclass)
+        inherited_without_cache_config(subclass)
+        @cache_config.inherit(subclass)
+      end
+
+      def index(attributes, options = {})
+        options.assert_valid_keys(:ttl, :order, :limit, :buffer, :order_column)
+        (@cache_config.indices.unshift(Index.new(@cache_config, self, attributes, options))).uniq!
+      end
+
+      def version(number)
+        @cache_config.options[:version] = number
+      end
+
+      def cache_config=(config)
+        @cache_config = config
+      end
+    end
+
+    class Config
+      attr_reader :active_record, :options
+
+      def initialize(active_record, options = {})
+        @active_record, @options = active_record, options
+      end
+
+      def repository
+        @options[:repository]
+      end
+
+      def ttl
+        repository_ttl = repository.respond_to?(:default_ttl) ? repository.default_ttl : nil
+        @ttl ||= @options[:ttl] || repository_ttl || 1.day
+      end
+
+      def version
+        @options[:version] || 1
+      end
+
+      def indices
+        @indices ||= active_record == ActiveRecord::Base ? [] : [Index.new(self, active_record, active_record.primary_key)]
+      end
+
+      def inherit(active_record)
+        Cash::Config.create(active_record, @options, indices)
+      end
+    end
+  end
+end

data/lib/cash/fake.rb

@@ -0,0 +1,83 @@
+module Cash
+  class Fake < HashWithIndifferentAccess
+    attr_accessor :servers
+
+    def get_multi(*keys)
+      slice(*keys).collect { |k,v| [k, Marshal.load(v)] }.to_hash
+    end
+
+    def set(key, value, ttl = 0, raw = false)
+      self[key] = marshal(value, raw)
+    end
+
+    def get(key, raw = false)
+      if raw
+        self[key]
+      else
+        if self.has_key?(key)
+          Marshal.load(self[key])
+        else
+          nil
+        end
+      end
+    end
+
+    def incr(key, amount = 1)
+      if self.has_key?(key)
+        self[key] = (self[key].to_i + amount).to_s
+        self[key].to_i
+      end
+    end
+
+    def decr(key, amount = 1)
+      if self.has_key?(key)
+        self[key] = (self[key].to_i - amount).to_s
+        self[key].to_i
+      end
+    end
+
+    def add(key, value, ttl = 0, raw = false)
+      return false if self.has_key?(key)
+
+      self[key] = marshal(value, raw)
+      true
+    end
+
+    def append(key, value)
+      set(key, get(key, true).to_s + value.to_s, nil, true)
+    end
+
+    def namespace
+      nil
+    end
+
+    def flush_all
+      clear
+    end
+
+    def stats
+      {}
+    end
+
+    def reset_runtime
+      [0, Hash.new(0)]
+    end
+
+    private
+    def marshal(value, raw)
+      if raw
+        value.to_s
+      else
+        Marshal.dump(value)
+      end
+    end
+
+    def unmarshal(marshaled_obj)
+      Marshal.load(marshaled_obj)
+    end
+
+    def deep_clone(obj)
+      unmarshal(marshal(obj))
+    end
+  end
+end

data/lib/cash/finders.rb

@@ -0,0 +1,38 @@
+module Cash
+  module Finders
+    def self.included(active_record_class)
+      active_record_class.class_eval do
+        extend ClassMethods
+      end
+    end
+
+    module ClassMethods
+      def self.extended(active_record_class)
+        class << active_record_class
+          alias_method_chain :find_every, :cache
+          alias_method_chain :find_from_ids, :cache
+          alias_method_chain :calculate, :cache
+        end
+      end
+
+      def without_cache(&block)
+        with_scope(:find => {:readonly => true}, &block)
+      end
+
+      # User.find(:first, ...), User.find_by_foo(...), User.find(:all, ...), User.find_all_by_foo(...)
+      def find_every_with_cache(options)
+        Query::Select.perform(self, options, scope(:find))
+      end
+
+      # User.find(1), User.find(1, 2, 3), User.find([1, 2, 3]), User.find([])
+      def find_from_ids_with_cache(ids, options)
+        Query::PrimaryKey.perform(self, ids, options, scope(:find))
+      end
+
+      # User.count(:all), User.count, User.sum(...)
+      def calculate_with_cache(operation, column_name, options = {})
+        Query::Calculation.perform(self, operation, column_name, options, scope(:find))
+      end
+    end
+  end
+end