nitro 0.2.0 → 0.3.0

data/lib/n/og/meta.rb

@@ -0,0 +1,127 @@
+# code: 
+# * George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: meta.rb 124 2004-11-01 12:34:17Z gmosx $
+
+module N
+
+# = OgMetaUtils
+#
+# Some useful meta-language utilities.
+#
+module OgMetaUtils # :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
+
+# = OgMetaLanguage
+#
+# 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 OgMetaLanguage
+
+	# 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(klass, name, 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(klass, name, options = {})
+		# linkback is the property of the child object that 'links back' 
+		# to this object. 
+		linkback = options[:linkback] || "#{N::OgMetaUtils.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("#{linkback}=\#\@oid \#\{extrasql\}", #{klass})
+			end			
+		}
+	end
+	
+end
+
+end # module
+
+class Module # :nodoc: all
+	include N::OgMetaLanguage
+end
+

data/lib/n/properties.rb

@@ -1,13 +1,13 @@
 # = Properties support
 #
 # code:
-# George Moschovitis  <gm@navel.gr>
+# * George Moschovitis  <gm@navel.gr>
 # design:
-# Anastastios Koutoumanos  <ak@navel.gr>
-# Elias Karakoulakis  <ekarak@ktismata.com>
+# * Anastastios Koutoumanos  <ak@navel.gr>
+# * Elias Karakoulakis  <ekarak@ktismata.com>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: properties.rb 98 2004-10-22 07:36:20Z gmosx $
+# $Id: properties.rb 116 2004-10-29 16:26:32Z gmosx $
 
 require "n/utils/array"
 require "n/utils/hash"
@@ -89,9 +89,9 @@ class Module
 
 		@__props = N::SafeArray.new() unless @__props
 		
-		params.each { |s|
+		params.each do |s|
 			add_prop(N::Property.new(s, klass, sql))			
-		}
+		end
 	end
 	# to be compatible with ruby parlance
 	alias_method :prop, :prop_accessor

data/lib/n/server.rb

@@ -1,12 +1,8 @@
-# = Server
-#
-# Generic server infrastructure
-#
 # code:
-# George Moschovitis  <gm@navel.gr>
+# * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: server.rb 98 2004-10-22 07:36:20Z gmosx $
+# $Id: server.rb 109 2004-10-27 09:12:45Z gmosx $
 
 require "n/application"
 
@@ -14,7 +10,8 @@ module N
 
 # = Server
 #
-# Base server class
+# Base server class, provides generic server 
+# infrastructure.
 #
 class Server < N::Application
 	# the listening address/port for this server.

data/lib/n/server/appserver.rb

@@ -0,0 +1,58 @@
+# code:
+# * George Moschovitis  <gm@navel.gr>
+#
+# (c) 2004 Navel, all rights reserved.
+# $Id: appserver.rb 117 2004-10-29 16:27:22Z gmosx $
+
+require "drb"
+
+require "n/application"
+require "n/server"
+require "n/server/session"
+
+module N
+
+# = ServerMixin
+#
+# Usefull application server related methods.
+#
+module AppServerMixin
+
+	def initialize_app
+		if $drb_state
+			# Cluster mode: use distributed Ruby objects.
+			$lm = N::Cluster::Slm.new($drb_lm_server, "druby://:8000")
+			$sessions = DRbObject.new(nil, $drb_sessions_cluster)
+		else
+			# NoCluster mode: use standard Ruby onjects.
+			$lm = N::SafeHash.new
+			$sessions = N::SessionManager.new
+		end
+
+		# initialize app
+		initialize_sitemap()
+		initialize_shaders()
+		initialize_events()		
+	end
+	
+end
+
+# = AppServer
+#
+# The Application Server. Handles dynamic requests in a web application.
+# Dont keepalive (or use a VERY SMALL keepalive). Typically this server
+# is used along with a standars http server that handles other resources.
+#
+class AppServer < N::Server
+	include N::AppServerMixin
+	
+	def initialize(name = "AppServer")
+		super
+		initialize_app()
+		
+		$log.info "Web Server listening at #$srv_url"
+		$log.info "App Server listening at http://#$appsrv_address:#$appsrv_port"
+	end
+end
+
+end # module

data/lib/n/{app → server}/cluster.rb

@@ -2,7 +2,7 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: cluster.rb 104 2004-10-22 13:35:03Z gmosx $
+# $Id: cluster.rb 112 2004-10-27 10:59:55Z gmosx $
 
 $:.unshift "lib"
 
@@ -12,7 +12,7 @@ require "monitor"
 require "n/application"
 require "n/server"
 require "n/utils/cache"
-require "n/app/session"
+require "n/server/session"
 
 module N
 
