relaxo-query-server 0.1.0

data/README.md

@@ -0,0 +1,133 @@
+Relaxo Query Server
+===================
+
+* Author: Samuel G. D. Williams (<http://www.oriontransfer.co.nz>)
+* Copyright (C) 2012 Samuel G. D. Williams.
+* Released under the MIT license.
+
+The Relaxo Query Server implements the CouchDB Query Server protocol for CouchDB 1.1.0+. It provides a comprehensive Ruby-style view server along with full support for Design Document based processing.
+
+*This software is currently under development and not ready for stable production usage.*
+
+Installation
+------------
+
+Install the ruby gem as follows:
+
+	sudo gem install relaxo-query-server
+
+Edit your etc/couchdb/local.ini and add the following:
+
+	[query_servers]
+	relaxo-ruby = relaxo-query-server
+
+Make sure the `relaxo-query-server` executable is accessible from `$PATH`.
+
+To build and install the gem from source:
+
+	cd build/
+	sudo GEM=gem1.9 rake1.9 install_gem
+
+Usage
+-----
+
+### Mapping Function ###
+
+Select documents of `type == 'user'`:
+
+	lambda do |document|
+		if document['type'] == 'user'
+			emit(document['_id'])
+		end
+	end
+
+### Reduction Function ###
+
+Calculate the sum:
+
+	lambda do |keys,values,rereduce|
+		values.inject &:+
+	end
+
+### Design Document ###
+
+A simple application:
+
+	# design.yaml
+	-   _id: "_design/users"
+	    language: 'relaxo-ruby'
+	    views:
+	        service:
+	            map: |
+	                lambda do |doc|
+	                    emit(doc['_id']) if doc['type'] == 'user'
+	                end
+	    validate_doc_update: |
+	        lambda do |new_document, old_document, user_context|
+	            if !user_context.admin && new_document['admin'] == true
+	                raise ValidationError.new(:forbidden => "Cannot create admin user!")
+	            end
+	        end
+	    updates:
+	        user: |
+	            lambda do |doc, request|
+	                doc['updated_date'] = Date.today.iso8061; [doc, 'OK']
+	            end
+	    lists:
+	        user: |
+	            lambda do |head, request|
+	                send "<ul>"
+	                each do |user|
+	                    send "<li>" + user['name'] + "</li>"
+	                end
+	                send "</ul>"
+	            end
+	    filters:
+	        regular_users: |
+	            lambda do |doc, request|
+	                doc['admin'] == false
+	            end
+	    shows:
+	        user: |
+	            lambda do |doc, request|
+	                {
+	                    :code => 200,
+	                    :headers => {"Content-Type" => "text/html"}},
+	                    :body => "User: #{doc['name']}"
+	                }
+	            end
+
+The previous `design.yaml` document can be loaded using the `relaxo` client command:
+
+	relaxo http://localhost:5984/test design.yaml
+
+To Do
+-----
+
+- Improve documentation, including better sample code.
+- More tests, including performance benchmarks.
+- Explore `parse_function` to improve performance of code execution by caching functions.
+- Helper methods for commonly used mapping functions.
+
+License
+-------
+
+Copyright (c) 2010, 2011 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/bin/relaxo-query-server

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+
+require 'relaxo/query_server'
+require 'optparse'
+
+OPTIONS = {
+	:safe => 4,
+}
+
+ARGV.options do |o|
+	script_name = File.basename($0)
+
+	o.set_summary_indent('  ')
+	o.banner = "Usage: #{script_name} [options] [directory]"
+	o.define_head "This program is designed to be used with CouchDB."
+
+	o.separator ""
+	o.separator "Help and Copyright information"
+
+	o.on("--safe [level]", "Set the ruby $SAFE level to product the execution environment.") do |level|
+		OPTIONS[:safe] = level.to_i
+	end
+
+	o.separator ""
+
+	o.on_tail("--copy", "Display copyright information") do
+		puts "#{script_name}. Copyright (c) 2012 Samuel Williams. Released under the MIT license."
+		puts "See http://www.oriontransfer.co.nz/ for more information."
+
+		exit
+	end
+
+	o.on_tail("-h", "--help", "Show this help message.") do
+		puts o
+		exit
+	end
+end.parse!
+
+Relaxo::QueryServer.run!(OPTIONS)

