ObjectModel 0.3.0

data/lib/ObjectModel/Repository/Transaction.rb

@@ -0,0 +1,63 @@
+class Transaction
+	attr_reader :copies, :name, :new_entities, :event_processor, :repository, :system_listener, :deleted_entities	
+	attr_writer :repository, :name
+	attr_accessor :managed
+	
+	def initialize
+		@name = "default"
+		@copies = Hash.new{|hash, key| raise "Can't find Copy for '#{key}'entity_id!"}
+		@new_entities = Hash.new{|hash, key| raise "Can't find New Entity for '#{key}' entity_id!"}
+		@deleted_entities = Hash.new{|hash, key| raise "Can't find Deleted Entity for '#{key}' entity_id!"}
+		@event_processor = EventProcessor.new(self)
+		@system_listener = SystemListener.new(self)
+		@commited = false
+		@managed = false
+	end
+	
+	def copy_get! entity			
+		unless @copies.include? entity.entity_id
+			copy = AnEntity::EntityType.create_copy entity
+			@copies[entity.entity_id] = copy
+		end
+		@copies[entity.entity_id]
+	end	
+	
+	def resolve entity_id
+		if @new_entities.include? entity_id
+			@new_entities[entity_id]		
+		elsif @deleted_entities.include? entity_id
+			@deleted_entities[entity_id]
+		else
+			@repository.by_id(entity_id)
+		end
+	end
+	
+	def commited!
+		@commited = true
+	end
+	
+	def commited?
+		@commited
+	end
+	
+	def commit
+		@repository.commit self
+	end
+	
+	def changed? entity_id
+		entity_id.should! :be_a, String
+		@copies.include?(entity_id) || @new_entities.include?(entity_id)
+	end		
+	
+	def to_s
+		types = {:new => 0, :deleted => 0, :updated => 0, :moved => 0}		
+		methods = types.keys
+		@copies.values.each do |c|
+			methods.each do |m| 
+				types[m] += 1 if c.send :"#{m}?"
+			end		
+		end		
+		return "#<Transaction: #{@name}#{commited? ? ", commited" : ""}, #{types.inspect}>"
+	end
+	alias_method :inspect, :to_s	
+end

data/lib/ObjectModel/Repository/TransactionProcessor.rb

@@ -0,0 +1,36 @@
+class TransactionProcessor
+	inherit Log
+	
+	def initialize repository, transaction
+		@repository, @transaction = repository, transaction
+	end		
+	
+	def check_outdated
+		outdated = []
+		@transaction.copies.each do |entity_id, c| 
+			next if c.new?
+			e = @repository.by_id(entity_id)
+			outdated << entity_id if c.om_version != e.om_version				
+		end
+		raise_without_self OutdatedError.new(outdated), "Outdated Entities: ['#{outdated.join('\', \'')}']", ObjectModel unless outdated.empty?
+	end
+	
+	def write_back
+		@transaction.copies.each do |entity_id, copy| 
+			next if copy.deleted?
+			entity = @transaction.resolve entity_id
+			AnEntity::EntityType.write_back copy, entity
+		end
+	end
+	
+	def persist		
+		@transaction.copies.each do |entity_id, copy| 
+			entity = @transaction.resolve entity_id
+			if copy.deleted?
+				AnEntity::EntityType.delete entity, @repository.storage					
+			else
+				AnEntity::EntityType.persist copy, entity, @repository.storage
+			end
+		end					
+	end
+end

data/lib/ObjectModel/Tools/DefaultTransactionStrategy.rb

@@ -0,0 +1,9 @@
+class DefaultTransactionStrategy
+	def initialize repository; end
+	
+	def create_new
+			Repository::Transaction.new
+	end
+	
+	def after_commit transaction; end
+end

data/lib/ObjectModel/Tools/InMemoryCache.rb

@@ -0,0 +1,9 @@
+class InMemoryCache < Hash
+	def initialize repository, *parameters
+		super()
+	end
+		
+	def update transaction
+		transaction.copies.each{|entity_id, c| delete entity_id if c.deleted?}
+	end
+end

