malline 1.0.2

data/COPYING.LESSER

@@ -0,0 +1,165 @@
+		   GNU LESSER GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+  This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+  0. Additional Definitions. 
+
+  As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+  "The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+  An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+  A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+  The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+  The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+  1. Exception to Section 3 of the GNU GPL.
+
+  You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+  2. Conveying Modified Versions.
+
+  If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+   a) under this License, provided that you make a good faith effort to
+   ensure that, in the event an Application does not supply the
+   function or data, the facility still operates, and performs
+   whatever part of its purpose remains meaningful, or
+
+   b) under the GNU GPL, with none of the additional permissions of
+   this License applicable to that copy.
+
+  3. Object Code Incorporating Material from Library Header Files.
+
+  The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+   a) Give prominent notice with each copy of the object code that the
+   Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the object code with a copy of the GNU GPL and this license
+   document.
+
+  4. Combined Works.
+
+  You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+   a) Give prominent notice with each copy of the Combined Work that
+   the Library is used in it and that the Library and its use are
+   covered by this License.
+
+   b) Accompany the Combined Work with a copy of the GNU GPL and this license
+   document.
+
+   c) For a Combined Work that displays copyright notices during
+   execution, include the copyright notice for the Library among
+   these notices, as well as a reference directing the user to the
+   copies of the GNU GPL and this license document.
+
+   d) Do one of the following:
+
+       0) Convey the Minimal Corresponding Source under the terms of this
+       License, and the Corresponding Application Code in a form
+       suitable for, and under terms that permit, the user to
+       recombine or relink the Application with a modified version of
+       the Linked Version to produce a modified Combined Work, in the
+       manner specified by section 6 of the GNU GPL for conveying
+       Corresponding Source.
+
+       1) Use a suitable shared library mechanism for linking with the
+       Library.  A suitable mechanism is one that (a) uses at run time
+       a copy of the Library already present on the user's computer
+       system, and (b) will operate properly with a modified version
+       of the Library that is interface-compatible with the Linked
+       Version. 
+
+   e) Provide Installation Information, but only if you would otherwise
+   be required to provide such information under section 6 of the
+   GNU GPL, and only to the extent that such information is
+   necessary to install and execute a modified version of the
+   Combined Work produced by recombining or relinking the
+   Application with a modified version of the Linked Version. (If
+   you use option 4d0, the Installation Information must accompany
+   the Minimal Corresponding Source and Corresponding Application
+   Code. If you use option 4d1, you must provide the Installation
+   Information in the manner specified by section 6 of the GNU GPL
+   for conveying Corresponding Source.)
+
+  5. Combined Libraries.
+
+  You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+   a) Accompany the combined library with a copy of the same work based
+   on the Library, uncombined with any other library facilities,
+   conveyed under the terms of this License.
+
+   b) Give prominent notice with the combined library that part of it
+   is a work based on the Library, and explaining where to find the
+   accompanying uncombined form of the same work.
+
+  6. Revised Versions of the GNU Lesser General Public License.
+
+  The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+  Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+  If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.

data/README

@@ -0,0 +1,24 @@
+Malline 1.0.2
+=============
+
+See documentation on http://www.malline.org/
+
+Copyright © 2007,2008 Riku Palomäki, riku@palomaki.fi
+Malline is released under GNU Lesser General Public License.
+
+
+Example template file images.mn:
+
+html do
+	_render :partial => 'head'
+	body do
+		div.images! "There are some images:" do
+			images.each do |im|
+				a(:href => img_path(im)) { img :src => im.url }
+				span.caption im.caption
+			end
+			_"No more images"
+		end
+		div.footer! { _render :partial => 'footer' }
+	end
+end

data/bin/malline

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+$: << File.join(File.dirname(__FILE__), '..', 'lib')
+require 'malline.rb'
+
+nonstrict = ARGV.delete('-ns')
+
+input = File.open(ARGV.shift, 'r') rescue $stdin
+output = File.open(ARGV.shift, 'w') rescue $stdout
+
+if File.exists?('malline_helper.rb')
+	require 'malline_helper.rb'
+	view = MallineHelper.new
+else
+	view = nil
+end
+
+mn = Malline::Base.new(view, :strict => (nonstrict ? false : true))
+
+output.puts mn.render(input.read)

