qwikdoc 0.0.1

data/vendor/qwik/htree-diff.rb

@@ -0,0 +1,87 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+begin
+  require 'diff'
+rescue LoadError
+  require 'algorithm/diff'
+end
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-string'
+require 'qwik/htree-generator'
+
+module Qwik
+  class HTreeDiffHtmlGenerator
+    def initialize(s1, s2)
+      @s1 = s1.gsub(/\r/, "")
+      @s2 = s2.gsub(/\r/, "")
+    end
+
+    def to_txt
+      a1 = @s1.split("\n").collect! {|s| "#{s}\n"}
+      a2 = @s2.split("\n").collect! {|s| "#{s}\n"}
+      Diff.diff(a1, a2) 
+    end
+
+    def to_xml
+      g = HTree::Generator.new
+      src = @s1.split("\n").collect {|s| "#{s.escapeHTML}" }
+      si = 0
+      di = 0
+      e = []
+      to_txt.each {|action, position, elements|
+        case action
+        when :-
+          while si < position
+	    e << HTree::Text.new(src[si])
+	    e << g.br
+            si += 1
+            di += 1
+          end
+          si += elements.length
+          elements.each {|l|
+            e << g.del{l.chomp}
+	    e << g.br
+	  }
+        when :+
+          while di < position
+	    e << HTree::Text.new(src[si])
+	    e << g.br
+            si += 1
+            di += 1
+          end
+          di += elements.length
+          elements.each {|l|
+            e << g.ins{l.chomp}
+	    e << g.br
+	  }
+        end
+      }
+      while si < src.length
+	e << HTree::Text.new(src[si])
+	e << g.br
+        si += 1
+      end
+      e
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeDiffHtmlGenerator < Test::Unit::TestCase
+    def test_all
+      dhg = Qwik::HTreeDiffHtmlGenerator.new('a', 'b')
+      ok_eq([[:-, 0, ["a\n"]], [:+, 0, ["b\n"]]], dhg.to_txt)
+      ok_eq("[{elem <del> {text a}}, {emptyelem <br>}, {elem <ins> {text b}}, {emptyelem <br>}]", dhg.to_xml.inspect)
+    end
+  end
+end

data/vendor/qwik/htree-format-xml.rb

