qwikdoc 0.0.1

data/vendor/qwik/autoreload.rb

@@ -0,0 +1,98 @@
+#
+# Copyright (C) 2001-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 General Public License version 2.
+#
+
+require 'thread'
+
+class AutoReload
+  def self.start(interval, verbose = false, name=nil)
+    ar = AutoReload.new
+    ar.verbose = verbose
+    ar.name = name
+    ar.autoreload(interval)
+  end
+
+  def initialize
+    @status = {}
+    @thread = nil
+    @verbose = false
+    @name = nil
+  end
+  attr_accessor :verbose
+  attr_accessor :name
+
+  def message(str)
+    msg = str
+    msg = @name.to_s+': '+msg if @name
+    return msg
+  end
+
+  def autoreload(interval)
+    @thread = Thread.new {
+      loop {
+	begin
+	  update
+	rescue Exception
+	  STDOUT.puts(message('reload: '+$!))
+	end
+	sleep interval
+      }
+    }
+    @thread.abort_on_exception = true
+  end
+
+  private
+
+  def update
+    check_lib = [$0] + $"
+    check_lib.each {|lib|
+      check_lib(lib)
+    }
+  end
+
+  def check_lib(lib)
+    if @status[lib]
+      file, mtime = @status[lib]
+      return if ! FileTest.exist?(file) # file is disappered.
+      curtime = File.mtime(file).to_i
+      if mtime < curtime
+        if @verbose
+          $stdout.puts(message("reload: \"#{file}\""))
+        end
+	load file	# Load it.
+	@status[lib] = [file, curtime]
+      end
+      return
+    end
+
+    check_path = [''] + $LOAD_PATH
+    #check_path = ['']
+    check_path.each {|path|
+      file = File.join(path, lib)
+      file = lib if path.empty?	# Check if the lib is a filename.
+      if FileTest.exist?(file)
+	@status[lib] = [file, File.mtime(file).to_i]
+	return 
+      end
+    }
+
+    #raise "The library '#{lib}' is not found."
+    # $stdout.puts(message("The library '#{lib}' is not found.")) if @verbose
+  end
+
+  def get_status(file)
+    if FileTest.exist?(file)
+      return [file, File.mtime(file).to_i]
+    end
+    return nil
+  end
+end
+
+def autoreload(*a)
+  AutoReload.start(*a)
+end

data/vendor/qwik/bench-bench.rb

@@ -0,0 +1,28 @@
+# 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/bench-module-session'
+
+class BenchBenchmark
+  def self.bench_itself
+    puts Benchmark.measure { 'a'*1_000_000 }
+
+    n = 50_000
+    Benchmark.bm(7) {|x|
+      x.report { for i in 1..n; a = '1'; end }
+      x.report { n.times do   ; a = '1'; end }
+      x.report { 1.upto(n) do ; a = '1'; end }
+    }
+  end
+
+  def self.bench_benchmark
+    BenchmarkModule::benchmark {
+      'a'*10_000_000 
+    }
+  end
+end
+
+#BenchBenchmark::bench_itself
+BenchBenchmark::bench_benchmark

data/vendor/qwik/bench-emode.rb

@@ -0,0 +1,47 @@
+# 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/bench-module-session'
+require 'qwik/test-common'
+
+class BenchEmode < Test::Unit::TestCase
+  include TestSession
+
+  def copy_all
+    pages = []
+    src  = @org_sites_dir.path+'eto.com'
+    dest = @dir
+    return nil unless src.exist?
+    src.each_entry {|file|
+      if /\A\d\d\d\d\.txt\z/ =~ file.to_s
+	str = (src+file).read
+	(dest+file).put(str)
+	base = file.to_s.sub('.txt', '')
+	pages << base
+      end
+    }
+    pages
+  end
+
+  def nutest_0008
+    copy_all
+    t_add_user
+    session('/test/0008.html')
+    body = @res.body.format_xml
+  end
+
+  def test_bench000
+    repeat = 10
+    pages = copy_all
+    return if pages.nil?
+    t_add_user
+    repeat.times {
+      pages.each {|base|
+	session("/test/#{base}.html")
+	body = @res.body.format_xml
+      }
+    }
+  end
+end

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

