qwikdoc 0.0.1

data/vendor/qwik/wabisabi-index.rb

@@ -0,0 +1,174 @@
+# 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.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/wabisabi-basic'
+require 'qwik/wabisabi-traverse'
+
+module WabisabiIndexModule
+  def set_parent(parent)
+    @parent = parent
+    return nil
+  end
+
+  def parent
+    @parent = nil if ! defined?(@parent)
+    return @parent
+  end
+
+  def traverse_with_parent(&b)
+    self.each {|child|
+      next if ! child.is_a?(Array)
+      yield(self, child)
+      child.traverse_with_parent(&b)	# Recursive.
+    }
+  end
+
+  def set_all_parent
+    self.traverse_with_parent {|parent, child|
+      child.set_parent(parent)
+    }
+  end
+
+  def make_index
+    @tags  = Hash.new {|h, k| h[k] = [] }
+    @klass = Hash.new {|h, k| h[k] = [] }
+
+    self.traverse_element {|e|
+      classname = e.attr(:class)
+      if classname
+	@klass[classname] << e
+      end
+
+      name = e.element_name
+      @tags[name] << e
+    }
+
+    self.set_all_parent
+  end
+
+  def index_tag(element_name)
+    return @tags[element_name][0]
+  end
+
+  def index_class(classname)
+    return @klass[classname][0]
+  end
+
+  # Use parent.
+  def index_each_tag(element_name)
+    if ! defined?(@tags)
+      self.make_index
+    end
+
+    tags = @tags[element_name]
+    return if tags.nil?
+    tags.each {|e|
+      result = yield(e)
+
+      parent = e.parent
+      new_parent = []
+      parent.each_with_index {|child, i|
+	if child.object_id == e.object_id
+	  if result.nil?
+	    # do nothing.
+	  else
+	    new_parent << result
+	  end
+	else
+	  new_parent << child
+	end
+      }
+
+      parent.replace(new_parent)
+    }
+    return nil
+  end
+end
+
+class Array
+  include WabisabiIndexModule
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestWabisabiIndex < Test::Unit::TestCase
+    def test_parent
+      child = [:child]
+      parent = [:parent, child]
+
+      # test_parent
+      assert_equal nil, child.parent
+
+      # test_set_parent
+      child.set_parent(parent)
+      assert_equal [:parent, [:child]], child.parent
+
+      # test_traverse_with_parent
+      parent.traverse_with_parent {|p, c|
+	assert_equal [:parent, [:child]], p
+	assert_equal [:child], c
+      }
+
+      # test_set_all_parent
+      parent.set_all_parent
+      assert_equal [:parent, [:child]], child.parent
+    end
+
+    def test_parent_real
+      w = [:html,
+	[:div, {:class=>'main'},
+	  [:div, {:class=>'day'},
+	    [:h2, 'bh2']],
+	  [:div, {:class=>'sidebar'},
+	    [:h2, 'sh2',
+	      [:b, 'a'], 'sh2a']]]]
+
+      # test_set_all_parent
+      w.set_all_parent
+
+      # test_parent
+      ok_eq(nil, w.parent)
+      ok_eq(w, w[1].parent)
+      ok_eq([:h2, 'sh2', [:b, 'a'], 'sh2a'],
+	    w[1][3][2][2].parent)
+    end
+
+    def test_all
+      w = [:html, [:div, {:class=>'main'},
+	  [:div, {:class=>'day'}, [:h2, 'bh2']],
+	  [:div, {:class=>'sidebar'}, [:h2, 'sh2', [:b, 'a'], 'sh2a']]]]
+
+      # test_make_index
+      w.make_index
+
+      # test_index_tag
+      assert_equal [:h2, 'bh2'], w.index_tag(:h2)
+
+      # test_index_class
+      assert_equal [:div, {:class=>'sidebar'}, [:h2, 'sh2', [:b, 'a'], 'sh2a']],
+	    w.index_class('sidebar')
+
+      # test_index_each_tag
+      w = [:p, '']
+      w.make_index
+      nw = w.index_each_tag(:a) {|ww|
+	[ww]
+      }
+
+      w = [[:a, '']]
+      w.make_index
+      w.index_each_tag(:a) {|ww|
+	www = ww.dup
+	www[-1] = 't'
+	www
+      }
+      assert_equal [[:a, 't']], w
+    end
+  end
+end

