deplate 0.7.3

data/lib/deplate/mod/symbols-sgml.rb

@@ -0,0 +1,97 @@
+# symbols-sgml.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     27-Aug-2004.
+# @Last Change: 01-Nov-2005.
+# @Revision:    0.41
+
+module Deplate::Symbols::SGML
+    def symbol_quote(invoker)
+        """ #"""
+    end
+
+    def symbol_gt(invoker)
+        ">" #">"
+    end
+
+    def symbol_lt(invoker)
+        "<" #"<"
+    end
+
+    def symbol_amp(invoker)
+        "&" #"&"
+    end
+
+    def doublequote_open(invoker)
+        "“" #"“"
+    end
+
+    def doublequote_close(invoker)
+        "”" #"”"
+    end
+
+    def singlequote_open(invoker)
+        "‘" #"‘"
+    end
+
+    def singlequote_close(invoker)
+        "’" #"’"
+    end
+
+    def nonbreakingspace(invoker)
+        " " #%{ }
+    end
+
+    def symbol_paragraph(invoker)
+        %{�}
+    end
+
+    def format_symbol(invoker, sym)
+        case sym
+        when "<-"
+            return "&#8592;" #"&larr;"
+        when "->"
+            return "&#8594;" #"&rarr;"
+        when "<=", "<<<"
+            return "&#8656;" #"&lArr;"
+        when "=>", ">>>"
+            return "&#8658;" #"&rArr;"
+        when "<->"
+            return "&#8596;" #"&harr;"
+        when "<=>"
+            return "&#8660;" #"&hArr;"
+        when "!="
+            return "&#8800;" #"&ne;"
+        when "~~"
+            return "&#8776;" #&asymp;"
+        when "..."
+            return "&#8230;" #"&hellip;"
+        when "--"
+            return "&#8211;" #"&ndash;"
+        when "=="
+            return "&#8801;" #"&equiv;"
+        when "+++", "###", "???", "!!!"
+            m = formatted_inline("sidebar", formatted_inline("para", plain_text(sym)))
+            if defined?(invoker.epilogue)
+                invoker.epilogue << m
+                return ""
+            else
+                return m
+            end
+            # when "<~"
+            # return ""
+            # when "~>"
+            # return ""
+            # when "<~>"
+            # return ""
+        else
+            return plain_text(sym)
+        end
+    end
+end
+
+class Deplate::Core
+    @@symbols[:sgml] = Deplate::Symbols::SGML
+end
+

data/lib/deplate/mod/symbols-utf-8.rb

@@ -0,0 +1,81 @@
+# symbols-sgml.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     27-Aug-2004.
+# @Last Change: 01-Nov-2005.
+# @Revision:    0.35
+
+module Deplate::Symbols::Utf8
+    def doublequote_open(invoker)
+        %{“}
+    end
+
+    def doublequote_close(invoker)
+        %{”}
+    end
+
+    def singlequote_open(invoker)
+        %{‘}
+    end
+
+    def singlequote_close(invoker)
+        %{’}
+    end
+
+    def nonbreakingspace(invoker)
+        %{ }
+    end
+
+    def symbol_paragraph(invoker)
+        %{§}
+    end
+
+    def format_symbol(invoker, sym)
+        case sym
+        when "<-"
+            return "←"
+        when "->"
+            return "→"
+        when "<=", "<<<"
+            return "◄"
+        when "=>", ">>>"
+            return "►"
+        when "<->"
+            return "↔"
+        when "<=>"
+            return "◄►"
+        when "!="
+            return "≠"
+        when "~~"
+            return "≈"
+        when "..."
+            return "…"
+        when "--"
+            return "—"
+        when "=="
+            return "≡"
+        when "+++", "###", "???", "!!!"
+            m = formatted_inline("sidebar", formatted_inline("para", plain_text(sym)))
+            if defined?(invoker.epilogue)
+                invoker.epilogue << m
+                return ""
+            else
+                return m
+            end
+            # when "<~"
+            # return ""
+            # when "~>"
+            # return ""
+            # when "<~>"
+            # return ""
+        else
+            return plain_text(sym)
+        end
+    end
+end
+
+class Deplate::Core
+    @@symbols["utf-8"] = Deplate::Symbols::Utf8
+end
+