@@ -0,0 +1,57 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module HTree
+  module Node
+    def format_xml(i=-1)
+      str = ''
+      display_xml(str)
+      str.gsub!(%r! xmlns=\"http://www.w3.org/1999/xhtml\"!, "")
+      str.gsub!(%r! xmlns=\"\"!, "")
+      if i < 0
+	str.gsub!(/\n>/, ">")
+	str.gsub!(/\n\/>/, "/>")
+      end
+      str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTree_format_xml < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      # check_extract_text
+      e = HTree::Elem.new('a', 't')
+      ok("<a>t</a>", e)
+      ok_eq('t', e.extract_text.to_s)
+
+      e = HTree::Elem.new('b', 's', e, 'u')
+      ok("<b>s<a>t</a>u</b>", e)
+      ok_eq('stu', e.extract_text.to_s)
+
+      # test_htree_format_xml
+      e = HTree::Elem.new('a')
+      ok_eq("<a/>", e.format_xml)
+      ok_eq("<a\n/>", e.format_xml(0))
+
+      e = HTree::Text.new('a')
+      ok_eq('a', e.format_xml)
+      ok_eq('a', e.format_xml(0))
+    end
+  end
+end

data/vendor/qwik/htree-generator.rb

@@ -0,0 +1,144 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module HTree
+  module GeneratorModule
+    def method_missing(symbol, *args, &block)
+      make(symbol, *args, &block)
+    end
+
+    def p(*args, &block)
+      make(:p, *args, &block)
+    end
+
+    def make(symbol, *args, &block)
+      ar = make_ar(symbol, *args, &block)
+      Elem.new(*ar)
+    end
+
+    def make_ar(symbol, *args, &block)
+      ar = []
+
+      ar << symbol.to_s.gsub(/_/, '-') # tag name
+
+      if 0 < args.length
+	a = add_args(args)
+	ar += a
+      end
+
+      if block
+	y = block.call
+	ar += add_elems(y)
+      end
+
+      ar
+    end
+
+    def add_args(args)
+      args.flatten.map {|arg|
+	symbol_to_hash(arg)
+      }
+    end
+
+    def add_elems(args)
+      return [] if args.nil?
+      return [args] unless args.kind_of? Array
+      ar = []
+      args.each {|a|
+	next if a.nil?
+	ar << a
+      }
+      ar = [''] if ar.empty?
+      ar
+    end
+
+    def symbol_to_hash(s)
+      h = {}
+      s.each {|k, v|
+	next if v.nil?
+	h[k.to_s] = v.to_s
+      }
+      h
+    end
+  end
+
+  class Generator; include GeneratorModule; end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeGenerator < Test::Unit::TestCase
+    def ok(e, s)
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      g = HTree::Generator.new
+
+      # test_htree_generator
+      ok("<p/>", g.p)
+      doc = HTree::Doc.new(g.p)
+      ok("<p/>", doc)
+      str = ''
+      doc.display_xml(str)
+      ok_eq("<p\n/>", str)
+
+      ok("<a/>", g.a)
+      ok("<b/>", g.b{})
+      ok("<b></b>", g.b{''})
+      ok('<img src='u'/>', g.img(:src=>'u'))
+      ok("<b>t</b>", g.b{'t'})
+      ok("<p><b>b</b></p>", g.p{g.b{'b'}})
+      ok("<p>t<p>b</p>t</p>", g.p{['t', g.p{'b'}, 't']})
+      ok('<a href='u'>t</a>', g.a(:href=>'u'){'t'})
+      ok('<font size='7'>t</font>', g.font(:size => 7){'t'})
+
+      # test_namespace
+      ok("<b>t</b>", g.make('b'){'t'})
+      ok("<n:b>t</n:b>", g.make("n:b"){'t'})
+      ok('<a href='u'>t</a>', g.make('a', :href=>'u'){'t'})
+
+      html = g.html {[
+	  g.head {[
+	      g.title {"�^�C�g��"},
+	    ]},
+	  g.body {[
+	      g.pre {[g.b {'world'},  'hello']},
+	      g.pre {['This is ', g.b{'bold'}, ' text.']},
+	      g.pre {['This is ', g.i{'italic'}, ' text.']},
+	      g.p {['This is ', g.a(:href=>'hoge'){'anchor'}, ' text.']},
+	    ]}
+	]}
+      ok("<html><head><title>�^�C�g��</title></head><body><pre><b>world</b>hello</pre><pre>This is <b>bold</b> text.</pre><pre>This is <i>italic</i> text.</pre><p>This is <a href=\"hoge\">anchor</a> text.</p></body></html>", html)
+
+      # test_with_underbar
+      ok("<ab/>", g.ab)
+      ok("<a-b/>", g.a_b)
+      ok("<a-b/>", g.make("a_b"))
+      ok("<a-b/>", g.make("a-b"))
+
+      # test_ordered_hash
+      ok("<a b=\"c\"/>", g.a({'b'=>'c'}))
+      ok("<a b=\"c\"/>", g.a([{'b'=>'c'}]))
+      ok("<a b=\"c\" d=\"e\"/>", g.a([{'b'=>'c'}, {'d'=>'e'}]))
+      ok("<a b=\"c\" d=\"e\"/>", g.a({'b'=>'c'}, {'d'=>'e'}))
+
+      # test_multi_attr
+      ok("<a href=\"h\" class=\"c\"/>",
+	 g.make('a', {:href=>'h'}, {:class=>'c'}))
+      ok("<a class=\"c\" href=\"h\"/>",
+	 g.make('a', {:class=>'c'}, {:href=>'h'}))
+    end
+  end
+end

data/vendor/qwik/htree-get.rb

@@ -0,0 +1,251 @@
+# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
+# This is free software with ABSOLUTELY NO WARRANTY.
+# You can redistribute it and/or modify it under the terms of the GNU GPL 2.
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'htree'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/htree-template'
+
+module HTree
+  module Container
+    def split_name_num(name)
+      name = name.sub(%r|(^//)|, '')
+
+      if /^(\w+)\[(\d+)\]$/ =~ name
+	return [$1, $2.to_i]
+      end
+
+      return [name, 1]
+    end
+
+    def find_nth_element(num=1, *names)
+      i = 1
+      traverse_element(*names) {|e|
+	return e if i == num
+	i += 1
+      }
+      return nil
+    end
+
+    def get_tag(tag)
+      tag, num = split_name_num(tag)
+      names = html_tags(tag)
+      return find_nth_element(num, *names)
+    end
+
+    def each_in_class(klass)
+      klass, knum = split_name_num(klass)
+      k = 1
+      klass_path = nil
+      make_loc.traverse_element {|l|
+	if klass_path.nil?
+	  if l.to_node.get_attr('class') == klass
+	    if k == knum
+	      klass_path = l.path
+	    else
+	      k += 1
+	    end
+	  end
+	elsif l.path.include?(klass_path)
+	  yield l
+	end
+      }
+      return nil
+    end
+
+    def get_class_tag(klass, tag)
+      tag, num = split_name_num(tag)
+      i = 1
+      each_in_class(klass) {|l|
+	ar = l.path.split('/')
+	e = ar.last
+	if e == tag
+	  return l.to_node if i == num
+	  i += 1
+	end
+      }
+      return nil
+    end
+
+    def each_class(klass) # obsolete
+      return each_has_attr('class', klass, &b)
+    end
+
+    def get_class(klass) # obsolete
+      return get_has_attr('class', klass)
+    end
+
+    def each_has_attr(attr, value)
+      make_loc.traverse_element {|l|
+	if l.to_node.get_attr(attr) == value
+	  yield(l.to_node)
+	end
+      }
+    end
+
+    def get_has_attr(attr, value)
+      each_has_attr(attr, value) {|l|
+	return l.to_node
+      }
+      return nil
+    end
+
+    def get_a_path(path)
+      if /\A(.*)\[(.+)\]\z/ =~ path
+	tag = $1
+	select = $2
+	if /\A@([a-z]+)='([a-z]+)'\z/ =~ select
+	  attr = $1
+	  value = $2
+#	  if attr == 'class'
+#	    return get_class(cont)
+#	  end
+	  return get_has_attr(attr, value)
+	end
+      end
+
+      return get_tag(path)
+    end
+
+    def get_path(path)
+      xml = self
+      path.split('/').each {|pa|
+	if 0 < pa.length
+	  return nil if xml.nil?
+	  xml = xml.get_a_path(pa)
+	end
+      }
+      return xml
+    end
+  end
+
+  class Elem
+    def attributes_str
+      return hash_to_str(attributes)
+    end
+
+    def hash_to_str(src)
+      h = {}
+      src.each {|k, v| h[k.to_s] = v.to_s }
+      return h
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/htree-format-xml'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestHTreeGet < Test::Unit::TestCase
+    def ok(e, s)
+      return '' if s.nil?
+      ok_eq(e, s.format_xml)
+    end
+
+    def test_all
+      # test_get_tag
+      e = HTree::Elem.new('e')
+
+      # test_split_name_num
+      ok_eq(['sidebar', 1], e.split_name_num('sidebar'))
+      ok_eq(['sidebar', 1], e.split_name_num("sidebar[1]"))
+      ok_eq(['sidebar', 2], e.split_name_num("sidebar[2]"))
+
+      # test_get_tag
+      h = HTree("<a><b><c>")
+      ok("<c/>", h.get_tag('c'))
+      ok("<b><c/></b>", h.get_tag('b'))
+
+      # test_each_in_class
+      h = HTree("<p class='a'><ta/></p><p class='b'><tb/></p><p class='b'><tb2/></p>")
+      h.each_in_class('a') {|l|
+	ok_eq("doc()/p[1]/ta", l.path)
+	ok("<ta/>", l.to_node)
+      }
+      h.each_in_class('b') {|l|
+	ok_eq("doc()/p[2]/tb", l.path)
+	ok("<tb/>", l.to_node)
+      }
+      h.each_in_class("b[2]") {|l|
+	ok_eq("doc()/p[3]/tb2", l.path)
+	ok("<tb2/>", l.to_node)
+      }
+
+      ok("<ta/>", h.get_class_tag('a', 'ta'))
+      ok("<tb/>", h.get_class_tag('b', 'tb'))
+      ok("<tb2/>", h.get_class_tag("b[2]", 'tb2'))
+
+      str = <<'EOS'    
+<html><div class='main'>
+<div class='day'><h2>bh2</h2></div>
+<div class='sidebar'><h2>sh2</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      ok("<html><div class=\"main\">\n<div class=\"day\"><h2>bh2</h2></div>\n<div class=\"sidebar\"><h2>sh2</h2></div>\n</div></html>\n", h)
+      ok("<h2>bh2</h2>", h.get_tag('h2'))
+      ok("<h2>sh2</h2>", h.get_tag("h2[2]"))
+      ok("<h2>bh2</h2>", h.get_class_tag('day', 'h2'))
+      ok("<h2>sh2</h2>", h.get_class_tag('sidebar', 'h2'))
+
+      # test_get_tag2
+      h = HTree("<a><b>tb</b><b>tb2</b><c>")
+      ok("<b>tb</b>", h.get_tag('b'))
+      ok_eq(nil, h.get_tag('nosuchtag'))
+      ok("<b>tb</b>", h.get_tag("b[1]"))
+      ok("<b>tb2</b>", h.get_tag("b[2]"))
+      ok("<b>tb</b>", h.get_tag("//b"))
+
+      # test_xpath
+      str = <<'EOS'
+<html><div class='main'>
+<div class='day'><h2>bh2</h2></div>
+<div class='sidebar'><h2>sh2<b>a</b>sh2a</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      #ok("<html><div class=\"main\">\n<div class=\"day\"><h2>bh2</h2></div>\n<div class=\"sidebar\"><h2>sh2</h2></div>\n</div></html>\n", h)
+      #ok("<h2>sh2</h2>", h.get_class_tag('sidebar', 'h2'))
+      #ok("<h2>sh2<b>a</b>sh2a</h2>", h.get_class('sidebar'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_class('sidebar'))
+      ok_instance_of(HTree::Elem, h.get_class('sidebar'))
+      ok("<b>a</b>", h.get_class('sidebar').get_tag('b'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_a_path("div[@class='sidebar']"))
+      ok("<b>a</b>", h.get_a_path("div[@class='sidebar']").get_a_path('b'))
+      ok("<div class=\"sidebar\"><h2>sh2<b>a</b>sh2a</h2></div>",
+	 h.get_path("//div[@class='sidebar']"))
+      ok("<b>a</b>", h.get_path("//div[@class='sidebar']/b"))
+
+      str = <<'EOS'
+<a href='t1' alt='t2'>t3</a>
+EOS
+      h = HTree(str)
+      ok_instance_of(HTree::Doc, h)
+      e = h.get_tag('a')
+      ok_instance_of(HTree::Elem, e)
+      ok("<a href=\"t1\" alt=\"t2\">t3</a>", e)
+      #ok_eq({href=>{text 't1'}, alt=>{text 't2'}}, e.attributes)
+      ok_eq({'href'=>'t1', 'alt'=>'t2'}, e.attributes_str)
+
+      # test_xpath_attr
+      str = <<'EOS'
+<html><div class='main'>
+<div id='menu'><h2>menuh2</h2></div>
+</div></html>
+EOS
+      h = HTree(str)
+      ok("<div id=\"menu\"><h2>menuh2</h2></div>",
+	 h.get_has_attr('id', 'menu'))
+      ok_instance_of(HTree::Elem, h.get_has_attr('id', 'menu'))
+      ok("<div id=\"menu\"><h2>menuh2</h2></div>",
+	 h.get_path("//div[@id='menu']"))
+    end
+  end
+end