@@ -0,0 +1,70 @@
+# -*- coding: shift_jis -*-
+# 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/bench-module-session'
+require 'qwik/wabisabi-format-xml'
+
+class BenchFormatXml
+  XML_FORMATTER_EXAMPLE =
+    [[:'!DOCTYPE', 'html', 'PUBLIC', '-//W3C//DTD HTML 4.01 Transitional//EN', 'http://www.w3.org/TR/html4/loose.dtd'],
+    [:html,
+      [:head, {:id=>'header'},
+	[[:title, 'TestPage - example.com/test'],
+	  [:link, {:type=>'text/css', :rel=>'stylesheet', :media=>'screen,tv,print', :href=>'/.theme/qwikgreen/qwikgreen.css'}],
+	  [:link, {:type=>'text/css', :rel=>'stylesheet', :media=>'screen,tv,print', :href=>'/.theme/base.css'}]]],
+      [:body,
+	[:div, {:class=>'container'},
+	  [:div, {:class=>'main'},
+	    [:div, {:id=>'adminmenu', :class=>'adminmenu'},
+	      [[:span, {:class=>'loginstatus'}, 'user | ', [:em, 'user@e.com'], ' (', [:a, {:href=>'.logout'}, 'logout'], ')'],
+		[:ul,
+		  [:li, [:a, {:href=>'.new'}, '�V�K�쐬']],
+		  [:li, [:a, {:href=>'TestPage.edit'}, '�ҏW']]]]],
+	    [:h1, {:id=>'view_title'}, 'TestPage'],
+	    [:div, {:id=>'body'},
+	      [[:div, {:class=>'day'},
+		  [:h2, 'h2'],
+		  [:div, {:class=>'body'},
+		    [:div, {:class=>'section'}, [[:p, 'text']]]]]]],
+	    [:div, {:id=>'body_leave'},
+	      [:div, {:class=>'day'},
+		[:div, {:class=>'comment'},
+		  [:div, {:class=>'caption'},
+		    [:div, {:class=>'page_attribute'},
+		      [:div, {:class=>'qrcode'},
+			[:a, {:href=>'http://example.com/test/'},
+			  [:img, {:src=>'.attach/qrcode-test.png', :alt=>'http://example.com/test/'}],
+			  [:br], 'http://example.com/test/']],
+		      [:div, 'last modified: 2004-10-05'],
+		      [:a, {:href=>'TestPage.backup'}, 'Backup list']]]],
+		[:div, {:class=>'body_leave'}, '']]]],
+	  [:div, {:id=>'sidemenu', :class=>'sidebar'},
+	    [[:h2, 'menu'],
+	      [:ul,
+		[:li, [:a, {:href=>'/test/FrontPage.html'}, 'FrontPage']],
+		[:li, [:a, {:href=>'/test/TitleList.html'}, 'TitleList']],
+		[:li, [:a, {:href=>'/test/RecentList.html'}, 'RecentList']],
+		[:li, [:a, {:href=>'/test/TextFormat.html'}, 'TextFormat']],
+		[:li, [:a, {:href=>'/test/_SiteMenu.html'}, '_SiteMenu']]],
+	      [:h2, 'recent change'],
+	      [:h3, '2004-10-05'],
+	      [:ul, [:li, [:a, {:href=>'/test/TestPage.html'}, 'TestPage']]]]],
+	  [:div, {:id=>'footer', :class=>'footer'},
+	    [[:p, 'powered by ',
+		[:a, {:class=>'external', :href=>'http://example.com/'}, 'qwikWeb']]]]]]]]
+
+  def self.main
+    ws = XML_FORMATTER_EXAMPLE
+    n = 10000
+    BenchmarkModule::benchmark {
+      n.times {
+	dummy = ws.format_xml
+      }
+    }
+  end
+end
+
+BenchFormatXml.main

data/vendor/qwik/bench-large-table.rb