data/lib/malline.rb

@@ -0,0 +1,108 @@
+# Copyright © 2007,2008 Riku Palomäki
+#
+# This file is part of Malline.
+#
+# Malline is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Malline 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with Malline.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'malline/view_proxy.rb'
+require 'malline/view_wrapper.rb'
+require 'malline/view_xhtml.rb'
+require 'malline/erb_out.rb'
+require 'malline/form_builder.rb'
+require 'malline/template.rb'
+
+module Malline
+	VERSION = '1.0.2'
+
+	# Template-handler class that is registered to ActionView and initialized by it.
+	class Base
+		# Default options for new instances, can be changed with setopt
+		@@options = { :strict => true, :xhtml => true, :encoding => 'UTF-8', :lang => 'en', :form_for_proxy => true }
+		attr_reader :view
+
+		# First parameter is the view object (if any)
+		# Last parameter is optional options hash
+		def initialize(*opts)
+			@options = @@options.dup
+			@options.merge! opts.pop if opts.last.is_a?(Hash)
+
+			@view = opts.shift || Class.new
+			unless @view.is_a?(ViewWrapper)
+				@view.extend ViewWrapper
+				@view.malline @options
+				Malline::XHTML.load_plugin self if @options[:xhtml]
+			else
+				@view.malline @options
+			end
+
+			if @options[:form_for_proxy]
+				begin
+					ActionView::Base.default_form_builder = ::Malline::FormBuilder
+				rescue NameError
+				end
+			end
+		end
+
+		def set_path path
+			@view.malline.path = path
+		end
+
+		def self.setopt hash
+			output = nil
+			if block_given?
+				o = @@options.dup
+				@@options.merge!(hash) if hash
+				begin
+					output = yield
+				ensure
+					@@options = o
+				end
+			else
+				@@options.merge!(hash)
+			end
+			output
+		end
+
+		# n is there to keep things compatible with Markaby
+		def render tpl = nil, local_assigns = {}, n = nil, &block
+			add_local_assigns local_assigns
+			@view.malline_is_active = true
+			@view.malline.run tpl, &block
+		end
+
+		def self.render tpl = nil, local_assigns = {}, &block
+			self.new.render(tpl, local_assigns, &block)
+		end
+
+		# TODO: These should also be able to disable
+		def definetags *tags
+			tags.each do |tag|
+				eval %{
+					def @view.#{tag}(*args, &block)
+						tag!('#{tag}', *args, &block)
+					end
+				}
+			end
+		end
+
+		private
+		def add_local_assigns l
+			@view.instance_eval do
+				l.each { |key, value| instance_variable_set "@#{key}", value }
+				evaluate_assigns if respond_to?(:evaluate_assigns, true)
+				class << self; self; end.send(:attr_accessor, *(l.keys))
+			end
+		end
+	end
+end

data/lib/malline/erb_out.rb

@@ -0,0 +1,29 @@
+# Copyright © 2007,2008 Riku Palomäki
+#
+# This file is part of Malline.
+#
+# Malline is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Malline 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with Malline.  If not, see <http://www.gnu.org/licenses/>.
+
+module Malline
+	# ERB emulator
+	class ErbOut
+		def initialize view
+			@view = view
+		end
+		def concat value
+			@view << value
+		end
+		alias_method :<<, :concat
+	end
+end

data/lib/malline/form_builder.rb

@@ -0,0 +1,33 @@
+# Copyright © 2007,2008 Riku Palomäki
+#
+# This file is part of Malline.
+#
+# Malline is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Malline 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with Malline.  If not, see <http://www.gnu.org/licenses/>.
+
+module Malline
+	class FormBuilder
+		def initialize *args
+			@view = eval('self', args.last)
+			@view = nil unless @view.respond_to?(:is_malline?) && @view.is_malline?
+			@builder = ::ActionView::Helpers::FormBuilder.new(*args)
+		end
+		def method_missing *args, &block
+			if @view
+				@view << @builder.send(*args, &block)
+			else
+				@builder.send(*args, &block)
+			end
+		end
+	end
+end

data/lib/malline/rails.rb

