lore 0.4.8 → 0.9.2

data/lib/lore/behaviours/movable.rb

@@ -1,72 +0,0 @@
-
-module Lore
-module Behaviours
-
-  # Move an entity within a given criteria range, 
-  # e.g. within nodes of a tree. 
-  #
-  # Usage: 
-  #  
-  #   class My_Model < Lore::Model
-  #   extend Lore::Behaviours::Movable
-  #   include Lore::Behaviours::Movable_Entity
-  #    # ...
-  #    ordered_by(:position)
-  #   end
-  #
-  #   # Will move entity to position 12 within child entries
-  #   # of node with id 2: 
-  #   my_model_entity.move_to(12, (My_Model.parent_id == 2))
-  #   # Same as
-  #   My_Model.move(my_model_entity, 12, (My_Model.parent_id == 2))
-  #
-  module Movable
-
-    def ordered_by(attrib)
-      @order_attr = attrib
-      @order_attr_name = attrib.to_s.split('.')[-1].intern
-    end
-    
-    def move(inst, sortpos, criteria)
-      sortpos = sortpos.to_i
-      return if sortpos < 1
-
-      criteria ||= Lore::Clause.new()
-      sortpos_old = inst.attr[@order_attr_name].to_i
-
-      # move down: 
-      if sortpos.to_i > sortpos_old then
-        self.update { |na|
-          na.set({@order_attr_name => @order_attr-1}).where(
-            (criteria) &
-            (@order_attr <= sortpos) &
-            (@order_attr > sortpos_old)
-          )
-        }
-      # move up: 
-      elsif sortpos.to_i < sortpos_old then
-        self.update { |na|
-          na.set({@order_attr_name => @order_attr+1}).where(
-            (criteria) &
-            (@order_attr >= sortpos) &
-            (@order_attr < sortpos_old)
-          )
-        }
-      end
-      # In case we actually had to move the entity: 
-      if sortpos != sortpos_old then
-        inst.set_attribute_value(@order_attr_name, sortpos)
-        inst.commit()
-      end
-    end # def
-    
-  end # module
-
-  module Movable_Entity
-    def move_to(position, criteria=nil)
-      self.class.move(self, position, criteria)
-    end
-  end
-
-end # module
-end # module

data/lib/lore/behaviours/paginated.rb

@@ -1,31 +0,0 @@
-
-module Lore
-module Behaviours
-
-
-  # Usage: 
-  #
-  #   class My_Model < Lore::Model
-  #   extend Lore::Behaviours::Paginated
-  #   
-  #     def self.search(search, page)
-  #       paginate(:per_page => 10, 
-  #                :page => page, 
-  #                :filter => all_with(search).order_by(:name, :desc))
-  #     end
-  #
-  #   end
-  #
-  #   first_page_entities => My_Model.search((My_Model.attribute == 'foo'), 1)
-  #
-  module Paginated
-  
-    def paginate(params)
-      entities = params[:filter].limit(params[:per_page], params[:page]).entities
-    end
-  
-  end
-
-end
-end
-

data/lib/lore/behaviours/versioned.rb

@@ -1,36 +0,0 @@
-
-module Lore
-module Behaviours
-
-  # Usage: 
-  #
-  #   class My_Model < Lore::Model
-  #   extend Lore::Behaviours::Versioned
-  #     # ...
-  #     version_by :version_number
-  #   end
-  #
-  #   my_model_entity.foo = 'bar'
-  #   my_model_entity.commit  # Will create a new version
-  #
-  module Versioned
-  
-    # Defines attribute the version number is stored in. 
-    # Default is 'version'. 
-    def version_by(attrib=:version)
-      @version_attr = attrib
-      @version_attr_name = attrib.to_s.split('.')[-1].intern
-    end
-    
-    # Overloads commit so it increments the version attribute 
-    # before saving instance to database and creates a new 
-    # entity with incremented version instead. 
-    def commit()
-      set_attribute_value(@version_attr, self.attr[@version_attr].to_i + 1)
-      create(self.attr)
-    end
-
-  end # module
-
-end # module
-end # module

data/lib/lore/connection.rb

