qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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'}, '新規作成']],
+		  [:li, [:a, {:href=>'TestPage.edit'}, '編集']]]]],
+	    [: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/lib/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/lib/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/lib/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/lib/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/lib/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/lib/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

data/vendor/qwik/lib/qwik/bench-textformat.rb

@@ -0,0 +1,31 @@
+# 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 BenchTextFormat
+  include TestSession
+  include BenchmarkModule
+
+  def bench_all
+    n = 10
+    #n = 100
+    #n = 1000
+    t_add_user
+    benchmark {
+      n.times {
+	session('/test/TextFormat.html')
+	dummy_str = @res.setback_body(@res.body)
+      }
+    }
+  end
+end
+
+b = BenchTextFormat.new
+b.setup
+b.bench_all
+b.teardown

data/vendor/qwik/lib/qwik/catalog-factory.rb

@@ -0,0 +1,91 @@
+# 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/util-pathname'
+
+module Qwik
+  class CatalogFactory
+    LIBDIR = File.dirname(__FILE__)
+
+    def initialize
+      @catalogs = {}
+    end
+
+    def get_catalog(lang)
+      return @catalogs[lang]
+    end
+
+    def load_all_here(glob)
+      # lang is two letters length.
+      @catalogs = load_all(LIBDIR, glob)
+    end
+
+    private
+
+    def load_all(dir, glob)
+      files = get_files(dir, glob) 
+      catalogs = load_all_files(files)
+      return catalogs
+    end
+
+    def get_files(dir, glob)
+      files = []
+      path = dir.path
+      path = dir.path.realpath if defined?($test) && $test
+      return list if ! path.exist?
+      Pathname.glob("#{path}/#{glob}") {|file|
+	files << file.to_s
+      }
+      return files
+    end
+
+    def load_all_files(files)
+      catalogs = {}
+      files.each {|file|
+	if /(..)\.rb\z/ =~ file
+	  lang = $1
+	  require file
+	  catalogs[lang] = self.class.send("catalog_#{lang}")
+	end
+      }
+      catalogs['en'] = Hash.new {|h, k| k }
+      return catalogs
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  require 'qwik/qp'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestCatalogFactory < Test::Unit::TestCase
+    include TestModulePublic
+
+    def test_all
+      cf = Qwik::CatalogFactory.new
+
+      # test_get_files
+      t_make_public(Qwik::CatalogFactory, :get_files)
+      files = cf.get_files('.', 'catalog-??.rb')
+      assert 0 < files.length
+
+      # test_load_all_files
+      t_make_public(Qwik::CatalogFactory, :load_all_files)
+      catalogs = cf.load_all_files(['catalog-ja.rb'])
+      assert 0 < catalogs.length
+
+      # test_load_all_here
+      cf.load_all_here('catalog-??.rb')
+
+      catalog_ja = cf.get_catalog('ja')
+      assert_equal true, catalog_ja != nil
+    end
+  end
+end