IOWA 1.0.0

data/microprojects/LinkedList/external/test_support.rb

@@ -0,0 +1,8 @@
+module IWATestSupport
+
+	def self.cd_to_test_dir(dir)
+		Dir.chdir(File.dirname(File.expand_path(dir)))
+	end
+
+end
+

data/microprojects/LinkedList/setup.rb

@@ -0,0 +1,22 @@
+#!ruby
+
+basedir = File.dirname(__FILE__)
+$:.push(basedir)
+
+require 'external/package'
+require 'rbconfig'
+begin
+	require 'rubygems'
+rescue LoadError
+end
+
+Dir.chdir(basedir)
+Package.setup("1.0") {
+	name "Iowa::LinkedList"
+
+	translate(:lib, 'src/' => '')
+	lib *Dir["src/iowa/**/*.rb"]
+	ri "src/iowa/LinkedList.rb"
+
+	unit_test ["test/TC_LinkedList.rb"]
+}

data/microprojects/LinkedList/src/iowa/LinkedList.rb

@@ -0,0 +1,165 @@
+require 'enumerator'
+
+# This is a simple linked list implementation with efficient random
+# access of data elements.  It was inspired by George Moscovitis'
+# LRUCache implementation found in Facets 1.7.30, but unlike the
+# linked list in that cache, this one does not require the use of a
+# mixin on any class to be stored.  The linked list provides the
+# push, pop, shift, unshift, first, last, delete and length methods
+# which work just like their namesakes in the Array class, but it
+# also supports setting and retrieving values by key, just like a
+# hash.
+
+module Iowa
+	class LinkedList
+		include Enumerable
+
+		# Represents a single node of the linked list.
+		
+		class Node
+			attr_accessor :key, :value, :prev_node, :next_node
+
+			def initialize(key=nil,value=nil,prev_node=nil,next_node=nil)
+				@key = key
+				@value = value
+				@prev_node = prev_node
+				@next_node = next_node
+			end
+		end
+
+		def initialize
+			@head = Node.new
+			@tail = Node.new
+			@lookup = Hash.new
+			node_join(@head,@tail)
+		end
+
+		def [](v)
+			@lookup[v].value
+		end
+
+		def []=(k,v)
+			if @lookup.has_key?(k)
+				@lookup[k].value = v
+			else
+				n = Node.new(k,v,@head,@head.next_node)
+				node_join(n,@head.next_node)
+				node_join(@head,n)
+				@lookup[k] = n
+			end
+			v
+		end
+
+		def empty?
+			@lookup.empty?
+		end
+
+		def delete(k)
+			n = @lookup.delete(k)
+			v = n ? node_purge(n) : nil
+			v
+		end
+
+		def first
+			@head.next_node.value
+		end
+
+		def last
+			@tail.prev_node.value
+		end
+
+		def shift
+			k = @head.next_node.key
+			n = @lookup.delete(k)
+			node_delete(n) if n
+		end
+
+		def unshift(v)
+			if @lookup.has_key?(v)
+				n = @lookup[v]
+				node_delete(n)
+				node_join(n,@head.next_node)
+				node_join(@head,n)
+			else
+				n = Node.new(v,v,@head,@head.next_node)
+				node_join(n,@head.next_node)
+				node_join(@head,n)
+				@lookup[v] = n
+			end
+			v
+		end
+
+		def pop
+			k = @tail.prev_node.key
+			n = @lookup.delete(k)
+			node_delete(n) if n
+		end
+
+		def push(v)
+			if @lookup.has_key?(v)
+				n = @lookup[v]
+				node_delete(n)
+				node_join(@tail.prev_node,n)
+				node_join(n,@tail)
+			else
+				n = Node.new(v,v,@tail.prev_node,@tail)
+				node_join(@tail.prev_node,n)
+				node_join(n,@tail)
+				@lookup[v] = n
+			end
+			v
+		end
+
+		def queue
+			r = []
+			n = @head
+			while (n = n.next_node) and n != @tail
+				r << n.key
+			end
+			r
+		end
+
+		def to_a
+			r = []
+			n = @head
+			while (n = n.next_node) and n != @tail
+				r << n.value
+			end
+			r
+		end
+
+		def length
+			@lookup.length
+		end
+
+		def each
+			n = @head
+			while (n = n.next_node) and n != @tail
+				yield(n.key,n.value)
+			end
+		end
+
+		private
+
+		def node_delete(n)
+			node_join(n.prev_node,n.next_node)
+			v = n.value
+		end
+
+		def node_purge(n)
+			node_join(n.prev_node,n.next_node)
+			v = n.value
+			n.value = nil
+			n.key = nil
+			n.next_node = nil
+			n.prev_node = nil
+			v
+		end
+
+		def node_join(a,b)
+			a.next_node = b
+			b.prev_node = a
+		end
+
+	end
+end