data/vendor/qwik/wabisabi-table.rb

@@ -0,0 +1,212 @@
+# 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.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/wabisabi-basic'
+
+module Qwik
+  class WabisabiTable
+    def self.error_check(table)
+      each_td(table) {|td, col, row|
+	if 2 < td.length	# Error!
+	  return true
+	end
+      }
+      return false	# No error.
+    end
+
+    def self.prepare(table)
+      fill_empty_td(table)
+      add_new_col(table)
+      add_new_row(table)
+      replace_with_input(table)
+      make_th(table)
+      set_new_col_and_new_row(table)
+      add_new_col_button(table)
+      add_new_row_button(table)
+      return table
+    end
+
+    def self.fill_empty_td(table, max_col=nil)
+      max_col = max_col(table) if max_col.nil?
+      table.each_child_with_index {|tr, row|
+	col_len = tr.children.length
+	if col_len < max_col
+	  (max_col - col_len).times {
+	    tr << [:td, '']
+	  }
+	end
+      }
+      return nil
+    end
+
+    def self.add_new_col(table)
+      each_tr(table) {|tr, row|
+	tr << [:td, '']
+      }
+    end
+
+    def self.max_col(table)
+      max_col = 0
+      each_tr(table) {|tr, row|
+	col_len = tr.children.length
+	max_col = col_len if max_col < col_len
+      }
+      return max_col
+    end
+
+    def self.each_tr(table)
+      table.each_child_with_index {|tr, row|
+	yield(tr, row)
+      }
+    end
+
+    def self.each_td(table)
+      each_tr(table) {|tr, row|
+	tr.each_child_with_index {|td, col|
+	  yield(td, col, row)
+	}
+      }
+    end
+
+    def self.add_new_row(table, max_col=nil)
+      max_col = max_col(table) if max_col.nil?
+      tr = [:tr]
+      (max_col).times {
+	tr << [:td, '']
+      }
+      table << tr
+    end
+
+    def self.replace_with_input(table)
+      max_len = Array.new(0)
+      each_td(table) {|td, col, row|
+	name = "t_#{col}_#{row}"
+	text = td[1]
+	len = text.length
+	len = 1 if len < 1
+	max_len[col] ||= 0
+	max_len[col] = len if max_len[col] < len
+	td[1] = [:input, {:name=>name, :value=>text}]
+      }
+      each_td(table) {|td, col, row|
+	td[1].set_attr(:size=>max_len[col].to_s)
+      }
+    end
+
+    def self.make_th(table)
+      each_td(table) {|td, col, row|
+	td[0] = :th if row == 0 || col == 0
+      }
+    end
+
+    def self.set_new_col_and_new_row(table)
+      last_tr = table.last
+      last_tr.set_attr(:class=>'new_row')
+      each_tr(table) {|tr, row|
+	tr.last.set_attr(:class=>'new_col')
+      }
+    end
+
+    def self.add_new_col_button(table)
+      first_tr = table.children.first
+      first_tr << [:td, {:class=>'new_col_button'},
+	[:a, {:href=>'javascript:show_new_col();'}, '>>']]
+    end
+
+    def self.add_new_row_button(table)
+      table << [:tr, {:class=>'new_row_button_row'},
+	[:td, {:class=>'new_row_button'},
+	  [:a, {:href=>'javascript:show_new_row();'}, 'v']]]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  module Qwik
+    class WabisabiTable
+      attr_reader :table	# Only for debug.
+    end
+  end
+
+  class TestWabisabiTable < Test::Unit::TestCase
+    def test_class_method
+      table_1x1 = [:table, [:tr, [:td, '']]]
+      table_2x2 = [:table,
+	[:tr, [:td, ''], [:td, '']],
+	[:tr, [:td, ''], [:td, '']]]
+      table_with_empty = [:table,
+	[:tr, [:td, ''], [:td, '']],
+	[:tr, [:td, '']]]
+
+      c = Qwik::WabisabiTable
+
+      # test_max_col
+      assert_equal 1, c.max_col(table_1x1)
+      assert_equal 2, c.max_col(table_2x2)
+      assert_equal 2, c.max_col(table_with_empty)
+
+      # test_fill_empty_td
+      c.fill_empty_td(table_with_empty)
+      eq([:table, [:tr, [:td, ''], [:td, '']], [:tr, [:td, ''], [:td, '']]],
+	 table_with_empty)
+
+      # test_each_tr
+      c.each_tr(table_1x1) {|tr, row|
+	assert_equal :tr, tr[0]
+	assert_instance_of Fixnum, row
+      }
+
+      # test_each_td
+      c.each_td(table_1x1) {|td, col, row|
+	assert_equal :td, td[0]
+	assert_instance_of Fixnum, col
+	assert_instance_of Fixnum, row
+      }
+      # test_add_new_col
+      c.add_new_col(table_1x1)
+      assert_equal [:table, [:tr, [:td, ''], [:td, '']]], table_1x1
+
+      # test_add_new_row
+      c.add_new_row(table_1x1)
+      assert_equal [:table, [:tr, [:td, ''], [:td, '']],
+	[:tr, [:td, ''], [:td, '']]],
+	    table_1x1
+    end
+
+    def test_for_schedule
+      table_1x1 = [:table, [:tr, [:td, '']]]
+
+      c = Qwik::WabisabiTable
+
+      c.prepare(table_1x1)
+      assert_equal [:table,
+	      [:tr,
+		[:th, [:input, {:size=>'1', :value=>'', :name=>'t_0_0'}]],
+		[:th,
+		  {:class=>'new_col'},
+		  [:input, {:size=>'1', :value=>'', :name=>'t_1_0'}]],
+		[:td,
+		  {:class=>'new_col_button'},
+		  [:a, {:href=>'javascript:show_new_col();'}, '>>']]],
+	      [:tr,
+		{:class=>'new_row'},
+		[:th, [:input, {:size=>'1', :value=>'', :name=>'t_0_1'}]],
+		[:td,
+		  {:class=>'new_col'},
+		  [:input, {:size=>'1', :value=>'', :name=>'t_1_1'}]]],
+	      [:tr,
+		{:class=>'new_row_button_row'},
+		[:td,
+		  {:class=>'new_row_button'},
+		  [:a, {:href=>'javascript:show_new_row();'}, 'v']]]],
+	    table_1x1
+    end
+  end
+end

