redisted 0.0.1

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/config/application.rb

@@ -0,0 +1,59 @@
+require File.expand_path('../boot', __FILE__)
+
+# Pick the frameworks you want:
+# require "active_record/railtie"
+require "action_controller/railtie"
+require "action_mailer/railtie"
+require "active_resource/railtie"
+require "sprockets/railtie"
+require "rails/test_unit/railtie"
+require File.expand_path('../redis', __FILE__)
+
+if defined?(Bundler)
+  # If you precompile assets before deploying to production, use this line
+  Bundler.require *Rails.groups(:assets => %w(development test))
+  # If you want your assets lazily compiled in production, use this line
+  # Bundler.require(:default, :assets, Rails.env)
+end
+
+module Redisted
+  class Application < Rails::Application
+    # Settings in config/environments/* take precedence over those specified here.
+    # Application configuration should go into files in config/initializers
+    # -- all .rb files in that directory are automatically loaded.
+
+    # Custom directories with classes and modules you want to be autoloadable.
+    # config.autoload_paths += %W(#{config.root}/extras)
+
+    # Only load the plugins named here, in the order given (default is alphabetical).
+    # :all can be used as a placeholder for all plugins not explicitly named.
+    # config.plugins = [ :exception_notification, :ssl_requirement, :all ]
+
+    # Activate observers that should always be running.
+    # config.active_record.observers = :cacher, :garbage_collector, :forum_observer
+
+    # Set Time.zone default to the specified zone and make Active Record auto-convert to this zone.
+    # Run "rake -D time" for a list of tasks for finding time zone names. Default is UTC.
+    config.time_zone = 'UTC'
+
+    # The default locale is :en and all translations from config/locales/*.rb,yml are auto loaded.
+    # config.i18n.load_path += Dir[Rails.root.join('my', 'locales', '*.{rb,yml}').to_s]
+    # config.i18n.default_locale = :de
+
+    # Configure the default encoding used in templates for Ruby 1.9.
+    config.encoding = "utf-8"
+
+    # Configure sensitive parameters which will be filtered from the log file.
+    config.filter_parameters += [:password]
+
+    # Enable the asset pipeline
+    config.assets.enabled = true
+
+    # Version of your assets, change this if you want to expire all your assets
+    config.assets.version = '1.0'
+
+
+    config.active_support.deprecation = :stderr
+
+  end
+end

data/config/boot.rb

@@ -0,0 +1,6 @@
+require 'rubygems'
+
+# Set up gems listed in the Gemfile.
+ENV['BUNDLE_GEMFILE'] ||= File.expand_path('../../Gemfile', __FILE__)
+
+require 'bundler/setup' if File.exists?(ENV['BUNDLE_GEMFILE'])

data/config/environment.rb

@@ -0,0 +1,7 @@
+# Load the rails application
+require File.expand_path('../application', __FILE__)
+
+# Initialize the rails application
+Redisted::Application.initialize!
+
+

data/config/redis.rb

@@ -0,0 +1,17 @@
+#
+# Setup Redis
+#
+require 'redis'
+require 'redisted'
+begin
+  $redis=Redis.new({
+    host: "localhost",
+    port: 6379,
+    timeout: 5,
+  })
+  $redis.select 15 # Database #15
+  Redisted::Base.redis=$redis
+rescue =>err
+  puts "Redisted Test redis error: #{err}"
+  raise "Redisted Test redis error: #{err}"
+end

data/index.html

@@ -0,0 +1 @@
+Test Page

data/lib/redisted/base.rb