data/microprojects/LinkedList/test/TC_LinkedList.rb

@@ -0,0 +1,42 @@
+require 'external/test_support'
+IWATestSupport.cd_to_test_dir(__FILE__)
+
+require 'test/unit'
+$:.unshift '../src'
+require 'iowa/LinkedList'
+
+
+class TC_LinkedList < Test::Unit::TestCase
+	@cache
+
+	def test_all
+		ll = nil
+		assert_nothing_raised('Failed while creating an Iowa::LinkedList object.') { ll = Iowa::LinkedList.new }
+		assert_kind_of(Iowa::LinkedList,ll,'Strangely, the created object does not appear to be an Iowa::LinkedList.')
+
+		assert_nothing_raised('Failed while pushing a value onto the linked list.') { ll.push 'a' }
+		ll.push 'b'
+		assert_nothing_raised('Failed while assigning a key/value to the linked list.') { ll['c'] = 3 }
+		assert_equal(3,ll.first, 'First element in the linked list appears to be the wrong one.')
+		assert_equal('b',ll.last, 'Last element in the linked list appears to be the wrong one.')
+		assert_nothing_raised('Failed while unshifting a value onto the linked list.') { ll.unshift 'd' }
+		assert_equal('d',ll.first, 'The prior unshift apparently failed.')
+		assert_equal('a',ll['a'], 'Accessing an element by key failed.')
+		assert_equal(4,ll.length, 'The length of the linked list appears to be incorrect.')
+		d = nil
+		assert_nothing_raised('Failed while deleting an element from the middle of the list.') { d = ll.delete('a') }
+		assert_equal('a',d, 'The prior delete returned the wrong value for the deleted object.')
+		assert_equal(3,ll.length, 'The length of the linked list appears to be incorrect following the prior deletion.')
+		assert_nothing_raised('Failed while popping an element from the end of the list.') { d = ll.pop }
+		assert_equal('b',d, 'The prior pop returned the wrong value.')
+		assert_equal(2,ll.length, 'The length of the linked list appears to be incorrect following the prior pop.')
+		assert_equal(['d','c'],ll.queue, 'The queue of keys for the list is incorrect.')
+		assert_equal(['d',3],ll.to_a, 'Converting the list to an array (of values) seems to have failed.')
+		expected = [['c',3],['d','d']]
+		ll.each do |k,v|
+			e = expected.pop
+			assert_equal(e,[k,v], 'While iterates over the list via each(), the value from this iteration is not what was expected.')
+		end
+	end
+
+end

data/microprojects/README

@@ -0,0 +1,8 @@
+These are standalone versions of pieces of IOWA that may be useful on their
+own.  Here is where you will find them.  Each is self contained and does
+not require IOWA to be installed in order to operate.
+
+Each project is still being kept within the Iowa namespace so that the
+potential for a namespace collision is reduced.  I recognize that this
+means a few extra keystrokes are required to use one of these, but I
+feel the protection against namespace trainwrecks is worth it.

data/setup.rb