@@ -1,152 +0,0 @@
-
-$:.push('/opt/local/lib/ruby/1.8/postgres')
-
-require('postgres')
-require('logger')
-require('lore')
-require('lore/result')
-
-module Lore
-
-class Connection_Error < ::Exception
-
-end
-
-class Context 
-  
-  @@logger = Lore.logger
-  @@context_stack = Array.new
-  
-  def self.get_connection()
-    if @@context_stack.empty? then
-      raise ::Exception.new('No context given. ')
-    end
-    return Connection_Pool.get_connection(@@context_stack.last)
-  end
-
-  def self.inspect
-    @@context_stack.inspect
-  end
-  
-  def self.enter(context_name)
-    Lore.log { 'Entering context ' + context_name.to_s }
-    @@context_stack.push(context_name)
-  end
-  
-  def self.leave()
-    context_name = @@context_stack.pop
-    @@logger.debug('Leaving context ' << context_name.to_s)
-  end
-  
-  def self.clear()
-    @@context_stack = Array.new
-    $cb__project = nil
-  end
-    
-  def self.switch_to(project)
-    clear()
-    enter(project.context)
-    $cb__project = project
-  end
-  
-end
-  
-class Connection_Pool 
-
-  @@pool = Hash.new
-
-  def self.get_connection(db_name)
-    
-    db_name = db_name.intern unless db_name.instance_of? Symbol
-    
-    # If requested connection is not in pool yet: 
-    if !@@pool.has_key? db_name then
-      # Try to establish connection
-      begin
-        connection = PGconn.connect(Lore.pg_server, Lore.pg_port, '', '', db_name.to_s, Lore.user_for(db_name), Lore.pass_for(db_name.to_s))
-        connection.exec(Lore.on_connect_commands)
-        @@pool[db_name] = connection
-      # Handle errors
-      rescue PGError => pge
-        raise Lore::Connection_Error.new("Could not establish connection to database '#{db_name.to_s}': " << pge.message)
-      rescue ::Exception => excep
-        raise Lore::Connection_Error.new("Could not establish connection to database '#{db_name.to_s}': " << excep.message)
-      end
-    end
-
-    # Return requested connection
-    return @@pool[db_name]
-
-  end
-
-end
-
-class Connection # :nodoc
-  #include Singleton
-
-  @@logger = Lore.logger
-  @@query_count = 0
-  @@result_row_count = 0
-  
-  def initialize
-  end
-  
-  def self.reset_query_count
-    @@query_count = 0
-  end
-  def self.reset_result_row_count
-    @@result_row_count = 0
-  end
-  def self.query_count
-    @@query_count
-  end
-  def self.result_row_count
-    @@result_row_count
-  end
-  
-  def self.perform_cacheable(query)
-    
-    if Lore::Cache::Cached_Entities.include?(query) then
-        result = Lore::Cache::Cached_Entities[query]
-    else
-      result = perform(query)
-      Lore::Cache::Cached_Entities[query] = result
-    end
-    return result
-  end
-  
-  def self.perform(query)
-    
-    begin
-      
-      connection = Context.get_connection
-      
-      @@query_count += 1
-      result = connection.exec(query)
-      @@result_row_count += result.num_tuples
-      
-      # Log database query on low level: 
-      
-      if Lore.log_queries? then
-        query.split("\n").each { |line|
-          @@logger.debug { line }
-        }
-      end
-      
-    rescue ::Exception => pge
-      
-      pge.message << "\n" << query
-      @@logger.error { pge.message }
-      @@logger.error { 'Context: ' << Context.inspect }
-      @@logger.error { 'Query: ' << "\n" << query }
-      raise pge
-      
-    end
-    
-    return Result.new(query, result)
-    
-  end
-  
-end # class Connection
-
-end # module Lore

data/lib/lore/exception/invalid_klass_parameters.rb

@@ -1,63 +0,0 @@
-
-module Lore
-module Exception
-
-  # Usage: 
-  #
-  #   raise Lore::Exception::Invalid_Klass_Parameters.new(The_Model, { 
-  #       # Generic error. Example:  :user_id => Lore.integer
-  #           :table_foo  => Invalid_Parameters.new( :the_attribute => :error_type ) 
-  #       # Constraint error. Example:  :email => :format 
-  #           :table bar  => Unmet_Constraints.new( :the_attribute => :error_type )  
-  #       # Type error. Example:  :user_id => Lore.integer or :user_id => :missing
-  #           :table_batz => Invalid_Types.new( :the_attribute => :error_type ) 
-  #   })
-  #  
-	class Invalid_Klass_Parameters < ::Exception
-		
-		attr_reader :invalid_parameters
-		attr_reader :invalid_klass
-		
-		def initialize(klass, invalid_params_hash)
-
-			@logger             = Lore.logger
-      # Instances of Exception::Invalid_Parameters
-			@invalid_parameters = invalid_params_hash 
-			@invalid_klass 		  = klass
-			
-		end
-
-		def log()
-
-			@logger.error('Invalid parameters for klass '+@invalid_klass.to_s+': ')
-			@logger.error('Invalid parameters: ')
-			@logger.error(@invalid_parameters.inspect)
-			@logger.error('Explicit attributes: ')
-			@logger.error(@invalid_klass.get_explicit_attributes.inspect)
-			
-		end
-
-		def serialize() # {{{
-
-			serials = {}
-			@invalid_parameters.each_pair { |table, invalid_param|
-				serials[table] = invalid_param.serialize
-			}
-			return serials
-			
-		end # def }}}
-		
-		def inspect()
-			'Model('+@invalid_klass.to_s+') => '+
-			@invalid_parameters.serialize + 
-			' Explicit: '+ 
-			@invalid_klass.get_explicit_attributes.inspect
-		end
-    alias explain serialize
-		
-	end
-
-
-end # module
-end # module
-