data/lib/relaxo/query_server.rb

@@ -0,0 +1,40 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'relaxo/query_server/context'
+require 'relaxo/query_server/shell'
+
+# Provide useful standard functionality:
+require 'bigdecimal'
+require 'date'
+
+module Relaxo
+	module QueryServer
+		# Run the query server using `$stdin` and `$stdout` for communication.
+		def self.run!(options = {})
+			shell = Shell.new($stdin, $stdout)
+			context = Context.new(shell, options)
+			
+			shell.run do |command|
+				context.run(command)
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/context.rb

@@ -0,0 +1,101 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'relaxo/query_server/shell'
+require 'relaxo/query_server/mapper'
+require 'relaxo/query_server/reducer'
+require 'relaxo/query_server/designer'
+
+module Relaxo
+	module QueryServer
+		class CompilationError < StandardError
+		end
+		
+		# A query server context includes all state required for implementing the query server protocol.
+		class Context
+			# Given a function as text, and an execution scope, return a callable object.
+			def parse_function(text, scope, filename = 'query-server')
+				safe_level = @options[:safe] || 0
+			
+				function = lambda { $SAFE = safe_level; eval(text, scope.send(:binding), filename) }.call
+			
+				unless function.respond_to? :call
+					raise CompilationError.new('Expression does not evaluate to procedure!')
+				end
+				
+				return function
+			end
+			
+			def initialize(shell, options = {})
+				@shell = shell
+				@options = options
+				
+				@mapper = Mapper.new(self)
+				@reducer = Reducer.new(self)
+				@designer = Designer.new(self)
+				
+				@config = {}
+			end
+			
+			attr :config
+			attr :shell
+			
+			# Return an error structure from the given exception.
+			def error_for_exception(exception)
+				["error", exception.class.to_s, exception.message, exception.backtrace]
+			end
+			
+			# Process a single command as per the query server protocol.
+			def run(command)
+				case command[0]
+				# ** Map functionality
+				when 'add_fun'
+					@mapper.add_function command[1]; true
+				when 'map_doc'
+					@mapper.map command[1]
+				when 'reset'
+					@config = command[1] || {}
+					@mapper = Mapper.new(self); true
+				
+				# ** Reduce functionality
+				when 'reduce'
+					@reducer.reduce command[1], command[2]
+				when 'rereduce'
+					@reducer.rereduce command[1], command[2]
+				
+				# ** Design document functionality
+				when 'ddoc'
+					if command[1] == 'new'
+						@designer.create(command[2], command[3]); true
+					else
+						@designer.run(command[1], command[2], command[3])
+					end
+				end
+			rescue Exception => exception
+				error_for_exception(exception)
+			end
+			
+			# Write a log message back to the shell.
+			def log(message)
+				@shell.write_object ['log', message]
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/designer.rb

