qwikdoc 0.0.1

data/vendor/qwik/resolve.rb

@@ -0,0 +1,121 @@
+# 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/resolve-tdiary'
+require 'qwik/act-basic'
+require 'qwik/common-resolve'
+require 'qwik/site-resolve'
+
+module Qwik
+  class Resolver
+    def self.resolve(site, action, wabisabi)
+      wabisabi ||= []
+      wabisabi = wabisabi.deep_copy
+      wabisabi.make_index
+      wabisabi = site.resolve_all_ref(wabisabi)
+      wabisabi = action.resolve_all_plugin(wabisabi)
+      return wabisabi
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestResolveEtc < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      # test_br
+      ok_wi [:p, 't', [:br], 's'], "t~\ns\n"
+      eq "\342\200\276", '~'.set_sourcecode_charset.to_utf8	# test bug
+
+      # test_resolve_ref
+      ok_wi [:p, [:a, {:href=>'FrontPage.html'}, 'FrontPage']],
+	    '[[FrontPage]]'
+      ok_wi [:p, [:a, {:href=>'FrontPage.html'}, 't']], '[[t|FrontPage]]'
+      page = @site.create_new
+      page.store '*��'
+      ok_wi [:p, [:a, {:href=>'2.html'}, '��']], "[[2]]"
+      ok_wi [:p, [:a, {:href=>'2.html'}, '��']], '[[��]]'
+
+      # test_resolve_plugin
+      ok_wi [:p, [:em, 't']], "''t''"
+      ok_wi [:p, [:em, '']], "''{{qwik_null}}''"
+      ok_wi [:p, [:strong, 't']], "'''t'''"
+      ok_wi [:p, [:strong, '']], "'''{{qwik_null}}'''"
+      ok_wi [:span, {:class=>"plg_error"}, "nosuch plugin | ",
+	[:strong, "nosuchplugin"]], '{{nosuchplugin}}'
+
+      ok_wi [:p, 'a ', ''], 'a {{qwik_null}}'
+      ok_wi [:p, 'a ', '', ' b'], 'a {{qwik_null}} b'
+    end
+  end
+
+  class TestFormatter < Test::Unit::TestCase
+    include TestSession
+
+
+    def test_all1b
+      res = session
+
+      # test_plugin_link
+      ok_wi [:p, [:a, {:href=>".recent"}, ".recent"]], '[[.recent]]'
+      ok_wi "<p><a href=\".recent\">RecentList</a></p>",
+	    '[[RecentList|.recent]]'
+      ok_wi "<p><a href=\".rss\">.rss</a></p>", '[[.rss]]' # not use for now
+      ok_wi "<p><a href=\".attach\">.attach</a></p>", '[[.attach]]'
+      ok_wi "<p><a href=\".attach/t.txt\">.attach/t.txt</a></p>",
+	    '[[.attach/t.txt]]'
+      ok_wi "<p><a href=\".attach/s t.txt\">.attach/s t.txt</a></p>",
+	    '[[.attach/s t.txt]]'
+    end
+
+    def test_all2
+      res = session
+
+      # test_block
+      ok_wi '<dl><dt>t</dt><dd>s</dd></dl>', ':t:s'
+      ok_wi '<dl><dt>t</dt></dl>', ':t:'
+      ok_wi '<dl><dt>t</dt></dl>', ':t'
+      ok_wi '<blockquote><p>t</p></blockquote>', '> t'
+      ok_wi '<blockquote><p>t</p></blockquote>', '>t'
+      ok_wi '<table><tr><td>t</td><td>s</td></tr></table>', '|t|s|'
+
+      # test_name
+      #ok_wi "<h2><span class='date'/><span class='title'><a name='l0'> </a> t</span></h2>", '* t'
+
+      # test_inline
+      ok_wi '<p><em>t</em></p>', "''t''"
+      ok_wi '<p><strong>t</strong></p>', "'''t'''"
+    end
+
+    def test_all3
+      res = session
+
+      # test_link
+      ok_wi '<p>t</p>', 't'
+      page = @site['FrontPage']
+      page.store '*title'
+      ok_wi "<p><a href=\"FrontPage.html\">title</a></p>", '[[FrontPage]]'
+      page = @site.create('t')
+      page.store 't2'
+      ok_wi "<p><a href=\"t.html\">t</a></p>", '[[t]]'
+      ok_wi "<p><a href=\"FrontPage.html\">t</a></p>", '[[t|FrontPage]]'
+      ok_wi "<p><a href=\"t.html\">s</a></p>", '[[s|t]]'
+      page = @site.create_new
+      page.store '*��'
+      ok_wi "<p><a href=\"2.html\">��</a></p>", "[[2]]"
+
+      # test_find_title
+      ok_wi "<p><a href=\"2.html\">��</a></p>", '[[��]]'
+    end
+  end
+end