data/lib/lore/exception/unknown_typecode.rb

@@ -1,19 +0,0 @@
-
-module Lore
-module Exception
-  
-  class Unknown_Typecode < ::Exception
-    
-    attr_reader :code
-    
-    def initialize(_code)
-      
-      @code = _code
-      @message = 'Unknown PGSQL type: ' + _code.to_s
-      
-    end
-		
-  end
-
-end # module
-end # module

data/lib/lore/result.rb

@@ -1,119 +0,0 @@
-
-require('postgres')
-require('digest/md5')
-
-module Lore
-  
-  # :nodoc
-class Result
-
-  attr_reader :query_hashval
-
-  def initialize(query, result) # expects PGresult
-    
-    @result = result
-    @field_types      = nil
-    @result_rows      = Array.new
-  # @query_hashval    = Digest::MD5.hexdigest(query)
-    @num_fields       = @result.num_fields
-    @field_counter    = 0
-    
-  end # def initialize
-  
-  def get_field_value(row_index, field_name)
-    
-    field_index = @result.fieldnum(field_name)
-    return @result.getvalue(row_index, field_index)
-    
-  end # def get_field_value
-  
-  def get_field_names()
-    return @result.fields
-  end
-  
-  def get_field_types()
-    
-    return @field_types unless @field_types.nil?
-    
-    @field_types = Hash.new
-    for field_index in 0...get_field_num()
-      @field_types[@result.fields[field_index]] = @result.type(field_index)
-    end
-    
-    return @field_types
-  end
-  
-  def get_field_num()
-    return @result.num_fields
-  end
-  
-  def get_tuple_num()
-    return @result.num_tuples
-  end
-  
-  def get_row(row_num=0)
-
-    return @result_rows.at(row_num) if @result_rows.at(row_num)   
-    return if @result.num_tuples == 0
-
-    # We cannot use a hash here, as there might be 
-    # duplicate attribute names due to joins: 
-    #
-    # { 
-    #   :fields => [ 'id', 'foo', 'foreign_id, 'id', 'bar' ]
-    #   :values => [ '1', 'wombat', '5', '5', 'cthulluh' ]
-    # }
-    row_result        = Array.new
-    
-    @field_counter = 0
-    for @field_counter in 0...@num_fields do
-      row_result << @result.getvalue(row_num, @field_counter)
-    end
-    @result_rows[row_num] = row_result
-    return row_result
-    
-  end
-  def get_row_with_field_names(row_num=0)
-
-    return @result_rows.at(row_num) if @result_rows.at(row_num)   
-    return if @result.num_tuples == 0
-
-    row_result        = Array.new
-    
-    @field_counter = 0
-    for @field_counter in 0...@num_fields do
-      row_result << @result.getvalue(row_num, @field_counter)
-    end
-    @result_rows[row_num] = row_result
-    @fieldnames = []
-    for @field_counter in 0...@num_fields do
-      @fieldnames << @result.fieldname(@field_counter)
-    end
-    return { :values => row_result, :fields => @fieldnames }
-    
-  end
-  
-  def get_rows()
-    if !@result_rows.first then
-      for tuple_counter in 0...@result.num_tuples do
-        get_row(tuple_counter)
-      end
-      @fieldnames = []
-      for @field_counter in 0...@num_fields do
-        @fieldnames << @result.fieldname(@field_counter)
-      end
-    end
-
-    result = { :values => @result_rows, :fields => @fieldnames }
-    return result
-  end
-  
-  def fieldname(index)
-    
-    return @result.fieldname(index)
-    
-  end
-  
-end # class Result
-
-end # module Lore