@@ -0,0 +1,249 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'relaxo/query_server/shell'
+require 'relaxo/query_server/mapper'
+require 'relaxo/query_server/reducer'
+
+module Relaxo
+	module QueryServer
+		# Indicates that a validation error has occured.
+		class ValidationError < StandardError
+			def initialize(details)
+				super "Validation failed!"
+				
+				@details = details
+			end
+			
+			# The details of the validation error, typically:
+			#     {:forbidden => "Message"}
+			# or
+			#     {:unauthorized => "Message"}
+			attr :details
+		end
+		
+		# Indicates that the request was invalid for some reason (e.g. lacking appropriate authentication)
+		class InvalidRequestError < StandardError
+			def initilize(message, code = 400, details = {})
+				super message
+				
+				@code = 400
+				@details = details
+			end
+			
+			# Returns a response suitable for passing back to the client.
+			def to_response
+				@details.merge(:code => @code)
+			end
+		end
+		
+		# Supports the `list` action which consumes rows and outputs encoded text in chunks.
+		class ListRenderer < Process
+			def initialize(context, function)
+				super(context, function)
+				
+				@started = false
+				@fetched_row = false
+				@start_response = {:headers => {}}
+				@chunks = []
+			end
+			
+			def run(head, request)
+				super(head, request)
+				
+				# Ensure that at least one row is read from input:
+				get_row unless @fetched_row
+				
+				return ["end", @chunks]
+			end
+
+			def send(chunk)
+				@chunks << chunk
+				false
+			end
+
+			def each
+				while row = get_row
+					yield row
+				end
+			end
+
+			def get_row
+				flush
+				
+				row = @context.shell.read_object
+				@fetched_row = true
+				
+				case command = row[0]
+				when "list_row"
+					row[1]
+				when "list_end"
+					false
+				else
+					raise RuntimeError.new("Input is not a row!")
+				end
+			end
+
+			def start(response)
+				raise RuntimeError.new("List already started!") if @started
+				
+				@start_response = response
+			end
+
+			def flush
+				if @started
+					@context.shell.write_object ["chunks", @chunks]
+				else
+					@context.shell.write_object ["start", @chunks, @start_response]
+					
+					@started = true
+				end
+				
+				@chunks = []
+			end
+		end
+		
+		# Represents a design document which includes a variety of functionality for processing documents.
+		class DesignDocument
+			VALIDATED = 1
+			
+			def initialize(context, name, attributes = {})
+				@context = context
+
+				@name = name
+				@attributes = attributes
+			end
+
+			# Lookup the given key in the design document's attributes.
+			def [] key
+				@attributes[key]
+			end
+
+			# Runs the given function with the given arguments.
+			def run(function, arguments)
+				action = function[0]
+				function = function_for(function)
+
+				self.send(action, function, *arguments)
+			end
+
+			# Implements the `filters` action.
+			def filters(function, documents, request)
+				results = documents.map{|document| !!function.call(document, request)}
+
+				return [true, results]
+			end
+
+			# Implements the `shows` action.
+			def shows(function, document, request)
+				response = function.call(document, request)
+
+				return ["resp", wrap_response(response)]
+			end
+
+			# Implements the `updates` action.
+			def updates(function, document, request)
+				raise InvalidRequestError.new("Unsupported method #{request['method']}") unless request['method'] == 'POST'
+
+				document, response = function.call(document, request)
+
+				return ["up", document, wrap_response(response)]
+			rescue InvalidRequestError => error
+				return ["up", null, error.to_response]
+			end
+
+			# Implements the `lists` action.
+			def lists(function, head, request)
+				ListRenderer.new(@context, function).run(head, request)
+			end
+
+			# Implements the `validates_doc_update` action.
+			def validates(function, new_document, old_document, user_context)
+				ValidationProcess.new(@context, function).run(new_document, old_document, user_context)
+				
+				# Unless ValidationError was raised, we are okay.
+				return VALIDATED
+			rescue ValidationError => error
+				error.details
+			end
+
+			alias validate_doc_update validates
+
+			# Ensures that the response is the correct form.
+			def wrap_response(response)
+				String === response ? {"body" => response} : response
+			end
+
+			# Looks a up a function given a key path into the design document.
+			def function_for(path)
+				parent = self
+
+				function = path.inject(parent) do |current, key|
+					parent = current
+
+					throw ArgumentError.new("Invalid function name #{path.join(".")}") unless current
+
+					current[key]
+				end
+
+				# Compile the function if required:
+				if String === function
+					parent[path.last] = @context.parse_function(function, self, 'design-document')
+				else
+					function
+				end
+			end
+		end
+		
+		# Implements the design document state and interface.
+		class Designer
+			def initialize(context)
+				@context = context
+				@documents = {}
+			end
+			
+			# Create a new design document.
+			#
+			# @param [String] name
+			#     The name of the design document.
+			# @param [Hash] attributes
+			#     The contents of the design document.
+			def create(name, attributes)
+				@documents[name] = DesignDocument.new(@context, name, attributes)
+			end
+			
+			# Run a function on a given design document.
+			#
+			# @param [String] name
+			#     The name of the design document.
+			# @param [Array] function
+			#     A key path to the function to execute.
+			# @param [Array] arguments
+			#     The arguments to provide to the function.
+			def run(name, function, arguments)
+				document = @documents[name]
+				
+				raise ArgumentError.new("Invalid document name #{name}") unless document
+				
+				document.run(function, arguments)
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/mapper.rb

