kron4eg-wikicloth 0.1.3

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009.
+ 
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+ 
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+ 
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,23 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/rdoctask'
+
+desc 'Default: run unit tests.'
+task :default => :test
+
+desc 'Test the wikicloth plugin.'
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib'
+  t.libs << 'test'
+  t.pattern = 'test/**/*_test.rb'
+  t.verbose = true
+end
+
+desc 'Generate documentation for the wikicloth plugin.'
+Rake::RDocTask.new(:rdoc) do |rdoc|
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title    = 'WikiCloth'
+  rdoc.options << '--line-numbers' << '--inline-source'
+  rdoc.rdoc_files.include('README')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/init.rb

@@ -0,0 +1 @@
+require File.dirname(__FILE__) + "/rails/init.rb"

data/lib/core_ext.rb

@@ -0,0 +1,43 @@
+module ExtendedString
+
+  def blank?
+    respond_to?(:empty?) ? empty? : !self
+  end
+
+  def to_slug
+    self.gsub(/\W+/, '-').gsub(/^-+/,'').gsub(/-+$/,'').downcase
+  end
+
+  def auto_link
+    url_check = Regexp.new( '(^|[\n ])([\w]+?://[\w]+[^ \"\r\n\t<]*)', Regexp::MULTILINE | Regexp::IGNORECASE )
+    www_check = Regexp.new( '(^|[\n ])((www)\.[^ \"\t\n\r<]*)', Regexp::MULTILINE | Regexp::IGNORECASE )
+    self.gsub!(url_check, '\1<a href="\2">\2</a>')
+    self.gsub!(www_check, '\1<a href="http://\2">\2</a>')
+    to_s
+  end
+
+  def dump()
+    ret = to_s
+    delete!(to_s)
+    ret
+  end
+
+  def smart_split(char)
+    ret = []
+    tmp = ""
+    inside = 0
+    to_s.each_char do |x|
+      if x == char && inside == 0
+        ret << tmp
+        tmp = ""
+      else
+        inside += 1 if x == "[" || x == "{" || x == "<"
+        inside -= 1 if x == "]" || x == "}" || x == ">"
+        tmp += x
+      end
+    end
+    ret << tmp unless tmp.empty?
+    ret
+  end
+
+end

data/lib/wiki_buffer.rb

