ObjectModel 0.3.0

data/lib/ObjectModel/Types/NumberType.rb

@@ -0,0 +1,62 @@
+class NumberType
+	class << self
+		def initial_value m, e
+			0
+#			e.instance_variable_set m.ivname, 0
+		end
+		
+		def initialize_copy m, e, c
+			value_copy = e.instance_variable_get(m.ivname)
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m				
+			value = c[m.ivname]
+			value.should! :be_a, Numeric
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def persist c, entity_id, m, storage					
+			value, klass = dump_number c[m.ivname]
+			storage[:entities_content].insert(
+																				:entity_id => entity_id, 
+																				:name => m.name.to_s,
+																				:value =>value,
+																				:class => klass
+			)			
+		end
+		
+		def load m, e, storage	
+			row = storage[:entities_content][:entity_id => e.entity_id, :name => m.name.to_s]		
+			raise LoadError unless row
+			value = load_number row[:value], row[:class]
+			
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def validate_type value
+			value.is_a? Numeric
+		end
+		
+		protected
+		def dump_number number
+			case number
+				when Fixnum then [number.to_s, "NUMBER_F"]
+				when Bignum then [number.to_s, "NUMBER_B"]
+				when Float then [number.to_s, "NUMBER_FL"]
+			else
+				should! :be_never_called
+			end
+		end
+		
+		def load_number value, klass
+			case klass
+				when "NUMBER_F" then value.to_i
+				when "NUMBER_B" then value.to_i
+				when "NUMBER_FL" then value.to_f
+			else
+				raise LoadError
+			end
+		end
+	end
+end

data/lib/ObjectModel/Types/ObjectType.rb

@@ -0,0 +1,164 @@
+class ObjectType
+	
+	class << self
+		def initial_value m, e
+			nil
+			#			e.instance_variable_set m.ivname, nil
+		end
+		
+		def initialize_storage db			
+			db.create_table :value_objects do
+				column :entity_id, :text
+				column :name, :text 
+				column :yaml, :text				
+				column :class, :text
+				#				index :entity_id
+			end
+		end
+		
+		def initialize_copy m, e, c			
+			value = e.instance_variable_get(m.ivname)
+			value_copy = if value == nil
+				nil
+			elsif value.respond_to? :copy
+				value.copy
+			else
+				copy_object value
+			end
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m				
+			value = c[m.ivname]
+			freeze_all_tree value
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def persist c, entity_id, m, storage			
+			storage[:value_objects].filter(:entity_id => entity_id, :name => m.name.to_s).delete
+			value, klass = dump_object c[m.ivname]			
+			storage[:value_objects].insert(
+																		:entity_id => entity_id, 
+																		:name => m.name.to_s,
+																		:yaml => value,
+																		:class => klass
+			)			
+		end
+		
+		def delete e, m, storage					
+			storage[:value_objects].filter(:entity_id => e.entity_id, :name => m.name.to_s).delete
+		end
+		
+		def load m, e, storage	
+			row = storage[:value_objects][:entity_id => e.entity_id, :name => m.name.to_s]
+			raise LoadError unless row
+			
+			value = load_object row[:yaml], row[:class] #YAML.load row[:yaml] # YAML doesn't raise ConstMissing, so we can't just load.
+			
+			freeze_all_tree value
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def print_storage db, name
+			return unless name == nil or name == :value_objects
+			puts "\nValueObjects: size = #{db[:value_objects].size}"
+			#			db[:value_objects].print
+		end
+		
+		def validate_type value
+			!(value.is_a?(Entity) or value.is_a?(Proc))
+		end
+		
+		# Becouse YAML don't raise ConstMissing error we need to preload all Classes from YAML data.
+		def yaml_load data
+			begin
+				doc = YAML.parse data
+				load_classes_for doc
+				o = doc.transform
+				
+				return o
+			rescue Exception => e
+				warn e
+				raise e
+			end
+		end
+		
+		protected				
+		def freeze_all_tree value, processed = Set.new
+			value.should_not! :be_a, Entity
+			return if value.class == Module or value.class == Class
+			
+			case value
+				when String then
+				value.freeze
+				return
+			else
+				return if processed.include? value.object_id
+				processed << value.object_id
+				
+				value.freeze
+				value.instance_variables.each do |ivname|
+					iv = value.instance_variable_get ivname
+					ObjectType.freeze_all_tree iv, processed
+				end
+				
+				if value.respond_to? :each
+					value.each do |o|
+						ObjectType.freeze_all_tree o, processed
+					end
+				end
+			end						
+		end
+		
+		def dump_object object
+			if object.class == Module or object.class == Class
+				return object.name, "CLASS"
+			elsif object.is_a? Proc
+				return object.to_ruby, "PROC"
+			else
+				return YAML.dump(object), "YAML"
+			end			
+		end
+		
+		def load_object data, klass
+			if klass == "CLASS" or klass == "PROC"
+				eval data, TOPLEVEL_BINDING, __FILE__, __LINE__
+			elsif klass == "YAML"
+				yaml_load data
+			else
+				should! :never_be_called
+			end						
+		end
+		
+		def copy_object object
+			Marshal.load(Marshal.dump(object))
+		end				
+		
+		PRELOADED_TYPES = %w{hash map array seq}
+		def load_classes_for doc, processed = []
+			return if !doc or processed.include?(doc)
+			processed << doc
+			
+			return unless doc.type_id
+			
+			info = doc.type_id.split(':', 4) 
+			type, klass = info[2], info[3]
+			
+			if klass and !PRELOADED_TYPES.include?(type)
+				eval(klass, TOPLEVEL_BINDING, __FILE__, __LINE__) 	
+			end
+			
+			if doc.value.is_a? Hash			
+				doc.value.each { |k,v|
+					load_classes_for v, processed
+				}
+			elsif doc.value.is_a? Array
+				doc.value.each { |v|
+					load_classes_for v, processed
+				}		
+			else	
+				#			raise
+			end		
+		end
+	end			
+end