@@ -0,0 +1,68 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'relaxo/query_server/process'
+
+module Relaxo
+	module QueryServer
+		# Supports `Mapper` by providing a context with an `emit` method that collects the results from the mapping function.
+		class MappingProcess < Process
+			def initialize(context, function)
+				super(context, function)
+				@results = []
+			end
+			
+			# Emit a result
+			def emit(key, value = nil)
+				@results << [key, value]
+			end
+			
+			def run(*args)
+				begin
+					call(*args)
+				rescue Exception => exception
+					# If the mapping function throws an error, report the error for this document:
+					return @context.error_for_exception(exception)
+				end
+				
+				return @results
+			end
+		end
+		
+		class Mapper
+			def initialize(context)
+				@context = context
+				@functions = []
+			end
+			
+			# Adds a function by parsing the text, typically containing a textual representation of a lambda.
+			def add_function text
+				@functions << @context.parse_function(text, self)
+			end
+			
+			# Map a document to a set of results by appling all functions.
+			def map(document)
+				@functions.map do |function|
+					MappingProcess.new(@context, function).run(document)
+				end
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/process.rb

@@ -0,0 +1,43 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+module Relaxo
+	module QueryServer
+		# A simple high level functional process attached to a given `context`. Typically used for executing functions from map/reduce and design documents.
+		class Process
+			def initialize(context, function)
+				@context = context
+				@function = function
+			end
+			
+			def log(message)
+				@context.log message
+			end
+			
+			def call(*args)
+				instance_exec *args, &@function
+			end
+			
+			def run(*args)
+				call(*args)
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/reducer.rb

@@ -0,0 +1,94 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'relaxo/query_server/process'
+
+module Relaxo
+	module QueryServer
+		# Call the reduction function, and if it fails, respond with an error message.
+		class ReducingProcess < Process
+			def evaluate(*args)
+				begin
+					call(*args)
+				rescue Exception => exception
+					# If the mapping function throws an error, report the error for this document:
+					@context.error_for_exception(exception)
+				end
+			end
+		end
+		
+		# Implements the `reduce` and `rereduce` functions along with all associated state.
+		class Reducer
+			# Create a reducer attached to the given context.
+			def initialize(context)
+				@context = context
+			end
+			
+			# Apply the reduce function to a given list of items. Functions are typically in the form of:
+			#     functions = [lambda{|keys,values,rereduce| ...}]
+			#
+			# such that:
+			#     items = [[key1, value1], [key2, value2], [key3, value3]]
+			#     functions.map{|function| function.call(all keys, all values, false)}
+			#
+			# @param [Array] functions 
+			#     An array of functions to apply.
+			# @param [Array] items
+			#     A composite list of items.
+			def reduce(functions, items)
+				functions = functions.collect do |function_text|
+					@context.parse_function(function_text, self)
+				end
+				
+				keys, values = [], []
+				
+				items.each do |value|
+					keys << value[0]
+					values << value[1]
+				end
+				
+				result = functions.map do |function|
+					ReducingProcess.new(self, function).run(keys, values, false)
+				end
+				
+				return [true, result]
+			end
+			
+			# Apply the rereduce functions to a given list of values.
+			#     lambda{|keys,values,rereduce| ...}.call([], values, true)
+			#
+			# @param [Array] functions
+			#     An array of functions to apply, in the form of:
+			# @param [Array] values
+			#     An array of values to reduce
+			def rereduce(functions, values)
+				functions = functions.collect do |function_text|
+					@context.parse_function(function_text, self)
+				end
+				
+				result = functions.map do |function|
+					ReducingProcess.new(self, function).run([], values, true)
+				end
+				
+				return [true, result]
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/shell.rb

