deplate 0.7.3

data/lib/deplate/mod/zh-cn-autospace.rb

@@ -0,0 +1,108 @@
+# zh-cn-autospace.rb
+# @Author:      Thomas Link
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     01-Aug-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.222
+
+require "deplate/zh-cn"
+
+class Deplate::Formatter
+    attr_reader :cjk_space, :cjk_nospace
+    def hook_pre_setup_zh_cn_autospace
+        @cjk_space   = " "
+        @cjk_nospace = ""
+    end
+end
+
+class Deplate::Formatter::LaTeX
+    def hook_pre_setup_zh_cn_autospace
+        @cjk_space   = "~"
+        @cjk_nospace = " "
+    end
+end
+
+class Deplate::Core
+    @cjk_nonchars = "%c-%c" % [33, 0xA0]
+    @cjk_rx_C = Regexp.new("[^%s]" % @cjk_nonchars)
+    @cjk_rx_a = Regexp.new("[%s]" % @cjk_nonchars)
+    class << self
+        attr_reader :cjk_nonchars, :cjk_rx_a, :cjk_rx_C
+    end
+
+    def module_initialize_zh_cn_autospace
+        class << self
+            def join_particles(particles)
+                acc  = []
+                prev = ""
+                prev_cjk = false
+                particles.delete("")
+                particles.each_with_index do |e, i|
+                    if e == " "
+                        enext = particles[i + 1]
+                        if prev == " " or enext == " "
+                        elsif @formatter.cjk_smart_blanks and prev =~ Deplate::Core.cjk_rx_C and enext =~ Deplate::Core.cjk_rx_C
+                            acc << @formatter.cjk_nospace
+                        else
+                            acc << @formatter.cjk_space
+                        end
+                    else
+                        acc << e
+                        prev = e
+                    end
+                end
+                return acc.join
+            end
+        end
+    end
+
+    def hook_pre_setup_zh_cn_particles
+        register_particle(Deplate::Particle::Space)
+        register_particle(Deplate::Particle::NonCJK)
+    end
+
+    def hook_late_require_zh_cn
+        module_initialize_zh_cn_autospace
+        call_methods_matching(@formatter, /^hook_pre_setup_zh_cn/)
+    end
+end
+
+class Deplate::Element
+    def join_lines(accum)
+        accum.join(" ")
+    end
+end
+
+class Deplate::Particle::Space < Deplate::Particle
+    # @@particles << self
+    @rx = /^ /
+    def setup
+        @elt = " "
+    end
+end
+
+class Deplate::Particle::NonCJK < Deplate::Particle
+    # @@particles << self
+    @rx = /^([#{Deplate::Core.cjk_nonchars}])/o
+    @part = nil
+    
+    class << self
+        attr_accessor :part
+    end
+    
+    def setup
+        @elt  = @match[0]
+    end
+
+    def process
+        unless self.class.part
+            particles = @@particles + @@particles_extended
+            particles.delete(self.class)
+            self.class.part = particles
+        end
+        @elt = @deplate.parse_with_particles(@container, @elt, self.class.part)
+        @elt = @deplate.format_particles(@elt)
+    end
+end
+

data/lib/deplate/mod/zh-cn.rb

@@ -0,0 +1,59 @@
+# zh-cn.rb
+# @Author:      Thomas Link
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     01-Aug-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.161
+
+require "deplate/zh-cn"
+
+class Deplate::Element
+    alias join_lines_re_zh_cn join_lines
+    def join_lines(accum)
+        if @deplate.formatter.matches?("latex")
+            return accum.join
+        else
+            return join_lines_re_zh_cn(accum)
+        end
+    end
+end
+
+class Deplate::Particle::SwallowedSpace < Deplate::Particle
+    # @@particles << self
+    @rx = /^ +/
+
+    def setup
+        @elt = @deplate.formatter.cjk_smart_blanks ? "" : " "
+    end
+end
+
+class Deplate::Particle::Space < Deplate::Particle
+    # @@particles << self
+    @rx = /^~/
+
+    def setup
+        @elt = "~"
+    end
+    
+    def process
+        if @deplate.formatter.matches?("latex")
+            super
+        else
+            @elt = " "
+        end
+    end
+end
+
+class Deplate::Core
+    def hook_post_input_initialize_zh_cn_particles
+        register_particle(Deplate::Particle::Space)
+        register_particle(Deplate::Particle::SwallowedSpace)
+    end
+    
+    def hook_late_require_zh_cn
+        call_methods_matching(self, /^hook_post_input_initialize_zh_cn_/)
+        call_methods_matching(@formatter, /^hook_pre_setup_zh_cn/)
+    end
+end
+

data/lib/deplate/once-method.rb

@@ -0,0 +1,44 @@
+# once-method.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     25-M�r-2005.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.22
+#
+# = Description
+# Provide poor-man's once methods vor Module class.
+
+class Module
+    def once_method(*args)
+        for sym in args
+            module_eval <<-CODE
+            alias :#{sym}__once :#{sym}
+            private :#{sym}__once
+            def #{sym}(*args)
+                @@__once ||= {}
+                if (rv = @@__once["#{sym}"])
+                    return rv
+                else
+                    return (@@__once["#{sym}"] = #{sym}__once(*args))
+                end
+            end
+            CODE
+        end
+    end
+end
+
+if __FILE__ == $0
+    class TestOnce
+        def foo(x)
+            puts "This is foo being executed"
+            return "bar" * x
+        end
+        once_method :foo
+    end
+    t = TestOnce.new
+    p t.foo(2)
+    p t.foo(3)
+    p t.foo(3)
+end
+

data/lib/deplate/output.rb

@@ -0,0 +1,249 @@
+# output.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     04-Dez-2004.
+# @Last Change: 02-Nov-2005.
+# @Revision:    0.245
+
+require 'forwardable'
+require 'deplate/metadata'
+
+# Description:
+# 
+# Usage:
+# 
+# TODO:
+# 
+# CHANGES:
+# 
+
+class Deplate::Output
+    extend Forwardable
+
+    attr_accessor :pre_matter, :body, :post_matter
+    attr_accessor :top_heading, :index
+    attr_accessor :destination
+    # , :metadata
+    
+    def_delegator(:@deplate, :slot_by_name)
+    def_delegator(:@deplate, :log)
+    def_delegator(:@deplate, :call_methods_matching)
+ 
+    def_delegator(:@meta, :merge_metadata)
+    def_delegator(:@meta, :push_metadata)
+    def_delegator(:@meta, :metadata_available?)
+    def_delegator(:@meta, :metadata_destination)
+    def_delegator(:@meta, :format_metadata)
+    def_delegator(:@meta, :metadata)
+    def_delegator(:@meta, :metadata=)
+
+    class << self
+        def reset
+            @@pre_matter_template  = Array.new
+            @@body_template        = Array.new
+            @@post_matter_template = Array.new
+            @@idx = 0
+        end
+    end
+   
+    def initialize(deplate, inherited_output=nil)
+        @@idx += 1
+        @deplate     = deplate
+        @formatter   = deplate.formatter
+        @options     = deplate.options
+        @variables   = deplate.variables
+        @templates   = deplate.templates
+        @meta        = Deplate::Metadata.new(deplate, self)
+        # @metadata    = {}
+        @destination = nil
+        @index       = nil
+        if inherited_output
+            @pre_matter  = inherited_output.pre_matter.dup
+            @body        = @@body_template.dup
+            @post_matter = inherited_output.post_matter.dup
+        else
+            @pre_matter  = @@pre_matter_template.dup
+            @body        = @@body_template.dup
+            @post_matter = @@post_matter_template.dup
+        end
+        @top_heading     = nil
+        @body_empty_done = false
+    end
+
+    def body_flush
+        call_methods_matching(@formatter, /^hook_pre_body_flush_/)
+        save!
+        log(["Flushing formatted elements", @destination], :debug)
+        process
+        call_methods_matching(@formatter, /^hook_post_body_flush_/)
+    end
+    
+    def save!
+        if do_i_feel_empty?
+            @output = nil
+        else
+            call_methods_matching(@formatter, /^hook_pre_output_save_/)
+            @index       ||= @top_heading.top_index
+            @destination ||= @top_heading.destination
+            @pre_matter    = @pre_matter.dup
+            @body          = @body.dup
+            @post_matter   = @post_matter.dup
+            call_methods_matching(@formatter, /^hook_post_output_save_/)
+        end
+        log(["Save output", destination], :debug)
+    end
+
+    def process
+        if @options.included
+            peel!
+        else
+            tmpl = @options.template || @variables["template"]
+            if tmpl
+                @variables["@idx"] = @index[0].to_s
+                if File.exist?(tmpl)
+                    fill_in_template(tmpl)
+                else
+                    template_file = @templates[tmpl]
+                    if template_file
+                        log(["Using template", template_file], :debug)
+                        fill_in_template(template_file)
+                    else
+                        log(["Unknown template", tmpl], :error)
+                        flatten!
+                    end
+                end
+            else
+                flatten!
+            end
+        end
+    end
+
+    def body_empty?
+        @body_empty = @body.compact.flatten.empty?
+        log(["Body is empty", caller[0..5]], :debug) if @body_empty
+        @body_empty
+    end
+
+    def do_i_feel_empty?
+        if @body_empty_done
+            @body_empty
+        else
+            @body_empty_done = true
+            body_empty?
+        end
+    end
+    private :do_i_feel_empty?
+  
+    def peel!
+        unless do_i_feel_empty?
+            @output = @body.flatten.compact
+        end
+    end
+    
+    def flatten!
+        unless do_i_feel_empty?
+            @output = [@pre_matter, @body, @post_matter].flatten.compact
+        end
+    end
+
+    def fill_in_template(template_file)
+        @deplate.maintain_current_top(@top_heading) do
+            unless do_i_feel_empty?
+                t = Deplate::Template.new(:file => template_file)
+                @output = t.fill_in(@deplate, 
+                                    :pre  => @pre_matter,
+                                    :body => @body,
+                                    :post => @post_matter)
+            end
+        end
+    end
+
+    def join(sep)
+        @output.join(sep) if @output
+    end
+
+    def pos_and_array(type, pos)
+        if type == :array
+            arr = [pos]
+            pos = 0
+        else
+            pos = slot_by_name(pos)
+            unless pos or pos == 0
+                log(["Undefined slot", pos, type, text], :error) if pos.nil?
+                return
+            end
+            case type
+            when :body, "body"
+                arr = @body
+            when :pre, "preMatter", "pre"
+                arr = @pre_matter
+            when :post, "postMatter", "post"
+                arr = @post_matter
+            when :array
+            else
+                raise "Unknown type: #{type}"
+            end
+        end
+        return pos, arr
+    end
+
+    def empty_at?(type, pos)
+        pos, arr = pos_and_array(type, pos)
+        slot = arr[pos]
+        return slot.nil? || slot.empty?
+    end
+    
+    def add_at(type, pos, *text)
+        text = text.compact
+        unless text.empty?
+            negative = false
+            pos, arr = pos_and_array(type, pos)
+            if pos
+                negative = pos ? pos < 0 : false
+                if text.first == :prepend
+                    negative = true
+                    text.shift
+                end
+                pos = pos.abs
+                if arr[pos].nil?
+                    arr[pos] = text
+                else
+                    for t in text
+                        if block_given?
+                            arr[pos] = yield(arr[pos], t)
+                        elsif negative
+                            arr[pos].unshift(t)
+                        else
+                            arr[pos] << t
+                        end
+                    end
+                end
+                @formatter.join_blocks(text)
+            else
+                log(["No slot", text], :error)
+            end
+        end
+    end
+
+    def union_at(type, pos, *text)
+        add_at(type, pos, *text) do |arr, t|
+            if !arr.include?(t)
+                arr << t
+            else
+                arr
+            end
+        end
+    end
+    
+    def set_at(type, pos, *text)
+        add_at(type, pos, *text) do |arr, t|
+            t
+        end
+    end
+
+end
+
+Deplate::Output.reset
+
+