data/lib/deplate/mod/symbols-xml.rb

@@ -0,0 +1,34 @@
+# symbols-sgml.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     27-Aug-2004.
+# @Last Change: 01-Nov-2005.
+# @Revision:    0.29
+
+require "deplate/mod/symbols-utf-8"
+
+module Deplate::Symbols::XML
+    include Deplate::Symbols::Utf8
+
+    def symbol_quote(invoker)
+        """
+    end
+
+    def symbol_gt(invoker)
+        ">"
+    end
+
+    def symbol_lt(invoker)
+        "<"
+    end
+
+    def symbol_amp(invoker)
+        "&"
+    end
+end
+
+class Deplate::Core
+    @@symbols[:xml] = Deplate::Symbols::XML
+end
+

data/lib/deplate/mod/syntax-region-alt.rb

@@ -0,0 +1,37 @@
+# syntax-alt-region.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     27-Aug-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.15
+# 
+# Description:
+# This module provides an alternative syntax for regions, like:
+#
+# ==== Region
+# content
+# ====
+# 
+
+class Deplate::Element::RegionSyntaxAlt < Deplate::Element::Region
+    @@elements << self
+    @rx = /^(\s*)(={4,})\s*([A-Z][A-Za-z]*)(.*)$/
+
+    def get_endrx
+        /^#{Regexp.escape(@match[1])}\s*\b.*$/
+    end
+
+    def get_name
+        @match[3]
+    end
+
+    def get_args
+        @match[4]
+    end
+
+    def get_indent
+        @match[1]
+    end
+end
+

data/lib/deplate/mod/utf8.rb

@@ -0,0 +1,49 @@
+# utf8.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     10-Apr-2005.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.25
+#
+# = Description
+# This file provides improved utf-8 support.
+
+class Deplate::Formatter
+    def multibyte_leader?(ch)
+        ch && ch >= 0b11000000
+    end
+
+    alias :get_first_char_re_utf8 :get_first_char
+
+    def get_first_char(string, upcase=false)
+        ch = string[0]
+        if multibyte_leader?(ch)
+            if ch >= 0b11110000
+                string[0..3]
+            elsif ch >= 0b11100000
+                string[0..2]
+            else
+                string[0..1]
+            end
+            # acc = "" << ch
+            # string[1..-1].each_byte do |ch|
+            #     if ch >= 0b10000000 and !multibyte_leader?(ch)
+            #         acc << ch
+            #     else
+            #         break
+            #     end
+            # end
+            # acc
+        else
+            get_first_char_re_utf8(string, upcase)
+        end
+    end
+end
+
+class Deplate::Core
+    def module_initialize_utf8
+        @variables['encoding'] = 'UTF-8'
+    end
+end
+

data/lib/deplate/mod/validate-html.rb

@@ -0,0 +1,35 @@
+# validate-html.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     05-Sep-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.21
+# 
+# Description:
+# 
+# Usage:
+# 
+# TODO:
+# 
+# CHANGES:
+# 
+
+class Deplate::Formatter::HTML
+    def prepare_validate_html
+        valid = []
+        unless @deplate.variables["noHtmlValid"]
+            valid << %{<a href="http://validator.w3.org/check?uri=referer"><img border="0"
+                      src="http://www.w3.org/Icons/valid-html401"
+                      alt="Valid HTML 4.01!" height="31" width="88"></a>}
+        end
+        unless @deplate.variables["noCssValid"]
+            valid << %{<a href="http://jigsaw.w3.org/css-validator/">
+                      <img style="border:0;width:88px;height:31px"
+                       src="http://jigsaw.w3.org/css-validator/images/vcss" 
+                       alt="Valid CSS!"></a>}
+        end
+        output_at(:post, :html_pageicons, valid) unless valid.empty?
+    end
+end
+

data/lib/deplate/mod/xmlrpc.rb

@@ -0,0 +1,233 @@
+# xmlrpc.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     27-J�n-2005.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.240
+#
+# = Description
+# 
+# = Usage
+# In theory, it should work like this:
+# 
+#     a> deplate -m xmlrpc -&
+#     b> irb
+#     irb(main):001:0> require 'xmlrpc/client'
+#     irb(main):001:0> deplate = XMLRPC::Client.new("localhost", "/deplate", 2000)
+#     irb(main):002:0> puts deplate.call("convert", "html", "Some text and more and so on ...")
+#     <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+#     <html lang="en">
+#     <head>
+#     [...]
+#     irb(main):003:0> 
+# 
+# = TODO
+# = CHANGES
+
+require 'deplate/converter'
+require 'ostruct'
+require 'tmpdir'
+require 'fileutils'
+require 'webrick'
+require 'xmlrpc/server'
+
+class Deplate::Core
+    def go_now
+        @variables["xmlrpcID"] ||= "deplate"
+        @xmlrpc_converters = {}
+        @xmlrpc_timeout    = @variables["xmlrpcTimeout"]
+        if @xmlrpc_timeout
+            @xmlrpc_timeout = @xmlrpc_timeout.to_i
+        else
+            @xmlrpc_timeout = 300
+        end
+        
+        xml_servlet = XMLRPC::WEBrickServlet.new
+        xml_servlet.add_handler("convert") do |format, text|
+            xmlrpc_convert_string(format, text)
+        end
+        xml_servlet.add_handler("shutdown") do |code|
+            xmlrpc_shutdown(code)
+        end
+        xml_servlet.add_handler("convert_string") do |format, text|
+            xmlrpc_convert_string(format, text)
+        end
+        xml_servlet.add_handler("convert_file") do |format, filename|
+            xmlrpc_convert_file(format, filename)
+        end
+        xml_servlet.add_handler("string_to_fileset") do |format, filename, text|
+            xmlrpc_string_to_fileset(format, filename, text)
+        end
+        xml_servlet.add_handler("fileset_to_fileset") do |format, filename, fileset|
+            xmlrpc_fileset_to_fileset(format, filename, fileset)
+        end
+        xml_servlet.add_multicall
+
+        uri  = URI.parse(@sources.first) || OpenStruct.new
+        port = uri.port
+        unless port
+            port = @variables["xmlrpcPort"]
+            port = port ? port.to_i : 2000
+        end
+
+        path = uri.path
+        if !path or path == "-"
+            path = @variables["xmlrpcPath"] || "/deplate"
+        end
+
+        valid_ips = @variables["xmlrpcAllow"]
+        if valid_ips
+            valid_ips = valid_ips.split(/\s+/)
+            valid_ips.collect! do |s|
+                if s =~ /^\d+\.\d+\.\d+\.\d+\$/
+                    s = Regexp.escape(s)
+                end
+                Regexp.new(s)
+            end
+            set_valid_ip(valid_ips)
+        end
+        
+        log("XMLRPC: Starting server", :anyway)
+        # @@log_destination = File.open(@variables["logFile"] || "deplate.log", "w")
+        begin
+            @xmlrpc_server = WEBrick::HTTPServer.new(:Port => port)
+            @xmlrpc_server.mount(path, xml_servlet)
+            @xmlrpc_server.logger.level = 1
+            trap("INT") { @xmlrpc_server.shutdown }
+            @xmlrpc_server.start
+        ensure
+            # @@log_destination.close
+        end
+    end
+
+    def xmlrpc_shutdown(code)
+        if @variables['xmlrpcAllowShutdown']
+            @xmlrpc_server.shutdown
+            return true
+        else
+            log('Ignored: shutdown', :anyway)
+            return false
+        end
+    end
+    
+    def xmlrpc_convert_string(format, text)
+        cvt = get_converter(format)
+        if cvt
+            return cvt.convert_string(text)
+        else
+            raise FaultException
+        end
+    end
+
+    def xmlrpc_convert_file(format, filename)
+        cvt = get_converter(format)
+        if cvt
+            return cvt.convert_file(filename)
+        else
+            raise FaultException
+        end
+    end
+    
+    def xmlrpc_string_to_fileset(format, filename, text)
+        convert_to_fileset(filename) do
+            convert_and_collect(format, filename, text)
+        end
+    end
+
+    def xmlrpc_fileset_to_fileset(format, filename, fileset)
+        convert_to_fileset(filename) do
+            definition = fileset.delete(filename)
+            text       = definition["contents"]
+            convert_and_collect(format, filename, text) do
+                write_fileset(fileset)
+            end
+        end
+    end
+
+    private
+    def convert_to_fileset(fileset_id, &block)
+        unless defined?(@tmpdir)
+            @tmpdir = @variables["tmpDir"]
+            unless @tmpdir
+                if Dir.tmpdir
+                    @tmpdir = File.join(Dir.tmpdir, @variables["xmlrpcID"], fileset_id)
+                end
+            end
+            @lockdir = File.join(Dir.tmpdir,"deplate_locks")
+        end
+        if @tmpdir
+            if File.exists?(@tmpdir)
+                FileUtils.rm(Dir[File.join(@tmpdir, "*")])
+            else
+                FileUtils.mkdir(@tmpdir)
+            end
+            unless File.exists?(@lockdir)
+                FileUtils.mkdir(@lockdir)
+            end
+            lockfile = File.join(@lockdir, fileset_id)
+            if File.exists?(lockfile)
+                timeout = File.mtime(lockfile) + @xmlrpc_timeout
+                if timeout > Time.now
+                    log(["XMLRPC: Fileset is locked", fileset_id, timeout], :error)
+                    raise FaultException
+                end
+            end
+            File.open(lockfile, "w") {|io|}
+            begin
+                Dir.chdir(@tmpdir)
+                return block.call
+            ensure
+                Dir.chdir(pwd)
+                FileUtils.rm(lockfile)
+            end
+        else
+            log("XMLRPC: No writable temporary directory", :error)
+            raise FaultException
+        end
+    end
+
+    def convert_and_collect(format, filename, text)
+        yield if block_given?
+        rv = {filename => xmlrpc_convert_string(format, text)}
+        collect_fileset(rv)
+        return rv
+    end
+
+    def write_fileset(fileset)
+        for fname, definition in fileset
+            if File.exists?(fname)
+                changed = definition["changed"]
+                mtime   = definition["mtime"]
+                size    = definition["size"]
+                if !changed and mtime and size and mtime == File.mtime(fname) and size == File.size(fname)
+                    next
+                end
+            end
+            fname    = @formatter.encode_id(fname)
+            contents = definition["contents"]
+            File.open(fname, "w") {|io| io.puts(contents)}
+        end
+    end
+    
+    def collect_fileset(hash)
+        for f in Dir["*"]
+            f = @formatter.encode_id(f)
+            definition = {}
+            definition["mtime"]    = File.mtime(f)
+            definition["size"]     = File.size(f)
+            definition["contents"] = File.open(f) {|io| io.read}
+            hash[f] = definition
+        end
+    end
+    
+    def get_converter(format)
+        if @variables["xmlrpcReuseInterpreter"]
+            cvt = @xmlrpc_converters[format] ||= Deplate::Converter.new(format, :master => self)
+        else
+            cvt = Deplate::Converter.new(format, :master => self)
+        end
+        return cvt
+    end
+end
+