@@ -0,0 +1,82 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+require 'json'
+require 'logger'
+
+module Relaxo
+	module QueryServer
+		# A simple wrapper that reads and writes objects using JSON serialization to the given `input` and `output` `IO`s.
+		class Shell
+			def initialize(input, output)
+				@input = input
+				@output = output
+			end
+			
+			attr :input
+			attr :output
+			
+			# Read a JSON serialised object from `input`.
+			def read_object
+				JSON.parse @input.readline
+			end
+
+			# Write a JSON serialized object to `output`.
+			def write_object object
+				@output.puts object.to_json
+				@output.flush
+			end
+
+			# Read commands from `input`, execute them and then write out the results.
+			def run
+				begin
+					while true
+						command = read_object
+
+						result = yield command
+
+						write_object(result)
+					end
+				rescue EOFError
+					# Finish...
+				end
+			end
+		end
+		
+		# Used primarily for testing, allows the input and output of the server to be provided directly.
+		class MockShell < Shell
+			def initialize
+				super [], []
+			end
+
+			def read_object
+				if @input.size > 0
+					@input.shift
+				else
+					raise EOFError.new("No more objects")
+				end
+			end
+
+			def write_object object
+				@output << object
+			end
+		end
+	end
+end

data/lib/relaxo/query_server/version.rb

@@ -0,0 +1,31 @@
+# Copyright (c) 2012 Samuel G. D. Williams. <http://www.oriontransfer.co.nz>
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+
+module Relaxo
+	module QueryServer
+		module VERSION
+			MAJOR = 0
+			MINOR = 1
+			TINY  = 0
+
+			STRING = [MAJOR, MINOR, TINY].join('.')
+		end
+	end
+end

data/test/context_test.rb

@@ -0,0 +1,25 @@
+
+$LOAD_PATH.unshift File.expand_path("../../lib/", __FILE__)
+
+require 'test/unit'
+require 'stringio'
+
+require "relaxo/query_server"
+
+class ContextTest < Test::Unit::TestCase
+	def setup_context(options)
+		@shell = Relaxo::QueryServer::MockShell.new
+		@context = Relaxo::QueryServer::Context.new(@shell, options)
+	end
+	
+	def create_design_document name, attributes
+		@context.run ['ddoc', 'new', name, attributes]
+	end
+	
+	def setup
+		setup_context :safe => 0
+	end
+	
+	def teardown
+	end
+end

data/test/test_filters.rb

@@ -0,0 +1,24 @@
+
+require 'context_test'
+
+class FiltersTest < ContextTest
+	BASIC = "lambda{|doc, req| doc['good'] == true}"
+	
+	def run_filter(opts={})
+		opts[:docs] ||= []
+		opts[:req] ||= {}
+		
+		@context.run ["ddoc", "foo", ["filters", "basic"], [opts[:docs], opts[:req]]]
+	end
+	
+	def test_filters_updated
+		@context.run ["ddoc", "new", "foo", {"filters" => {"basic" => BASIC}}]
+		
+		docs = (1..3).map do |i|
+			{"good" => i.odd?}
+		end
+		
+		results = run_filter({:docs => docs})
+		assert_equal [true, [true, false, true]], results
+	end
+end

data/test/test_lists.rb

