utopia 0.10.0 → 0.11.0

data/ext/utopia/xnode/fast_scanner/parser.c

@@ -1,289 +0,0 @@
-#include "ruby.h"
-
-#define OPENED_TAG 0
-#define CLOSED_TAG 1
-
-static VALUE rb_XNode;
-static VALUE rb_XNode_ScanError;
-static VALUE rb_XNode_Scanner;
-
-static ID rb_XNode_CDATA_Callback;
-static ID rb_XNode_BeginTag_Callback;
-static ID rb_XNode_FinishTag_Callback;
-static ID rb_XNode_Attribute_Callback;
-static ID rb_XNode_Comment_Callback;
-static ID rb_XNode_Instruction_Callback;
-static ID rb_XNode_Comment_Callback;
-
-#define NewObject(type) (type*)malloc(sizeof(type))
-
-typedef struct {
-	VALUE delegate;
-	VALUE content;
-} XNode_Scanner;
-
-typedef char Character;
-typedef Character * Iterator;
-
-static void XNode_Scanner_Mark(XNode_Scanner * scanner) {
-	rb_gc_mark(scanner->delegate);
-	rb_gc_mark(scanner->content);
-}
-
-static void XNode_Scanner_Free(XNode_Scanner * scanner) {
-	free(scanner);
-}
-
-static VALUE XNode_Scanner_Allocate(VALUE klass) {
-	XNode_Scanner * scanner = NewObject(XNode_Scanner);
-	
-	return Data_Wrap_Struct(klass, XNode_Scanner_Mark, XNode_Scanner_Free, scanner);
-}
-
-static VALUE XNode_Scanner_Initialize(VALUE self, VALUE delegate, VALUE content) {
-	Check_Type(content, T_STRING);
-
-	XNode_Scanner * scanner;
-
-	Data_Get_Struct(self, XNode_Scanner, scanner);
-
-	scanner->delegate = delegate;
-	scanner->content = content;
-
-	return Qnil;
-}
-
-static VALUE rb_str_from_iterators(Iterator start, Iterator end) {
-	return rb_str_new(start, end - start);
-}
-
-static int is_whitespace(Iterator i) {
-	return (*i == ' ' || *i == '\r' || *i == '\n' || *i == '\t');
-}
-
-static int is_tag_character(Iterator i) {
-	return (*i == '<' || *i == '>' || *i == '/');
-}
-
-static int is_tag_name(Iterator i) {
-	return !(is_whitespace(i) || is_tag_character(i));
-}
-
-static Iterator expect_character(XNode_Scanner * scanner, Iterator start, Iterator end, Character c) {
-	if (start >= end || *start != c) {
-		VALUE message = rb_str_new2("Expected Character ");
-		rb_str_cat(message, &c, 1);
-		VALUE exception = rb_exc_new3(rb_XNode_ScanError, message);
-		rb_exc_raise(exception);
-	}
-	
-	return start + 1;
-}
-
-static Iterator skip_whitespace(Iterator start, Iterator end) {
-	while (start < end) {
-		if (!is_whitespace(start))
-			break;
-			
-		++start;
-	}
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_CDATA(XNode_Scanner * scanner, Iterator start, Iterator end) {
-	Iterator cdata_start = start;
-	
-	while (start < end && *start != '<') {
-		++start;
-	}
-	
-	Iterator cdata_end = start;
-
-	if (cdata_start != cdata_end) {
-		VALUE cdata = rb_str_from_iterators(cdata_start, cdata_end);
-		rb_funcall(scanner->delegate, rb_XNode_CDATA_Callback, 1, cdata);
-	}
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Attributes(XNode_Scanner * scanner, Iterator start, Iterator end) {
-	while (start < end && !is_tag_character(start)) {
-		start = skip_whitespace(start, end);
-
-		Iterator attribute_name_start = start;
-	
-		while (start < end && *start != '=') {
-			++start;
-		}
-
-		Iterator attribute_name_end = start;
-
-		start = expect_character(scanner, start, end, '=');
-		start = expect_character(scanner, start, end, '"');
-
-		Iterator attribute_value_start = start;
-
-		while (start < end && *start != '"') {
-			++start;
-		}
-
-		Iterator attribute_value_end = start;
-		start = expect_character(scanner, start, end, '"');
-
-		VALUE attribute_name = rb_str_from_iterators(attribute_name_start, attribute_name_end);
-		VALUE attribute_value = rb_str_from_iterators(attribute_value_start, attribute_value_end);
-		rb_funcall(scanner->delegate, rb_XNode_Attribute_Callback, 2, attribute_name, attribute_value);
-		
-		start = skip_whitespace(start, end);
-	}
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Tag_Normal(XNode_Scanner * scanner, Iterator start, Iterator end, int begin_tag_type) {
-	Iterator tag_name_start = start;
-	int finish_tag_type;
-	
-	while (start < end && is_tag_name(start)) {
-		++start;
-	}
-	
-	Iterator tag_name_end = start;
-	
-	VALUE tag_name = rb_str_from_iterators(tag_name_start, tag_name_end);
-	rb_funcall(scanner->delegate, rb_XNode_BeginTag_Callback, 2, tag_name, INT2FIX(begin_tag_type));
-	
-	start = skip_whitespace(start, end);
-	
-	if (!is_tag_character(start))
-		start = XNode_Scanner_Parse_Attributes(scanner, start, end);
-	
-	if (*start == '/') {
-		if (begin_tag_type == CLOSED_TAG) {
-			VALUE exception = rb_exc_new2(rb_XNode_ScanError, "Tag cannot be closed at both ends!");
-			rb_exc_raise(exception);
-		}
-		
-		finish_tag_type = CLOSED_TAG;
-		start += 2;
-	} else if (*start == '>') {
-		finish_tag_type = OPENED_TAG;
-		++start;
-	}
-	
-	rb_funcall(scanner->delegate, rb_XNode_FinishTag_Callback, 2, INT2FIX(begin_tag_type), INT2FIX(finish_tag_type));
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Tag_Comment(XNode_Scanner * scanner, Iterator start, Iterator end) {
-	Iterator comment_start = start;
-	
-	while (start < end && *start != '>') {
-		++start;
-	}
-	
-	Iterator comment_end = start;
-	
-	start = expect_character(scanner, start, end, '>');
-	
-	VALUE comment = rb_str_from_iterators(comment_start, comment_end);
-	rb_funcall(scanner->delegate, rb_XNode_Comment_Callback, 1, comment);
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Tag_Instruction(XNode_Scanner * scanner, Iterator start, Iterator end) {
-	Iterator instruction_start = start;
-	
-	while ((start+1) < end && *start != '?' && *(start+1) != '>') {
-		++start;
-	}
-	
-	Iterator instruction_end = start;
-	
-	start = expect_character(scanner, start, end, '?');
-	start = expect_character(scanner, start, end, '>');
-	
-	VALUE instruction = rb_str_from_iterators(instruction_start, instruction_end);
-	rb_funcall(scanner->delegate, rb_XNode_Instruction_Callback, 1, instruction);
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Tag(XNode_Scanner * scanner, Iterator start, Iterator end) {
-	if (*start == '<') {
-		++start;
-		
-		if (*start == '/') {
-			++start;
-			start = XNode_Scanner_Parse_Tag_Normal(scanner, start, end, CLOSED_TAG);
-		} else if (*start == '!') {
-			++start;
-			start = XNode_Scanner_Parse_Tag_Comment(scanner, start, end);
-		} else if (*start == '?') {
-			++start;
-			start = XNode_Scanner_Parse_Tag_Instruction(scanner, start, end);
-		} else {
-			start = XNode_Scanner_Parse_Tag_Normal(scanner, start, end, OPENED_TAG);
-		}
-	}
-	
-	return start;
-}
-
-static Iterator XNode_Scanner_Parse_Document(XNode_Scanner * scanner) {
-	Iterator current, start, end;
-
-	start = RSTRING(scanner->content)->ptr;
-	end = start + RSTRING(scanner->content)->len;
-
-	while (start < end) {
-		current = start;
-		
-		current = XNode_Scanner_Parse_CDATA(scanner, current, end);
-		current = XNode_Scanner_Parse_Tag(scanner, current, end);
-		
-		if (current == start) {
-			/* We did not parse anything! */
-			VALUE message = rb_str_new2("Parser Stuck at ");
-			
-			int len = 10;
-			if (current + len > end)
-				len = end - current;
-			
-			rb_str_cat(message, current, len);
-			VALUE exception = rb_exc_new3(rb_XNode_ScanError, message);
-			rb_exc_raise(exception);
-		}
-		
-		start = current;
-	}
-}
-
-static VALUE XNode_Scanner_Parse(VALUE self) {
-	XNode_Scanner * scanner;
-
-	Data_Get_Struct(self, XNode_Scanner, scanner);
-		
-	XNode_Scanner_Parse_Document(scanner);
-}
-
-void Init_xnode() {
-	rb_XNode = rb_define_module("XNode");
-	rb_XNode_ScanError = rb_define_class_under(rb_XNode, "ScanError", rb_eStandardError);
-	rb_XNode_Scanner = rb_define_class_under(rb_XNode, "Scanner", rb_cObject);
-	
-	rb_define_alloc_func(rb_XNode_Scanner, XNode_Scanner_Allocate);
-	rb_define_method(rb_XNode_Scanner, "initialize", XNode_Scanner_Initialize, 2);
-	rb_define_method(rb_XNode_Scanner, "parse", XNode_Scanner_Parse, 0);
-	
-	rb_XNode_CDATA_Callback = rb_intern("cdata");
-	rb_XNode_BeginTag_Callback = rb_intern("begin_tag");
-	rb_XNode_FinishTag_Callback = rb_intern("finish_tag");
-	rb_XNode_Attribute_Callback = rb_intern("attribute");
-	rb_XNode_Comment_Callback = rb_intern("comment");
-	rb_XNode_Instruction_Callback = rb_intern("instruction");
-}

data/lib/utopia/http_status_codes.rb

@@ -1,39 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-module Utopia
-	
-	HTTP_STATUS_CODES = {
-		:success => 200,
-		:created => 201,
-		:accepted => 202,
-		:moved => 301,
-		:found => 302,
-		:see_other => 303,
-		:not_modified => 304,
-		:redirect => 307,
-		:bad_request => 400,
-		:unauthorized => 401,
-		:forbidden => 403,
-		:not_found => 404,
-		:unsupported_method => 405,
-		:gone => 410,
-		:teapot => 418,
-		:error => 500,
-		:unimplemented => 501,
-		:unavailable => 503
-	}
-	
-	HTTP_STATUS_DESCRIPTIONS = {
-		400 => "Bad Request",
-		401 => "Permission Denied",
-		403 => "Access Forbidden",
-		404 => "Resource Not Found",
-		405 => "Unsupported Method",
-		416 => "Byte range unsatisfiable",
-		500 => "Internal Server Error",
-		501 => "Not Implemented",
-		503 => "Service Unavailable"
-	}
-end

data/lib/utopia/middleware/benchmark.rb

@@ -1,29 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-require 'utopia/middleware'
-
-module Utopia
-	module Middleware
-
-		class Benchmark
-			def initialize(app, options = {})
-				@app = app
-				@tag = options[:tag] || "{{benchmark}}"
-			end
-
-			def call(env)
-				start = Time.now
-				response = @app.call(env)
-				finish = Time.now
-
-				time = "%0.4f" % (finish - start)
-				env['rack.errors'].puts "Benchmark: Request #{env["PATH_INFO"]} took #{time}s"
-				
-				return response
-			end
-		end
-
-	end
-end

data/lib/utopia/middleware/filter.rb

@@ -1,35 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-require 'utopia/middleware'
-
-module Utopia
-	module Middleware
-
-		# This class filters a incoming request and only executes a given block if it matches the given filter path.
-		class Filter
-			def initialize(app, filter, &block)
-				@app = app
-				@filter = filter
-				branch = Rack::Builder.new(&block)
-				branch.run(@app)
-				@process = branch.to_app
-			end
-
-			def applicable(request)
-				return request.path.index(@filter) != nil
-			end
-
-			def call(env)
-				request = Rack::Request.new(env)
-
-				if applicable(request)
-					@process.call(env)
-				else
-					@app.call(env)
-				end
-			end
-		end
-
-	end
-end

data/lib/utopia/tags/env.rb

@@ -1,13 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-require 'utopia/tags'
-
-Utopia::Tags.create("env") do |transaction, state|
-	only = state[:only].split(",").collect(&:to_sym) rescue []
-
-	if defined?(UTOPIA_ENV) && only.include?(UTOPIA_ENV)
-		transaction.parse_xml(state.content)
-	end
-end

data/lib/utopia/tags/fortune.rb

@@ -1,9 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-require 'utopia/tags'
-
-Utopia::Tags.create("fortune") do |transaction, state|
-	"<pre>#{`fortune`.to_html}</pre>"
-end

data/lib/utopia/tags/gallery.rb

@@ -1,275 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-require 'utopia/tags'
-
-require 'RMagick'
-require 'fileutils'
-
-class Utopia::Tags::Gallery
-	module Processes
-		class Thumbnail
-			def initialize(size = [800, 800])
-				@size = size
-			end
-			
-			def call(img)
-				# Only resize an image if it is bigger than the given size.
-				if (img.columns > @size[0] || img.rows > @size[1])
-					img.resize_to_fit(*@size)
-				else
-					img
-				end
-			end
-			
-			def default_extension(path)
-				ext = path.original.extension
-				
-				case ext
-				when /pdf/i
-					return "png"
-				else
-					return ext.downcase
-				end
-			end
-		end
-		
-		# Resize the image to fit within the specified dimensions while retaining the aspect ratio of the original image. If necessary, crop the image in the larger dimension.
-		class CropThumbnail < Thumbnail
-			def call(img)
-				img.resize_to_fill(*@size)
-			end
-		end
-		
-		class DocumentThumbnail < Thumbnail
-			def call(img)
-				img = super(img)
-
-				shadow = img.dup
-
-				shadow = shadow.colorize(1, 1, 1, 'gray50')
-				shadow.background_color = 'transparent'
-				shadow.border!(10, 10, 'transparent')
-
-				shadow = shadow.gaussian_blur_channel(5, 5, Magick::AlphaChannel)
-
-				shadow.composite(img, 5, 5, Magick::OverCompositeOp)
-			end
-			
-			def default_extension(path)
-				return "png"
-			end
-		end
-
-		class PhotoThumbnail < Thumbnail
-			def call(img)
-				img = super(img)
-
-				shadow = img.dup
-
-				shadow = shadow.colorize(1, 1, 1, '#999999ff')
-				shadow.background_color = 'transparent'
-				shadow.border!(10, 10, '#99999900')
-
-				shadow = shadow.gaussian_blur_channel(5, 5, Magick::AlphaChannel)
-
-				shadow.composite(img, 5, 5, Magick::OverCompositeOp)
-			end
-			
-			def default_extension(path)
-				return "png"
-			end
-		end
-	end
-	
-	CACHE_DIR = "_cache"
-	PROCESSES = {
-		:pdf_thumbnail => Processes::DocumentThumbnail.new([300, 300]),
-		:photo_thumbnail => Processes::PhotoThumbnail.new([300, 300]),
-		:large => Processes::Thumbnail.new([800, 800]),
-		:square_thumbnail => Processes::CropThumbnail.new([300, 300]),
-		:thumbnail => Processes::Thumbnail.new([300, 300])
-	}
-	
-	class ImagePath
-		def initialize(original_path)
-			@original_path = original_path
-			@cache_root = @original_path.dirname + CACHE_DIR
-			
-			@extensions = {}
-		end
-
-		attr :cache_root
-		attr :extensions
-
-		def original
-			@original_path
-		end
-
-		def self.append_suffix(name, suffix, extension = nil)
-			components = name.split(".")
-			
-			components.insert(-2, suffix)
-			
-			if (extension)
-				components[-1] = extension
-			end
-			
-			return components.join(".")
-		end
-
-		def processed(process = nil)
-			if process
-				name = @original_path.basename
-				return cache_root + ImagePath.append_suffix(name, process.to_s, @extensions[process.to_sym])
-			else
-				return @original_path
-			end
-		end
-		
-		def to_html(process = nil)
-			Tag.new("img", {"src" => path(process)}).to_html
-		end
-		
-		def to_s
-			@original_path.to_s
-		end
-		
-		def method_missing(name, *args)
-			return processed(name.to_s)
-		end
-	end
-	
-	class ImageMetadata
-		def initialize(metadata)
-			@metadata = metadata
-		end
-		
-		attr :metadata
-		
-		def [] (key)
-			@metadata[key.to_s]
-		end
-		
-		def to_s
-			@metadata['caption'] || ''
-		end
-		
-		# A bit of a hack to ease migration.
-		def to_html
-			to_s.to_html
-		end
-	end
-	
-	def initialize(node, path)
-		@node = node
-		@path = path
-	end
-	
-	def metadata
-		metadata_path = @node.local_path(@path + "gallery.yaml")
-		
-		if File.exist? metadata_path
-			return YAML::load(File.read(metadata_path))
-		else
-			return {}
-		end
-	end
-	
-	def images(options = {})
-		options[:filter] ||= /(jpg|png)$/i
-
-		paths = []
-		local_path = @node.local_path(@path)
-
-		Dir.entries(local_path).each do |filename|
-			next unless filename.match(options[:filter])
-
-			fullpath = File.join(local_path, filename)
-
-			paths << ImagePath.new(@path + filename)
-		end
-
-		if options[:process]
-			paths.each do |path|
-				processed_image(path, options[:process])
-			end
-		end
-
-		return paths
-	end
-	
-	def processed_image(image_path, processes)
-		# Create the local cache directory if it doesn't exist already
-		local_cache_path = @node.local_path(image_path.cache_root)
-		
-		unless File.exist? local_cache_path
-			FileUtils.mkdir local_cache_path
-		end
-		
-		# Calculate the new name for the processed image
-		local_original_path = @node.local_path(image_path.original)
-		
-		if processes.kind_of? String
-			processes = processes.split(",").collect{|p| p.split(":")}
-		end
-		
-		processes.each do |process_name, extension|
-			process_name = process_name.to_sym
-			
-			process = PROCESSES[process_name]
-			extension ||= process.default_extension(image_path)
-			
-			image_path.extensions[process_name] = extension if extension
-			
-			local_processed_path = @node.local_path(image_path.processed(process_name))
-			
-			unless File.exists? local_processed_path
-				image = Magick::ImageList.new(local_original_path)
-				image.scene = 0
-				
-				processed_image = process.call(image)
-				processed_image.write(local_processed_path)
-				
-				# Run GC to free up any memory.
-				processed_image = nil
-				GC.start if defined? GC
-			end
-		end
-	end
-	
-	def self.call(transaction, state)
-		gallery = new(transaction.end_tags[-2].node, Utopia::Path.create(state["path"] || "./"))
-		metadata = gallery.metadata
-		metadata.default = {}
-
-		tag_name = state["tag"] || "img"
-		gallery_class = state["class"] || "gallery"
-
-		options = {}
-		options[:process] = state["process"]
-		options[:filter] = Regexp.new("(#{state["filetypes"]})$", "i") if state["filetypes"]
-		
-		filter = Regexp.new(state["filter"], Regexp::IGNORECASE) if state["filter"]
-
-		transaction.tag("div", "class" => gallery_class) do |node|
-			images = gallery.images(options).sort do |a, b|
-				if (metadata[a.original.basename]["order"] && metadata[b.original.basename]["order"])
-					metadata[a.original.basename]["order"] <=> metadata[b.original.basename]["order"]
-				else
-					a.original.basename <=> b.original.basename
-				end
-			end
-
-			images.each do |path|
-				next if filter and !filter.match(path.original.basename)
-				
-				alt = ImageMetadata.new(metadata[path.original.basename])
-				transaction.tag(tag_name, "src" => path, "alt" => alt)
-			end
-		end
-	end
-end
-
-Utopia::Tags.register("gallery", Utopia::Tags::Gallery)

data/lib/utopia/tags/google_analytics.rb

@@ -1,21 +0,0 @@
-#	This file is part of the "Utopia Framework" project, and is released under the MIT license.
-#	Copyright 2010 Samuel Williams. All rights reserved.
-#	See <utopia.rb> for licensing details.
-
-require 'utopia/tags'
-
-Utopia::Tags.create("google_analytics") do |transaction, state|
-	html = <<EOF
-<script type="text/javascript">
-	var _gaq = _gaq || []; _gaq.push(['_setAccount', #{state[:id].to_quoted_string}]); _gaq.push(['_trackPageview']);
-	(function() {
-		var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
-		ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
-		var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
-	})();
-</script>
-EOF
-
-
-	transaction.cdata(html)
-end