data/vendor/qwik/wabisabi-template.rb

@@ -0,0 +1,295 @@
+# 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.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/wabisabi-basic'
+
+module WabisabiTemplateModule
+  def deep_copy
+    map {|a|
+      a.is_a?(Array) ? a.deep_copy : a
+    }
+  end
+
+  def prepare
+    h_class = {}
+    h_id = {}
+    self.each_tag {|e|
+      attr = self.attr
+      next if attr.nil?
+      klass = attr[:class]
+      h_class[klass] = self if klass
+      tag_id = attr[:id]
+      h_id[tag_id] = self if tag_id
+    }
+    @h_class = h_class
+    @h_id = h_id
+  end
+
+  def set_to_class(klass, w)
+    prepare if @h_class
+    e = @h_class[klass]
+    e << w
+  end
+
+  def each_tag(*tags, &block)
+    raise 'block not given' unless block_given?
+
+    ar = []
+    deleted = false
+    self.each {|w|
+      if ! w.is_a?(Array)
+	ar << w
+	next
+      end
+
+      if tags.length == 0 || tags.include?(w[0])
+	y = yield(w)
+
+	if y.nil?	# do nothing, go next
+	  deleted = true
+	  next
+	end
+
+	if y != w	# not equal
+	  if y.is_a?(Array) && !y[0].is_a?(Symbol)
+	    ar += y
+	  else
+	    ar << y
+	  end
+	  next
+	else
+	  # do nothing, run through
+	end
+      end
+
+      ar << w.each_tag(*tags, &block)	# recursive
+    }
+
+    if ar[0].is_a?(Symbol) && deleted
+      num = 0
+      ar.each {|a|
+	next if a.is_a?(Symbol) || a.is_a?(Hash)
+	num += 1
+      }
+      if num == 0
+	ar << ''
+      end
+    end
+
+    ar
+  end
+
+  def clone_with(*ar)
+    name = self[0]
+    nar = [name]
+
+    offset = 1
+    attr = {}
+    while self[offset].is_a?(Hash)
+      attr.update(self[offset])
+      offset += 1
+    end
+    if 0 < attr.length
+      nar << attr
+    end
+
+    nar += self[offset...self.length].dup
+    ar.each {|e|
+      if e.is_a?(Hash)
+	attr.update(e)
+      elsif e.nil?
+	# do nothing
+      else
+	nar << e
+      end
+    }
+    nar
+  end
+
+  def apply(data)
+    self.each_tag {|e|
+      next e unless e[0].is_a?(Symbol)
+      next e unless e[1].is_a?(Hash)
+      attr = e[1]
+      eid = attr[:id]
+      next e if eid.nil?
+      eid = eid.intern
+      d = data[eid]
+      next nil if d.nil?
+      next e if d == true
+      if d.is_a? Hash
+	next e.clone_with(d)
+      elsif d.is_a? Array
+	next e.clone_with(d)
+      end
+      e.clone_with(d)
+    }
+  end
+
+  def remove_comment
+    self.each_tag(:"!--") {|x|
+      nil
+    }
+  end
+end
+
+class Array
+  include WabisabiTemplateModule
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestWabisabiTemplate < Test::Unit::TestCase
+    def test_all
+      # test_deep_copy
+      o = [:a, [:b, [:c]]]
+      s = o.dup # shallow copy
+      d = o.deep_copy
+      assert_equal     s, o
+      assert_equal     d, o
+      assert_not_equal s.object_id, o.object_id
+      assert_not_equal d.object_id, o.object_id
+      assert_equal     s[0].object_id, o[0].object_id
+      assert_equal     d[0].object_id, o[0].object_id
+      assert_equal     s[1].object_id, o[1].object_id
+      assert_not_equal d[1].object_id, o[1].object_id
+      assert_equal     s[1][1].object_id, o[1][1].object_id
+      assert_not_equal d[1][1].object_id, o[1][1].object_id
+
+      # test_prepare
+
+      # test_each_tag_unit
+      w = [:p, '']
+      nw = w.each_tag(:a){|ww|
+	[ww]
+      }
+      assert_equal [:p, ''], w
+      assert_equal [:p, ''], nw
+
+      w = [[:a, '']]
+      assert_equal [:a, ''], w[0]
+      nw = w.each_tag(:a){|ww|
+	www = ww.dup
+	www[-1] = 't'
+	www
+      }
+      assert_equal [[:a, '']], w
+      assert_equal [[:a, 't']], nw
+
+      # test_set_attr
+      e = [:a, {:href=>'t.html'}, 't']
+      e = e.clone_with(:href=>'s.html')
+      assert_equal [:a, {:href=>'s.html'}, 't'], e
+      e = e.clone_with('s')
+      assert_equal [:a, {:href=>'s.html'}, 't', 's'], e
+
+      # test_each_tag
+      org = [:a, [:b, [:c], [:d], [:c]]]
+      xml = org.each_tag(:c){|e| nil }
+      assert_equal [:a, [:b, [:d]]], xml
+      assert_equal [:a, [:b, [:d]]], xml
+      xml = org.each_tag(:c){|e| e }
+      assert_equal [:a, [:b, [:c], [:d], [:c]]], xml
+      xml = org.each_tag(:c){|e| [:cc] }
+      assert_equal [:a, [:b, [:cc], [:d], [:cc]]], xml
+      xml = org.each_tag(:c){|e| [:dd] }
+      assert_equal [:a, [:b, [:dd], [:d], [:dd]]], xml
+
+      # test_each_tag_with_clone
+      org = [:a, [:b, [:c], [:d], [:c]]]
+      xml = org.each_tag(:c){|e| e.clone_with('test1') }
+      assert_equal [:a, [:b, [:c, 'test1'], [:d], [:c, 'test1']]], xml
+
+      # test_clone
+      e = [:a, {:href=>'1.html'}, 't']
+      xml = e.clone_with('test1')
+      assert_equal [:a, {:href=>'1.html'}, 't', 'test1'], xml
+      xml = e.clone_with(:href=>'n.html')
+      assert_equal [:a, {:href=>'n.html'}, 't'], xml
+
+      # test_textarea
+      org = [[:textarea, '']]
+      xml = org.each_tag(:textarea){|e|
+	e.clone_with('text')
+      }
+      assert_equal [[:textarea, '', 'text']], xml
+
+      # test_textarea_apply
+      org = [[:textarea, {:id=>'contents'}, '']]
+      data = {}
+      data[:contents] = 'text'
+      xml = org.apply(data)
+      assert_equal [[:textarea, {:id=>'contents'}, '', 'text']], xml
+
+      # test_apply
+      org = [:p, [:div, {:id=>'a'}, ''], [:div, {:id=>'b'}, '']]
+      data = {}
+      data[:a] = 'a'
+      data[:b] = [:b]
+      h = org.apply(data)
+      assert_equal [:p, [:div, {:id=>'a'}, '', 'a'],
+	[:div, {:id=>'b'}, '', [:b]]], h
+
+      data = {}
+      data[:a] = nil
+      data[:b] = {:action => 'd.html'}
+      h = org.apply(data)
+      assert_equal [:p, [:div, {:action=>'d.html', :id=>'b'}, '']], h
+
+      data = {}
+      data[:a] = ['a', [:hr]]		# OK.
+      data[:b] = nil
+      h = org.apply(data)
+      assert_equal [:p, [:div, {:id=>'a'}, '', ['a', [:hr]]]], h
+
+      # test_replace
+      h = [:a, [:b], [:c]]
+      h2 = h.each_tag {|e| e[0] == :c ? 'text' : e }	# insert a text
+      assert_equal [:a, [:b], 'text'], h2
+      h2 = h.each_tag(:nosuch) {|e| nil }	# no effect
+      assert_equal [:a, [:b], [:c]], h2
+      h2 = h.each_tag(:b) {|e| e }		# no effect
+      assert_equal [:a, [:b], [:c]], h2
+      h2 = h.each_tag(:b) {|e| nil }		# delete it
+      assert_equal [:a, [:c]], h2
+      h2 = h.each_tag(:b) {|e| 'text' }		# insert a text
+      assert_equal [:a, 'text', [:c]], h2
+      h2 = h.each_tag(:b) {|e| [:d] }		# insert a element
+      assert_equal [:a, [:d], [:c]], h2
+      h2 = h.each_tag(:b) {|e| [:d, 'text'] }	# insert a element with text
+      assert_equal [:a, [:d, 'text'], [:c]], h2
+
+      h = [:p, [:span, {:id=>'a'}], [:span, {:id=>'b'}]]
+      h2 = h.each_tag(:span){|e| e.attr(:id) }	# insert the id as text
+      assert_equal [:p, 'a', 'b'], h2
+      h2 = h.each_tag(:span){|e| e.attr(:id) == 'b' ? e : nil }
+      assert_equal [:p, [:span, {:id=>'b'}]], h2
+
+      h = [[:h2], [:h3], [:h4], [:h5], [:h6]] 
+      h2 = h.each_tag(:h3, :h4) {|e| [e[0], e[0].to_s] }	# insert a text
+      assert_equal [[:h2], [:h3, 'h3'], [:h4, 'h4'], [:h5], [:h6]], h2
+      h2 = h.each_tag {|e| e[0] == :h5 ? 'text' : e }	# insert a text
+      assert_equal [[:h2], [:h3], [:h4], 'text', [:h6]], h2
+      h2 = h.each_tag(:h4) {|e| [[:h3, 'h'], [:hr]] }
+      assert_equal [[:h2], [:h3], [:h3, 'h'], [:hr], [:h5], [:h6]], h2
+
+      h = [[:span, '']]
+      h2 = h.each_tag(:span){|e| [[:h3, 'h'], [:hr]] }
+      assert_equal [[:h3, 'h'], [:hr]], h2
+      h2 = h.each_tag(:span){|e|
+	[[:h3, 'h3'], [:ul, [:li, [:a, {:href=>'1.html'}, '1']]]]
+      }
+      assert_equal [[:h3, 'h3'], [:ul, [:li, [:a, {:href=>'1.html'}, '1']]]],
+		   h2
+
+      # test_remove_comment
+      assert_equal [:p, 'a', 'c'], [:p, 'a', [:"!--", 'b'], 'c'].remove_comment
+    end
+  end
+end