@@ -0,0 +1,46 @@
+
+require 'context_test'
+
+class ListsTest < ContextTest
+	ENTIRE = <<-RUBY
+		lambda{|head,request|
+			send "<ul>"
+			each do |row|
+				send "<li>" + row['count'] + "</li>"
+			end
+			send "</ul>"
+		}
+	RUBY
+	
+	def setup
+		super
+		
+		@rows = [
+			["list_row", {"count"=>"Neko"}],
+			["list_row", {"count"=>"Nezumi"}],
+			["list_row", {"count"=>"Zoe"}],
+			["list_end"]
+		]
+	end
+	
+	def test_lists_rows
+		create_design_document "test", {
+			'lists' => {
+				'entire' => ENTIRE
+			}
+		}
+		
+		@rows.each {|row| @shell.input << row}
+		
+		result = @context.run ['ddoc', 'test', ['lists', 'entire'], [{}, {}]]
+		
+		assert_equal [
+			["start", ["<ul>"], {:headers=>{}}],
+			["chunks", ["<li>Neko</li>"]],
+			["chunks", ["<li>Nezumi</li>"]],
+			["chunks", ["<li>Zoe</li>"]]
+			], @shell.output
+			
+		assert_equal ["end", ["</ul>"]], result
+	end
+end

data/test/test_map.rb

@@ -0,0 +1,20 @@
+
+require 'context_test'
+
+class MapTest < ContextTest
+	def test_map
+		response = @context.run ["add_fun", "lambda{|doc| emit('foo', doc['a']); emit('bar', doc['a'])}"]
+		assert_equal true, response
+		
+		response = @context.run ["add_fun", "lambda{|doc| emit('baz', doc['a'])}"]
+		assert_equal true, response
+		
+		response = @context.run(["map_doc", {"a" => "b"}])
+		expected = [
+			[["foo", "b"], ["bar", "b"]],
+			[["baz", "b"]]
+		]
+		
+		assert_equal expected, response
+	end
+end

data/test/test_reduce.rb

@@ -0,0 +1,15 @@
+
+require 'context_test'
+
+class ReduceTest < ContextTest
+	SUM = "lambda{|k,v,r| v.inject &:+ }"
+	CONCAT = "lambda{|k,v,r| r ? v.join('_') : v.join(':') }"
+	
+	def test_reduce
+		response = @context.run ["reduce", [SUM, CONCAT], (0...10).map{|i|[i,i*2]}]
+		assert_equal [true, [90, "0:2:4:6:8:10:12:14:16:18"]], response
+		
+		response = @context.run ["rereduce", [SUM, CONCAT], (0...10).map{|i|i}]
+		assert_equal [true, [45, "0_1_2_3_4_5_6_7_8_9"]], response
+	end
+end

data/test/test_shows.rb

@@ -0,0 +1,53 @@
+
+require 'context_test'
+
+class ShowsTest < ContextTest
+	STRING = "lambda{|doc, req| [doc['title'], doc['body']].join(' - ') }"
+	HASH = <<-EOF
+      lambda{|doc, req|
+        resp = {"code" => 200, "headers" => {"X-Foo" => "Bar"}}
+        resp["body"] = [doc['title'], doc['body']].join(' - ')
+        resp
+      }
+    EOF
+	ERROR = "lambda{|doc,req| raise StandardError.new('error message') }"
+	
+	def setup
+		super
+		
+		@context.run ["ddoc", "new", "foo", {
+				"shows" => {
+					"string" => STRING,
+					"hash" => HASH,
+					"error" => ERROR
+				}
+			}
+		]
+	end
+	
+	def run_show(opts={})
+		opts[:doc] ||= {"title" => "foo", "body" => "bar"}
+		opts[:req] ||= {}
+		opts[:design] ||= "string"
+		
+		@context.run(["ddoc", "foo", ["shows", opts[:design]], [opts[:doc], opts[:req]]])
+	end
+	
+	def test_string
+		result = run_show
+		expected = ["resp", {"body" => "foo - bar"}]
+		assert_equal expected, result
+	end
+	
+	def test_hash
+		result = run_show({:design => "hash"})
+		expected = ["resp", {"body" => "foo - bar", "headers" => {"X-Foo" => "Bar"}, "code" => 200}]
+		assert_equal expected, result
+	end
+	
+	def test_error
+		result = run_show({:design => "error"})
+		expected = ["error", "StandardError", "error message"]
+		assert_equal expected, result[0...3]
+	end
+end

