relevance-rcov 0.8.2.1

data/lib/rcov/lowlevel.rb

@@ -0,0 +1,145 @@
+# rcov Copyright (c) 2004-2006 Mauricio Fernandez <mfp@acm.org>
+#
+# See LEGAL and LICENSE for licensing information.
+
+require 'rcov/version'
+
+module Rcov
+
+  # RCOV__ performs the low-level tracing of the execution, gathering code
+  # coverage information in the process. The C core made available through the
+  # rcovrt extension will be used if possible. Otherwise the functionality
+  # will be emulated using set_trace_func, but this is very expensive and
+  # will fail if other libraries (e.g. breakpoint) change the trace_func.
+  #
+  # Do not use this module; it is very low-level and subject to frequent
+  # changes. Rcov::CodeCoverageAnalyzer offers a much more convenient and
+  # stable interface.
+module RCOV__
+  COVER = {}
+  CALLSITES = {}
+  DEFSITES = {}
+  pure_ruby_impl_needed = true
+  unless defined? $rcov_do_not_use_rcovrt 
+    begin
+      require 'rcovrt'
+      abi = [0,0,0]
+      begin
+        abi = RCOV__.ABI
+        raise if abi[0] != RCOVRT_ABI[0] || abi[1] < RCOVRT_ABI[1]
+        pure_ruby_impl_needed = false
+      rescue
+        $stderr.puts <<-EOF
+The rcovrt extension I found was built for a different version of rcov.
+The required ABI is:              #{RCOVRT_ABI.join(".")}
+Your current rcovrt extension is: #{abi.join(".")}
+
+Please delete rcovrt.{so,bundle,dll,...} and install the required one.
+        EOF
+        raise LoadError
+      end
+    rescue LoadError
+      $stderr.puts <<-EOF
+
+Since the rcovrt extension couldn't be loaded, rcov will run in pure-Ruby
+mode, which is about two orders of magnitude slower.
+
+If you're on win32, you can find a pre-built extension (usable with recent
+One Click Installer and mswin32 builds) at http://eigenclass.org/hiki.rb?rcov .
+
+      EOF
+    end
+  end
+
+  if pure_ruby_impl_needed
+    methods = %w[install_coverage_hook remove_coverage_hook reset_coverage 
+                 install_callsite_hook remove_callsite_hook reset_callsite 
+                 generate_coverage_info generate_callsite_info]
+    sklass = class << self; self end
+    (methods & sklass.instance_methods).each do |meth|
+      sklass.class_eval{ remove_method meth }
+    end
+    
+    @coverage_hook_activated = @callsite_hook_activated = false
+
+    def self.install_coverage_hook # :nodoc:
+      install_common_hook
+      @coverage_hook_activated = true
+    end
+    
+    def self.install_callsite_hook # :nodoc:
+      install_common_hook
+      @callsite_hook_activated = true
+    end
+    
+    def self.install_common_hook # :nodoc:
+      set_trace_func lambda {|event, file, line, id, binding, klass|
+        next unless SCRIPT_LINES__.has_key? file
+        case event
+        when 'call'
+          if @callsite_hook_activated
+            receiver = eval("self", binding)
+            klass = class << klass; self end unless klass === receiver
+            begin
+              DEFSITES[[klass.to_s, id.to_s]] = [file, line]
+            rescue Exception
+            end
+            caller_arr = self.format_backtrace_array(caller[1,1])
+            begin
+              hash = CALLSITES[[klass.to_s, id.to_s]] ||= {}
+              hash[caller_arr] ||= 0
+              hash[caller_arr] += 1
+              #puts "#{event} #{file} #{line} #{klass.inspect} " +
+              #     "#{klass.object_id} #{id} #{eval('self', binding)}"
+            rescue Exception
+            end
+          end
+        when 'c-call', 'c-return', 'class'
+          return
+        end
+        if @coverage_hook_activated
+          COVER[file] ||= Array.new(SCRIPT_LINES__[file].size, 0)
+          COVER[file][line - 1] ||= 0
+          COVER[file][line - 1] += 1
+        end
+      }
+    end
+
+    def self.remove_coverage_hook # :nodoc:
+      @coverage_hook_activated = false
+      set_trace_func(nil) if !@callsite_hook_activated
+    end
+    
+    def self.remove_callsite_hook # :nodoc:
+      @callsite_hook_activated = false
+      set_trace_func(nil) if !@coverage_hook_activated
+    end
+
+    def self.reset_coverage # :nodoc:
+      COVER.replace({})
+    end
+
+    def self.reset_callsite # :nodoc:
+      CALLSITES.replace({})
+      DEFSITES.replace({})
+    end
+
+    def self.generate_coverage_info # :nodoc:
+      Marshal.load(Marshal.dump(COVER))
+    end
+
+    def self.generate_callsite_info # :nodoc:
+      [CALLSITES, DEFSITES]
+    end
+
+    def self.format_backtrace_array(backtrace)
+      backtrace.map do |line|
+        md = /^([^:]*)(?::(\d+)(?::in `(.*)'))?/.match(line)
+        raise "Bad backtrace format" unless md
+        [nil, md[3] ? md[3].to_sym : nil, md[1], (md[2] || '').to_i]
+      end
+    end
+  end
+end 
+
+end 

data/lib/rcov/rcovtask.rb

@@ -0,0 +1,156 @@
+#!/usr/bin/env ruby
+
+# Define a task library for performing code coverage analysis of unit tests
+# using rcov.
+
+require 'rake'
+require 'rake/tasklib'
+
+module Rcov
+
+  # Create a task that runs a set of tests through rcov, generating code
+  # coverage reports.
+  #
+  # Example:
+  #   
+  #   require 'rcov/rcovtask'
+  #   
+  #   Rcov::RcovTask.new do |t|
+  #     t.libs << "test"
+  #     t.test_files = FileList['test/test*.rb']
+  #     t.verbose = true
+  #   end
+  #
+  # If rake is invoked with a "TEST=filename" command line option,
+  # then the list of test files will be overridden to include only the
+  # filename specified on the command line.  This provides an easy way
+  # to run just one test.
+  #
+  # If rake is invoked with a "RCOVOPTS=options" command line option,
+  # then the given options are passed to rcov.
+  #
+  # If rake is invoked with a "RCOVPATH=path/to/rcov" command line option,
+  # then the given rcov executable will be used; otherwise the one in your
+  # PATH will be used.
+  #
+  # Examples:
+  #
+  #   rake rcov                           # run tests normally
+  #   rake rcov TEST=just_one_file.rb     # run just one test file.
+  #   rake rcov RCOVOPTS="-p"             # run in profile mode
+  #   rake rcov RCOVOPTS="-T"             # generate text report
+  #
+  class RcovTask < Rake::TaskLib
+
+    # Name of test task. (default is :rcov)
+    attr_accessor :name
+
+    # List of directories to added to $LOAD_PATH before running the
+    # tests. (default is 'lib')
+    attr_accessor :libs
+
+    # True if verbose test output desired. (default is false)
+    attr_accessor :verbose
+
+    # Request that the tests be run with the warning flag set.
+    # E.g. warning=true implies "ruby -w" used to run the tests.
+    attr_accessor :warning
+
+    # Glob pattern to match test files. (default is 'test/test*.rb')
+    attr_accessor :pattern
+    
+    # Array of commandline options to pass to ruby when running the rcov loader.
+    attr_accessor :ruby_opts
+
+    # Array of commandline options to pass to rcov. An explicit
+    # RCOVOPTS=opts on the command line will override this. (default
+    # is <tt>["--text-report"]</tt>)
+    attr_accessor :rcov_opts
+
+    # Output directory for the XHTML report.
+    attr_accessor :output_dir
+
+    # Explicitly define the list of test files to be included in a
+    # test.  +list+ is expected to be an array of file names (a
+    # FileList is acceptable).  If both +pattern+ and +test_files+ are
+    # used, then the list of test files is the union of the two.
+    def test_files=(list)
+      @test_files = list
+    end
+
+    # Create a testing task.
+    def initialize(name=:rcov)
+      @name = name
+      @libs = ["lib"]
+      @pattern = nil
+      @test_files = nil
+      @verbose = false
+      @warning = false
+      @rcov_opts = ["--text-report"]
+      @ruby_opts = []
+      @output_dir = "coverage"
+      yield self if block_given?
+      @pattern = 'test/test*.rb' if @pattern.nil? && @test_files.nil?
+      define
+    end
+
+    # Create the tasks defined by this task lib.
+    def define
+      lib_path = @libs.join(File::PATH_SEPARATOR)
+      actual_name = Hash === name ? name.keys.first : name
+      unless Rake.application.last_comment
+        desc "Analyze code coverage with tests" + 
+          (@name==:rcov ? "" : " for #{actual_name}")
+      end
+      task @name do
+	run_code = ''
+	RakeFileUtils.verbose(@verbose) do
+	  run_code =
+	    case rcov_path
+	    when nil, ''
+              "-S rcov"
+            else %!"#{rcov_path}"!
+	    end
+          ruby_opts = @ruby_opts.clone
+          ruby_opts.push( "-I#{lib_path}" )
+          ruby_opts.push run_code
+	  ruby_opts.push( "-w" ) if @warning
+	  ruby ruby_opts.join(" ") + " " + option_list +
+            %[ -o "#{@output_dir}" ] +
+	    file_list.collect { |fn| %["#{fn}"] }.join(' ')
+	end
+      end
+
+      desc "Remove rcov products for #{actual_name}"
+      task paste("clobber_", actual_name) do
+	rm_r @output_dir rescue nil
+      end
+
+      clobber_task = paste("clobber_", actual_name)
+      task :clobber => [clobber_task]
+
+      task actual_name => clobber_task
+      self
+    end
+
+    def rcov_path # :nodoc:
+      ENV['RCOVPATH']
+    end
+
+    def option_list # :nodoc:
+      ENV['RCOVOPTS'] || @rcov_opts.join(" ") || ""
+    end
+
+    def file_list # :nodoc:
+      if ENV['TEST']
+	FileList[ ENV['TEST'] ]
+      else
+	result = []
+	result += @test_files.to_a if @test_files
+	result += FileList[ @pattern ].to_a if @pattern
+	FileList[result]
+      end
+    end
+  end
+end
+

data/lib/rcov/report.rb

@@ -0,0 +1,71 @@
+# rcov Copyright (c) 2004-2006 Mauricio Fernandez <mfp@acm.org>
+# See LEGAL and LICENSE for additional licensing information.
+
+require 'pathname'
+
+
+module Rcov
+
+# Try to fix bugs in the REXML shipped with Ruby 1.8.6
+# They affect Mac OSX 10.5.1 users and motivates endless bug reports.
+begin
+    require 'rexml/formatters/transitive'
+    require 'rexml/formatter/pretty'
+rescue LoadError
+end
+
+require File.expand_path(File.join(File.dirname(__FILE__), 'rexml_extensions' ))
+
+if (RUBY_VERSION == "1.8.6" || RUBY_VERSION == "1.8.7") && defined? REXML::Formatters::Transitive
+    class REXML::Document
+        remove_method :write rescue nil
+        def write( output=$stdout, indent=-1, trans=false, ie_hack=false )
+            if xml_decl.encoding != "UTF-8" && !output.kind_of?(Output)
+                output = Output.new( output, xml_decl.encoding )
+            end
+            formatter = if indent > -1
+                #if trans
+                    REXML::Formatters::Transitive.new( indent )
+                #else
+                #    REXML::Formatters::Pretty.new( indent, ie_hack )
+                #end
+            else
+                REXML::Formatters::Default.new( ie_hack )
+            end
+            formatter.write( self, output )
+        end
+    end
+
+    class REXML::Formatters::Transitive
+        remove_method :write_element rescue nil
+        def write_element( node, output )
+            output << "<#{node.expanded_name}"
+
+            node.attributes.each_attribute do |attr|
+                output << " "
+                attr.write( output )
+            end unless node.attributes.empty?
+
+            if node.children.empty?
+                output << "/>"
+            else
+                output << ">"
+                # If compact and all children are text, and if the formatted output
+                # is less than the specified width, then try to print everything on
+                # one line
+                skip = false
+                @level += @indentation
+                node.children.each { |child|
+                    write( child, output )
+                }
+                @level -= @indentation
+                output << "</#{node.expanded_name}>"
+            end
+            output << "\n"
+            output << ' '*@level
+        end
+    end
+    
+end
+    
+end

data/lib/rcov/rexml_extensions.rb

@@ -0,0 +1,44 @@
+require 'rexml/document'
+require 'rexml/formatters/pretty'
+
+module Rcov
+  module REXMLExtensions
+  
+    def self.fix_pretty_formatter_wrap
+      REXML::Formatters::Pretty.class_eval do
+        include PrettyFormatterWrapFix
+      end
+    end
+
+    # Fix for this bug: http://clint-hill.com/2008/10/02/a-bug-in-ruby-did-i-just-find-that/
+    # Also known from this fun exception:
+    #
+    #    /usr/local/ruby/lib/ruby/1.8/rexml/formatters/pretty.rb:131:in
+    #    `[]': no implicit conversion from nil to integer (TypeError)
+    #
+    # This bug was fixed in Ruby with this changeset http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=19487
+    # ...which should mean that this bug only affects Ruby 1.8.6.  The latest stable version of 1.8.7 (and up) should be fine.
+    module PrettyFormatterWrapFix
+
+      def self.included(base)
+        base.class_eval do
+          def wrap(string, width)
+            # Recursively wrap string at width.
+            return string if string.length <= width
+            place = string.rindex(' ', width) # Position in string with last ' ' before cutoff
+            return string if place.nil?
+            return string[0,place] + "\n" + wrap(string[place+1..-1], width)
+          end
+        end
+      end
+    
+    end
+  
+    def self.init!
+      if RUBY_VERSION == "1.8.6"
+        fix_pretty_formatter_wrap
+      end
+    end
+  end
+  
+end

data/lib/rcov/version.rb

@@ -0,0 +1,11 @@
+# rcov Copyright (c) 2004-2006 Mauricio Fernandez <mfp@acm.org>
+#
+# See LEGAL and LICENSE for licensing information.
+
+module Rcov
+  VERSION = "0.8.2.1"
+  RELEASE_DATE = "2009-03-17"
+  RCOVRT_ABI = [2,0,0]
+  UPSTREAM_URL = "http://github.com/spicycode/rcov"
+
+end

data/lib/rcov/xx.rb

@@ -0,0 +1,754 @@
+# xx can be redistributed and used under the following conditions
+# (just keep the following copyright notice, list of conditions and disclaimer
+# in order to satisfy rcov's "Ruby license" and xx's license simultaneously).
+# 
+#ePark Labs Public License version 1
+#Copyright (c) 2005, ePark Labs, Inc. and contributors
+#All rights reserved.
+#
+#Redistribution and use in source and binary forms, with or without modification,
+#are permitted provided that the following conditions are met:
+#
+#  1. Redistributions of source code must retain the above copyright notice, this
+#     list of conditions and the following disclaimer.
+#  2. Redistributions in binary form must reproduce the above copyright notice,
+#     this list of conditions and the following disclaimer in the documentation
+#     and/or other materials provided with the distribution.
+#  3. Neither the name of ePark Labs nor the names of its contributors may be
+#     used to endorse or promote products derived from this software without
+#     specific prior written permission.
+#
+#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+#ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+#WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+#DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
+#ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+#(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+#ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+#(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+#SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+unless defined? $__xx_rb__
+
+require "rexml/document"
+
+
+module XX
+
+  VERSION = "0.1.0"
+
+  %w(
+    CRAZY_LIKE_A_HELL
+    PERMISSIVE
+    STRICT
+    ANY
+  ).each{|c| const_set c, c}
+
+  class Document
+
+    attr "doc"
+    attr "stack"
+    attr "size"
+
+    def initialize(*a, &b)
+      @doc = ::REXML::Document::new(*a, &b)
+      @stack = [@doc]
+      @size = 0
+    end
+    
+    def top
+      @stack.last
+    end
+    
+    def push(element)
+      @stack.push element
+    end
+
+    def pop
+      @stack.pop unless @stack.size == 1
+    end
+
+    def tracking_additions
+      n = @size
+      yield
+      return @size - n
+    end
+
+    def to_str(port = "")
+      @doc.write port, indent=-1, transitive=false, ie_hack=true
+      port
+    end
+    
+    alias_method "to_s", "to_str"
+
+    def pretty(port = '') 
+      @doc.write port, indent=2, transitive=false, ie_hack=true
+      port
+    end
+
+    def create(element)
+      push element
+      begin
+        object = nil
+        additions =
+          tracking_additions do
+            object = yield element if block_given?
+          end
+        if object and additions.zero?
+          self << object
+        end
+      ensure
+        pop
+      end
+      self << element
+      element
+
+    end
+    def << object
+
+      t, x = top, object
+
+      if x
+        case t
+          when ::REXML::Document
+
+            begin
+              t <<
+                case x
+                  when ::REXML::Document
+                    x.root || ::REXML::Text::new(x.to_s)
+                  when ::REXML::Element
+                    x
+                  when ::REXML::CData
+                    x
+                  when ::REXML::Text
+                    x
+                  else # string
+                    ::REXML::Text::new(x.to_s)
+                end
+            rescue
+              if t.respond_to? "root"
+                t = t.root
+                retry
+              else
+                raise
+              end
+            end
+
+          when ::REXML::Element
+            t <<
+              case x
+                when ::REXML::Document
+                  x.root || ::REXML::Text::new(x.to_s)
+                when ::REXML::Element
+                  x
+                when ::REXML::CData
+                  #::REXML::Text::new(x.write(""))
+                  x
+                when ::REXML::Text
+                  x
+                else # string
+                  ::REXML::Text::new(x.to_s)
+              end
+
+          when ::REXML::Text
+            t <<
+              case x
+                when ::REXML::Document
+                  x.write ""
+                when ::REXML::Element
+                  x.write ""
+                when ::REXML::CData
+                  x.write ""
+                when ::REXML::Text
+                  x.write ""
+                else # string
+                  x.to_s
+              end
+
+          else # other - try anyhow 
+            t <<
+              case x
+                when ::REXML::Document
+                  x.write ""
+                when ::REXML::Element
+                  x.write ""
+                when ::REXML::CData
+                  x.write ""
+                when ::REXML::Text
+                  x.write ""
+                else # string
+                  x.to_s
+              end
+        end
+      end
+
+      @size += 1
+      self
+
+    end
+
+  end
+
+  module Markup
+
+    class Error < ::StandardError; end
+
+    module InstanceMethods
+
+      def method_missing m, *a, &b
+
+        m = m.to_s
+
+        tag_method, tag_name = xx_class::xx_tag_method_name m
+
+        c_method_missing = xx_class::xx_config_for "method_missing", xx_which
+        c_tags = xx_class::xx_config_for "tags", xx_which
+
+        pat =
+          case c_method_missing
+            when ::XX::CRAZY_LIKE_A_HELL
+              %r/.*/
+            when ::XX::PERMISSIVE
+              %r/_$/o
+            when ::XX::STRICT
+              %r/_$/o
+            else
+              super(m.to_sym, *a, &b)
+          end
+
+        super(m.to_sym, *a, &b) unless m =~ pat
+
+        if c_method_missing == ::XX::STRICT
+          super(m.to_sym, *a, &b) unless c_tags.include? tag_name
+        end
+
+        ret, defined = nil
+
+        begin
+          xx_class::xx_define_tmp_method tag_method
+          xx_class::xx_define_tag_method tag_method, tag_name
+          ret = send tag_method, *a, &b
+          defined = true
+        ensure
+          xx_class::xx_remove_tag_method tag_method unless defined
+        end
+
+        ret
+
+      end
+      def xx_tag_ tag_name, *a, &b
+
+        tag_method, tag_name = xx_class::xx_tag_method_name tag_name 
+
+        ret, defined = nil
+
+        begin
+          xx_class::xx_define_tmp_method tag_method
+          xx_class::xx_define_tag_method tag_method, tag_name
+          ret = send tag_method, *a, &b
+          defined = true
+        ensure
+          xx_class::xx_remove_tag_method tag_method unless defined
+        end
+
+        ret
+
+      end
+      alias_method "g_", "xx_tag_"
+      def xx_which *argv 
+
+        @xx_which = nil unless defined? @xx_which
+        if argv.empty?
+          @xx_which
+        else
+          xx_which = @xx_which
+          begin
+            @xx_which = argv.shift 
+            return yield
+          ensure
+            @xx_which = xx_which
+          end
+        end
+
+      end
+      def xx_with_doc_in_effect *a, &b
+
+        @xx_docs ||= []
+        doc = ::XX::Document::new(*a)
+        ddoc = doc.doc
+        begin
+          @xx_docs.push doc
+          b.call doc if b
+
+          doctype = xx_config_for "doctype", xx_which
+          if doctype
+            unless ddoc.doctype
+              doctype = ::REXML::DocType::new doctype unless 
+                ::REXML::DocType === doctype
+              ddoc << doctype
+            end
+          end
+
+          xmldecl = xx_config_for "xmldecl", xx_which
+          if xmldecl
+            if ddoc.xml_decl == ::REXML::XMLDecl::default
+              xmldecl = ::REXML::XMLDecl::new xmldecl unless
+                ::REXML::XMLDecl === xmldecl
+              ddoc << xmldecl
+            end
+          end
+
+          return doc
+        ensure
+          @xx_docs.pop
+        end
+
+      end
+      def xx_doc
+
+        @xx_docs.last rescue raise "no xx_doc in effect!"
+
+      end
+      def xx_text_ *objects, &b
+
+        doc = xx_doc
+
+        text =
+          ::REXML::Text::new("", 
+            respect_whitespace=true, parent=nil
+          )
+
+        objects.each do |object| 
+          text << object.to_s if object
+        end
+
+        doc.create text, &b
+
+      end
+      alias_method "text_", "xx_text_"
+      alias_method "t_", "xx_text_"
+      def xx_markup_ *objects, &b
+
+        doc = xx_doc
+
+        doc2 = ::REXML::Document::new ""
+
+        objects.each do |object| 
+          (doc2.root ? doc2.root : doc2) << ::REXML::Document::new(object.to_s)
+        end
+
+
+        ret = doc.create doc2, &b
+        puts doc2.to_s
+        STDIN.gets
+        ret
+
+      end
+      alias_method "x_", "xx_markup_"
+      def xx_any_ *objects, &b
+
+        doc = xx_doc
+        nothing = %r/.^/m
+
+        text =
+          ::REXML::Text::new("", 
+            respect_whitespace=true, parent=nil, raw=true, entity_filter=nil, illegal=nothing
+          )
+
+        objects.each do |object| 
+          text << object.to_s if object
+        end
+
+        doc.create text, &b
+
+      end
+      alias_method "h_", "xx_any_"
+      remove_method "x_" if instance_methods.include? "x_"
+      alias_method "x_", "xx_any_" # supplant for now
+      def xx_cdata_ *objects, &b
+
+        doc = xx_doc
+
+        cdata = ::REXML::CData::new ""
+
+        objects.each do |object| 
+          cdata << object.to_s if object
+        end
+
+        doc.create cdata, &b
+
+      end
+      alias_method "c_", "xx_cdata_"
+      def xx_parse_attributes string
+
+        string = string.to_s
+        tokens = string.split %r/,/o
+        tokens.map{|t| t.sub!(%r/[^=]+=/){|key_eq| key_eq.chop << " : "}}
+        xx_parse_yaml_attributes(tokens.join(','))
+
+      end
+      alias_method "att_", "xx_parse_attributes"
+      def xx_parse_yaml_attributes string
+
+        require "yaml"
+        string = string.to_s
+        string = "{" << string unless string =~ %r/^\s*[{]/o
+        string = string << "}" unless string =~ %r/[}]\s*$/o
+        obj = ::YAML::load string
+        raise ArgumentError, "<#{ obj.class }> not Hash!" unless Hash === obj
+        obj
+
+      end
+      alias_method "at_", "xx_parse_yaml_attributes"
+      alias_method "yat_", "xx_parse_yaml_attributes"
+      def xx_class
+
+        @xx_class ||= self.class
+
+      end
+      def xx_tag_method_name *a, &b 
+
+        xx_class.xx_tag_method_name(*a, &b)
+
+      end
+      def xx_define_tmp_method *a, &b 
+
+        xx_class.xx_define_tmp_methodr(*a, &b)
+
+      end
+      def xx_define_tag_method *a, &b 
+
+        xx_class.xx_define_tag_method(*a, &b)
+
+      end
+      def xx_remove_tag_method *a, &b 
+
+        xx_class.xx_tag_remove_method(*a, &b)
+
+      end
+      def xx_ancestors
+
+        raise Error, "no xx_which in effect" unless xx_which
+        xx_class.xx_ancestors xx_which
+
+      end
+      def xx_config
+
+        xx_class.xx_config
+
+      end
+      def xx_config_for *a, &b
+
+        xx_class.xx_config_for(*a, &b)
+
+      end
+      def xx_configure *a, &b
+
+        xx_class.xx_configure(*a, &b)
+
+      end
+
+    end
+
+    module ClassMethods
+
+      def xx_tag_method_name m
+
+        m = m.to_s
+        tag_method, tag_name = m, m.gsub(%r/_+$/, "")
+        [ tag_method, tag_name ]
+
+      end
+      def xx_define_tmp_method m 
+
+        define_method(m){ raise NotImplementedError, m.to_s }
+
+      end
+      def xx_define_tag_method tag_method, tag_name = nil
+
+        tag_method = tag_method.to_s
+        tag_name ||= tag_method.gsub %r/_+$/, ""
+
+        remove_method tag_method if instance_methods.include? tag_method
+        module_eval <<-code, __FILE__, __LINE__+1
+          def #{ tag_method } *a, &b
+            hashes, nothashes = a.partition{|x| Hash === x}
+
+            doc = xx_doc
+            element = ::REXML::Element::new '#{ tag_name }'
+
+            hashes.each{|h| h.each{|k,v| element.add_attribute k.to_s, v}}
+            nothashes.each{|nh| element << ::REXML::Text::new(nh.to_s)}
+
+            doc.create element, &b
+          end
+        code
+        tag_method
+
+      end
+      def xx_remove_tag_method tag_method
+
+        remove_method tag_method rescue nil
+
+      end
+      def xx_ancestors xx_which = self
+
+        list = []
+        ancestors.each do |a|
+          list << a if a < xx_which
+        end
+        xx_which.ancestors.each do |a|
+          list << a if a <= Markup
+        end
+        list
+
+      end
+      def xx_config
+
+        @@xx_config ||= Hash::new{|h,k| h[k] = {}}
+
+      end
+      def xx_config_for key, xx_which = nil 
+
+        key = key.to_s 
+        xx_which ||= self
+        xx_ancestors(xx_which).each do |a|
+          if xx_config[a].has_key? key
+            return xx_config[a][key]
+          end
+        end
+        nil
+
+      end
+      def xx_configure key, value, xx_which = nil 
+
+        key = key.to_s
+        xx_which ||= self
+        xx_config[xx_which][key] = value
+
+      end
+
+    end
+
+    extend ClassMethods
+    include InstanceMethods
+
+    def self::included other, *a, &b
+
+      ret = super
+      other.module_eval do
+        include Markup::InstanceMethods
+        extend Markup::ClassMethods
+        class << self
+          define_method("included", Markup::XX_MARKUP_RECURSIVE_INCLUSION_PROC)
+        end
+      end
+      ret
+
+    end
+    XX_MARKUP_RECURSIVE_INCLUSION_PROC = method("included").to_proc
+
+    xx_configure "method_missing", XX::PERMISSIVE
+    xx_configure "tags", []
+    xx_configure "doctype", nil
+    xx_configure "xmldecl", nil
+
+  end
+
+  module XHTML
+
+    include Markup
+    xx_configure "doctype", %(html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd")
+
+    def xhtml_ which = XHTML, *a, &b
+
+      xx_which(which) do
+        doc = xx_with_doc_in_effect(*a, &b)
+        ddoc = doc.doc
+        root = ddoc.root
+        if root and root.name and root.name =~ %r/^html$/i 
+          if root.attribute("lang",nil).nil? or root.attribute("lang",nil).to_s.empty?
+            root.add_attribute "lang", "en"
+          end
+          if root.attribute("xml:lang").nil? or root.attribute("xml:lang").to_s.empty?
+            root.add_attribute "xml:lang", "en"
+          end
+          if root.namespace.nil? or root.namespace.to_s.empty?
+            root.add_namespace "http://www.w3.org/1999/xhtml"
+          end
+        end
+        doc
+      end
+
+    end
+
+    module Strict
+
+      include XHTML
+      xx_configure "doctype", %(html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd")
+      xx_configure "tags", %w(
+        html head body div span DOCTYPE title link meta style p
+        h1 h2 h3 h4 h5 h6 strong em abbr acronym address bdo blockquote cite q code
+        ins del dfn kbd pre samp var br a base img
+        area map object param ul ol li dl dt dd table
+        tr td th tbody thead tfoot col colgroup caption form input
+        textarea select option optgroup button label fieldset legend script noscript b
+        i tt sub sup big small hr
+      )
+      xx_configure "method_missing", ::XX::STRICT
+
+      def xhtml_ which = XHTML::Strict, *a, &b
+
+        super(which, *a, &b)
+
+      end
+
+    end
+
+    module Transitional
+
+      include XHTML
+      xx_configure "doctype", %(html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd")
+      def xhtml_ which = XHTML::Transitional, *a, &b
+
+        super(which, *a, &b)
+
+      end
+
+    end
+
+  end
+
+  module HTML4
+
+    include Markup
+    xx_configure "doctype", %(html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN")
+ 
+    def html4_ which = HTML4, *a, &b
+
+      xx_which(which){ xx_with_doc_in_effect(*a, &b) }
+
+    end
+
+    module Strict
+
+      include HTML4
+      xx_configure "doctype", %(html PUBLIC "-//W3C//DTD HTML 4.01 Strict//EN")
+      xx_configure "tags", %w(
+        html head body div span DOCTYPE title link meta style p
+        h1 h2 h3 h4 h5 h6 strong em abbr acronym address bdo blockquote cite q code
+        ins del dfn kbd pre samp var br a base img
+        area map object param ul ol li dl dt dd table
+        tr td th tbody thead tfoot col colgroup caption form input
+        textarea select option optgroup button label fieldset legend script noscript b
+        i tt sub sup big small hr
+      )
+      xx_configure "method_missing", ::XX::STRICT
+      def html4_ which = HTML4::Strict, *a, &b
+
+        super(which, *a, &b)
+
+      end
+
+    end
+
+    module Transitional
+
+      include HTML4
+      xx_configure "doctype", %(html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN")
+      def html4_ which = HTML4::Transitional, *a, &b
+
+        super(which, *a, &b)
+
+      end
+
+    end
+
+  end
+  HTML = HTML4
+
+  module XML
+
+    include Markup
+    xx_configure "xmldecl", ::REXML::XMLDecl::new
+
+    def xml_ *a, &b
+
+      xx_which(XML){ xx_with_doc_in_effect(*a, &b)}
+
+    end
+
+  end
+
+end
+
+$__xx_rb__ = __FILE__
+end
+
+
+
+
+
+
+
+
+
+
+#
+# simple examples - see samples/ dir for more complete examples
+#
+
+if __FILE__ == $0
+
+  class Table < ::Array
+    include XX::XHTML::Strict
+    include XX::HTML4::Strict
+    include XX::XML
+
+    def doc 
+      html_{
+        head_{ title_{ "xhtml/html4/xml demo" } }
+
+        div_{
+          h_{ "< malformed html & un-escaped symbols" }
+        }
+
+        t_{ "escaped & text > <" }
+
+        x_{ "<any_valid> xml </any_valid>" }
+
+        div_(:style => :sweet){ 
+          em_ "this is a table"
+
+          table_(:width => 42, :height => 42){
+            each{|row| tr_{ row.each{|cell| td_ cell } } }
+          }
+        }
+
+        script_(:type => :dangerous){ cdata_{ "javascript" } }
+      }
+    end
+    def to_xhtml
+      xhtml_{ doc }
+    end
+    def to_html4
+      html4_{ doc }
+    end
+    def to_xml
+      xml_{ doc }
+    end
+  end
+
+  table = Table[ %w( 0 1 2 ), %w( a b c ) ]
+  
+  methods = %w( to_xhtml to_html4 to_xml )
+
+  methods.each do |method|
+    2.times{ puts "-" * 42 }
+    puts(table.send(method).pretty)
+    puts
+  end
+
+end