data/lib/ObjectModel/Types/ProcType.rb

@@ -0,0 +1,43 @@
+class ProcType
+	class << self
+		def initial_value m, e
+			nil
+#			e.instance_variable_set m.ivname, nil
+		end			
+		
+		def initialize_copy m, e, c
+			value_copy = e.instance_variable_get(m.ivname)
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m
+			value = c[m.ivname]
+			value.should! :be_a, [NilClass, Proc]
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def load m, e, storage	
+			row = storage[:entities_content][:entity_id => e.entity_id, :name => m.name.to_s]
+			
+			raise LoadError unless row and row[:class] == "PROC"			
+			value = row[:value]
+			value = eval(value, TOPLEVEL_BINDING, __FILE__, __LINE__) if value
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def persist c, entity_id, m, storage				
+			value = c[m.ivname]
+			value = value.to_ruby if value
+			storage[:entities_content].insert(
+														:entity_id => entity_id, 
+														:name => m.name.to_s,
+														:value => value,
+														:class => "PROC"
+			)			
+		end
+		
+		def validate_type value
+			value == nil or value.is_a?(Proc)
+		end
+	end
+end

data/lib/ObjectModel/Types/SingleType.rb

@@ -0,0 +1,59 @@
+class SingleType
+	class << self
+		inherit Log
+		
+		def initial_value m, e
+			nil
+#			e.instance_variable_set m.ivname, nil
+		end				
+		
+		def initialize_copy m, e, c
+			c[m.ivname] = e.instance_variable_get(m.ivname)
+		end
+		
+		def write_back c, e, m										
+			value = c[m.ivname]
+			value.should! :be_a, [NilClass, String]
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def load m, e, storage					
+			row = storage[:entities_content][:entity_id => e.entity_id, :name => m.name.to_s]
+			raise LoadError unless row
+			
+			value = AnEntity::EntityType.load_id! row[:value], row[:class]
+			e.instance_variable_set m.ivname, value				
+		end 			
+		
+		def persist c, entity_id, m, storage								
+			value, klass = AnEntity::EntityType.dump_id! c[m.ivname]
+			storage[:entities_content].insert(
+																				:entity_id => entity_id, 
+																				:name => m.name.to_s,
+																				:value => value,
+																				:class => klass
+			)
+		end
+		
+		def delete_all_children e, m						
+			child = e.send m.name
+			#			p [e.name, m.name, child]
+			child.delete if child != nil
+		end
+		
+		def delete_all_references_to referrer, e, m			
+			referrer.send m.name.to_writer, nil if referrer.send(m.name) == e
+		end
+		
+		def delete_from_parent e, parent, m
+			if parent.send(m.name.to_reader) == e
+				parent.send m.name.to_writer, nil
+			end
+		end
+		
+		def each e, m, &b
+			v = e.send m.name
+			b.call v if v != nil
+		end
+	end
+end

data/lib/ObjectModel/Types/StringType.rb