data/test/test_updates.rb

@@ -0,0 +1,19 @@
+
+require 'context_test'
+
+class UpdatesTest < ContextTest
+	def test_compiles_functions
+		create_design_document "test", {
+			"updates" => {
+				"bar" => %q{
+					lambda{|doc, request| doc['updated'] = true; [doc, 'OK']}
+				}
+			}
+		}
+		
+		document = {"foo" => "bar"}
+		response = @context.run ['ddoc', 'test', ['updates', 'bar'], [document, {'method' => 'POST'}]]
+		
+		assert_equal ["up", document.update('updated' => true), {'body' => 'OK'}], response
+	end
+end

data/test/test_validations.rb

@@ -0,0 +1,22 @@
+
+require 'context_test'
+
+class ValidationsTest < ContextTest
+	def test_compiles_functions
+		create_design_document "test", {
+			"validate_doc_update" => %q{
+				lambda{|new_document, old_document, user_context|
+					raise ValidationError.new('forbidden' => "bad") if new_document['bad']
+					
+					true
+				}
+			}
+		}
+		
+		response = @context.run ['ddoc', 'test', ['validate_doc_update'], [{'good' => true}, {'good' => true}, {}]]
+		assert_equal true, response
+		
+		response = @context.run ['ddoc', 'test', ['validate_doc_update'], [{'bad' => true}, {'good' => true}, {}]]
+		assert_equal({'forbidden' => 'bad'}, response)
+	end
+end

data/test/test_views.rb

@@ -0,0 +1,17 @@
+
+require 'context_test'
+
+class ViewsTest < ContextTest
+	def test_compiles_functions
+		response = @context.run ["add_fun", "lambda {|doc| emit(nil, nil)}"]
+		assert_equal true, response
+		
+		response = @context.run ["add_fun", "lambda {"]
+		assert_equal "error", response[0]
+		assert_equal "SyntaxError", response[1]
+		
+		response = @context.run ["add_fun", "10"]
+		assert_equal "error", response[0]
+		assert_equal "Relaxo::QueryServer::CompilationError", response[1]
+	end
+end

metadata

@@ -0,0 +1,98 @@
+--- !ruby/object:Gem::Specification
+name: relaxo-query-server
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Samuel Williams
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-07-22 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: relaxo
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.3.1
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.3.1
+- !ruby/object:Gem::Dependency
+  name: json
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.7.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 1.7.3
+description: 
+email: samuel.williams@oriontransfer.co.nz
+executables:
+- relaxo-query-server
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/relaxo-query-server
+- lib/relaxo/query_server/context.rb
+- lib/relaxo/query_server/designer.rb
+- lib/relaxo/query_server/mapper.rb
+- lib/relaxo/query_server/process.rb
+- lib/relaxo/query_server/reducer.rb
+- lib/relaxo/query_server/shell.rb
+- lib/relaxo/query_server/version.rb
+- lib/relaxo/query_server.rb
+- test/context_test.rb
+- test/test_filters.rb
+- test/test_lists.rb
+- test/test_map.rb
+- test/test_reduce.rb
+- test/test_shows.rb
+- test/test_updates.rb
+- test/test_validations.rb
+- test/test_views.rb
+- README.md
+homepage: http://www.oriontransfer.co.nz/gems/relaxo
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Relaxo Query Server provides support for executing CouchDB functions using
+  Ruby.
+test_files: []
+has_rdoc: