qwikdoc 0.0.1

data/vendor/qwik/check-uuencode.rb

@@ -0,0 +1,33 @@
+# 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/testunit'
+
+class CheckUuencode < Test::Unit::TestCase
+  def test_uuencode
+    ok_eq('', [''].pack('u'))
+    ok_eq("!80``\n", ['a'].pack('u'))
+    ok_eq("#86)C\n", ['abc'].pack('u'))
+    ok_eq("$86)C9```\n", ['abcd'].pack('u'))
+    ok_eq("M86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A\n",
+	  ['a'*45].pack('u'))
+    ok_eq("M86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A\n!80``\n", ['a'*46].pack('u'))
+    ok_eq("&86)C9&5F\n#9VAI\n", ['abcdefghi'].pack('u6'))
+
+    ok_eq([''], ''.unpack('u'))
+    ok_eq([''], ''.unpack('u'))
+    ok_eq(['a'], "!80``\n".unpack('u'))
+    ok_eq(['abc'], "#86)C\n".unpack('u'))
+    ok_eq(['abcd'], "$86)C9```\n".unpack('u'))
+    ok_eq(['a'*45], "M86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A\n".unpack('u'))
+    ok_eq(['a'*46], "M86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A86%A\n!80``\n".unpack('u'))
+    ok_eq(['abcdefghi'], "&86)C9&5F\n#9VAI\n".unpack('u6'))
+
+    png = "\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\000\001\000\000\000\001\010\002\000\000\000\220wS\336\000\000\000\fIDATx\332c\370\377\377?\000\005\376\002\3763\022\225\024\000\000\000\000IEND\256B`\202"
+    uu = "MB5!.1PT*&@H````-24A\$4@````\$````!\"`(```\"0=U/>````#\$E\$051XVF/X\n8__\\_``7^`OXS\$I44`````\$E%3D2N0F\"\"\n"
+    ok_eq(uu, [png].pack('u'))
+    ok_eq([png], uu.unpack('u'))
+  end
+end

data/vendor/qwik/check-webdav.rb

@@ -0,0 +1,65 @@
+# 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 'pp'
+require 'qwik/autoreload'
+require 'qwik/util-webrick'
+
+begin
+  require 'qwik/webdavhandler'
+  $have_webdavhandler = true
+rescue LoadError
+  $have_webdavhandler = false
+end
+
+if $have_webdavhandler
+
+class MyWebDAVHandler < WEBrick::HTTPServlet::WebDAVHandler
+  def do_OPTIONS(req, res)
+    super
+  end
+
+  def do_PROPFIND(req, res)
+    super(req, res)
+  end
+end
+
+def start_server
+  $running = true
+  AutoReload.start(1, true)	# auto reload every sec.
+
+  log = WEBrick::Log.new
+  log.level = WEBrick::Log::DEBUG if $DEBUG
+
+  server = WEBrick::HTTPServer.new({:Port => 10080, :Logger => log})
+  server.mount("/", MyWebDAVHandler, Dir.pwd)
+  trap(:INT) { server.shutdown }
+  server.start
+end
+
+if $0 == __FILE__
+  if ARGV[0] == '--server'
+    $server = true
+  else
+    require 'qwik/testunit'
+    $test = true
+  end
+end
+
+if defined?($test) && $test
+  class TestWebDAV < Test::Unit::TestCase
+    def test_all
+    end
+  end
+end
+
+if defined?($server) && $server
+  if ! $running
+    start_server
+  end
+end
+
+end

data/vendor/qwik/check-xml-xpath.rb

@@ -0,0 +1,27 @@
+# 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 TestXPath < Test::Unit::TestCase
+class TestXPath
+  include TestSession
+
+  def test_xpath
+    t_add_user
+    page = @site.create_new
+    page.store('t')
+
+    session('/test/1.html')
+    px("//div[@class='section']", 0)
+
+    require 'xml/xpath'
+    xpath = XML::XPATH.new
+    xpath.xml = @res.body.format_xml.page_to_xml
+    i = xpath.execute("//div[@class='section']/p")
+    print "#{i} nodes :\n"
+    p xpath.to_a
+  end
+end

data/vendor/qwik/common-backtrace.rb

@@ -0,0 +1,94 @@
+# 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? '..'
+
+module Qwik
+  class Action
+    # Only for demonstration for the PrettyBacktrace function.
+    def plg__qwik_test_for_raise_exception
+      no_such_local_variable
+    end
+  end
+
+  class PrettyBacktrace
+    MARGIN = 10
+    POS_NUM = 3
+    MIN_MARGIN = -1
+
+    def self.to_html(e)
+      margin = MARGIN
+      trs = e.backtrace.map {|str|
+	sf, sl, method = str.split(':', 3)
+	margin -= 1
+	[[:tr,
+	    [:td, {:class=>'file'}, get_pos(sf, sl)+':', [:strong, sl]],
+	    [:td, {:class=>'method'}, method.to_s]],
+	  [:tr,
+	    [:td, {:class=>'excerpt', :colspan=>'3'},
+	      get_excerpt(sf, sl.to_i, margin)]]]
+      }
+      return [[:h3, e.to_s], [:table, {:class=>'exception'}, trs]]
+    end
+
+    def self.get_pos(sourcefile, sourceline)
+      ar = sourcefile.split('/')
+      ar = ar[-POS_NUM, POS_NUM] if POS_NUM < ar.length
+      return ar.join('/')
+    end
+
+    def self.get_excerpt(file, linenum, margin)
+      margin = MIN_MARGIN if margin < MIN_MARGIN
+      return '' if margin < 0
+      f = file.path
+      return '' unless f.exist?
+      str = f.read
+      b = linenum - margin - 1		# beginning
+      ar = str.to_a[b, margin*2+1]
+
+      table = []
+      ar.each_with_index {|line, num|
+	line = " \n" if line == "\n"	# only for visual effect
+	n = b + num + 1
+	attr = {:class=>'even'}
+	attr = {:class=>'odd'} if n % 2 == 1
+	attr = {:class=>'target'} if n == linenum
+	table << [:tr, attr, [:th, n.to_s], [:td, [:pre, line]]]
+      }
+      return [:table, table]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActException < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      # test_backtrace
+      page = @site.create_new
+      page.store('{{nosuch}}')
+      res = session('/test/1.html')
+      ok_in [:span, {:class=>"plg_error"}, "nosuch plugin | ",
+	[:strong, "nosuch"]], '//div[@class="section"]'
+      eq [:div, {:class=>"section"},
+	[[:span, {:class=>"plg_error"}, "nosuch plugin | ",
+	    [:strong, "nosuch"]]]],
+	@res.body.get_path('//div[@class="section"]')
+
+      t_without_testmode {
+	page.store '{{_qwik_test_for_raise_exception}}'
+	res = session '/test/1.html'
+	assert_text(/\Aundefined local variable or method `no_such_local_variable' for #<Qwik::Action:/, 'h3')
+      }
+    end
+  end
+end

data/vendor/qwik/common-basic.rb

@@ -0,0 +1,111 @@
+# 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-time'
+require 'qwik/parse-plugin'
+
+module Qwik
+  # ============================== exception
+  class QwikError < StandardError; end
+  class RequireLogin < QwikError; end
+  class RequirePost < QwikError; end
+  class PageNotFound < QwikError; end
+  class RequireNoPathArgs < QwikError; end
+  class RequireMember < QwikError; end
+  class InvalidUserError < QwikError; end
+  class BaseIsNotSitename < QwikError; end
+  class NoCorrespondingPlugin < QwikError; end	# plugin
+
+  class Action
+    # ============================== response
+    def c_set_status(status=200)
+      @res.status = status
+    end
+
+    def c_set_contenttype(contenttype="text/html; charset=Shift_JIS")
+      @res['Content-Type'] = contenttype
+    end
+    alias c_set_html c_set_contenttype
+
+    def c_set_no_cache(pragma='no-cache', control='no-cache')
+      @res['Pragma'] = pragma
+      @res['Cache-Control'] = control
+    end
+
+    def c_set_location(location)
+      @res['Location'] = location
+    end
+
+    def c_set_body(body)
+      @res.body = body
+    end
+
+    # ============================== rewrite plugin
+    def plugin_edit(plugin_name, plugin_num)
+      # Get the original page.
+      page = @site[@req.base]
+      str = page.load
+      md5 = str.md5hex
+
+      # Split the page into paragraphs.
+      paragraphs = Plugin.split(str)
+
+      # Replace the content of the plugin.
+      written = false
+      new_paras = Plugin.rewrite(paragraphs, plugin_name, plugin_num) {|plugin|
+	plugin_org_content = plugin[2] || ''
+	plugin_altered_content = yield(plugin_org_content)
+	plugin[2] = plugin_altered_content	# Destructive.
+	written = true
+	plugin
+      }
+
+      raise NoCorrespondingPlugin if ! written
+
+      # Reconstruct the page from the lines.
+      new_page_str = Plugin.join(new_paras)
+
+      page.put_with_md5(new_page_str, md5)
+
+      return nil
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestCommon < Test::Unit::TestCase
+    include TestSession
+
+    def test_response
+      res = session
+
+      # test_c_set_status
+      @action.c_set_status(7743)
+      ok_eq(7743, res.status)
+
+      # test_c_set_contenttype
+      @action.c_set_contenttype
+      ok_eq("text/html; charset=Shift_JIS", res['Content-Type'])
+
+      # test_c_set_no_cache
+      @action.c_set_no_cache
+      ok_eq('no-cache', res['Pragma'])
+      ok_eq('no-cache', res['Cache-Control'])
+
+      # test_c_set_body
+      @action.c_set_body('body')
+      ok_eq('body', res.body)
+    end
+
+    def nu_test_rewrite_plugin
+      # This is tested in act-table.rb
+    end
+  end
+end

data/vendor/qwik/common-condition.rb

@@ -0,0 +1,142 @@
+# 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? '..'
+
+module Qwik
+  class Action
+    # ========== error check
+    def c_login?
+      return @req.user
+    end
+
+    def c_require_login # You must logged in.
+      raise RequireLogin unless c_login?
+    end
+
+    def c_member?
+      c_login? && @site.member.exist?(@req.user)
+    end
+
+    def c_require_member # You must be a member of this group.
+      raise RequireMember unless c_member?
+    end
+
+    def c_require_post
+      raise RequirePost unless @req.is_post?
+    end
+
+    def c_require_page_exist
+      raise PageNotFound if @site[@req.base].nil?
+    end
+
+    def c_require_no_path_args
+      raise RequireNoPathArgs if 0 < @req.path_args.length
+    end
+
+    def c_require_no_ext_args
+      raise 'no ext args' if 0 < @req.ext_args.length
+    end
+
+    def c_require_pagename
+      raise 'pagename is nil' if @req.base.nil?
+      # FIXME: But, pagename is always not nil for now.
+    end
+
+    def c_require_base_is_sitename
+      raise BaseIsNotSitename if @req.base != @req.sitename
+    end
+
+    def c_require_lib(lib)
+      begin
+	require lib
+      rescue
+	raise "there is no #{lib} library"
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActCondition < Test::Unit::TestCase
+    include TestSession
+
+    def test_condition
+      res = session
+
+      # test_c_login
+      ok_eq(true, !!@action.c_login?)
+
+      # test_c_require_login
+      @action.c_require_login # ok, nothing happen.
+
+      # test_c_member
+      ok_eq(false, @action.c_member?)
+
+      # test_c_require_member
+      assert_raise(Qwik::RequireMember) {
+	@action.c_require_member
+      }
+
+      t_add_user
+
+      # test_c_member, again
+      ok_eq(true, @action.c_member?)
+
+      # test_c_require_member, again
+      @action.c_require_member # nothing happen
+
+      # test_c_require_post
+      res = session {|req|
+	ok_eq(false, req.is_post?)
+      }
+      assert_raise(Qwik::RequirePost) {
+	@action.c_require_post
+      }
+      res = session('POST /test/1.html')
+      @action.c_require_post # nothing happen
+
+      # test_c_require_page_exist
+      res = session('/test/1.html') {|req|
+	ok_eq(nil, @site[req.base])
+      }
+      assert_raise(Qwik::PageNotFound) {
+	@action.c_require_page_exist
+      }
+
+      # test_c_require_no_path_args
+      res = session('/test/1.html/1') {|req|
+	ok_eq(['1'], req.path_args)
+      }
+      assert_raise(Qwik::RequireNoPathArgs) {
+	@action.c_require_no_path_args
+      }
+
+      # test_c_require_no_ext_args
+      res = session('/test/1.t.html') {|req|
+	ok_eq(['t'], req.ext_args)
+      }
+      assert_raise(RuntimeError) {
+	@action.c_require_no_ext_args
+      }
+
+      # test_c_require_pagename
+      # FIXME: Pagename is always not nil for now.
+
+      # test_c_require_base_is_sitename
+      res = session('/test/1.t.html') {|req|
+	ok_eq(['t'], req.ext_args)
+      }
+      assert_raise(RuntimeError) {
+	@action.c_require_no_ext_args
+      }
+
+    end
+  end
+end