@@ -0,0 +1,62 @@
+# 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/bench-module-session'
+require 'qwik/test-module-session'
+require 'qwik/server'
+
+class BenchLargeTable
+  include TestSession
+  include BenchmarkModule
+
+  def self.run
+    self.new.main
+  end
+
+  def main
+    setup
+    bench_all
+    teardown
+  end
+
+  def generate_large_table(table_line_num)
+    str = ''
+    table_line_num.times {|n|
+      str << "|#{n}|1|2|3|4|5|6|7|8|9|0\n"
+    }
+    return str
+  end
+
+  def bench_all
+    t_add_user
+
+    table_line_num = 10
+    table_line_num = 100
+    table_line_num = 1000
+    #table_line_num = 10000
+
+# 1000 times.
+
+# Regexp version.
+#  2.700000   0.660000   3.360000 (  3.358553)
+#  2.690000   0.650000   3.340000 (  3.326321)
+#  2.740000   0.620000   3.360000 (  3.354227)
+
+# strscan version.
+#  2.730000   0.430000   3.160000 (  3.145743)
+#  2.480000   0.670000   3.150000 (  3.157546)
+#  2.590000   0.580000   3.170000 (  3.176562)
+
+    page = @site.create_new
+    page.store(generate_large_table(table_line_num))
+
+    benchmark {
+      res = session('/test/1.html')
+      dummy_str = res.setback_body(res.body)
+    }
+  end
+end
+
+BenchLargeTable.run

data/vendor/qwik/bench-md5.rb

@@ -0,0 +1,14 @@
+# 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.
+
+require 'md5'
+require 'benchmark'
+
+Benchmark.bm {|x|
+  x.report { 
+    100000.times {
+      t = MD5.hexdigest('t')
+    }
+  }
+}

data/vendor/qwik/bench-module-session.rb

@@ -0,0 +1,19 @@
+# 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.
+
+require 'benchmark'
+
+module BenchmarkModule
+  def benchmark
+    result = nil
+    Benchmark.bm {|x|
+      x.report { 
+	result = yield 
+      }
+    }
+    return result
+  end
+
+  module_function :benchmark
+end

data/vendor/qwik/bench-page.rb

@@ -0,0 +1,50 @@
+# 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/bench-module-session'
+require 'qwik/test-module-session'
+require 'qwik/pages'
+
+class BenchPages
+  include TestSession
+  include BenchmarkModule
+
+  def self.main
+    b = self.new
+    b.setup
+    b.bench_all
+    b.teardown
+  end
+
+  def setup
+    @config = Qwik::Config.new
+    @dir = 'test/'.path
+    @wwwdir = @dir
+
+    # setup dir
+    @wwwdir = 'www/'.path
+    @wwwdir.setup
+    @dir = 'test/'.path
+    @dir.setup
+
+    @pages = Qwik::Pages.new(@config, @dir)
+  end
+
+  def bench_all
+    n = 10000
+    page = @pages['TextFormat']
+    benchmark {
+      n.times {
+	title = page.get_title
+	#title = page.key
+      }
+    }
+    @pages.erase_all if @pages
+  end
+end
+
+if $0 == __FILE__
+  BenchPages.main
+end

data/vendor/qwik/bench-s-md5.rb

@@ -0,0 +1,28 @@
+# 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/test-common'
+require 'qwik/act-md5'
+
+class BenchMD5Session < Test::Unit::TestCase
+  include TestSession
+
+  def test_all
+    repeat = 10
+    repeat = 100
+    repeat = 1000
+    repeat = 10000
+    repeat = 1
+
+    t_add_user
+
+    repeat.times {
+      res = session('/test/TextFormat.md5')
+      #body = res.body.format_xml
+      #ok_title("�����ꗗ�ڍה�")
+      ok_eq('2ee66272e916d3c21c151920c94334aa', res.body)
+    }
+  end
+end

data/vendor/qwik/bench-session.rb

@@ -0,0 +1,25 @@
+# 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/test-common'
+
+class BenchSession < Test::Unit::TestCase
+  include TestSession
+
+  def test_bench_session
+    repeat = 10
+    repeat = 100
+    #repeat = 1000
+    repeat = 1
+
+    t_add_user
+
+    repeat.times {
+      res = session('/test/TextFormat.html')
+      body = res.body.format_xml
+     #ok_title("�����ꗗ�ڍה�")
+    }
+  end
+end