data/vendor/qwik/response.rb

@@ -0,0 +1,228 @@
+# 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 'webrick/cookie'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/config'
+require 'qwik/wabisabi-format-xml'
+
+module Qwik
+  class Response
+    COOKIE_EXP = 60*60*24*30 # 30 days
+
+    MIME_TYPES = {
+      'smil'	=> 'application/smil',
+      'swf'	=> 'application/x-shockwave-flash',
+#      'ico'	=> 'image/bitmap',		# FIXME: Is this OK?
+      'ico'	=> 'image/vnd.microsoft.icon',
+      'png'	=> 'image/png',
+      '3gp'	=> 'video/3gpp',
+      'tgz'	=> 'application/octet-stream',
+      'gz'	=> 'application/octet-stream',
+      'mdlb'	=> 'application/x-modulobe',
+    }
+
+    def initialize(config)
+      @config = config
+      clear
+    end
+    attr_accessor :body, :status
+    attr_reader :headers # for test
+    attr_reader :cookies # for test
+    attr_accessor :basicauth
+    attr_accessor :sessionid
+
+    def clear
+      @body = nil
+      @status = 200
+      @cookies = []
+      @headers = {}
+      @mimetypes = {}
+      @basicauth = nil
+      @sessionid = nil
+    end
+
+    def set_webrick(response)
+      make_mimetypes(response.config[:MimeTypes])
+    end
+
+    def make_mimetypes(mimetypes)
+      @mimetypes = mimetypes
+      @mimetypes.update(MIME_TYPES)
+    end
+
+    def get_mimetypes(ext)
+      @mimetypes[ext.downcase]
+    end
+
+    def set_content_type(ext)
+      mtype = get_mimetypes(ext)	# Get content type.
+      @headers['Content-Type'] = mtype
+    end
+
+    def [](k)
+      return @headers[k]
+    end
+
+    def []=(k, v)
+      @headers[k] = v
+    end
+
+    def set_cookies(user, pass)
+      set_cookie('user', user)
+      set_cookie('pass', pass)
+    end
+
+    def set_cookie(k, v)
+      @cookies << make_cookie(k, v)
+    end
+
+    def clear_cookies
+      # Set cookies to 1 hour ago, to clear cookies from browser.
+      clear_cookie('user')
+      clear_cookie('pass')
+      clear_cookie('sid')
+    end
+
+    def clear_cookie(k)
+      @cookies << make_cookie(k, '', -60*60)
+    end
+
+    def make_cookie(k, v, exp=COOKIE_EXP)
+      c = WEBrick::Cookie.new(k, v)
+      c.path = '/'
+      c.expires = Time.now + exp
+      return c
+    end
+    private :make_cookie
+
+    def setback_body(body)
+      case body
+      when Array # wabisabi
+	return body.format_xml
+      when File
+	return body # do not convert
+      when String
+	return body
+      when IO
+	return body
+      else
+	return body.to_s
+      end
+    end
+
+    def setback(response)
+      response.body = setback_body(@body)
+      response.status = @status
+      @cookies.each {|c| response.cookies << c }
+      @headers.each {|k, v| response[k] = v }
+      #imitate_apache_header_order(response.header)
+    end
+
+    def imitate_apache_header_order(h)
+      def h.each
+	h = {}
+	super {|k, v|
+	  h[k] = v
+	}
+
+	pre_header = %w(date server)
+	post_header = %w(etag last-modified location cache-control pragma keep-alive transfer-encoding content-encoding content-length connection content-type)
+
+	ar = []
+	pre_header.each {|k|
+	  if h[k]
+	    ar << [k, h[k]]
+	    h.delete(k)
+	  end
+	}
+
+	postar = []
+	post_header.each {|k|
+	  if h[k]
+	    postar << [k, h[k]]
+	    h.delete(k)
+	  end
+	}
+
+	h.each {|k, v|
+	  ar << [k, v]
+	}
+
+	ar += postar
+
+	ar.each {|k, v|
+	  yield(k, v)
+	}
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestResponse < Test::Unit::TestCase
+    def test_all
+      config = Qwik::Config.new
+      res = Qwik::Response.new(config)
+
+      # test_mimetypes
+      mt = {}
+      res.make_mimetypes(mt)
+      ok_eq('application/x-shockwave-flash', mt['swf'])
+      ok_eq('application/smil', mt['smil'])
+      ok_eq('image/vnd.microsoft.icon', mt['ico'])
+      ok_eq('image/png', mt['png'])
+      ok_eq('video/3gpp', mt['3gp'])
+
+      # test_headers
+      res['X-Test-Header'] = 't1'
+      ok_eq('t1', res['X-Test-Header'])
+      res.clear
+      ok_eq(nil, res['X-Test-Header'])
+
+      # test_cookie
+      res.set_cookies('t@e.com', 'testpass')
+      ok_eq(2, res.cookies.length)
+      res.clear_cookies
+      #ok_eq(4, res.cookies.length)
+      res.clear
+      ok_eq(0, res.cookies.length)
+
+      # test_setback
+      ok_eq('', res.setback_body([]))
+      ok_eq("<t\n></t\n>", res.setback_body([:t, ""]))
+      ok_eq('t', res.setback_body('t'))
+      ok_eq('', res.setback_body(nil))
+    end
+
+    def test_mimetypes
+      config = Qwik::Config.new
+      res = Qwik::Response.new(config)
+
+      require 'webrick/httputils'
+
+      default_mimetypes = WEBrick::HTTPUtils::DefaultMimeTypes
+      res.make_mimetypes(default_mimetypes)
+
+      # Check mimetypes.
+      ok_eq('text/html', res.get_mimetypes('html'))
+      ok_eq('text/plain', res.get_mimetypes('txt'))
+      ok_eq('text/css', res.get_mimetypes('css'))
+      ok_eq('image/gif', res.get_mimetypes('gif'))
+      ok_eq('image/png', res.get_mimetypes('png'))
+      ok_eq('image/jpeg', res.get_mimetypes('jpg'))
+      ok_eq('image/jpeg', res.get_mimetypes('JPG'))	# Check upcase
+      ok_eq('image/jpeg', res.get_mimetypes('JPEG'))	# Check upcase
+      ok_eq('application/smil', res.get_mimetypes('smil'))
+      ok_eq('application/zip', res.get_mimetypes('zip'))
+      ok_eq('application/x-modulobe', res.get_mimetypes('mdlb'))
+    end
+  end
+end

