qwik2md 0.1.0

data/vendor/qwik/lib/qwik/resolve-tdiary.rb

@@ -0,0 +1,292 @@
+# 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
+    def c_tdiary_resolve(w)
+      w = TDiaryResolver.resolve(@config, @site, self, w)
+      return w
+    end
+
+    def c_page_url
+      page = @site[@req.base]
+      return nil if page.nil?
+      return page.url
+    end
+  end
+
+  class TDiaryResolver
+    def initialize(config, site, action)
+      @config = config
+      @site = site
+      @action = action
+
+      @global_id = 0
+
+      t = @site.siteconfig['titlelink']
+      @titlelink = (t == 'true')
+
+      t = @site.siteconfig['emode_titlelink']
+      @emode_titlelink = (t == 'true')
+    end
+    attr_reader :titlelink, :emode_titlelink	# for test
+
+    def self.resolve(config, site, action, wabisabi)
+      resolver = self.new(config, site, action)
+      w = resolver.resolve(wabisabi)
+      return w
+    end
+
+    def resolve(wabisabi)
+      days = []
+      section = []
+      days << section
+      wabisabi.each {|e|
+	if is_title?(e)
+	  if 0 < section.size
+	    section = []
+	    days << section
+	  end
+	end
+	section << e
+      }
+
+      @global_id = 0
+      ar = []
+      days.each {|section|
+	title = ''
+	title = section.shift if is_title?(section[0])
+	ar += tdiary_section(title, section)
+      }
+      ar
+    end
+
+    def encode_label(name)	# used at act-toc.rb
+      if name.nil? || name.empty?
+	@global_id += 1
+	return @global_id.to_s
+      end
+
+      if /\A[A-Za-z0-9\-_:. ]+\z/ =~ name
+	name.gsub!(/[^A-Za-z0-9\-_]+/, '_')
+	name.squeeze!('_')
+	name.chomp!('_')
+	name.sub!(/\A_/, '')
+	name = 'a' + name if /\A[A-Za-z]/ !~ name
+	return name
+      end
+
+      if @emode_titlelink
+	name = name+'<span class="e"><br></span>' # adhoc
+	name = name.md5.base64
+	name.gsub!(/=/, '')
+	name.gsub!(/\+/, '-')
+	name.gsub!(/\//, '_')
+	return name
+      end
+
+      return name.md5hex
+    end
+
+    def self.get_title_name(e)	# used at act-toc.rb
+      (1..e.length).each {|i|
+	if e[i].is_a?(String)
+	  return e[i].to_s.strip
+	end
+      }
+      return ''
+    end
+
+    private
+
+    def is_title?(e)
+      e.is_a?(Array) && e[0] == :h2
+    end
+
+    def make_title_link(e)
+      return e if e.length < 2
+
+      name = TDiaryResolver.get_title_name(e)
+      label = encode_label(name)
+
+      url = @action.c_page_url
+      href = "#{url}#"+label
+
+      if (@titlelink || @emode_titlelink)
+	m = "■"
+	e.insert(1, [:a, {:class=>'label', :href=>href, :name=>label}, m])
+	return e 
+      end
+
+      e.insert(1, {:id=>label})
+      e
+    end
+
+    def tdiary_section(title, section)
+      title = make_title_link(title)
+      return [
+	[:div, {:class=>'day'},
+	  title,
+	  [:div, {:class=>'body'},
+	    [:div, {:class=>'section'},
+	      section],
+	    [:"!--", 'section']],
+	  [:"!--", 'body']],
+	[:"!--", 'day']
+      ]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestTDiaryResolver < Test::Unit::TestCase
+    include TestSession
+
+    def ok_t(e, s)
+      res = Qwik::TDiaryResolver.new(@config, @site, @action)
+      ok_eq(e, res.make_title_link(s))
+    end
+
+    def test_basic
+      res = session
+
+      res = Qwik::TDiaryResolver.new(@config, @site, @action)
+
+      Qwik::TDiaryResolver.instance_eval {
+	public :is_title?
+	public :encode_label
+	public :tdiary_section
+	public :make_title_link
+      }
+
+      # test_is_title?
+      ok_eq(true,  res.is_title?([:h2, 't']))
+      ok_eq(false, res.is_title?([:h3, 't']))
+
+      # test_encode_label
+      ok_eq('1',  res.encode_label(''))
+      ok_eq('2',  res.encode_label(''))
+      ok_eq('t',  res.encode_label('t'))
+      ok_eq('3',  res.encode_label(''))
+
+      ok_eq('t_t',  res.encode_label('t t'))
+      ok_eq('t_t',  res.encode_label('t_t'))
+      ok_eq('t-t',  res.encode_label('t-t'))
+      ok_eq('930149ca7573114b0341159c94380421', res.encode_label("t!"))
+
+      # test_tdiary_section
+      t = res.tdiary_section([:h2, 't'], 'section')
+      ok_eq([[:div, {:class=>'day'},
+		       [:h2, {:id=>'t'}, 't'],
+		       [:div, {:class=>'body'},
+			 [:div, {:class=>'section'}, 'section'],
+			 [:"!--", 'section']],
+		       [:"!--", 'body']],
+		     [:"!--", 'day']],
+		   t)
+
+      ok_eq([:div, {:class=>'day'},
+		     [:h2, {:id=>'t'}, 't'],
+		     [:div, {:class=>'body'},
+		       [:div, {:class=>'section'}, 'section']]],
+		   t.remove_comment.get_single)
+
+      # test_make_title_link
+      res = session
+
+      ok_t([:h2, {:id=>'t'}, 't'], [:h2, 't'])
+
+      config = @site['_SiteConfig']
+      config.store(':titlelink:true')
+
+      ok_t([:h2, [:a, {:href=>"FrontPage.html#t", :name=>'t',
+		     :class=>'label'}, "■"], 't'],
+	       [:h2, 't'])
+
+      ok_t([:h2, [:a, {:name=>'8f03c3a6dbec1d0f1a5af60947b7b052',
+		     :class=>'label',
+		     :href=>"FrontPage.html#8f03c3a6dbec1d0f1a5af60947b7b052"},
+		   "■"], "あ"],
+	       [:h2, "あ"])
+    end
+
+    def test_emode
+      res = session
+
+      Qwik::TDiaryResolver.instance_eval {
+	public :encode_label
+      }
+
+      config = @site['_SiteConfig']
+      config.store(':emode_titlelink:true')
+      res = Qwik::TDiaryResolver.new(@config, @site, @action)
+      ok_eq('t',  res.encode_label('t'))
+      ok_eq('zNC0vEuG7ZsGqzX0C5tyRQ',  res.encode_label("t!"))
+      ok_eq('ZHQyWazgdpeYgxXBvfV-jA',  res.encode_label("あ"))
+
+      ok_t([:h2, [:a, {:href=>"FrontPage.html#t", :name=>'t',
+		     :class=>'label'}, "■"], 't'],
+	       [:h2, 't'])
+      ok_t([:h2, [:a, {:name=>'ZHQyWazgdpeYgxXBvfV-jA',
+		     :class=>'label',
+		     :href=>"FrontPage.html#ZHQyWazgdpeYgxXBvfV-jA"},
+		   "■"], "あ"],
+	       [:h2, "あ"])
+    end
+
+    def ok_res(e, wabisabi)
+      res = Qwik::TDiaryResolver.new(@config, @site, @action)
+      w = res.resolve(wabisabi).remove_comment
+      ok_eq(e, w)
+    end
+
+    def test_tdiary_resolve
+      res = session
+      ok_res([[:div, {:class=>'day'}, '',
+		 [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]]],
+	     '')
+      ok_res([[:div, {:class=>'day'},
+		 [:h2, {:id=>'t'}, 't'],
+		 [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]]],
+	     [[:h2, 't']])
+      ok_res([[:div, {:class=>'day'},
+		 [:h2, {:id=>'h2'},'h2'],
+		 [:div, {:class=>'body'},
+		   [:div, {:class=>'section'},
+		     [[:p, 'text of h2'], [:h3, 'h3'], [:p, 'text of h3']]]]]],
+	     [[:h2, 'h2'],
+	       [:p, 'text of h2'],
+	       [:h3, 'h3'],
+	       [:p, 'text of h3']])
+      ok_res([[:div, {:class=>'day'},
+		 [:h2, {:id=>'h2'},'h2'],
+		 [:div, {:class=>'body'},
+		   [:div, {:class=>'section'}, [[:p, 'text of h2']]]]],
+	       [:div, {:class=>'day'},
+		 [:h2, {:id=>'h2_2'},'h2 2'],
+		 [:div, {:class=>'body'},
+		   [:div, {:class=>'section'}, [[:p, 'text of h2 2']]]]]],
+	     [[:h2, 'h2'],
+	       [:p, 'text of h2'],
+	       [:h2, 'h2 2'],
+	       [:p, 'text of h2 2']])
+
+      # test_tdiary_resolve_with_titlelink
+      config = @site['_SiteConfig']
+      config.store(':titlelink:true')
+      ok_res([[:div, {:class=>'day'},
+		 [:h2, [:a, {:name=>'t', :class=>'label',
+		       :href=>"FrontPage.html#t"}, "■"], 't'],
+		 [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]]],
+	     [[:h2, 't']])
+    end
+  end
+end

data/vendor/qwik/lib/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/lib/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/lib/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