qwikdoc 0.0.1

data/vendor/qwik/request-ua.rb

@@ -0,0 +1,76 @@
+# 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 UserAgent
+    def initialize(req)
+      @req = req
+      @mobile = @serial = nil
+      parse(@req)
+    end
+    attr_reader :mobile, :serial
+
+    def parse(req)
+      @mobile, @serial = UserAgent.parse(req)
+    end
+
+    def self.parse(req)
+      ua = req['user-agent']
+      mobile = serial = nil
+      case ua
+      when /\ADoCoMo/	# docomo
+	mobile = 'docomo'
+	serial = $1 if /\/ser(...........)/ =~ ua
+      when /\AKDDI\-/, /\AUP\.Browser/	# ezweb
+	mobile = 'ezweb'
+	serial = req['x-up-subno']
+      end
+      return mobile, serial
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/config'
+  require 'qwik/request'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestRequestUserAgent < Test::Unit::TestCase
+    def test_class_method
+      c = Qwik::UserAgent
+      ok_eq(['docomo', nil],
+	    c.parse({'user-agent'=>'DoCoMo/1.0/N504i/c10/TB'}))
+      ok_eq(['docomo', 'NMAIA000001'],
+	    c.parse({'user-agent'=>'DoCoMo/1.0/N504i/c10/TB/serNMAIA000001'}))
+      ok_eq(['ezweb', nil],
+	    c.parse({'user-agent'=>"KDDI-TS23 UP.Browser/6.0.7.2 (GUI) MMP/1.1"}))
+      ok_eq(['ezweb', 'XXXXXXXXXXXXXXXXX.ezweb.ne.jp'],
+	    c.parse({'user-agent'=>"KDDI-TS23 UP.Browser/6.0.7.2 (GUI) MMP/1.1",
+		      'x-up-subno'=>'XXXXXXXXXXXXXXXXX.ezweb.ne.jp'}))
+    end
+
+    def test_user_agent
+      config = Qwik::Config.new
+      req = Qwik::Request.new(config)
+
+      req.instance_eval {
+	@header['user-agent'] = ['DoCoMo/1.0/N504i/c10/TB']
+      }
+      ua = Qwik::UserAgent.new(req)
+      ok_eq('docomo', ua.mobile)
+      ok_eq(nil, ua.serial)
+      req.instance_eval {
+	@header['user-agent'] = ['DoCoMo/1.0/N504i/c10/TB/serNMAIA000001']
+      }
+      ua = Qwik::UserAgent.new(req)
+      ok_eq('docomo', ua.mobile)
+      ok_eq('NMAIA000001', ua.serial)
+    end
+  end
+end

data/vendor/qwik/request-webrick.rb

@@ -0,0 +1,81 @@
+# 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/request'
+require 'qwik/util-charset'
+
+module Qwik
+  class Request
+    # request is a WEBrick::HTTPRequest
+    def parse_webrick(request)
+      host = ''
+      host = request.request_uri.host if request.request_uri
+
+      @unparsed_uri = request.unparsed_uri
+
+      begin
+	parse_path(request.path)
+      rescue
+      end
+
+      @header = request.header.dup if request.header
+
+      @useragent = UserAgent.new(self)
+
+      if request.accept_language && ! request.accept_language.empty?
+	@accept_language = request.accept_language
+      elsif @useragent.mobile
+	@accept_language = ['ja']
+      end
+
+      @request_method = request.request_method
+      request.cookies.each {|c| @cookies[c.name] = c.value }
+      @query = request.query.dup
+      @query.each {|k, v|
+	v.set_url_charset
+      }
+
+      @user = @pass = nil
+
+      @fromhost = Request.get_fromhost(request, self['x-forwarded-for'])
+      @request_line = Request.get_request_line(request)
+    end
+
+    def self.get_fromhost(request, forwarded_from)
+      if forwarded_from
+	forwarded_from.gsub!(/, /, ',')
+	return forwarded_from
+      end
+      peer = request.peeraddr
+      return peer[2] if peer
+      return '127.0.0.1'
+    end
+
+    def self.get_request_line(request)
+      return '' if request.request_line.nil?
+      request_line = request.request_line.sub(/\x0d?\x0a\z/o, '')
+      request_line = request_line.sub(/ HTTP\/1\..\z/o, '')
+      return request_line
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestRequestWEBrick < Test::Unit::TestCase
+    def test_all
+      config = Qwik::Config.new
+      req = Qwik::Request.new(config)
+
+      c = Qwik::Request
+
+      # not yet
+    end
+  end
+end

data/vendor/qwik/request.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/config'
+require 'qwik/request-path'
+require 'qwik/request-ua'
+require 'qwik/request-webrick'
+
+module Qwik
+  class Request
+    DEFAULT_ACCEPT_LANGUAGE = ['en']
+
+    def initialize(config)
+      @config = config
+
+      @start_time = Time.now
+      @start_time = Time.at(0) if defined?($test) && $test
+
+      init_path
+
+      # init_host
+      @fromhost = nil
+
+      @request_method = nil
+      @cookies = {}
+      @header = {}
+      @query = {}
+      @user = @pass = nil
+      @auth = nil
+      @useragent = UserAgent.new(self)
+      @sessionid = nil
+      @accept_language = DEFAULT_ACCEPT_LANGUAGE
+      @request_line = nil
+    end
+
+    attr_accessor :start_time	# For test.
+    attr_reader :request_method
+    attr_reader :cookies
+    attr_reader :header		# For test.
+    attr_reader :query
+    attr_accessor :user
+    attr_reader :pass
+    attr_accessor :auth
+    attr_reader :useragent
+    attr_accessor :sessionid
+    attr_accessor :accept_language
+    attr_reader :request_line
+    attr_reader :fromhost
+
+    def is_post?
+      return @request_method == 'POST'
+    end
+
+    def [](key)
+      return nil if @header.nil?
+      value = @header[key.downcase]
+      return nil if value.nil? || value.empty?
+      return value.join(', ')
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestRequest < Test::Unit::TestCase
+    def test_all
+      config = Qwik::Config.new
+      req = Qwik::Request.new(config)
+
+      # test_start_time
+      ok_eq(0, req.start_time.to_i)
+
+      # test_[]
+      req.instance_eval {
+	@header['k'] = ['v']
+      }
+      eq('v', req['k'])
+
+      req.instance_eval {
+	@header['k'] = ['v1', 'v2']
+      }
+      eq('v1, v2', req['k'])
+    end
+  end
+end

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