@@ -0,0 +1,116 @@
+#!ruby
+
+basedir = File.dirname(__FILE__)
+$:.push(basedir)
+
+require 'external/package'
+require 'rbconfig'
+begin
+	require 'rubygems'
+rescue LoadError
+end
+
+Dir.chdir(basedir)
+Package.setup("1.0") {
+	name "IOWA"
+
+	build_ext "http11"
+	translate(:ext, 'ext/http11/' => 'iowa/')
+	ext "ext/http11/http11.so"
+
+	build_ext "Classifier"
+	translate(:ext, 'ext/Classifier/' => 'iowa/')
+	ext "ext/Classifier/classifier.so"
+	
+	translate(:lib, 'src/' => '')
+	lib ["src/iowa.rb","src/iowa_webrick.rb","src/iowa_mongrel.rb","src/iowa_httpmachine.rb","src/iowa_hybrid.rb","src/iowa_hybrid_cluster.rb"]
+	lib(*Dir["src/iowa/**/*.rb"])
+	lib "src/mod_iowa.rb" => "apache/mod_iowa.rb"
+	ri(*Dir["src/iowa/**/*.rb"])
+	ri ["src/iowa.rb","src/iowa_webrick.rb","src/iowa_mongrel.rb","src/iowa_httpmachine.rb","src/iowa_hybrid.rb","src/iowa_hybrid_cluster.rb","src/mod_iowa.rb"]
+
+	begin
+		require 'tmail'
+	rescue LoadError
+		# No tmail; install ours.
+		translate(:lib, 'external/tmail/' => '')
+		lib(*Dir["external/tmail/**/*.rb"])
+		lib 'external/tmail/tmail/parser.y'
+		ri ["external/tmail/tmail.rb","external/tmail/tmail"]
+	end
+
+	begin
+		require 'mime-types'
+	rescue LoadError
+		# No mime-types; install the bundled one.
+		translate(:lib, 'external/mime-types/lib/' => '')
+		lib(*Dir["external/mime-types/lib/**/*"])
+		ri ["external/mime-types/lib"]
+		translate(:doc, 'external/mime-types/doc/' => 'mime-types/')
+		doc(*Dir["external/mime-types/doc/**/*"])
+	end
+
+	if /win/ == RbConfig::CONFIG['host_os']
+		begin
+			require 'windows/process'
+		rescue LoadError
+			# No windows-pr package; install bundled one.
+			translate(:lib, 'external/windows-pr/lib/' => '')
+			lib(*Dir["external/windows-pr/lib/**/*"])
+			ri ["external/windows-pr/lib"]
+			translate(:doc, 'external/windows-pr/doc/' => 'windows-pr/')
+			doc(*Dir["external/windows-pr/doc/**/*"])
+
+			$:.push File.join(basedir,'external/windows-pr/lib')
+			require 'windows/error'
+			require 'windows/process'
+			require 'windows/synchronize'
+			require 'windows/handle'
+			require 'windows/library'
+			require 'windows/console'
+			require 'windows/window'
+
+		end
+		begin
+			require 'win32/process'
+		rescue LoadError
+			# Now win32-process package; install bundled one.
+			translate(:lib, 'external/win32-process/lib/' => '')
+			lib(*Dir["external/win32-process/lib/**/*"])
+			ri ["external/win32-process/lib"]
+
+			$:.push File.join(basedir,'external/win32-process/lib')
+			require 'win32/process'
+		end
+	end
+
+	# Wrong.  Fix this.
+	bin "src/iowa_fcgi_handler.rb"
+
+	unit_test "test/TC_CSS.rb"
+	unit_test "test/TC_AcceptLanguage.rb"
+	unit_test "test/TC_AppConfig.rb"
+	unit_test "test/TC_Association.rb"
+	unit_test "test/TC_BiLevelCache.rb"
+	unit_test "test/TC_CGI_Adaptor.rb"
+	unit_test "test/TC_Classifier.rb"
+	unit_test "test/TC_ClassLimitedCache.rb"
+	unit_test "test/TC_DiskCache.rb"
+	unit_test "test/TC_ImageSize.rb"
+	unit_test "test/TC_ISAAC.rb"
+	unit_test "test/TC_KeyValueCoding.rb"
+	unit_test "test/TC_Lockfile.rb"
+	unit_test "test/TC_LRUCache.rb"
+	unit_test "test/TC_NoSubclass.rb"
+	unit_test "test/TC_Pool.rb"
+#	unit_test "test/TC_SimpleDetached.rb"
+	unit_test "test/TC_StandardDispatcher.rb"
+	unit_test "test/TC_StandardDispatcherWithClassifier.rb"
+	unit_test "test/TC_String.rb"
+	unit_test "test/TC_Tag.rb"
+	unit_test "test/TC_ResourceURL.rb"
+	unit_test "test/TC_Mongrel.rb"
+	unit_test "test/TC_Hybrid.rb"
+	unit_test "test/TC_Webrick.rb"
+	true
+}