@@ -0,0 +1,39 @@
+class StringType
+	class << self
+		def initial_value m, e
+			""
+#			e.instance_variable_set m.ivname, ""
+		end			
+		
+		def initialize_copy m, e, c
+			value_copy = e.instance_variable_get(m.ivname).dup
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m
+			value = c[m.ivname]
+			value.should! :be_a, String
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def load m, e, storage	
+			row = storage[:entities_content][:entity_id => e.entity_id, :name => m.name.to_s]
+			
+			raise LoadError unless row and row[:class] == "STRING"			
+			e.instance_variable_set m.ivname, row[:value]
+		end
+		
+		def persist c, entity_id, m, storage					
+			storage[:entities_content].insert(
+														:entity_id => entity_id, 
+														:name => m.name.to_s,
+														:value => c[m.ivname],
+														:class => "STRING"
+			)			
+		end
+		
+		def validate_type value
+			value.is_a? String
+		end
+	end
+end

data/lib/ObjectModel/_require.rb

@@ -0,0 +1,43 @@
+require 'RubyExt/require'
+
+require 'sequel'
+
+require 'sync'
+
+require 'ruby2ruby'
+require 'parse_tree'
+require 'parse_tree_extensions'
+
+require 'facets/lrucache'
+
+module ObjectModel
+	# Config	
+	user_conf = if File.exist?("config/object_model.yaml") 
+		YAML.load(File.read("config/object_model.yaml"))
+	else
+		{}
+	end
+	CONFIG = RubyExt::Config.new({}, user_conf, ObjectModel["config.yaml"])
+	
+	# Metadata
+	require "#{File.dirname(__FILE__)}/Metadata/require"
+	
+	# ObjectStorage Initialization
+	[
+	AnEntity::BackReferences,
+	AnEntity::EntityType,
+	Types::BagType,
+	Types::ObjectType,
+	].each{|type| Repository::ObjectStorage::TYPES_TO_INITIALIZE << type}
+	
+	# Handy Scope  
+	NotFoundError = Errors::NotFoundError
+	OutdatedError = Errors::OutdatedError
+	NoTransactionError = Errors::NoTransactionError
+	LoadError = Errors::LoadError
+	ValidationError = Errors::ValidationError
+	StreamID = Repository::StreamID
+	Transaction = Repository::Transaction
+	HashIndex = Indexes::HashIndex
+end
+

data/lib/ObjectModel/require.rb

@@ -0,0 +1 @@
+require "ObjectModel/_require"

data/rakefile

@@ -0,0 +1,62 @@
+require 'rake'
+require 'spec/rake/spectask'
+
+Dir.chdir File.dirname(__FILE__)	
+
+# Specs
+task :default => :spec
+task :spec => [:spec_no_cache, :spec_in_memory]
+
+Spec::Rake::SpecTask.new('spec_no_cache') do |t|
+	dir = File.dirname __FILE__
+	t.spec_files = ["spec/set_no_cache.rb"] + FileList["spec/**/*_spec.rb"]
+	t.libs = ["lib", "spec", "#{File.expand_path "./.."}"]
+end
+
+Spec::Rake::SpecTask.new('spec_in_memory') do |t|
+	dir = File.dirname __FILE__
+	t.spec_files = ["spec/set_in_memory.rb"] + FileList["spec/**/*_spec.rb"]
+	t.libs = ["lib", "spec", "#{File.expand_path "./.."}"]
+end
+
+# Gem
+require 'rake/clean'
+require 'rake/gempackagetask'
+require 'fileutils'
+
+spec = Gem::Specification.new do |s|
+	s.name = "ObjectModel"
+	s.version = "0.3.0"
+	s.summary = "ObjectModel is an Object Oriented Database inspired by MDD approach, db4o and ZODB."
+	s.description = "ObjectModel is an Object Oriented Database inspired by MDD approach, db4o and ZODB."
+	s.author = "Alexey Petrushin"
+	#	s.email = ""
+	s.homepage = "http://www.bos-tec.com"
+	s.rubyforge_project = "ObjectModel"
+	
+	s.platform = Gem::Platform::RUBY
+	s.has_rdoc = true
+	s.extra_rdoc_files = ["README"]
+	
+	s.files = (%w{rakefile README} + Dir.glob("{lib,spec}/**/*"))\
+	.select{|f| f !~ /^\./}
+	#	s.executables = ['restclient']
+	
+	s.add_dependency "RubyExt"
+	s.add_dependency "sequel"
+	s.add_dependency "ruby2ruby"
+	
+	s.require_path = "lib"
+end
+
+Rake::GemPackageTask.new(spec) do |p|
+	package_dir = "#{File.expand_path File.dirname(__FILE__)}/../build"
+	#	FileUtils.mkdir package_dir unless File.exist? package_dir	
+	p.need_tar = true if RUBY_PLATFORM !~ /mswin/
+	p.need_zip = true
+	p.package_dir = package_dir
+end
+
+CLEAN.include [ 'pkg', '*.gem']
+
+task :release => [:gem, :clean]