data/vendor/qwik/server-memory.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.unshift '..' unless $LOAD_PATH.include? '..'
+#require 'qwik/farm'	# Do not add farm here.
+
+module Qwik
+  class ServerMemory
+    def initialize(config)
+      @config = config
+      @cache = {}
+    end
+
+    def [](k)
+      @cache[k]
+    end
+
+    def []=(k, v)
+      @cache[k] = v
+    end
+
+    # farm
+    def farm
+#      @farm = Farm.new(@config, self) unless defined? @farm
+#      @farm
+      return Farm.new(@config, self)
+    end
+
+    # template
+    def template
+      @template = TemplateFactory.new(@config) unless defined? @template
+      @template
+    end
+
+    # catalog
+    def catalog
+      unless defined? @catalog
+	@catalog = CatalogFactory.new
+	@catalog.load_all_here('catalog-??.rb')
+      end
+      @catalog
+    end
+
+    # act-theme
+    def theme
+      @theme = ThemeFactory.new(@config) unless defined? @theme
+      @theme
+    end
+
+    # common-session
+    def sessiondb
+      @sessiondb = SessionDB.new(@config) unless defined? @sessiondb
+      @sessiondb
+    end
+  end
+end

data/vendor/qwik/server-webrick.rb

@@ -0,0 +1,102 @@
+# 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-webrick'
+
+module Qwik
+  class WEBrickRequest < WEBrick::HTTPRequest
+    attr_writer :request_uri, :path, :peeraddr
+    attr_writer :request_method, :cookies, :header, :query
+    attr_writer :user
+  end
+
+  class WEBrickResponse < WEBrick::HTTPResponse
+    def set_config
+      @config.update(WEBrick::Config::HTTP)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/config'
+  require 'qwik/request'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestWEBrickRequest < Test::Unit::TestCase
+    def ok_req(e, req)
+      ok_eq(e, [req.sitename, req.base, req.ext])
+    end
+
+    def setup_server
+      config = Qwik::Config.new
+      config[:debug] = true
+      config[:test]  = true	# do not show webrick log
+
+      server_config = {}
+
+      req = Qwik::Request.new(config)
+
+      return config, server_config, req
+    end
+
+    def test_parse_webrick
+      config, server_config, req = setup_server
+
+      wreq = Qwik::WEBrickRequest.new(server_config)
+      wreq.request_uri = URI.parse('http://example.com/')
+      wreq.path = '/'
+      req.parse_webrick(wreq)
+      ok_req(['www', 'FrontPage', 'html'], req)
+
+      wreq.request_uri = URI.parse('http://example.com/test/1.html')
+      wreq.path = '/test/1.html'
+      req.parse_webrick(wreq)
+      ok_req(['test', '1', 'html'], req)
+    end
+
+    def test_parse_webrick_env
+      config, server_config, req = setup_server
+
+      wreq = Qwik::WEBrickRequest.new(server_config)
+      wreq.path = '/'
+      wreq.peeraddr = [nil, nil, nil, '192.168.0.1']
+      req.parse_webrick(wreq)
+
+      wreq.request_method = 'POST'
+      req.parse_webrick(wreq)
+      ok_eq('POST', req.request_method)
+
+      wreq.request_method = 'HEAD'
+      req.parse_webrick(wreq)
+      ok_eq('HEAD', req.request_method)
+
+      wreq.request_method = 'GET'
+      req.parse_webrick(wreq)
+      ok_eq('GET', req.request_method)
+
+      wreq.header = {'x-test' => ['t']}
+      req.parse_webrick(wreq)
+      ok_eq('t', req['X-Test'])
+
+      wreq.cookies = []
+      wreq.cookies << WEBrick::Cookie.new('s', 't')
+      wreq.cookies << WEBrick::Cookie.new('k', 'v')
+      req.parse_webrick(wreq)
+      ok_eq('t', req.cookies['s'])
+      ok_eq('v', req.cookies['k'])
+
+      wreq.query = {'k' => 'v'}
+      req.parse_webrick(wreq)
+      ok_eq('v', req.query['k'])
+
+      wreq.query = {'c' => 'edit'}
+      req.parse_webrick(wreq)
+      ok_eq('edit', req.query['c'])
+    end
+  end
+end