@@ -0,0 +1,129 @@
+#
+#
+# Creates the following Redis keys for a class named "Model"
+#
+# model:<id> -- HASH -- contains all attributes of the class
+# model_id -- Last ID used (integer used with INCR command)
+#
+#
+module Redisted
+  class Base
+    include ActiveModel::MassAssignmentSecurity
+    include ActiveModel::Validations
+    include ActiveModel::Serialization
+    #include ActiveModel::Dirty -- This model doesn't match very well...
+    extend ActiveModel::Callbacks
+    extend ActiveModel::Naming
+    extend ActiveModel::Translation
+
+    define_model_callbacks :create, :update, :save, :destroy
+
+    def initialize(attrs = nil,redis=nil)
+      @redis=redis||Base.redis
+      validate_redis
+      init_fields
+      init_attributes
+      init_indexes
+      init_references
+      self.attributes=attrs if attrs
+      self
+    end
+    def redis= conn=nil
+      @redis=conn||@@redis
+      validate_redis
+      @redis
+    end
+    def redis
+      validate_redis
+      @redis
+    end
+    def prefix
+      self.class.prefix
+    end
+    def id # NOTE: ID is read/only - it can only be set via the load method
+      @id
+    end
+    def to_attr_type key,value
+      raise InvalidField,"Unknown field: #{key}" if fields[key].nil?
+      return nil if value.nil?
+      case fields[key][:type]
+        when :string then value
+        when :symbol then value.to_sym
+        when :integer then value.to_i
+        when :datetime then value.to_datetime
+        else
+          value
+        end
+    end
+    def to_redis_type key,value
+      return nil if value.nil?
+      case fields[key][:type]
+        when :string then value
+        when :symbol then value.to_s
+        when :integer then value.to_i.to_s
+        when :datetime then value.utc.to_s
+        else
+          value
+      end
+    end
+    def method_missing(id, *args)
+      fields.each do |field,options|
+        return get_attr(field) if id==field
+        return set_attr(field,args[0]) if id.to_s==field.to_s+"="
+      end
+      references.each do |ref,options|
+        return get_reference(ref,options) if id==ref
+        return set_reference(ref,options,args[0]) if id.to_s==ref.to_s+"="
+      end
+      super
+    end
+
+    private
+    def validate_redis
+      raise RedisConnectionNotDefined if @redis.nil?
+    end
+
+    def generate_id
+      validate_redis
+      @@redis.incr "#{prefix}_id"
+    end
+
+
+    def get_obj_option key
+      self.class.get_obj_option key
+    end
+    def set_obj_option key,val
+      self.class.set_obj_option key,val
+    end
+    class << self
+      def get_obj_option key
+        @obj_options||={}
+        @obj_options[key]
+      end
+      def set_obj_option key,val
+        @obj_options||={}
+        @obj_options[key]=val
+      end
+      def is_redisted_model?
+        true
+      end
+      def redis= conn
+        @@redis=conn
+      end
+      def redis
+        @@redis
+      end
+      def prefix
+        ret=self.model_name.i18n_key
+        ret
+      end
+
+      private
+
+      def validate_redis
+        raise RedisConnectionNotDefined if @@redis.nil?
+      end
+
+    end
+  end
+end

data/lib/redisted/delete.rb

@@ -0,0 +1,21 @@
+module Redisted
+  class Base
+
+    def delete
+      raise Redisted::RecordInvalid,"Object is not persisted" if self.id.nil?
+      @redis.del "#{prefix}:#{self.id}"
+      id=nil
+      attributes={}
+      @attributes_status.clear
+      # LEELEE: Also handle indices
+      true
+    end
+    def destroy
+      # TODO: Run all the callbacks...
+      delete
+      # LEELEE: Follow destroy path...
+      true
+    end
+
+  end
+end

data/lib/redisted/errors.rb

@@ -0,0 +1,12 @@
+module Redisted
+  class RedisConnectionNotDefined<Exception;end # No redis connection was found
+  class RedisSaveFailed<Exception;end
+  class RecordInvalid<Exception;end
+  class InvalidQuery<Exception;end
+  class InvalidReference<Exception;end
+  class ValueNotUnique<Exception;end
+  class MultiSessionConflict<Exception;end
+  class IsDirty<Exception;end
+  class InvalidIndex<Exception;end
+  class InvalidField<Exception;end
+end

data/lib/redisted/fields.rb

@@ -0,0 +1,59 @@
+module Redisted
+  class Base
+    def fields
+      self.class.fields
+    end
+    def scopes
+      self.class.scopes
+    end
+    private
+    def init_fields
+    end
+    class << self
+      public
+      #
+      # Setup
+      #
+      def field value,options={}
+        options[:type]||=:string
+        fields[value]=options
+      end
+      def fields
+        @fields||={}
+        @fields
+      end
+      def fields= val
+        @fields=val
+      end
+      def scopes
+        @scopes||={}
+        @scopes
+      end
+      def scopes= val
+        @scopes=val
+      end
+      def scope name,options
+        scopes[name]=lambdafi_field(options)
+      end
+
+      private
+
+      def read_attribute_for_validation key
+        get_attr key
+      end
+
+      def lambdafi_field options
+        lambda do |*args|
+          if options.respond_to? :call
+            options.call(*args)
+          elsif options.is_a? Symbol
+            args[0].send(options,*args)
+          else
+            options # An integer or other constant value
+          end
+        end
+      end
+
+    end
+  end
+end

data/lib/redisted/getsetattr.rb