data/share/iowa/app_skeleton/Main.html

@@ -0,0 +1,8 @@
+<header oid="header" />
+<div id="maincontent" style="position: absolute; left: 140px; top: 130px">
+	<h1>Resource Not Found</h1>
+	<div>
+		<p>The resource that you requested, <b>@requested_uri</b>, could not be found.</p>
+	</div>
+</div>
+<footer oid="footer" />

data/share/iowa/app_skeleton/Main.iwa

@@ -0,0 +1,15 @@
+import 'Header'
+import 'Footer'
+
+class Main < Iowa::Component
+
+	def setup
+		session.context[:side] = session.context.cookies.has_key?(::Cdirexion_id) ? :priv : :pub
+		session.context.response.status = 404
+	end
+
+	def requested_uri
+		session.context.request.uri
+	end
+end
+

data/share/iowa/app_skeleton/app.cnf

@@ -0,0 +1,48 @@
+socket:
+  hostname: 127.0.0.1
+  port: 3000
+logging:
+  basedir: ../log
+  minlevel: 0
+  maxsize: 10000000
+  maxage: 86400
+application:
+  daemonize: false
+  docroot_caching: false
+  reload_interval: 7
+  sessioncache:
+    class: LRUCache
+    maxsize: 2000
+    ttl: 3600
+  advisorcache:
+    maxsize: 1000
+    ttl:
+  dispatcher:
+    class: DBContentDispatcher
+  policy:
+    class: iowa/Policy
+  public_database:
+    vendor: Mysql
+    host: localhost
+    database: direxion_pub
+    user: direxion
+    password: dir1002ex
+    startsize: 1
+    maxage: 600
+    maxsize: 3
+    monitorinterval: 300
+  private_database:
+    vendor: Mysql
+    host: localhost
+    database: direxion_priv
+    user: direxion
+    password: dir1002ex
+    startsize: 1
+    maxage: 600
+    maxsize: 3
+    monitorinterval: 300
+  model:
+    files:
+      - models/
+    interval: 300
+    variation: 60

data/share/iowa/app_skeleton/app.rb

@@ -0,0 +1,58 @@
+#!/usr/local/ruby184/bin/ruby
+
+require 'iowa'
+require 'kansas'
+
+Cdirexion_id = 'direxion_id'.freeze
+C_index_html = '/index.html'.freeze
+
+module Iowa
+	def self.noztime(t)
+		m = t.month
+		d = t.day
+		y = t.year
+		"#{m}/#{d}/#{y}"
+	end
+
+	class Component
+		def with_db(side)
+			application.dbpool[side].obtain do |db|
+				yield db
+			end
+		end
+	end
+end
+
+class DrxSession < Iowa::Session; end
+
+class DrxApplication < Iowa::Application
+
+	self.Daemonize = true
+
+	attr_accessor :dbpool, :direxion_id_cache, :internal_content
+
+	def initialize(*args)
+		super
+		
+		@internal_content = Hash.new {|h,k| h[k] = {:query => Proc.new {}, :retrieve => Proc.new {}}}
+
+		@dbpool = {}
+		@dbpool[:pub] = ::PubDrxDBPool.new
+		self.class.Dispatcher.dbpool[:pub] = @dbpool[:pub]
+		@dbpool[:priv] = ::PrivDrxDBPool.new
+		self.class.Dispatcher.dbpool[:priv] = @dbpool[:priv]
+		@direxion_id_cache = Iowa::Caches::LRUCache.new(
+			{:maxsize => (Iowa.config[Iowa::Capplication]['advisorcache']['maxsize'] || 200),
+			:ttl => Iowa.config[Iowa::Capplication]['advisorcache']['ttl']})
+		@direxion_id_cache.add_finalizer do |key,obj|
+			Iowa.app.dbpool[:priv].obtain do |ksdbh|
+				auth = ksdbh.select(:Authorization) {|a| a.idx == key}.first
+				auth.delete if auth
+			end
+		end
+		Iowa.config[Iowa::Capplication][Iowa::Croot_url] = 'http://direxion.enigo.com'
+	end
+
+end
+
+Iowa.run