ant-mapper 0.0.2

data/CHANGE

@@ -0,0 +1,6 @@
+v0.0.1  2009-8-21
+- initial release
+
+v0.0.2  2009-8-24
+	* 支持Tokyo Cabinet数据库
+	* 支持Tokyo Tyrant数据库

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Aaron Zhang
+
+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

@@ -0,0 +1,25 @@
+== Ant是什么？
+
+	Ant是用来访问LightCloud/TokyoCabinet/TokyoTyrant的工具，实现了持久化数据与对象的映射。
+
+== 特性
+	* 访问LightCloud/TokyoCabinet/TokyoTyrant。提供一组定义实体类的方法以及访问LightCloud/TokyoCabinet/TokyoTyrant的方法
+	* 提供验证规则。对新的或已经存在的实体提供不同的验证规则
+	* 提供回调方法。在操作对象(create,save,update等）时，可以使用回调函数
+	* 提供观察器模式。
+
+
+== 示例
+
+	在Rails中应用Ant
+
+	在环境文件的最后加入下列代码(假设LightCloud配置文件与环境文件在同一个目录下)：
+
+		require 'ant'
+		AntMapper::Base.configurations :LC,File.join(File.dirname(__FILE__),'light_cloud.yml')
+
+	在项目中使用观察器
+
+	在环境文件的最后加入下列代码:
+		AntMapper::Base.observers = :account_observer
+		AntMapper::Base.instantiate_observers

data/ant.gemspec

@@ -0,0 +1,48 @@
+# -*- encoding: utf-8 -*-
+module DirExt
+	# 根据指定的目录获取该目录下所有的文件路径(不包含隐藏文件)
+	# 例如:
+	# 	files_path_to_s('/home/Aaron/sample')     => 会列出sample目录下所有文件的路径
+	#
+	def files_path_to_s(dirname)
+		path_array = files_path(dirname)
+		path_array.flatten!
+	end
+
+	protected
+		def files_path(dirname,path_array=[])
+			files = Dir.entries(dirname)
+			files.delete('.')
+			files.delete('..')
+			files.delete_if{|file| file =~ /^\./}
+			files.each do |f|
+				if File.directory?(File.join(dirname,f))
+					path_array << files_path(File.join(dirname,f))
+				else
+					path_array << File.join(dirname,f)
+				end
+			end
+			path_array
+		end
+end
+
+Gem::Specification::Class.send :include,DirExt
+
+Gem::Specification.new do |s|
+	s.name = %{ant-mapper}
+	s.version = '0.0.2'
+	s.description = 'Ant是用来访问LightCloud/TokyoCabinet/TokyoTyrant的工具，实现了持久化数据与对象的映射。 它类似于ActiveRecord，提供一组访问LightCloud/TokyoCabinet/TokyoTyrant的方法以及验证规则、回调函数和观察器。'
+	s.homepage = "http://www.tokyocabinet.com"
+	s.rubyforge_project = %q{ant-mapper}
+	s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+	s.summary = 'Ant是用来访问LightCloud/TokyoCabinet/TokyoTyrant的工具，实现了持久化数据与对象的映射。 它类似于ActiveRecord，提供一组访问LightCloud/TokyoCabinet/TokyoTyrant的方法以及验证规则、回调函数和观察器。'
+
+	s.email = ["yalong1976@gmail.com"]
+  s.authors = ["yalong zhang"]
+	s.files = files_path_to_s(File.dirname(__FILE__))
+  s.require_paths = ["lib"]
+  s.required_ruby_version = Gem::Requirement.new(">= 1.8.6")
+  s.rubygems_version = %q{1.3.4}
+  s.add_dependency(%q<mitchellh-lightcloud>)
+  s.add_dependency(%q<rufus-tokyo>)
+end

data/examples/account.rb

@@ -0,0 +1,71 @@
+class Account < AntMapper::Base
+	#self.class_name = 'User'
+
+	set_primary_key :email
+	set_attributes :email,:name,:encrypted_password,:salt
+
+	attr_accessor :password
+
+	validates_presence_of     :email, :message=>'电子邮箱不能为空!'
+	validates_format_of       :email, :with => /(\A(\s*)\Z)|(\A([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})\Z)/i,   :message => '无效的电子邮件格式'
+	validates_presence_of     :password,:message =>'密码不能为空'
+  validates_length_of       :password, :within => 6..40, :too_short => '密码太短', :too_long =>'密码过长'
+	validates_confirmation_of :password, :message => '两次输入的密码不匹配!'
+
+
+	before_save :encrypt_password
+	before_save :default_name
+
+  # 通过账号和未加密的密码验证用户.  返回用户或者nil.
+  def self.authenticate(email, password)
+    u = find(email)
+    u && u.authenticated?(password) ? u : nil
+  end
+
+  # 根据salt加密数据.
+  def self.encrypt(password, salt)
+    Digest::SHA1.hexdigest("--#{salt}--#{password}--")
+  end
+
+  # 根据用户salt加密用户的密码
+  def encrypt(password)
+    self.class.encrypt(password, salt)
+  end
+
+  # 校验密码认证是否通过
+  def authenticated?(password)
+    encrypted_password == encrypt(password)
+  end
+
+  def change_password(password,password_confirmation)
+    self.password= password
+    self.password_confirmation = password_confirmation
+    self.save
+  end
+
+  # 让系统记住当前账号，使下次登录是不需要输入账号和密码。
+  def remember_me
+    remember_me_for 2.weeks
+  end
+
+  def remember_me_for(time)
+    remember_me_until time.from_now.utc
+  end
+
+  def remember_me_until(time)
+  	Token.create(:email=>self.email,:token=>encrypt("#{email}--#{time}"),:expires_at=>time)
+  end
+
+  protected
+    # before filter
+    def encrypt_password
+      return if password.blank?
+      self.salt = Digest::SHA1.hexdigest("--#{Time.now.to_s}--#{email}--") if new_record?
+      self.encrypted_password = encrypt(password)
+    end
+
+    def default_name
+      return if email.blank?
+      self.name = email[0,email.index('@')] if self.name.blank? && email.index('@')
+    end
+end

data/examples/light_cloud.yml

@@ -0,0 +1,18 @@
+# LightCloud的配置文件,用于初始化LightCloud
+#  示例
+#  user:
+#    lookup_one:
+#    - 127.0.0.1:41401
+#    - 127.0.0.1:41402
+#    storage_one:
+#    - 127.0.0.1:44401
+#    - 127.0.0.1:44402
+#
+
+user:
+  lookup_one:
+  - 127.0.0.1:30001
+  - 127.0.0.1:33001
+  storage_one:
+  - 127.0.0.1:20001
+  - 127.0.0.1:24001

data/examples/user.rb

@@ -0,0 +1,84 @@
+require File.join(File.dirname(__FILE__),'..','lib','ant')
+require 'pathname'
+
+
+#AntMapper::Base.configurations = File.join(File.dirname(__FILE__),'light_cloud.yml')
+#AntMapper::Base.configure :TC,File.join(File.dirname(Pathname.new(__FILE__).realpath),'data.tch')
+#AntMapper::Base.configure :LC,File.join(File.dirname(Pathname.new(__FILE__).realpath),'light_cloud.yml')
+AntMapper::Base.configure :TT,'http://127.0.0.1:55555'
+class Account < AntMapper::Base
+	#self.class_name = 'User'
+
+	set_primary_key :email
+	set_attributes :email,:name,:encrypted_password,:salt
+
+	attr_accessor :password
+
+	validates_presence_of     :email, :message=>'电子邮箱不能为空!'
+	validates_format_of       :email, :with => /(\A(\s*)\Z)|(\A([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})\Z)/i,   :message => '无效的电子邮件格式'
+	validates_presence_of     :password,:message =>'密码不能为空'
+  validates_length_of       :password, :within => 6..40, :too_short => '密码太短', :too_long =>'密码过长'
+	validates_confirmation_of :password, :message => '两次输入的密码不匹配!'
+
+
+	before_save :encrypt_password
+	before_save :default_name
+
+  # 通过账号和未加密的密码验证用户.  返回用户或者nil.
+  def self.authenticate(email, password)
+    u = find(email)
+    u && u.authenticated?(password) ? u : nil
+  end
+
+  # 根据salt加密数据.
+  def self.encrypt(password, salt)
+    Digest::SHA1.hexdigest("--#{salt}--#{password}--")
+  end
+
+  # 根据用户salt加密用户的密码
+  def encrypt(password)
+    self.class.encrypt(password, salt)
+  end
+
+  # 校验密码认证是否通过
+  def authenticated?(password)
+    encrypted_password == encrypt(password)
+  end
+
+  def change_password(password,password_confirmation)
+    self.password= password
+    self.password_confirmation = password_confirmation
+    self.save
+  end
+
+  # 让系统记住当前账号，使下次登录是不需要输入账号和密码。
+  def remember_me
+    remember_me_for 2.weeks
+  end
+
+  def remember_me_for(time)
+    remember_me_until time.from_now.utc
+  end
+
+  def remember_me_until(time)
+  	Token.create(:email=>self.email,:token=>encrypt("#{email}--#{time}"),:expires_at=>time)
+  end
+
+  protected
+    # before filter
+    def encrypt_password
+      return if password.blank?
+      self.salt = Digest::SHA1.hexdigest("--#{Time.now.to_s}--#{email}--") if new_record?
+      self.encrypted_password = encrypt(password)
+    end
+
+    def default_name
+      return if email.blank?
+      self.name = email[0,email.index('@')] if self.name.blank? && email.index('@')
+    end
+end
+
+u =  Account.new(:email=>'aaron@nonobo.com',:password=>'111111',:password_confirmation=>'111111')
+u.save
+
+p Account.find('aaron@nonobo.com')

data/init.rb

@@ -0,0 +1,4 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'ant'

data/lib/ant.rb

@@ -0,0 +1,7 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'rubygems'
+require 'lightcloud'
+require 'ant_support'
+require 'ant_mapper'

data/lib/ant_mapper.rb

@@ -0,0 +1,10 @@
+require 'ant_mapper/base'
+require 'ant_mapper/validations'
+require 'ant_mapper/callbacks'
+require 'ant_mapper/observer'
+
+AntMapper::Base.class_eval	do
+	include AntMapper::Validations
+	include AntMapper::Callbacks
+	include AntMapper::Observing
+end

data/lib/ant_mapper/adapters/light_cloud.rb

@@ -0,0 +1,59 @@
+# 访问LightCloud的加载模块
+module AntLightCloud
+
+	def self.included(base)
+		require 'lightcloud'
+		base.send "configurations=", YAML.load_file(base.configurations) if base.configurations.is_a?(String)
+		base.configurations.each do |key,value|
+		lookup_nodes, storage_nodes = LightCloud.generate_nodes(value)
+			LightCloud.init(lookup_nodes, storage_nodes,key)
+		end
+
+		base.extend ClassMethods
+		base.send :include, InstanceMethods
+	end
+
+	module ClassMethods
+		def delete(key)
+    	LightCloud.delete(key,self.lightcloud_system)
+    end
+
+		# 指定类名，默认是class定义的名字
+		def class_name=(value)
+			write_inheritable_attribute :class_name,value
+		end
+
+		def class_name
+			read_inheritable_attribute(:class_name) || self.to_s
+		end
+
+		# LightCloud系统名，用于存储时指定LightCloud系统
+		def lightcloud_system
+			class_name.downcase
+		end
+
+		private
+      def load(key)
+				raw_record = LightCloud.get(key,self.lightcloud_system)
+				raise AntMapper::ObjectNotFound unless raw_record
+				Marshal.load(raw_record)
+      end
+	end
+
+	module InstanceMethods
+		private
+			def set
+				record = {}
+				self.class.attributes.each do |attribute|
+				  record.merge!({attribute=>(self.send attribute)})
+				end
+				begin
+				 	LightCloud.set(@object_key,Marshal.dump(record),self.class.lightcloud_system)
+					true
+				rescue
+					false
+				end
+			end
+	end
+
+end

data/lib/ant_mapper/adapters/tokyo_cabinet.rb

@@ -0,0 +1,42 @@
+
+# 访问TokyoCabinet的加载模块
+module AntTokyoCabinet
+	def self.included(base)
+		require 'rufus/tokyo'
+
+		base.extend ClassMethods
+		base.send :include, InstanceMethods
+
+		base.send :adb=, Rufus::Tokyo::Cabinet.new(base.configurations)
+	end
+
+	module ClassMethods
+		mattr_accessor :adb
+		def delete(key)
+    	adb.delete(key)
+    end
+
+		private
+      def load(key)
+				raw_record = adb[key]
+				raise AntMapper::ObjectNotFound unless raw_record
+				Marshal.load(raw_record)
+      end
+	end
+
+	module InstanceMethods
+		private
+			def set
+				record = {}
+				self.class.attributes.each do |attribute|
+				  record.merge!({attribute=>(self.send attribute)})
+				end
+				begin
+				 	self.class.adb[@object_key]=Marshal.dump(record)
+					true
+				rescue
+					false
+				end
+			end
+	end
+end

data/lib/ant_mapper/adapters/tokyo_tyrant.rb

@@ -0,0 +1,14 @@
+# 访问TokyoTyrant的加载模块
+module AntTokyoTyrant
+
+	def self.included(base)
+		require 'uri'
+		require 'rufus/tokyo'
+		uri  = URI.parse(base.configurations)
+
+		base.extend AntTokyoCabinet::ClassMethods
+		base.send :include, AntTokyoCabinet::InstanceMethods
+
+		base.send :adb=, Rufus::Tokyo::Tyrant.new(uri.host,uri.port)
+	end
+end

data/lib/ant_mapper/base.rb

@@ -0,0 +1,367 @@
+require 'yaml'
+require 'ant_mapper/adapters/light_cloud'
+require 'ant_mapper/adapters/tokyo_cabinet'
+require 'ant_mapper/adapters/tokyo_tyrant'
+
+
+# 实现访问LightCloud的通用方法
+module AntMapper
+	class AntMapperError < StandardError;end
+
+	class ObjectNotFound < AntMapperError;end
+
+	class ObjectNotSaved < AntMapperError;end
+
+	class ConfigError < AntMapperError;end
+
+  #  AntMapper通过set_attributes指定需要持久化的属性，通过set_primary_key指定存取的主键
+  #
+  #  == 描述类
+  #  AntMapper所有类都是从Base类派生的，在派生新类时需要指定用于存取对象的主关键字和持久化存储的属性.就像下面一样:
+  #
+  #    class User < AntMapper::Base
+  #      set_primary_key :email
+  #      set_attributes :name,:email,:encrypt_password
+  #    end
+  #  主关键字可以是由一个属性，也可以是多个属性组成。
+  #
+  #  如果类名与LightCloud配置文件(RAILS_ROOT/config/light_cloud.yml)中配置的类名不一致时，可以通过class_name属性指定存储的类，例如:
+  #    class Account < User
+  #      self.class_name = 'User'
+  #    end
+  #
+  #  == 新建
+  # 可以通过hash参数新建对象,例如：
+  #   user = User.new(:name => "David", :occupation => "Code Artist")
+  #   user.name # => "David"
+  #
+  # 也可以使用块初始化对象:
+  #
+  #   user = User.new do |u|
+  #     u.name = "David"
+  #     u.occupation = "Code Artist"
+  #   end
+  #
+  # 当然，也可以在新建后对特定的属性赋值：
+  #
+  #   user = User.new
+  #   user.name = "David"
+  #   user.occupation = "Code Artist"
+  #
+  # == 删除
+  # 删除主关键字与参数 +key+ 匹配的对象。
+  #
+  # ==== 参数
+  #
+  # * +key+ - 对象的主关键字.
+  #
+  # ==== 例子
+  #
+  #   User.delete('aaron@nonobo.com')
+
+
+	class Base
+		write_inheritable_attribute :primary_key,nil
+		write_inheritable_attribute :attributes,[]
+		write_inheritable_attribute :class_name,nil
+
+		@@configurations = nil
+		@@database_model = nil
+
+		@@connection = nil
+
+		class << self
+
+			# 设置类的主关键字
+			# 对象根据设置的主关键字进行持久化存储
+			# 示例：
+			#    class User < AntMapper::Base
+			#      set_primary_key :email           # 表示User对象以email作为主关键字
+			#    end
+			def set_primary_key(*options)
+			  write_inheritable_attribute :primary_key,options
+			end
+
+			# 定义需要持久化的属性
+			#  示例:
+			#    class User < AntMapper::Base
+			#      set_attributes :email,:name,:password  # 表示email,name,password需要持久化存储
+			#    end
+			def set_attributes(*options)
+				options.each do |attribute|
+				  attr_accessor attribute
+				end
+				write_inheritable_attribute :attributes,options
+			end
+
+
+			def primary_key
+				read_inheritable_attribute(:primary_key)
+			end
+
+			def attributes
+				read_inheritable_attribute(:attributes)
+			end
+
+			# 配置Ant访问的后台数据库支撑，目前支持LightCloud/TokyoTyrant/TokyoCabinet。
+			#  参数 +model+ 用于描述后台数据库的类型。
+			#     :TC => 表示TokyoCabinet
+			#     :TT => 表示TokyoTyrant
+			#     :LC => 表示LightCloud
+			#
+			#  参数 +config+ 用于接收后台数据库的配置信息。
+			#
+			#  	  当model指定为TokyoCabinet数据库时，config为指定的文件名，例如：
+			#        AntMapper::Base.configure :TC, File.join(File.dirname(__FILE__),'act.tch')
+			#     这里需要注意的是指定的文件名后缀符合TokyoCabinet的约定规则。更多信息请参看:http://tokyocabinet.sourceforge.net/spex-en.html#tcadbapi
+			#
+			#
+			#
+			#     当model指定为TokyoTyrant数据库时， config为指定的远程服务器地址，例如:
+			#        AntMapper::Base.configure :TT, '127.0.0.1:54321'
+			#
+			#     当model指定为LightCloud数据库时， config可以接收符合配置规则的hash:
+			#        AntMapper::Base.configure :LC, {'user'=>{'lookup_one'=>['127.0.0.1:30001','127.0.0.1:33001'],'storage_one'=>['127.0.0.1:20001','127.0.0.1:24001']}}
+			#     也可以是配置文件的文件名。
+			#        AntMapper::Base.configure :LC, File.join(File.dirname(__FILE__),'config.yml')
+			#
+			def configure(model,config)
+				@@configurations = config
+				@@database_model = model
+				case @@database_model
+					when :TC
+						AntMapper::Base.send :include,AntTokyoCabinet
+					when :TT
+						AntMapper::Base.send :include,AntTokyoTyrant
+					when :LC
+						AntMapper::Base.send :include,AntLightCloud
+					else
+						raise ConfigError,'没有指定数据库类型！'
+				end
+			end
+
+			def configurations
+				@@configurations
+			end
+
+			def database_model
+				@@database_model
+			end
+
+			# 通过主关键字查找对象
+			#
+			#   +key+ 参数表示需要找回的主关键字.
+			#
+			# ==== Example
+			#   User.find('aaron@nonobo.com')
+			#
+			def find(key)
+				return nil if key.blank?
+				record = load(key)
+				record ? instance(key,record) : nil
+			end
+
+      # 新建对象（或多个对象）并保存到数据库(假设都通过验证)
+      # 不管是否保存到数据库，都将返回对象.
+      #
+      # 参数 +attributes+ 可以是Hash或Hash数组.
+      #
+      # ==== 示例
+      #   # 创建单个新对象
+      #   User.create(:first_name => 'Jamie')
+      #
+      #   # 创建多个对象
+      #   User.create([{ :first_name => 'Jamie' }, { :first_name => 'Jeremy' }])
+      #
+      #   # 创建对象，并通过块进行其它属性的赋值.
+      #   User.create(:first_name => 'Jamie') do |u|
+      #     u.is_admin = false
+      #   end
+      #
+      #   # 创建多个对象，并通过块进行其它属性的赋值，每个对象都会执行块：
+      #   User.create([{ :first_name => 'Jamie' }, { :first_name => 'Jeremy' }]) do |u|
+      #     u.is_admin = false
+      #   end
+      def create(attributes = nil, &block)
+        if attributes.is_a?(Array)
+          attributes.collect { |attr| create(attr, &block) }
+        else
+          object = new(attributes)
+          yield(object) if block_given?
+          object.save
+          object
+        end
+      end
+
+
+      # 删除主关键字与参数 +key+ 匹配的对象，并且在删除之前执行所有的回调和过滤。
+      #
+      # ==== 参数
+      #
+      # * +key+ - 对象的主关键字.
+      #
+      # ==== 示例
+      #   User.destroy('aaron@nonobo.com')
+      def destroy(key)
+      	find(key).destroy
+      end
+
+      def base_class
+        class_of_ant_mapper_descendant(self)
+      end
+
+      def self_and_descendents_from_ant_mapper#nodoc:
+        klass = self
+        classes = [klass]
+        while klass != klass.base_class
+          classes << klass = klass.superclass
+        end
+        classes
+      rescue
+        [self]
+      end
+
+			protected
+
+
+        def class_of_ant_mapper_descendant(klass)
+          if klass.superclass == Base
+            klass
+          elsif klass.superclass.nil?
+            raise AntMapperError, "#{name} doesn't belong in a hierarchy descending from AntMapper"
+          else
+            class_of_ant_mapper_descendant(klass.superclass)
+          end
+        end
+
+				def configurations=(value)
+					@@configurations= value
+				end
+
+				def database_model=(value)
+					@@database_model = value
+				end
+
+      private
+      	# 构建一个对象实例
+        def instance(object_key,record)
+       	  result = new(record)
+					result.send "object_key=",object_key
+					result
+       	end
+
+		end
+
+		def initialize(attributes = nil)
+			assign_attributes(attributes)
+      result = yield self if block_given?
+      result
+		end
+
+    # 如果对象没有被存储，表明对象还是新记录，返回true，否则返回false.
+    def new_record?
+      @object_key ? false : true
+    end
+
+    # 如果对象已经被删除，返回true，否则返回false。
+    def destroyed?
+      @destroyed || false
+    end
+
+    def object_key
+    	@object_key
+    end
+
+    # 从数据库中删除对象
+    # 不像 #destroy, 这个方法不运行 +before_delete+ 和 +after_delete+ 回调.
+    def delete
+      self.class.delete(object_key) unless new_record?
+      @destroyed = true
+    end
+
+    def destroy
+    	delete
+    end
+
+    # 从数据库中重新加载对象的属性
+    def reload
+			#raise "Object is deleted" if destroyed?
+			unless new_record?
+				begin
+					attributes = self.class.send :load, self.object_key
+					assign_attributes(attributes)
+					true
+				rescue
+					false
+				end
+			end
+    end
+
+    # :call-seq:
+    #   save(perform_validation = true)
+    #
+    # 保存对象.
+    #
+    # 如果对象是新对象，那么在数据库中创建。否则，如果对象是数据库中已经存在的对象，那么更新数据库
+    #
+    # 如果 +perform_validation+ 是true，将执行验证。如果验证失败，那么动作被取消，并且返回false。
+    #
+    # +save+ 相关联的一系列回调. 如果任何一个<tt>before_*</tt>回调返回 +false+，那么+save+动作被取消并返回 +false+.
+		def save
+			create_or_update
+		end
+
+    # 保存对象.
+    #
+		# 如果对象是新对象，那么在数据库中创建。否则，如果对象是数据库中已经存在的对象，那么更新数据库
+    #
+    # 执行<tt>save!</tt>时，验证总是被运行。只要有任意一个执行失败都将抛出 ActiveObject::ObjectInvalid异常。
+    #
+    # +save+ 相关联的一系列回调. 如果任何一个<tt>before_*</tt>回调返回 +false+，那么+save+动作被取消并返回 +false+，并且抛出ActiveObject::RecordNotSaved.
+    def save!
+      create_or_update || raise(ObjectNotSaved)
+    end
+
+
+		private
+			def primary_key_to_s
+				keys = self.class.primary_key.is_a?(Array) ? self.class.primary_key : [self.class.primary_key]
+				key_string = ""
+				keys.each do |key|
+					key_string << self.send(key).to_s
+				end
+				key_string
+			end
+
+      def attribute_present?(attribute)
+        value = read_attribute(attribute)
+        !value.blank?
+      end
+
+			def object_key=(value)
+				@object_key = value
+			end
+
+			def assign_attributes(attributes=nil)
+				attributes.each do |key,value|
+					self.send "#{key}=",value
+				end unless attributes.nil?
+			end
+
+			def create_or_update
+        result = new_record? ? create : update
+        @destroyed = false
+        result != false
+			end
+
+			def create
+				@object_key = primary_key_to_s
+				set
+			end
+
+			def update
+				set
+			end
+	end
+
+end