RedCloth 4.0.0-x86-mswin32-60

data/extras/mingw-rbconfig.rb

@@ -0,0 +1,176 @@
+
+# This rbconfig.rb corresponds to a Ruby installation for win32 cross-compiled
+# with mingw under i686-linux. It can be used to cross-compile extensions for
+# win32 using said toolchain.
+# 
+# This file assumes that a cross-compiled mingw32 build (compatible with the
+# mswin32 builds) is installed under $HOME/ruby-mingw32.
+
+module Config
+  #RUBY_VERSION == "1.8.5" or
+  #  raise "ruby lib version (1.8.5) doesn't match executable version (#{RUBY_VERSION})"
+
+  mingw32 = ENV['MINGW32_RUBY'] || "#{ENV["HOME"]}/ruby-mingw32"
+  mingwpre = ENV['MINGW32_PREFIX']
+  TOPDIR = File.dirname(__FILE__).chomp!("/lib/ruby/1.8/i386-mingw32")
+  DESTDIR = '' unless defined? DESTDIR
+  CONFIG = {}
+  CONFIG["DESTDIR"] = DESTDIR
+  CONFIG["INSTALL"] = "/usr/bin/install -c"
+  CONFIG["prefix"] = (TOPDIR || DESTDIR + mingw32)
+  CONFIG["EXEEXT"] = ".exe"
+  CONFIG["ruby_install_name"] = "ruby"
+  CONFIG["RUBY_INSTALL_NAME"] = "ruby"
+  CONFIG["RUBY_SO_NAME"] = "msvcrt-ruby18"
+  CONFIG["SHELL"] = "/bin/sh"
+  CONFIG["PATH_SEPARATOR"] = ":"
+  CONFIG["PACKAGE_NAME"] = ""
+  CONFIG["PACKAGE_TARNAME"] = ""
+  CONFIG["PACKAGE_VERSION"] = ""
+  CONFIG["PACKAGE_STRING"] = ""
+  CONFIG["PACKAGE_BUGREPORT"] = ""
+  CONFIG["exec_prefix"] = "$(prefix)"
+  CONFIG["bindir"] = "$(exec_prefix)/bin"
+  CONFIG["sbindir"] = "$(exec_prefix)/sbin"
+  CONFIG["libexecdir"] = "$(exec_prefix)/libexec"
+  CONFIG["datadir"] = "$(prefix)/share"
+  CONFIG["sysconfdir"] = "$(prefix)/etc"
+  CONFIG["sharedstatedir"] = "$(prefix)/com"
+  CONFIG["localstatedir"] = "$(prefix)/var"
+  CONFIG["libdir"] = "$(exec_prefix)/lib"
+  CONFIG["includedir"] = "$(prefix)/include"
+  CONFIG["oldincludedir"] = "/usr/include"
+  CONFIG["infodir"] = "$(prefix)/info"
+  CONFIG["mandir"] = "$(prefix)/man"
+  CONFIG["build_alias"] = "i686-linux"
+  CONFIG["host_alias"] = "#{mingwpre}"
+  CONFIG["target_alias"] = "i386-mingw32"
+  CONFIG["ECHO_C"] = ""
+  CONFIG["ECHO_N"] = "-n"
+  CONFIG["ECHO_T"] = ""
+  CONFIG["LIBS"] = "-lwsock32 "
+  CONFIG["MAJOR"] = "1"
+  CONFIG["MINOR"] = "8"
+  CONFIG["TEENY"] = "4"
+  CONFIG["build"] = "i686-pc-linux"
+  CONFIG["build_cpu"] = "i686"
+  CONFIG["build_vendor"] = "pc"
+  CONFIG["build_os"] = "linux"
+  CONFIG["host"] = "i586-pc-mingw32msvc"
+  CONFIG["host_cpu"] = "i586"
+  CONFIG["host_vendor"] = "pc"
+  CONFIG["host_os"] = "mingw32msvc"
+  CONFIG["target"] = "i386-pc-mingw32"
+  CONFIG["target_cpu"] = "i386"
+  CONFIG["target_vendor"] = "pc"
+  CONFIG["target_os"] = "mingw32"
+  CONFIG["CC"] = "#{mingwpre}-gcc"
+  CONFIG["CFLAGS"] = "-g "
+  CONFIG["LDFLAGS"] = ""
+  CONFIG["CPPFLAGS"] = ""
+  CONFIG["OBJEXT"] = "o"
+  CONFIG["CPP"] = "#{mingwpre}-gcc -E"
+  CONFIG["EGREP"] = "grep -E"
+  CONFIG["GNU_LD"] = "yes"
+  CONFIG["CPPOUTFILE"] = "-o conftest.i"
+  CONFIG["OUTFLAG"] = "-o "
+  CONFIG["YACC"] = "bison -y"
+  CONFIG["RANLIB"] = "#{mingwpre}-ranlib"
+  CONFIG["AR"] = "#{mingwpre}-ar"
+  CONFIG["NM"] = "#{mingwpre}-nm"
+  CONFIG["WINDRES"] = "#{mingwpre}-windres"
+  CONFIG["DLLWRAP"] = "#{mingwpre}-dllwrap"
+  CONFIG["OBJDUMP"] = "#{mingwpre}-objdump"
+  CONFIG["LN_S"] = "ln -s"
+  CONFIG["SET_MAKE"] = ""
+  CONFIG["INSTALL_PROGRAM"] = "$(INSTALL)"
+  CONFIG["INSTALL_SCRIPT"] = "$(INSTALL)"
+  CONFIG["INSTALL_DATA"] = "$(INSTALL) -m 644"
+  CONFIG["RM"] = "rm -f"
+  CONFIG["CP"] = "cp"
+  CONFIG["MAKEDIRS"] = "mkdir -p"
+  CONFIG["LIBOBJS"] = " fileblocks$(U).o crypt$(U).o flock$(U).o acosh$(U).o win32$(U).o"
+  CONFIG["ALLOCA"] = ""
+  CONFIG["DLDFLAGS"] = " -Wl,--enable-auto-import,--export-all"
+  CONFIG["ARCH_FLAG"] = ""
+  CONFIG["STATIC"] = ""
+  CONFIG["CCDLFLAGS"] = ""
+  CONFIG["LDSHARED"] = "#{mingwpre}-gcc -shared -s"
+  CONFIG["DLEXT"] = "so"
+  CONFIG["DLEXT2"] = "dll"
+  CONFIG["LIBEXT"] = "a"
+  CONFIG["LINK_SO"] = ""
+  CONFIG["LIBPATHFLAG"] = " -L\"%s\""
+  CONFIG["RPATHFLAG"] = ""
+  CONFIG["LIBPATHENV"] = ""
+  CONFIG["TRY_LINK"] = ""
+  CONFIG["STRIP"] = "strip"
+  CONFIG["EXTSTATIC"] = ""
+  CONFIG["setup"] = "Setup"
+  CONFIG["MINIRUBY"] = "ruby -rfake"
+  CONFIG["PREP"] = "fake.rb"
+  CONFIG["RUNRUBY"] = "$(MINIRUBY) -I`cd $(srcdir)/lib; pwd`"
+  CONFIG["EXTOUT"] = ".ext"
+  CONFIG["ARCHFILE"] = ""
+  CONFIG["RDOCTARGET"] = ""
+  CONFIG["XCFLAGS"] = " -DRUBY_EXPORT"
+  CONFIG["XLDFLAGS"] = " -Wl,--stack,0x02000000 -L."
+  CONFIG["LIBRUBY_LDSHARED"] = "#{mingwpre}-gcc -shared -s"
+  CONFIG["LIBRUBY_DLDFLAGS"] = " -Wl,--enable-auto-import,--export-all -Wl,--out-implib=$(LIBRUBY)"
+  CONFIG["rubyw_install_name"] = "rubyw"
+  CONFIG["RUBYW_INSTALL_NAME"] = "rubyw"
+  CONFIG["LIBRUBY_A"] = "lib$(RUBY_SO_NAME)-static.a"
+  CONFIG["LIBRUBY_SO"] = "$(RUBY_SO_NAME).dll"
+  CONFIG["LIBRUBY_ALIASES"] = ""
+  CONFIG["LIBRUBY"] = "lib$(LIBRUBY_SO).a"
+  CONFIG["LIBRUBYARG"] = "$(LIBRUBYARG_SHARED)"
+  CONFIG["LIBRUBYARG_STATIC"] = "-l$(RUBY_SO_NAME)-static"
+  CONFIG["LIBRUBYARG_SHARED"] = "-l$(RUBY_SO_NAME)"
+  CONFIG["SOLIBS"] = "$(LIBS)"
+  CONFIG["DLDLIBS"] = ""
+  CONFIG["ENABLE_SHARED"] = "yes"
+  CONFIG["MAINLIBS"] = ""
+  CONFIG["COMMON_LIBS"] = "m"
+  CONFIG["COMMON_MACROS"] = ""
+  CONFIG["COMMON_HEADERS"] = "windows.h winsock.h"
+  CONFIG["EXPORT_PREFIX"] = ""
+  CONFIG["MINIOBJS"] = "dmydln.o"
+  CONFIG["MAKEFILES"] = "Makefile GNUmakefile"
+  CONFIG["arch"] = "i386-mingw32"
+  CONFIG["sitearch"] = "i386-msvcrt"
+  CONFIG["sitedir"] = "$(prefix)/lib/ruby/site_ruby"
+  CONFIG["configure_args"] = "'--host=#{mingwpre}' '--target=i386-mingw32' '--build=i686-linux' '--prefix=#{mingw32}' 'build_alias=i686-linux' 'host_alias=#{mingwpre}' 'target_alias=i386-mingw32'"
+  CONFIG["NROFF"] = "/usr/bin/nroff"
+  CONFIG["MANTYPE"] = "doc"
+  CONFIG["LTLIBOBJS"] = " fileblocks$(U).lo crypt$(U).lo flock$(U).lo acosh$(U).lo win32$(U).lo"
+  CONFIG["ruby_version"] = "$(MAJOR).$(MINOR)"
+  CONFIG["rubylibdir"] = "$(libdir)/ruby/$(ruby_version)"
+  CONFIG["archdir"] = "$(rubylibdir)/$(arch)"
+  CONFIG["sitelibdir"] = "$(sitedir)/$(ruby_version)"
+  CONFIG["sitearchdir"] = "$(sitelibdir)/$(sitearch)"
+  CONFIG["topdir"] = File.dirname(__FILE__)
+  MAKEFILE_CONFIG = {}
+  CONFIG.each{|k,v| MAKEFILE_CONFIG[k] = v.dup}
+  def Config::expand(val, config = CONFIG)
+    val.gsub!(/\$\$|\$\(([^()]+)\)|\$\{([^{}]+)\}/) do |var|
+      if !(v = $1 || $2)
+	'$'
+      elsif key = config[v = v[/\A[^:]+(?=(?::(.*?)=(.*))?\z)/]]
+	pat, sub = $1, $2
+	config[v] = false
+	Config::expand(key, config)
+	config[v] = key
+	key = key.gsub(/#{Regexp.quote(pat)}(?=\s|\z)/n) {sub} if pat
+	key
+      else
+	var
+      end
+    end
+    val
+  end
+  CONFIG.each_value do |val|
+    Config::expand(val)
+  end
+end
+RbConfig = Config # compatibility for ruby-1.9
+CROSS_COMPILING = nil unless defined? CROSS_COMPILING

data/extras/ragel_profiler.rb

@@ -0,0 +1,73 @@
+class RagelProfiler
+  MEM_CONVERSION = 1024
+  
+  COMMANDS =  { :compile => %w(ragel rlgen-cd gcc-4.0 gnumake cc1),
+                :test    => %w(ruby) }
+                
+  FIELDS = %w(compile_time compile_max_rss test_time test_max_rss ext_so_size)
+                
+  @@results = {}
+
+  def initialize(name)
+    @name = name
+    @@results[name] = []
+  end
+  
+  def measure(type)
+    raise "not a valid type" unless COMMANDS.keys.include?(type)
+    regex = COMMANDS[type].map {|c| Regexp.escape(c) }.join("|")
+    t = Thread.new do
+      Thread.current[:max] = 0
+      loop do
+        Thread.current[:max] = [run(regex), Thread.current[:max]].max
+        sleep 0.5
+      end
+    end
+    begin_time = Time.now
+    yield
+    total_time = Time.now - begin_time
+
+    t.kill
+    store_result(type, "time", total_time)
+    store_result(type, "max_rss", t[:max])
+  end
+  
+  def ext_size(ext_so)
+    store_result(:ext_so, "size", File.size(ext_so) / MEM_CONVERSION)
+  end
+  
+  def self.results
+    out = []
+    out << "name\t" + FIELDS.join("\t")
+    @@results.each do |name, results|
+      out << [name, results ].flatten.join("\t")
+    end
+    out.join("\n")
+  end
+  
+  private
+  
+  def store_result(type, metric, value)
+    index = FIELDS.index("#{type.to_s}_#{metric}")
+    @@results[@name][index] = "%.2f" % value
+  end
+  
+  def run(ps_regex)
+    ps_command   = "ps axucww"
+    ps_output    = `#{ps_command}`
+    fields       = ps_output.to_a.first.downcase.split
+    memory_index = fields.index("rss")
+    pid_index    = fields.index("pid")
+    ppid_index   = fields.index("ppid")
+    total        = ps_output.grep(/(#{ps_regex})\s+$/i).map do |com|
+                     Float(com.split[memory_index]).abs
+                   end.inject(0) { |s,v| s += v }
+    if total
+      return total/MEM_CONVERSION
+    else
+      STDERR.puts "Command not found. No processes found matching #{ps_regex}."
+    end
+
+  end
+
+end

data/lib/redcloth.rb

@@ -0,0 +1,24 @@
+$:.unshift(File.dirname(__FILE__))
+
+require 'redcloth_scan'
+require 'redcloth/version'
+require 'redcloth/textile_doc'
+require 'redcloth/formatters/base'
+require 'redcloth/formatters/html'
+require 'redcloth/formatters/latex'
+
+module RedCloth
+  
+  # A convenience method for creating a new TextileDoc. See
+  # RedCloth::TextileDoc.
+  def self.new( *args, &block )
+    RedCloth::TextileDoc.new( *args, &block )
+  end
+  
+  # Include extension modules (if any) in TextileDoc.
+  def self.include(*args)
+    RedCloth::TextileDoc.send(:include, *args)
+  end
+  
+end
+

data/lib/redcloth/formatters/base.rb

@@ -0,0 +1,50 @@
+module RedCloth::Formatters
+  module Base
+    
+    def pba(opts)
+      opts.delete(:style) if filter_styles
+      opts.delete(:class) if filter_classes
+      opts.delete(:id) if filter_ids
+
+      atts = ''
+      opts[:"text-align"] = opts.delete(:align)
+      opts[:style] += ';' if opts[:style] && (opts[:style][-1..-1] != ';')
+      [:float, :"text-align", :"vertical-align"].each do |a|
+        opts[:style] = "#{a}:#{opts[a]};#{opts[:style]}" if opts[a]
+      end
+      [:"padding-right", :"padding-left"].each do |a|
+        opts[:style] = "#{a}:#{opts[a]}em;#{opts[:style]}" if opts[a]
+      end
+      [:style, :class, :lang, :id, :colspan, :rowspan, :title, :start, :align].each do |a|
+        atts << " #{a}=\"#{ opts[a] }\"" if opts[a]
+      end
+      atts
+    end
+    
+    def ignore(opts)
+      opts[:text]
+    end
+    alias_method :notextile, :ignore
+    
+    def redcloth_version(opts)
+      p(:text => "#{opts[:prefix]}#{RedCloth::VERSION::STRING}")
+    end
+
+    def inline_redcloth_version(opts)
+      RedCloth::VERSION::STRING
+    end
+    
+    def method_missing(method, opts)
+      opts[:text] || ""
+    end
+    
+    def before_transform(text)
+      
+    end
+    
+    def after_transform(text)
+      
+    end
+
+  end
+end

data/lib/redcloth/formatters/html.rb

@@ -0,0 +1,342 @@
+module RedCloth::Formatters::HTML
+  include RedCloth::Formatters::Base
+  
+  # escapement for regular HTML (not in PRE tag)
+  def escape(text)
+    html_esc(text)
+  end
+
+  # escapement for HTML in a PRE tag
+  def escape_pre(text)
+    html_esc(text, :html_escape_preformatted)
+  end
+  
+  def after_transform(text)
+    text.chomp!
+  end
+    
+  [:h1, :h2, :h3, :h4, :h5, :h6, :p, :pre, :div].each do |m|
+    define_method(m) do |opts|
+      "<#{m}#{pba(opts)}>#{opts[:text]}</#{m}>\n"
+    end
+  end
+  
+  [:strong, :code, :em, :i, :b, :ins, :sup, :sub, :span, :cite].each do |m|
+    define_method(m) do |opts|
+      opts[:block] = true
+      "<#{m}#{pba(opts)}>#{opts[:text]}</#{m}>"
+    end
+  end
+  
+  def acronym(opts)
+    opts[:block] = true
+    "<acronym#{pba(opts)}>#{caps(:text => opts[:text])}</acronym>"
+  end
+  
+  def caps(opts)
+    if no_span_caps
+      opts[:text]
+    else
+      opts[:class] = 'caps'
+      span(opts)
+    end
+  end
+  
+  def del(opts)
+    opts[:block] = true
+    "<del#{pba(opts)}>#{opts[:text]}</del>"
+  end
+  
+  def del_phrase(opts)
+    " #{del(opts)}"
+  end
+  
+  [:ol, :ul].each do |m|
+    define_method("#{m}_open") do |opts|
+      opts[:block] = true
+      "#{"\n" if opts[:nest] > 1}#{"\t" * (opts[:nest] - 1)}<#{m}#{pba(opts)}>\n"
+    end
+    define_method("#{m}_close") do |opts|
+      "#{li_close}#{"\t" * (opts[:nest] - 1)}</#{m}>#{"\n" if opts[:nest] <= 1}"
+    end
+  end
+  
+  def li_open(opts)
+    "#{li_close unless opts.delete(:first)}#{"\t" * opts[:nest]}<li#{pba(opts)}>#{opts[:text]}"
+  end
+  
+  def li_close(opts=nil)
+    "</li>\n"
+  end
+  
+  def dl_open(opts)
+    opts[:block] = true
+    "<dl#{pba(opts)}>\n"
+  end
+  
+  def dl_close(opts=nil)
+    "</dl>\n"
+  end
+  
+  [:dt, :dd].each do |m|
+    define_method(m) do |opts|
+      "\t<#{m}#{pba(opts)}>#{opts[:text]}</#{m}>\n"
+    end
+  end
+  
+  def td(opts)
+    tdtype = opts[:th] ? 'th' : 'td'
+    "\t\t<#{tdtype}#{pba(opts)}>#{opts[:text]}</#{tdtype}>\n"
+  end
+  
+  def tr_open(opts)
+    "\t<tr#{pba(opts)}>\n"
+  end
+  
+  def tr_close(opts)
+    "\t</tr>\n"
+  end
+  
+  def table_open(opts)
+    "<table#{pba(opts)}>\n"
+  end
+  
+  def table_close(opts)
+    "</table>\n"
+  end
+  
+  def bc_open(opts)
+    opts[:block] = true
+    "<pre#{pba(opts)}>"
+  end
+  
+  def bc_close(opts)
+    "</pre>\n"
+  end
+  
+  def bq_open(opts)
+    opts[:block] = true
+    cite = opts[:cite] ? " cite=\"#{ opts[:cite] }\"" : ''
+    "<blockquote#{cite}#{pba(opts)}>\n"
+  end
+  
+  def bq_close(opts)
+    "</blockquote>\n"
+  end
+  
+  LINK_TEXT_WITH_TITLE_RE = /
+          ([^"]+?)         # $text
+          \s?
+          \(([^)]+?)\)     # $title
+          $
+      /x
+  def link(opts)
+    if opts[:name] =~ LINK_TEXT_WITH_TITLE_RE
+      md = LINK_TEXT_WITH_TITLE_RE.match(opts[:name])
+      opts[:name] = md[1]
+      opts[:title] = md[2]
+    end
+    "<a href=\"#{opts[:href].gsub(/&/, '&#38;')}\"#{pba(opts)}>#{opts[:name]}</a>"
+  end
+  
+  def image(opts)
+    opts.delete(:align)
+    opts[:alt] = opts[:title]
+    img = "<img src=\"#{urlesc opts[:src]}\"#{pba(opts)} alt=\"#{opts[:alt]}\" />"  
+    img = "<a href=\"#{urlesc opts[:href]}\">#{img}</a>" if opts[:href]
+    img
+  end
+  
+  def footno(opts)
+    opts[:id] ||= opts[:text]
+    %Q{<sup class="footnote"><a href=\"#fn#{opts[:id]}\">#{opts[:text]}</a></sup>}
+  end
+  
+  def fn(opts)
+    no = opts[:id]
+    opts[:id] = "fn#{no}"
+    opts[:class] = ["footnote", opts[:class]].compact.join(" ")
+    "<p#{pba(opts)}><sup>#{no}</sup> #{opts[:text]}</p>\n"
+  end
+  
+  def snip(opts)
+    "<pre#{pba(opts)}><code>#{opts[:text]}</code></pre>\n"
+  end
+  
+  def quote1(opts)
+    "&#8216;#{opts[:text]}&#8217;"
+  end
+  
+  def quote2(opts)
+    "&#8220;#{opts[:text]}&#8221;"
+  end
+  
+  def ellipsis(opts)
+    "#{opts[:text]}&#8230;"
+  end
+  
+  def emdash(opts)
+    "&#8212;"
+  end
+  
+  def endash(opts)
+    " &#8211; "
+  end
+  
+  def arrow(opts)
+    "&#8594;"
+  end
+  
+  def dim(opts)
+    space = opts[:space] ? " " : ''
+    "#{opts[:text]}#{space}&#215;#{space}"
+  end
+  
+  def trademark(opts)
+    "&#8482;"
+  end
+  
+  def registered(opts)
+    "&#174;"
+  end
+  
+  def copyright(opts)
+    "&#169;"
+  end
+  
+  def entity(opts)
+    "&#{opts[:text]};"
+  end
+  
+  def urlesc(txt)
+    txt.gsub(/&/, '&amp;')
+  end
+  
+  def amp(opts)
+    "&amp;"
+  end
+  
+  def gt(opts)
+    "&gt;"
+  end
+  
+  def lt(opts)
+    "&lt;"
+  end
+  
+  def br(opts)
+    if hard_breaks == false
+      "\n"
+    else
+      "<br />\n"
+    end
+  end
+  
+  def quot(opts)
+    "&quot;"
+  end
+  
+  def squot(opts)
+    "&#8217;"
+  end
+  
+  def html(opts)
+    "#{opts[:text]}\n"
+  end
+  
+  def html_block(opts)
+    inline_html(:text => "#{opts[:indent_before_start]}#{opts[:start_tag]}#{opts[:indent_after_start]}") + 
+    "#{opts[:text]}" +
+    inline_html(:text => "#{opts[:indent_before_end]}#{opts[:end_tag]}#{opts[:indent_after_end]}")
+  end
+  
+  def notextile(opts)
+    if filter_html
+      html_esc(opts[:text], :html_escape_preformatted)
+    else
+      opts[:text]
+    end
+  end
+  
+  def inline_html(opts)
+    if filter_html
+      html_esc(opts[:text], :html_escape_preformatted)
+    else
+      "#{opts[:text]}" # nil-safe
+    end
+  end
+  
+  def ignored_line(opts)
+    opts[:text] + "\n"
+  end
+  
+  def before_transform(text)
+    clean_html(text) if sanitize_html
+  end
+  
+  # HTML cleansing stuff
+  BASIC_TAGS = {
+      'a' => ['href', 'title'],
+      'img' => ['src', 'alt', 'title'],
+      'br' => [],
+      'i' => nil,
+      'u' => nil, 
+      'b' => nil,
+      'pre' => nil,
+      'kbd' => nil,
+      'code' => ['lang'],
+      'cite' => nil,
+      'strong' => nil,
+      'em' => nil,
+      'ins' => nil,
+      'sup' => nil,
+      'sub' => nil,
+      'del' => nil,
+      'table' => nil,
+      'tr' => nil,
+      'td' => ['colspan', 'rowspan'],
+      'th' => nil,
+      'ol' => ['start'],
+      'ul' => nil,
+      'li' => nil,
+      'p' => nil,
+      'h1' => nil,
+      'h2' => nil,
+      'h3' => nil,
+      'h4' => nil,
+      'h5' => nil,
+      'h6' => nil, 
+      'blockquote' => ['cite'],
+      'notextile' => nil
+  }
+  
+  # Clean unauthorized tags.
+  def clean_html( text, allowed_tags = BASIC_TAGS )
+    text.gsub!( /<!\[CDATA\[/, '' )
+    text.gsub!( /<(\/*)([A-Za-z]\w*)([^>]*?)(\s?\/?)>/ ) do |m|
+      raw = $~
+      tag = raw[2].downcase
+      if allowed_tags.has_key? tag
+        pcs = [tag]
+        allowed_tags[tag].each do |prop|
+          ['"', "'", ''].each do |q|
+            q2 = ( q != '' ? q : '\s' )
+            if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i
+              attrv = $1
+              next if (prop == 'src' or prop == 'href') and not attrv =~ %r{^(http|https|ftp):}
+              pcs << "#{prop}=\"#{attrv.gsub('"', '\\"')}\""
+              break
+            end
+          end
+        end if allowed_tags[tag]
+        "<#{raw[1]}#{pcs.join " "}#{raw[4]}>"
+      else # Unauthorized tag
+        if block_given?
+          yield m
+        else
+          ''
+        end
+      end
+    end
+  end
+end