og 0.5.0

data/lib/og/meta.rb

@@ -0,0 +1,139 @@
+# code: 
+# * George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: meta.rb 159 2004-11-18 10:18:30Z gmosx $
+
+require 'og/backend'
+
+module Og
+
+# = MetaUtils
+#
+# Some useful meta-language utilities.
+#
+module MetaUtils # :nodoc: all
+
+	# Conver the klass to a string representation
+	# The leading module if available is removed.
+	#
+	def self.expand(klass)
+		return klass.name.gsub(/^.*::/, '').gsub(/::/, '_').downcase
+	end
+
+end
+
+# = MetaLanguage
+#
+# Implements a meta-language for manipulating og-managed objects
+# and defining their relationships. The original idea comes
+# from the excellent ActiveRecord library.
+#
+# Many more useful relations will be available soon.
+#
+module MetaLanguage
+
+	# Defines an SQL index.
+	#
+	def sql_index(index, options = {})
+		meta :sql_index, [index, options]
+	end
+
+	# Implements a 'belongs_to' relation.
+	# Automatically enchants the calling class with helper methods.
+	# 
+	# Example:
+	#
+	# class MyObject
+	#		belongs_to AnotherObject, :parent
+	# end
+	#
+	# creates the code:
+	#
+	# prop_accessor Fixnum, :parent_oid
+	# def parent; ... end
+	# def parent=(obj_or_oid); ... end
+	#
+	def belongs_to(name, klass, options = {})
+		module_eval %{
+			prop_accessor Fixnum, :#{name}_oid 
+			
+			def #{name}
+				$og.load_by_oid(@#{name}_oid, #{klass})
+			end
+			
+			def #{name}=(obj_or_oid)
+				@#{name}_oid = obj_or_oid.to_i
+			end
+		}
+	end
+
+	# Implements a 'has_many' relation.
+	# Automatically enchants the calling class with helper methods.
+	#
+	# NOT IMPLEMENTED.
+	# 
+	# Example:
+	#
+	# class MyObject
+	#		has_many AnotherObject, :children
+	# end
+	#
+	# creates the code:
+	#
+	# def children; ... end
+	#
+	def has_one(klass, name, options = {})
+		module_eval %{
+			def #{name}(extrasql = nil)
+				$og.select_one("article_oid=\#\@oid \#\{extrasql\}", #{klass})
+			end			
+		}
+	end	
+	
+	# Implements a 'has_many' relation.
+	# Automatically enchants the calling class with helper methods.
+	# 
+	# Example:
+	#
+	# class MyObject
+	#		has_many AnotherObject, :children
+	# end
+	#
+	# creates the code:
+	#
+	# def children; ... end
+	#
+	def has_many(name, klass, options = {})
+		# linkback is the property of the child object that 'links back' 
+		# to this object. 
+		linkback = options[:linkback] || "#{MetaUtils.expand(self)}_oid"
+		
+		module_eval %{
+			@@og_descendants ||= {}
+			@@og_descendants[#{klass}] = :#{linkback} 
+	
+			unless defined?(og_descendants)
+				def self.og_descendants
+					@@og_descendants
+				end
+			end
+			
+			def #{name}(extrasql = nil)
+				$og.select("SELECT * FROM #{Utils.table(klass)} WHERE #{linkback}=\#\@oid \#\{extrasql\}", #{klass})
+			end
+
+			def #{name}_count(extrasql = nil)
+				$og.count("SELECT COUNT(*) FROM #{Utils.table(klass)} WHERE #{linkback}=\#\@oid \#\{extrasql\}")
+			end			
+		}
+	end
+	
+end
+
+end # module
+
+class Module # :nodoc: all
+	include Og::MetaLanguage
+end
+

data/lib/og/version.rb

@@ -0,0 +1,8 @@
+# code: 
+# * George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id$
+
+# The version of Og.
+$og_version = '0.5.0'

data/test/tc_og.rb

@@ -0,0 +1,179 @@
+require "test/unit"
+
+require "glue/logger"; $log = Logger.new(STDERR) unless $log
+require "og"
+
+module Test # :nodoc: all
+
+# bug: creates a table that fucks-up postgres if not
+# correctly escaped.
+class User
+	prop_accessor :name, String
+	
+	def initialize(name = nil)
+		@name = name
+	end
+end
+
+class Comment; end
+
+class Article
+	prop_accessor :title, String
+	prop_accessor :body, String
+	prop_accessor :owner_oid, Fixnum, :sql_index => true
+	prop_accessor :another_oid, Fixnum
+	sql_index 'owner_oid, another_oid'
+	prop_accessor :options, Hash
+	has_many :comments, Test::Comment
+	
+	def initialize(title = nil, body = nil)
+		@title = title
+		@body = body
+		@options = {"hello" => "world"}
+	end
+	
+	def og_pre_insert(conn)
+		puts "-- PRE INSERT CALLED FOR ARTICLE"
+	end
+	
+	def og_post_insert_update(conn)
+		puts "-- POST INSERT UPDATE CALLED FOR ARTICLE"
+	end
+
+	def og_post_update(conn)
+		puts "-- POST UPDATE CALLED FOR ARTICLE"
+	end
+end
+
+class Comment
+	belongs_to :article, Test::Article 
+	belongs_to :author, Test::User
+	prop_accessor :body, String
+	prop_accessor :create_time, Time
+	
+	def initialize(body = nil)
+		@create_time = Time.now
+		@body = body
+	end
+	
+	def og_pre_insert(conn)
+		puts "-- PRE INSERT CALLED FOR COMMENT"
+	end
+
+	def og_post_insert(conn)
+		puts "-- POST INSERT CALLED FOR COMMENT"
+	end	
+end
+
+class TC_N_OG < Test::Unit::TestCase
+
+	def setup
+		psql = true
+
+		if psql
+			config = {
+				:backend => "psql",
+				:address => "localhost",
+				:database => "test",
+				:user => "postgres",
+				:password => "navelrulez",
+				:connection_count => 1
+			}
+		else
+			config = {
+				:backend => "mysql",
+				:address => "localhost",
+				:database => "test",
+				:user => "root",
+				:password => "navelrulez",
+				:connection_count => 1
+			}
+		end
+		
+		Og::Database.drop_db!(config)
+		$og = Og::Database.new(config)
+	end
+
+	def teardown
+		$og.shutdown()
+	end
+
+	# gmosx: hmm, implemented in one method to enforce order.
+	#	
+	def test_all
+		$DBG = true
+
+		$og.get_connection()
+		
+		article = Article.new("Title", "Here comes the body")
+		$og << article
+		
+		article.title = "Changed"
+		article.save!
+		
+		$og.pupdate("body='Hello'", article)
+
+		article.update_properties "body='Hello'"
+		
+		another = Article[1]
+		assert_equal(1, another.oid)
+		# bug: yaml load problem.
+		assert_equal("world", another.options["hello"])
+		
+		# bug: YAMLing nil property
+		another.options = nil
+		another.save!
+		
+		assert_equal(nil, $og.load(30000, Article))
+		
+		articles = $og.load_all(Article)
+
+#		p articles
+#		p Article[23]
+		
+		user = User.new("gmosx")
+		user.save!
+		
+		user = User["gmosx"]
+		
+		assert_equal("gmosx", user.name)
+		
+		users1 = $og.select("name='gmosx' ORDER BY oid", User)
+		
+		users = $og.select("SELECT * FROM #{User::DBTABLE} WHERE name='gmosx' ORDER BY oid", User)
+		
+		users2 = User.select "name='gmosx' ORDER BY oid"
+		
+		assert_equal(users1.size, users2.size)
+		
+		article = Article.new("Title", "Body")
+		article.save!
+		
+		comment = Comment.new("This is a comment")
+		comment.article = article
+		comment.author = User["gmosx"]
+		comment.save!
+
+		comment = Comment.new("This is another comment")
+		comment.article = article.oid
+		comment.author = User["gmosx"]
+		comment.save!
+
+		assert_equal(article.oid, comment.article_oid)
+		
+		comments = article.comments
+		
+		assert_equal(2, comments.size)		
+
+		assert_equal("gmosx", comments[0].author.name)
+
+		Article.delete(article)
+		
+		assert_equal(nil, Comment.all)
+
+		comment.delete!		
+	end
+
+end
+
+end

metadata

@@ -0,0 +1,71 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.1
+specification_version: 1
+name: og
+version: !ruby/object:Gem::Version 
+  version: 0.5.0
+date: 2004-11-23
+summary: Og (ObjectGraph)
+require_paths: 
+  - lib
+author: George Moschovitis
+email: gm@navel.gr
+homepage: http://www.navel.gr/og
+rubyforge_project: og-rml
+description: An efficient and transparent Object-Relational mapping library
+autorequire: og
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.8.1
+  version: 
+platform: ruby
+files: 
+  - README.og
+  - RELEASES.og
+  - LICENSE
+  - AUTHORS
+  - examples/og/run.rb
+  - examples/og/README
+  - lib/glue.rb
+  - lib/glue/pool.rb
+  - lib/glue/time.rb
+  - lib/glue/macro.rb
+  - lib/glue/inflector.rb
+  - lib/glue/array.rb
+  - lib/glue/number.rb
+  - lib/glue/cache.rb
+  - lib/glue/mixins.rb
+  - lib/glue/property.rb
+  - lib/glue/string.rb
+  - lib/glue/hash.rb
+  - lib/glue/logger.rb
+  - lib/og/backends
+  - lib/og/connection.rb
+  - lib/og/backend.rb
+  - lib/og/meta.rb
+  - lib/og/version.rb
+  - lib/og/backends/psql.rb
+  - lib/og/backends/mysql.rb
+  - lib/og.rb
+  - test/tc_og.rb
+test_files: []
+rdoc_options: 
+  - "--main"
+  - README.og
+  - "--title"
+  - Og Documentation
+extra_rdoc_files: 
+  - README.og
+  - RELEASES.og
+  - LICENSE
+  - AUTHORS
+executables: []
+extensions: []
+requirements: []
+dependencies: []