utopia 0.9.17

data/lib/utopia/tags/google_analytics.rb

@@ -0,0 +1,37 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'utopia/tags'
+
+Utopia::Tags.create("google_analytics") do |transaction, state|
+	html = <<EOF
+<!-- Google Analytics -->
+
+<script type="text/javascript">
+var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
+document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
+</script>
+<script type="text/javascript">
+try {
+var pageTracker = _gat._getTracker(#{state[:id].dump});
+pageTracker._trackPageview();
+} catch(err) {}</script>
+
+<!-- Google Analytics -->
+EOF
+
+
+	transaction.cdata(html)
+end

data/lib/utopia/tags/node.rb

@@ -0,0 +1,24 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'utopia/tags'
+
+Utopia::Tags.create("node") do |transaction, state|
+	path = Utopia::Path.create(state[:path])
+	
+	node = transaction.lookup_node(path)
+	
+	transaction.render_node(node)
+end

data/lib/utopia/tags/override.rb

@@ -0,0 +1,28 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'utopia/tags'
+
+class Utopia::Tags::Override
+	def self.tag_begin(transaction, state)
+		state.overrides[state[:name]] = state[:with]
+	end
+	
+	def self.call(transaction, state)
+		transaction.parse_xml(state.content)
+	end
+end
+
+Utopia::Tags.register("override", Utopia::Tags::Override)

data/lib/utopia/time_store.rb

@@ -0,0 +1,102 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'set'
+require 'csv'
+
+module Utopia
+	
+	# TimeStore is a very simple time oriented database. New entries 
+	# are added in chronological order and it is not possible to change 
+	# this behaviour, or remove old entries. It stores data in a CSV
+	# format into a directory where each file represents a week in the 
+	# year.
+	#
+	# The design of this class is to enable efficient logging of data
+	# in a backup friendly file format (i.e. files older than one week
+	# are not touched).
+	#
+	# Due to the nature of CSV data, a header must be specified. This
+	# header can have columns added, but not removed. Columns not
+	# specified in the header will not be recorded.
+	#
+	class TimeStore
+		def initialize(path, header)
+			@path = path
+
+			header = header.collect{|name| name.to_s}
+
+			@header_path = File.join(@path, "header.csv")
+
+			if File.exist? @header_path
+				@header = File.read(@header_path).split(",")
+			else
+				@header = []
+			end
+
+			diff = (Set.new(header) + "time") - @header
+
+			if diff.size
+				@header += diff.to_a.sort
+
+				File.open(@header_path, "w") do |file|
+					file.write(@header.join(","))
+				end
+			end
+			
+			@last_path = nil
+			@last_file = nil
+		end
+
+		attr :header
+
+		def path_for_time(time)
+			return File.join(@path, time.strftime("%Y-%W") + ".csv")
+		end
+
+		def open(time, &block)
+			path = path_for_time(time)
+
+			if @last_path != path
+				if @last_file
+					@last_file.close
+					@last_file = nil
+				end
+
+				@last_file = File.open(path, "a")
+				@last_file.sync = true
+				@last_path = path
+			end
+
+			yield @last_file
+
+			#File.open(path_for_time(time), "a", &block)
+		end
+
+		def dump(values)
+			row = @header.collect{|key| values[key.to_sym]}
+			return CSV.generate_line(row)
+		end
+
+		def <<(values)
+			time = values[:time] = Time.now
+
+			open(time) do |file|
+				file.puts(dump(values))
+			end
+		end
+	end
+	
+end

data/lib/utopia/version.rb

@@ -0,0 +1,24 @@
+# Copyright (c) 2009 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+module Utopia
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 9
+    TINY  = 17
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/utopia/xnode.rb

@@ -0,0 +1,17 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'utopia/xnode/scanner'
+require 'utopia/xnode/processor'

data/lib/utopia/xnode/processor.rb

@@ -0,0 +1,97 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'utopia/tag'
+
+module Utopia
+	module XNode
+		OPENED_TAG = 0
+		CLOSED_TAG = 1
+
+		class UnbalancedTagError < StandardError
+			def initialize(scanner, start_pos, current_tag, closing_tag)
+				@scanner = scanner
+				@start_pos = start_pos
+				@current_tag = current_tag
+				@closing_tag = closing_tag
+				
+				@starting_line = @scanner.calculate_line_number(@start_pos)
+				@ending_line = @scanner.calculate_line_number
+			end
+			
+			def to_s
+				"UnbalancedTagError: Tag #{@current_tag} (line #{@starting_line[0]}: #{@starting_line[4]}) has been closed by #{@closing_tag} (line #{@ending_line[0]}: #{@ending_line[4]})."
+			end
+		end
+
+		class Processor
+			def initialize(content, delegate, options = {})
+				@delegate = delegate
+				@stack = []
+
+				@scanner = (options[:scanner] || Scanner).new(self, content)
+			end
+
+			def parse
+				@scanner.parse
+			end
+		
+			def cdata(text)
+				# $stderr.puts "\tcdata: #{text}"
+				@delegate.cdata(text)
+			end
+		
+			def comment(text)
+				cdata("<!#{text}>")
+			end
+
+			def begin_tag(tag_name, begin_tag_type)
+				# $stderr.puts "begin_tag: #{tag_name}, #{begin_tag_type}"
+				if begin_tag_type == OPENED_TAG
+					@stack << [Tag.new(tag_name, {}), @scanner.pos]
+				else
+					cur, pos = @stack.pop
+				
+					if (tag_name != cur.name)
+						raise UnbalancedTagError.new(@scanner, pos, cur.name, tag_name)
+					end
+				
+					@delegate.tag_end(cur)
+				end
+			end
+
+			def finish_tag(begin_tag_type, end_tag_type)
+				# $stderr.puts "finish_tag: #{begin_tag_type} #{end_tag_type}"
+				if begin_tag_type == OPENED_TAG # <...
+					if end_tag_type == CLOSED_TAG # <.../>
+						cur, pos = @stack.pop
+						cur.closed = true
+				
+						@delegate.tag_complete(cur)
+					elsif end_tag_type == OPENED_TAG # <...>
+						cur, pos = @stack.last
+
+						@delegate.tag_begin(cur)
+					end
+				end
+			end
+
+			def attribute(name, value)
+				# $stderr.puts "\tattribute: #{name} = #{value}"
+				@stack.last[0].attributes[name] = value
+			end
+		end
+	end
+end

data/lib/utopia/xnode/scanner.rb

@@ -0,0 +1,153 @@
+# Copyright (c) 2010 Samuel Williams. Released under the GNU GPLv3.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'strscan'
+require 'tempfile'
+
+module Utopia
+	module XNode
+		class ScanError < StandardError
+			def initialize(message, scanner)
+				@message = message
+				
+				@pos = scanner.pos
+				@line = scanner.calculate_line_number
+			end
+			
+			def to_s
+				if @line
+					"Scan Error: #{@message} @ [#{@line[0]}:#{@line[2]}]: #{@line[4]}"
+				else
+					"Scan Error [#{@pos}]: #{@message}"
+				end
+			end
+		end
+	
+		class Scanner < StringScanner
+			CDATA = /[^<]+/m
+			TAG_PARAMETER = /\s*([^\s=\/>]*)=((['"])(.*?)\3)/um
+
+			def initialize(callback, string)
+				@callback = callback
+				super(string)
+			end
+
+			def calculate_line_number(at = pos)
+				line_no = 1
+				line_offset = offset = 0
+				
+				string.lines.each do |line|
+					line_offset = offset
+					offset += line.size
+					
+					if offset >= at
+						return [line_no, line_offset, at - line_offset, offset, line]
+					end
+					
+					line_no += 1
+				end
+				
+				return nil
+			end
+
+			def parse
+				until eos?
+					pos = self.pos
+
+					scan_cdata
+					scan_tag
+
+					if pos == self.pos
+						raise ScanError.new("Scanner didn't move", self)
+					end
+				end
+			end
+		
+			def scan_cdata
+				if scan(CDATA)
+					@callback.cdata(matched)
+				end
+			end
+		
+			def scan_tag
+				if scan(/</)
+					if scan(/\//)
+						scan_tag_normal(CLOSED_TAG)
+					elsif scan(/!/)
+						scan_tag_comment
+					elsif scan(/\?/)
+						scan_tag_instruction
+					else
+						scan_tag_normal
+					end
+				end
+			end
+		
+			def scan_attributes
+				while scan(TAG_PARAMETER)
+					@callback.attribute(self[1], self[4])
+				end
+			end
+		
+			def scan_tag_normal(begin_tag_type = OPENED_TAG)
+				if scan(/[^\s\/>]+/)
+					@callback.begin_tag(matched, begin_tag_type)
+				
+					scan(/\s*/)
+				
+					scan_attributes
+				
+					scan(/\s*/)
+				
+					if scan(/\/>/)
+						if begin_tag_type == CLOSED_TAG
+							raise ScanError.new("Tag cannot be closed at both ends!", self)
+						else
+							@callback.finish_tag(begin_tag_type, CLOSED_TAG)
+						end
+					elsif scan(/>/)
+						@callback.finish_tag(begin_tag_type, OPENED_TAG)
+					else
+						raise ScanError.new("Invalid characters in tag!", self)
+					end
+				else
+					raise ScanError.new("Invalid tag!", self)
+				end
+			end
+		
+			def scan_tag_comment
+				if scan(/--/)
+					if scan_until(/(.*?)-->/m)
+						@callback.comment("--" + self[1] + "--")
+					else
+						raise ScanError.new("Comment is not closed!", self)
+					end
+				else
+					if scan_until(/(.*?)>/)
+						@callback.comment(self[1])
+					else
+						raise ScanError.new("Comment is not closed!", self)
+					end
+				end
+			end
+		
+			def scan_tag_instruction
+				if scan_until(/(.*)\?>/)
+					@callback.instruction(self[1])
+				end
+			end
+		end
+	end
+end