data/lib/ObjectModel/Tools/NoCache.rb

@@ -0,0 +1,18 @@
+class NoCache
+	def initialize repository, *parameters
+	end
+	
+	def [] key
+		nil
+	end
+	
+	def []= key, item		
+	end
+	
+	def update transaction
+	end
+	
+	def delete key
+		
+	end
+end

data/lib/ObjectModel/Tools/OGLRUCache.rb

@@ -0,0 +1,37 @@
+# It should have max_items at least equal to 1!
+class OGLRUCache < LRUCache
+	class EntityContainer
+		include LRUCache::Item
+		
+		attr_reader :entity
+		def initialize entity
+			@entity = entity
+		end
+	end
+	
+	def initialize repository, percentage
+		@repository, @percentage = repository, percentage
+		super(1)
+		update_size
+	end
+	
+	def [](key)
+		container = super(key)
+		nil == container ? nil : container.entity
+	end
+	
+	def []=(key, item)
+		container = EntityContainer.new item
+		super(key, container)
+	end
+	
+	def update transaction
+		transaction.copies.each{|entity_id, c| delete entity_id if c.deleted?}		
+		update_size
+	end
+	
+	protected
+	def update_size
+		self.max_items = (@repository.size * @percentage).floor + 1
+	end
+end

data/lib/ObjectModel/Types/BagType.rb

@@ -0,0 +1,94 @@
+class BagType
+	class << self
+		def initial_value m, e
+			calculate_class(m).new e, m.name, e.om_repository
+#			e.instance_variable_set m.ivname, bag
+		end
+		
+		def initialize_copy m, e, c
+			bag = e.instance_variable_get m.ivname
+			bag_copy = AnEntity::BagCopy.new bag._array
+			c[m.ivname] = bag_copy
+		end
+		
+		def initialize_storage db			
+			db.create_table :bags do
+				column :entity_id, :text
+				column :name, :text 
+				column :reference_id, :text	
+#				index :entity_id
+			end
+		end
+		
+		def print_storage db, name
+			return unless name == nil or name == :bags
+			puts "\nBags:"
+			db[:bags].print
+		end
+		
+		def load m, e, storage		
+			rows = storage[:bags].filter :entity_id => e.entity_id, :name => m.name.to_s
+			bag = calculate_class(m).new e, m.name, e.om_repository
+			rows.each do |row|
+				value = AnEntity::EntityType.load_id row[:reference_id]				
+				bag._array << value
+			end
+			e.instance_variable_set m.ivname, bag
+		end 
+		
+		def write_back c, e, m				
+			bag_copy = c[m.ivname]
+			bag = e.instance_variable_get m.ivname
+			bag._array.replace bag_copy._array # TODO reimplement more efficiently
+		end
+		
+		def persist c, entity_id, m, storage		
+			# TODO reimplement more efficiently
+			sname = m.name.to_s
+			storage[:bags].filter(:entity_id => entity_id, :name => sname).delete
+			c[m.ivname]._array.each do |ref_id|		
+				ref_id.should_not! :be_nil
+				storage[:bags].insert(
+															:entity_id => entity_id, 
+															:name => sname,
+															:reference_id => AnEntity::EntityType.dump_id(ref_id)
+				)
+			end								
+		end
+		
+		def delete e, m, storage		
+			storage[:bags].filter(:entity_id => e.entity_id).delete
+		end
+		
+		def delete_all_children e, m
+			bag = e.send m.name			
+			bag.every.delete
+		end
+		
+		def delete_all_references_to referrer, e, m			
+			bag = referrer.send m.name
+			bag.delete e
+		end
+		
+		def delete_from_parent e, parent, m
+			bag = parent.send m.name
+			bag.delete e
+		end
+		
+		def each e, m, &b
+			bag = e.send m.name
+			bag.each &b
+		end
+		
+		protected
+		def calculate_class m
+			if m.is_a? Metadata::Child
+				AnEntity::ChildrenBag
+			elsif m.is_a? Metadata::Reference
+				AnEntity::ReferencesBag
+			else
+				should! :be_never_called
+			end
+		end
+	end
+end