@@ -0,0 +1,45 @@
+# Copyright © 2007,2008 Riku Palomäki
+#
+# This file is part of Malline.
+#
+# Malline is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Malline 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with Malline.  If not, see <http://www.gnu.org/licenses/>.
+
+require 'malline' unless Kernel.const_defined?('Malline')
+
+ActionView::Base.register_template_handler 'mn', Malline::Base
+
+module ActionView
+	class Base
+		alias_method :orig_render_template, :render_template
+		def render_template template_extension, template, file_path = nil, *rest
+			@current_tpl_path = file_path
+			orig_render_template(template_extension, template, file_path, *rest)
+		end
+
+		alias_method :orig_delegate_render, :delegate_render
+		def delegate_render(handler, template, local_assigns)
+			old = @malline_is_active
+			tmp = if handler == Malline::Base
+				h = handler.new(self)
+				h.set_path(@current_tpl_path) if @current_tpl_path
+				h.render(template, local_assigns)
+			else
+				@malline_is_active = false
+				orig_delegate_render(handler, template, local_assigns)
+			end
+			@malline_is_active = old
+			tmp
+		end
+	end
+end

data/lib/malline/template.rb

@@ -0,0 +1,124 @@
+# Copyright © 2007,2008 Riku Palomäki
+#
+# This file is part of Malline.
+#
+# Malline is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Malline 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with Malline.  If not, see <http://www.gnu.org/licenses/>.
+
+module Malline
+	class Template
+		attr_accessor :options
+		attr_accessor :short_tag_excludes
+		attr_accessor :whitespace
+		attr_accessor :path
+
+		def initialize view, opts
+			@view = view
+			@whitespace = false
+			@path = 'Malline template'
+			@options = opts
+			@short_tag_excludes = []
+		end
+
+		# These two are stolen from ERB
+		# © 1999-2000,2002,2003 Masatoshi SEKI
+		def self.html_escape(s)
+			s.to_s.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
+		end
+		def self.url_encode(s)
+			s.to_s.gsub(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
+		end
+
+		# Changes dom to active @dom, and executes tpl / block
+		def execute dom, tpl = nil, &block
+			tmp = @dom
+			@dom = dom
+			if block_given?
+				@view.instance_eval &block
+			else
+				@view.instance_eval tpl, @path
+			end
+			@dom = tmp
+		end
+
+		def add_text *values
+			@dom << ' ' if @whitespace
+			@dom << Template.html_escape(values.join(' '))
+		end
+
+		def add_unescaped_text value
+			@dom << ' ' if @whitespace
+			@dom << value.to_s unless value.nil?
+		end
+
+		def helper helper, *args, &block
+			tmp = @view.send(helper, *args, &block)
+			@dom << ' ' if @whitespace
+			@dom << tmp.to_s
+			tmp
+		end
+
+		def tag s, *args, &block
+			tag = { :name => s.to_s, :attrs => {}, :children => [] }
+
+			tag[:whitespace] = true if @whitespace
+			whitespace = @whitespace
+			@whitespace = true if args.delete(:whitespace)
+
+			if args.last.is_a?(Hash)
+				tag[:attrs].merge!(args.pop)
+			end
+
+			txt = args.flatten.join('')
+			tag[:children] << Template.html_escape(txt) unless txt.empty?
+
+			@dom << tag
+			execute tag[:children], &block if block_given?
+			@whitespace = whitespace
+
+			ViewProxy.new self, tag
+		end
+
+		# Render the xml tree at dom or root
+		def render dom = nil
+			(dom || @dom).inject('') do |out, tag|
+				if tag.is_a?(String)
+					out << tag
+				else
+					out << ' ' if tag[:whitespace]
+					out << "<#{tag[:name]}"
+					out << tag[:attrs].inject(''){|s, a| s += " #{a.first}=\"#{Template.html_escape(a.last)}\""}
+
+					if tag[:children].empty?
+						if @short_tag_excludes.include?(tag[:name])
+							out << "></#{tag[:name]}>"
+						else
+							out << '/>'
+						end
+					else
+						out << '>'
+						out << render(tag[:children])
+						out << "</#{tag[:name]}>"
+					end
+				end
+			end
+		end
+
+		# Execute and render a text or block
+		def run tpl = nil, &block
+			tmp = []
+			execute tmp, tpl, &block
+			render tmp
+		end
+	end
+end