@@ -202,7 +202,7 @@ class Cluster < N::Application
 	
 	def run
 		N::Cluster::Clm.new
-		DRb.start_service("druby://:8001", N::App::SessionManager.new)
+		DRb.start_service("druby://:8001", N::SessionManager.new)
 	
 		while true
 			sleep(5000)

data/lib/n/{app → server}/cookie.rb

@@ -2,7 +2,7 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: cookie.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: cookie.rb 112 2004-10-27 10:59:55Z gmosx $
 
 require "cgi"
 
@@ -31,7 +31,7 @@ end
 
 end # class CGI
 
-module N; module App
+module N
 
 # = Cookie
 #
@@ -84,4 +84,4 @@ class Cookie < CGI::Cookie
 
 end
 
-end; end # module
+end # module

data/lib/n/server/dispatcher.rb

@@ -0,0 +1,55 @@
+module N
+
+#
+#
+class Dispatcher 
+
+	def process(request)
+		service = ...
+		method = ...
+		query_string = ...
+	end
+
+end
+
+end # module
+
+__END__
+
+/login
+/logout
+
+/service/method?params
+
+
+/fora/view_forum/1
+
+/fora/view_forum?fid=1
+
+
+/fora/view_forum.sx
+
+if file exists evaluate in the controller a render method.
+
+.xhtml 
+.xinc
+
+class ForaController
+
+	def view_forum
+		@parent = Forum.db_get(request["pid"])
+	end
+
+	def render_view_forum
+	end
+	
+end
+
+<?r for message in @parent.messages ?>
+	<li>#{message.title}</li>
+<?r end ?>
+
+
+one method, different views
+html,
+xml (for rpc)

data/lib/n/server/{filter.rb → filters.rb}

@@ -2,7 +2,7 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 20024 Navel, all rights reserved.
-# $Id: filter.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: filters.rb 111 2004-10-27 09:30:19Z gmosx $
 
 require "socket"
 require "thread"

data/lib/n/{app → server}/filters/autologin.rb

@@ -2,14 +2,14 @@
 # * George Moschovitis
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: autologin.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: autologin.rb 124 2004-11-01 12:34:17Z gmosx $
 
 require "n/utils/string"
-require "n/server/filter"
+require "n/server/filters"
 
 require_part "users"
 
-module N; module App
+module N
 
 # = AutoLoginFilter
 #
@@ -29,7 +29,7 @@ class AutoLoginFilter < N::ServerFilter
 					
 				username, password_crypted = cookie.split(",")
 				
-				if user = $db.get_by_name(username, N::User) and 
+				if user = $og.load_by_name(username, N::User) and 
 						password_crypted == user.password
 					if request.session.login(request, user)
 						# user logged in
@@ -48,4 +48,4 @@ class AutoLoginFilter < N::ServerFilter
 
 end
 
-end; end # module
+end # module

data/lib/n/{app → server}/fragment.rb

@@ -2,12 +2,12 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: fragment.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: fragment.rb 112 2004-10-27 10:59:55Z gmosx $
 
 require "n/utils/cache"
 require "n/mixins"
 
-module N; module App
+module N
 
 # = Fragment
 #
@@ -67,4 +67,4 @@ class Fragment
 	end	
 end
 
-end; end # module
+end # module

data/lib/n/{app → server}/handlers.rb

@@ -2,12 +2,12 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: handlers.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: handlers.rb 112 2004-10-27 10:59:55Z gmosx $
 
 require "n/utils/cache"
-require "n/server/filter"
+require "n/server/filters"
 
-module N; module App
+module N
 
 # = Handler
 # 
@@ -124,4 +124,4 @@ class ScriptHandlerError < HandlerError
 	
 end
 
-end; end # module
+end # module

data/lib/n/{app → server}/handlers/code-handler.rb

@@ -2,7 +2,7 @@
 # * George Moschovitis  <gm@navel.gr>
 #
 # (c) 2004 Navel, all rights reserved.
-# $Id: code-handler.rb 99 2004-10-22 09:50:28Z gmosx $
+# $Id: code-handler.rb 112 2004-10-27 10:59:55Z gmosx $
 
 require "cgi"
 require "singleton"
@@ -10,11 +10,11 @@ require "sync"
 
 require "n/utils/cache"
 require "n/utils/uri"
-require "n/app/script"
-require "n/app/fragment"
-require "n/app/handlers"
+require "n/server/script"
+require "n/server/fragment"
+require "n/server/handlers"
 
-module N; module App
+module N
 
 # = CodeHandler
 #
@@ -179,4 +179,4 @@ class CodeScript < Script
 		
 end # CodeScript
 
-end; end # module
+end # module