data/lib/ObjectModel/Types/BooleanType.rb

@@ -0,0 +1,42 @@
+class BooleanType
+	class << self
+		inherit Log
+		
+		def initial_value m, e
+			false
+#			e.instance_variable_set m.ivname, false
+		end		
+		
+		def initialize_copy m, e, c
+			value_copy = e.instance_variable_get(m.ivname).copy
+			c[m.ivname] = value_copy
+		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] == "BOOLEAN"			
+			
+			e.instance_variable_set m.ivname, (row[:value] == "false" ? false : true)
+		end
+		
+		def persist c, entity_id, m, storage					
+			value = c[m.ivname] ? "true" : "false"
+			storage[:entities_content].insert(
+														:entity_id => entity_id, 
+														:name => m.name.to_s,
+														:value => value,
+														:class => "BOOLEAN"
+			)			
+		end
+		
+		def write_back c, e, m
+			value = c[m.ivname]
+			value.should! :be_a, [TrueClass, FalseClass]
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def validate_type value
+			value == true or value == false
+		end
+	end
+end

data/lib/ObjectModel/Types/ClassType.rb

@@ -0,0 +1,43 @@
+class ClassType
+	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, Module, Class]
+			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] == "CLASS"			
+			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.name if value
+			storage[:entities_content].insert(
+														:entity_id => entity_id, 
+														:name => m.name.to_s,
+														:value => value,
+														:class => "CLASS"
+			)			
+		end
+		
+		def validate_type value
+			value == nil or value.is_a?(Module) or value.is_a?(Class)
+		end
+	end
+end

data/lib/ObjectModel/Types/DataType.rb

@@ -0,0 +1,44 @@
+class DataType
+	class << self
+		def initial_value m, e
+			nil
+#			e.instance_variable_set m.ivname, nil
+		end
+		
+		def initialize_copy m, e, c			
+			value = e.instance_variable_get(m.ivname)
+			value_copy = value != nil ? Repository::StreamID.new(value.sid) : nil
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m				
+			value = c[m.ivname]
+			value.should! :be_a, [NilClass, Repository::StreamID]
+			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] == "STREAM_ID"			
+			
+			stream_id = row[:value]
+			value = stream_id == "nil" ? nil : Repository::StreamID.new(stream_id)
+			e.instance_variable_set m.ivname, value
+		end
+		
+		def persist c, entity_id, m, storage					
+			value = c[m.ivname]
+			stream_id = value == nil ? "nil" : value.sid
+			storage[:entities_content].insert(
+														:entity_id => entity_id, 
+														:name => m.name.to_s,
+														:value => stream_id,
+														:class => "STREAM_ID"
+			)			
+		end
+		
+		def validate_type value
+			value == nil or value.is_a? StreamID
+		end
+	end
+end

data/lib/ObjectModel/Types/DateType.rb

@@ -0,0 +1,43 @@
+class DateType
+	class << self
+		def initial_value m, e
+			nil
+#			e.instance_variable_set m.ivname, nil
+		end
+		
+		def initialize_copy m, e, c
+			value = e.instance_variable_get(m.ivname)
+			value_copy = value != nil ? value.clone : nil
+			c[m.ivname] = value_copy
+		end
+		
+		def write_back c, e, m				
+			value = c[m.ivname]
+			value.should! :be_a, [NilClass, DateTime]
+			e.instance_variable_set m.ivname, value
+		end				
+		
+		def persist c, entity_id, m, storage					
+			value = c[m.ivname]			
+			str_value = value == nil ? "nil" : value.to_s
+			storage[:entities_content].insert(
+																				:entity_id => entity_id, 
+																				:name => m.name.to_s,
+																				:value => str_value,
+																				:class => "DATE"
+			)			
+		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] == "DATE"			
+			
+			value = row[:value]
+			e.instance_variable_set m.ivname, (value == "nil" ? nil : DateTime.parse(value))
+		end
+		
+		def validate_type value
+			value == nil or value.is_a? DateTime
+		end
+	end
+end