@@ -0,0 +1,279 @@
+module WikiCloth
+class WikiBuffer
+
+  def initialize(data="",options={})
+    @options = options
+    self.data = data
+    self.buffer_type = nil
+    @section_count = 0
+    @buffers ||= [ ]
+    @buffers << self
+    @list_data = []
+  end
+
+  def run_globals?
+    true
+  end
+
+  def skip_html?
+    false
+  end
+
+  def data
+    @data ||= ""
+  end
+
+  def params
+    @params ||= [ "" ]
+  end
+
+  def buffer_type
+    @buffer_type
+  end
+
+  def to_s
+    "<p>" + self.params.join("\n") + "</p>"
+  end
+
+  def check_globals()
+    return false if self.class != WikiBuffer
+
+    if previous_char == "\n"
+      if @indent == @buffers[-1].object_id && current_char != " "
+        # close pre tag
+        cc_temp = current_char
+        "</pre>".each_char { |c| self.add_char(c) }
+        # get the parser back on the right track
+        "\n#{cc_temp}".each_char { |c| @buffers[-1].add_char(c) }
+        @indent = nil
+        return true
+      end
+      if current_char == " " && @indent.nil? && @buffers[-1].class != WikiBuffer::HTMLElement
+        "<pre> ".each_char { |c| @buffers[-1].add_char(c) }
+        @indent = @buffers[-1].object_id
+        return true
+      end
+    end
+
+    if @buffers[-1].run_globals?
+      # new html tag
+      if @check_new_tag == true && current_char =~ /([a-z])/ && !@buffers[-1].skip_html?
+        @buffers[-1].data.chop!
+        parent = @buffers[-1].element_name if @buffers[-1].class == WikiBuffer::HTMLElement
+        @buffers << WikiBuffer::HTMLElement.new("",@options,parent)
+      end
+      @check_new_tag = current_char == '<' ? true : false
+
+      # global
+      case
+      # start variable
+      when previous_char == '{' && current_char == '{'
+        @buffers[-1].data.chop!
+        @buffers << WikiBuffer::Var.new("",@options)
+        return true
+
+      # start link
+      when current_char == '[' && previous_char != '['
+        @buffers << WikiBuffer::Link.new("",@options)
+        return true
+
+      # start table
+      when previous_char == '{' && current_char == "|"
+        @buffers[-1].data.chop!
+        @buffers << WikiBuffer::Table.new("",@options)
+        return true
+
+      end
+    end
+
+    return false
+  end
+
+  def add_char(c)
+    self.previous_char = self.current_char
+    self.current_char = c
+
+    if self.check_globals() == false
+      case
+      when @buffers.size == 1
+        return self.new_char()
+      when @buffers[-1].add_char(c) == false && self.class == WikiBuffer
+        tmp = @buffers.pop
+        @buffers[-1].data += tmp.to_s
+        # any data left in the buffer we feed into the parent
+        unless tmp.data.blank?
+          tmp.data.each_char { |c| self.add_char(c) }
+        end
+      end
+    end
+  end
+
+  protected
+  # only executed in the default state
+  def new_char()
+    case
+    when current_char == "\n"
+      if @options[:extended_markup] == true
+        self.data.gsub!(/---([^-]+)---/,"<strike>\\1</strike>")
+        self.data.gsub!(/_([^_]+)_/,"<u>\\1</u>")
+      end
+      self.data.gsub!(/__([a-zA-Z0-9]+)__/) { |r|
+        case $1
+        when "NOEDITSECTION"
+          @noeditsection = true
+        end
+        ""
+      }
+      self.data.gsub!(/^([-]{4,})/) { |r| "<hr />" }
+      self.data.gsub!(/^([=]{1,6})\s*(.*?)\s*(\1)/) { |r|
+        @section_count += 1
+        "<h#{$1.length}>" + (@noeditsection == true ? "" : 
+        "<span class=\"editsection\">[<a href=\"" + @options[:link_handler].section_link(@section_count) + 
+	"\" title=\"Edit section: #{$2}\">edit</a>]</span>") +
+        " <span class=\"mw-headline\">#{$2}</span></h#{$1.length}>"
+      }
+      self.data.gsub!(/([\']{2,5})(.*?)(\1)/) { |r|
+        tmp = "<i>#{$2}</i>" if $1.length == 2
+        tmp = "<b>#{$2}</b>" if $1.length == 3
+        tmp = "<b>'#{$2}'</b>" if $1.length == 4
+        tmp = "<b><i>#{$2}</i></b>" if $1.length == 5
+        tmp
+      }
+      lines = self.data.split("\n")
+      self.data = ""
+      for line in lines
+        if !@list_data.empty? && (line.blank? || line =~ /^([^#\*:;]+)/)
+          tmp = ""
+          @list_data.reverse!
+          @list_data.each { |x| tmp += "</" + list_inner_tag_for(x) + "></#{list_tag_for(x)}>" }
+          line = "#{tmp} #{line}"
+          @list_data = []
+        end
+        line.gsub!(/^([#\*:;]+)(.*)$/) { |r|
+          cdata = []
+          tmp = ""
+          $1.each_char { |c| cdata << c }
+          if @list_data.empty?
+            tmp += "<#{list_tag_for(cdata[0])}>"
+            cdata[1..-1].each { |x| tmp += "<" + list_inner_tag_for(cdata[0]) + "><#{list_tag_for(x)}>" } if cdata.size > 1
+          else
+            case
+            when cdata.size > @list_data.size
+              i = cdata.size-@list_data.size
+              cdata[-i,i].each { |x| tmp += "<#{list_tag_for(x)}>" }
+            when cdata.size < @list_data.size
+              i = @list_data.size-cdata.size
+              nlist = @list_data[-i,i].reverse
+              nlist.each { |x| tmp += "</" + list_inner_tag_for(x) + "></#{list_tag_for(x)}>" }
+              tmp += "</#{list_inner_tag_for(cdata.last)}>"
+            else
+              if cdata != @list_data
+                # FIXME: this will only work if the change depth is one level
+                unless (@list_data.last == ';' || @list_data.last == ':') && (cdata.last == ';' || cdata.last == ':')
+                  tmp += "</#{list_tag_for(@list_data.pop)}>"
+                  tmp += "<#{list_tag_for(cdata.last)}>"
+                end
+              else
+                tmp += "</" + list_inner_tag_for(@list_data.last) + ">"
+              end
+            end
+          end
+          # FIXME: still probably does not detect the : properly
+          peices = cdata.last == ";" ? $2.smart_split(":") : [ $2 ]
+          if peices.size > 1
+            tmp += "<#{list_inner_tag_for(cdata.last)}>#{peices[0]}</#{list_inner_tag_for(cdata.last)}>"
+            tmp += "<dd>#{peices[1..-1].join(":")}</dd>"
+            cdata[-1] = ":"
+          else
+            tmp += "<#{list_inner_tag_for(cdata.last)}>#{peices[0]}"
+          end
+          @list_data = cdata
+          tmp
+        }
+        self.data += line + "\n"
+      end
+
+      self.data = "</p><p>" if self.data.blank?
+
+      self.params << self.data.auto_link
+      self.data = ""
+    else
+      self.data += current_char
+    end
+    return true
+  end
+
+  def name_current_param()
+    params[-1] = { :value => "", :name => params[-1] } unless params[-1].kind_of?(Hash) || params[-1].nil?
+  end
+
+  def current_param=(val)
+    unless self.params[-1].nil? || self.params[-1].kind_of?(String)
+      self.params[-1][:value] = val
+    else
+      self.params[-1] = val
+    end
+  end
+
+  def params=(val)
+    @params = val
+  end
+
+  def buffer_type=(val)
+    @buffer_type = val
+  end
+
+  def data=(val)
+    @data = val
+  end
+
+  def current_char=(val)
+    @current_char = val
+  end
+
+  def current_char
+    @current_char ||= ""
+  end
+
+  def previous_char=(val)
+    @previous_char = val
+  end
+
+  def previous_char
+    @previous_char
+  end
+
+  def current_line=(val)
+    @current_line = val
+  end
+
+  def current_line
+    @current_line ||= ""
+  end
+
+  def list_tag_for(tag)
+    case tag
+    when "#" then "ol"
+    when "*" then "ul"
+    when ";" then "dl"
+    when ":" then "dl"
+    end
+  end
+
+  def list_inner_tag_for(tag)
+    case tag
+    when "#" then "li"
+    when "*" then "li"
+    when ";" then "dt"
+    when ":" then "dd"
+    end
+  end
+
+end
+
+end
+
+require File.join(File.expand_path(File.dirname(__FILE__)), "wiki_buffer", "html_element")
+require File.join(File.expand_path(File.dirname(__FILE__)), "wiki_buffer", "table")
+require File.join(File.expand_path(File.dirname(__FILE__)), "wiki_buffer", "var")
+require File.join(File.expand_path(File.dirname(__FILE__)), "wiki_buffer", "link")

data/lib/wiki_buffer/html_element.rb

@@ -0,0 +1,237 @@
+require 'rubygems'
+require 'builder'
+
+module WikiCloth
+
+class WikiBuffer::HTMLElement < WikiBuffer
+
+  ALLOWED_ELEMENTS = ['a','b','i','div','span','sup','sub','strike','s','u','font','big','ref','tt','del',
+	'small','blockquote','strong','pre','code','references','ol','li','ul','dd','dt','dl','center',
+	'h2','h3','h4','h5','h6']
+  ALLOWED_ATTRIBUTES = ['id','name','style','class','href','start','value']
+  ESCAPED_TAGS = [ 'nowiki', 'pre', 'code' ]
+  SHORT_TAGS = [ 'meta','br','hr','img' ]
+  NO_NEED_TO_CLOSE = ['li','p'] + SHORT_TAGS
+
+  def initialize(d="",options={},check=nil)
+    super("",options)
+    self.buffer_type = "Element"
+    @in_quotes = false
+    @in_single_quotes = false
+    @start_tag = 1
+    @tag_check = check unless check.nil?
+  end
+
+  def run_globals?
+    return ESCAPED_TAGS.include?(self.element_name) ? false : true
+  end
+
+  def to_s
+    if NO_NEED_TO_CLOSE.include?(self.element_name)
+      return "<#{self.element_name} />" if SHORT_TAGS.include?(self.element_name)
+      return "</#{self.element_name}><#{self.element_name}>" if @tag_check == self.element_name
+    end
+
+    if ESCAPED_TAGS.include?(self.element_name)
+      # escape all html inside this element
+      self.element_content = self.element_content.gsub('<','&lt;').gsub('>','&gt;')
+      # hack to fix <code><nowiki> nested mess
+      self.element_content = self.element_content.gsub(/&lt;[\/]*\s*nowiki\s*&gt;/,'')
+    end
+
+    lhandler = @options[:link_handler]
+    case self.element_name
+    when "ref"
+      self.element_name = "sup"
+      named_ref = self.name_attribute
+      ref = lhandler.find_reference_by_name(named_ref) unless named_ref.nil?
+      if ref.nil?
+        lhandler.references << { :name => named_ref, :value => self.element_content, :count => 0 }
+        ref = lhandler.references.last
+      end
+      ref_id = (named_ref.nil? ? "" : "#{named_ref}_") + "#{lhandler.reference_index(ref)}-#{ref[:count]}"
+      self.params << { :name => "id", :value => "cite_ref-#{ref_id}" }
+      self.params << { :name => "class", :value => "reference" }
+      self.element_content = "[<a href=\"#cite_note-" + (named_ref.nil? ? "" : "#{named_ref}_") + 
+	"#{lhandler.reference_index(ref)}\">#{lhandler.reference_index(ref)}</a>]"
+      ref[:count] += 1
+    when "references"
+      ref_count = 0
+      self.element_name = "ol"
+      self.element_content = lhandler.references.collect { |r| 
+        ref_count += 1
+        ref_name = (r[:name].nil? ? "" : r[:name].to_slug + "_")
+        ret = "<li id=\"cite_note-#{ref_name}#{ref_count}\"><b>"
+        1.upto(r[:count]) { |x| ret += "<a href=\"#cite_ref-#{ref_name}#{ref_count}-#{x-1}\">" + 
+		(r[:count] == 1 ? "^" : (x-1).to_s(26).tr('0-9a-p', 'a-z')) + "</a> " }
+        ret += "</b> #{r[:value]}</li>"
+      }.to_s
+    when "nowiki"
+      return self.element_content
+    end
+
+    tmp = elem.tag!(self.element_name, self.element_attributes) { |x| x << self.element_content }
+    unless ALLOWED_ELEMENTS.include?(self.element_name)
+      tmp.gsub!(/[\-!\|&"\{\}\[\]]/) { |r| self.escape_char(r) }
+      return tmp.gsub('<', '&lt;').gsub('>', '&gt;')
+    end
+    tmp
+  end
+
+  def name_attribute
+    params.each { |p| return p[:value].to_slug if p.kind_of?(Hash) && p[:name] == "name" }
+    return nil
+  end
+
+  def element_attributes
+    attr = {}
+    params.each { |p| attr[p[:name]] = p[:value] if p.kind_of?(Hash) }
+    if ALLOWED_ELEMENTS.include?(self.element_name.strip.downcase)
+      attr.delete_if { |key,value| !ALLOWED_ATTRIBUTES.include?(key.strip) }
+    end
+    return attr
+  end
+
+  def element_name
+    @ename ||= ""
+  end
+
+  def element_content
+    @econtent ||= ""
+  end
+
+  protected
+
+  def escape_char(c)
+    c = case c
+    when '-' then '&#45;'
+    when '!' then '&#33;'
+    when '|' then '&#124;'
+    when '&' then '&amp;'
+    when '"' then '&quot;'
+    when '{' then '&#123;'
+    when '}' then '&#125;'
+    when '[' then '&#91;'
+    when ']' then '&#93;'
+    when '*' then '&#42;'
+    when '#' then '&#35;'
+    when ':' then '&#58;'
+    when ';' then '&#59;'
+    when "'" then '&#39;'
+    when '=' then '&#61;'
+    else
+      c
+    end
+    return c
+  end
+
+  def elem
+    Builder::XmlMarkup.new
+  end
+
+  def element_name=(val)
+    @ename = val
+  end
+
+  def element_content=(val)
+    @econtent = val
+  end
+
+  def in_quotes?
+    @in_quotes || @in_single_quotes ? true : false
+  end
+
+  def new_char()
+    case
+    # tag name
+    when @start_tag == 1 && current_char == ' '
+      self.element_name = self.data.strip.downcase
+      self.data = ""
+      @start_tag = 2
+
+    # tag is closed <tag/> no attributes
+    when @start_tag == 1 && previous_char == '/' && current_char == '>'
+      self.data.chop!
+      self.element_name = self.data.strip.downcase
+      self.data = ""
+      @start_tag = 0
+      return false
+
+    # open tag
+    when @start_tag == 1 && previous_char != '/' && current_char == '>'
+      self.element_name = self.data.strip.downcase
+      self.data = ""
+      @start_tag = 0
+      return false if SHORT_TAGS.include?(self.element_name)
+      return false if self.element_name == @tag_check && NO_NEED_TO_CLOSE.include?(self.element_name)
+
+    # new tag attr
+    when @start_tag == 2 && current_char == ' ' && self.in_quotes? == false
+      self.current_param = self.data
+      self.data = ""
+      self.params << ""
+
+    # tag attribute name
+    when @start_tag == 2 && current_char == '=' && self.in_quotes? == false
+      self.current_param = self.data
+      self.data = ""
+      self.name_current_param()
+
+    # tag is now open
+    when @start_tag == 2 && previous_char != '/' && current_char == '>'
+      self.current_param = self.data
+      self.data = ""
+      @start_tag = 0
+      return false if SHORT_TAGS.include?(self.element_name)
+      return false if self.element_name == @tag_check && NO_NEED_TO_CLOSE.include?(self.element_name)
+
+    # tag is closed <example/>
+    when @start_tag == 2 && previous_char == '/' && current_char == '>'
+      self.current_param = self.data.chop
+      self.data = ""
+      @start_tag = 0
+      return false
+
+    # in quotes
+    when @start_tag == 2 && current_char == "'" && previous_char != '\\' && !@in_quotes
+      @in_single_quotes = !@in_single_quotes
+
+    # in quotes
+    when @start_tag == 2 && current_char == '"' && previous_char != '\\' && !@in_single_quotes
+      @in_quotes = !@in_quotes
+
+    # start of a closing tag
+    when @start_tag == 0 && previous_char == '<' && current_char == '/'
+      self.element_content += self.data.chop
+      self.data = ""
+      @start_tag = 5
+
+    when @start_tag == 5 && (current_char == '>' || current_char == ' ') && !self.data.blank?
+      self.data = self.data.strip.downcase
+      if self.data == self.element_name
+        self.data = ""
+        return false
+      else
+        if @tag_check == self.data && NO_NEED_TO_CLOSE.include?(self.element_name)
+          self.data = "</#{self.data}>"
+          return false
+        else
+          self.element_content += "&lt;/#{self.data}&gt;"
+          @start_tag = 0
+          self.data = ""
+        end
+      end
+
+    else
+      if @start_tag == 0 && ESCAPED_TAGS.include?(self.element_name)
+        self.data += self.escape_char(current_char)
+      else
+        self.data += current_char
+      end
+    end
+    return true
+  end
+
+end
+
+end