@@ -0,0 +1,220 @@
+module Redisted
+  class Base
+    class << self
+      def always_cache_until_save val=true
+        set_obj_option :cache_until_save,val
+      end
+      def pre_cache_all opts={}
+        opts[:keys]=:all if opts[:keys].nil?
+        opts[:when]=:create if opts[:when].nil?
+        set_obj_option :pre_cache_all,opts
+      end
+    end
+    private
+    def init_attributes
+      @attributes_value={}
+      @attributes_status={}
+      @attributes_old={}
+      @attributes_old_status={}
+      @cache_preload=false
+      @cached_sets=false
+      @cached_sets=true if get_obj_option :cache_until_save
+    end
+    def pre_cache_values
+      return if @cache_preload
+      @cache_preload=true # Must be set first to prevent get_attr loop...
+      keys=get_obj_option(:pre_cache_all)[:keys]
+      except=get_obj_option(:pre_cache_all)[:except]
+      if keys==:all
+        fields.each do |k,v|
+          next if except and except.include? k
+          get_attr k
+        end
+      else
+        keys.each do |k|
+          next if except and except.include? k
+          get_attr k
+        end
+      end
+    end
+    public
+    def set_attr key,val
+      key=key.to_sym
+      val=to_redis_type key,val
+      if @cached_sets or !persisted?
+        if (@attributes_status[key]==:cached)
+          # If we have it, we save the old value when first marked dirty...
+          @attributes_old[key]=@attributes_value[key]
+          @attributes_old_status[key]=:cached
+        end
+        @attributes_value[key]=val
+        @attributes_status[key]=:dirty
+      else
+        index_process({key=>val}) do
+          @attributes_value[key]=val
+          @attributes_status[key]=:cached
+          @redis.hset "#{prefix}:#{@id}",key,val
+          @attributes_old[key]=nil
+          @attributes_old_status[key]=nil
+        end
+      end
+    end
+    def get_attr key
+      key=key.to_sym
+      return to_attr_type(key,@attributes_value[key]) if [:cached,:dirty].include?(@attributes_status[key])
+      return nil if !persisted?
+      ret=to_attr_type key,@redis.hget("#{prefix}:#{@id}",key)
+      pre_cache_values if get_obj_option(:pre_cache_all) and get_obj_option(:pre_cache_all)[:when]==:first_read and !@cache_preload
+      @attributes_value[key]=ret
+      @attributes_status[key]=:cached
+      ret
+    end
+
+    def clear key=nil
+      if key.nil?
+        self.class.fields.each do |key,val|
+          raise IsDirty,"#{key} is dirty" if (!key.nil?) and @attributes_status[key]==:dirty
+        end
+      end
+      setup_attributes
+      nil
+    end
+    def flush
+      fields.each do |key,val|
+        @attributes_status[key]=nil
+      end
+    end
+    def fill_cache keys=nil
+      if keys.nil?
+        keys=[]
+        fields.each do |key,val|
+          next if !@attributes_status[key].nil?
+          keys << key
+        end
+      end
+      if keys.size>0
+        ret=@redis.hmget  "#{prefix}:#{@id}",*keys
+        idx=0
+        keys.each do |key|
+          key=key.to_sym
+          @attributes_value[key]=ret[idx]
+          @attributes_status[key]=:cached
+          idx+=1
+        end
+      end
+      self
+    end
+    def persisted?
+      !@id.nil?
+    end
+    def cached? key
+      return true if !persisted?
+      return [:cached,:dirty].include?(@attributes_status[key])
+    end
+    def dirty? key
+      return true if !persisted?
+      return @attributes_status[key]==:dirty
+    end
+    def saved?
+      return false if !persisted?
+      fields.each do |key,val|
+        return false if @attributes_status[key]==:dirty
+      end
+      return true
+    end
+    def cache
+      if block_given?
+        previous_cached_sets=nil
+        begin
+          previous_cached_sets=@cached_sets
+          @cached_sets=true
+          yield
+          save if !previous_cached_sets
+          @cached_sets=previous_cached_sets
+        rescue Exception
+          @cached_sets=previous_cached_sets
+          raise
+        end
+      else
+        @cached_sets=true
+      end
+    end
+    def cache! &proc
+      begin
+        @cached_sets=true
+        proc.call *attrs
+        save!
+      rescue Exception
+        @cached_sets=false
+        raise
+      end
+    end
+    def attributes= attrs
+      cache do
+        attrs.each do |key,value|
+          set_attr key,value
+        end
+      end
+    end
+    def attributes load_all=true
+      fill_cache if load_all
+      @attributes_value.merge id: @id
+    end
+
+    def save!
+      raise Redisted::RecordInvalid if !valid?
+      internal_save_with_callbacks
+    end
+
+    def save options={}
+      begin
+        if (options[:validate].nil? or options[:validate])
+          raise Redisted::RecordInvalid if !valid?
+        end
+        internal_save_with_callbacks
+      rescue Exception=>err
+        self.errors[:base] = err.to_s
+        return false
+      end
+      true
+    end
+
+    private
+    def internal_save_with_callbacks
+      cb_run=run_callbacks :save do
+        if persisted?
+          run_callbacks :update do
+            internal_save false
+          end
+        else
+          run_callbacks :create do
+            internal_save true
+          end
+        end
+      end
+      raise Redisted::RecordInvalid,"Callback link broken" if !cb_run
+    end
+    def internal_save is_create
+      @id=generate_id if is_create
+      params={}
+      params[:id]=@id if is_create
+      @attributes_status.each do |key,value|
+        next if value!=:dirty
+        params[key]=@attributes_value[key]
+      end
+      if params.size>0
+        index_process(params) do
+          @redis.hmset("#{prefix}:#{@id}",*(params.flatten))
+          @attributes_status.each do |key,value|
+            next if value!=:dirty
+            @attributes_status[key]=:cached
+          end
+          @attributes_old={}
+          @attributes_old_status={}
+        end
+      end
+      @hold_writes=false
+      self
+    end
+  end
+end