qwikdoc 0.0.1

data/vendor/qwik/act-config.rb

@@ -0,0 +1,49 @@
+# 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
+    NotYet_D_site_config = {
+      :dt => 'Site Config mode',
+      :dd => 'You can edit site configurations.',
+      :dc => "* Example
+[[site.config]]
+"
+    }
+
+    def notyet_ext_config
+      method = "config_#{@req.base}"
+      return c_nerror if ! self.respond_to?(method)
+      return self.send(method)
+    end
+
+    SITE_CONFIG = '_SiteConfig'
+
+    def config_site
+      @req.base = SITE_CONFIG		# Fake.
+      w = []
+      w << [:h1, _('Site Configuration')]
+      w = c_res(content)
+      w = TDiaryResolver.resolve(@config, @site, self, w)
+      title = _('Function')+' | '+hash[:dt]
+      return c_surface(title, true) { w }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestAction < Test::Unit::TestCase
+    include TestSession
+
+    def test_config
+    end
+  end
+end

data/vendor/qwik/act-counter.rb

@@ -0,0 +1,125 @@
+# 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
+    D_PluginCounter = {
+      :dt => 'Counter plugin',
+      :dd => 'You can show a conter for the page.',
+      :dc => '* Example
+ {{counter}}
+{{counter}}
+'
+    }
+
+    D_PluginCounter_ja = {
+      :dt => '�J�E���^�[�E�v���O�C��',
+      :dd => '�A�N�Z�X�J�E���^�[�𖄂ߍ��ނ��Ƃ��ł��܂��B',
+      :dc => '* ��
+ {{counter}}
+{{counter}}
+'
+    }
+
+    def plg_counter
+      return [:div, {:class=>'counter'},
+	[:iframe, {:src=>"#{@req.base}.counter",
+	    :style=>'
+margin:0;
+padding:0;
+width:5em;height:1em;
+border: 0;
+'}, '']]
+    end
+
+    def ext_counter
+      couner_num = counter_increment_count
+      new_counter_str = couner_num.to_s
+
+      @res['Content-Type'] = 'text/html; charset=Shift_JIS'
+      @res.body = [:html,
+	[:head,
+	  [:title, 'counter'],
+	  [:style, '
+* {
+  padding: 0;
+  margin: 0;
+}
+body {
+  border: 0;
+  font-family: Helvetica,Arial,Verdana,sans-serif;
+  font-size: xx-small;
+  text-align: right;
+}
+']],
+	[:body, [:div, {:class=>'counter'}, new_counter_str]]]
+      return nil
+    end
+
+    def counter_increment_count
+      pagename = @req.base
+      counter_pagename = "_counter_#{pagename}"
+
+      counter_page = @site[counter_pagename]
+      if counter_page.nil?
+	counter_page = @site.create(counter_pagename)
+	counter_page.store('0')
+      end
+
+      counter_str = counter_page.load
+      md5 = counter_str.md5hex
+
+      counter_num = counter_str.to_i
+      counter_num += 1
+      new_counter_str = counter_num.to_s
+
+      #counter_page.store(counter_num.to_s)
+      begin
+	counter_page.put_with_md5(new_counter_str, md5)
+      rescue PageCollisionError
+	# Do nothing.
+      end
+
+      return counter_num
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActCounter < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+      page.store('{{counter}}')
+
+      res = session('/test/1.html')
+      ok_xp([:div, {:class=>'counter'},
+	      [:iframe,
+		{:style=>"\nmargin:0;\npadding:0;\nwidth:5em;height:1em;\nborder: 0;\n", :src=>'1.counter'}, '']],
+	    "//span[@class='counter']")
+
+      res = session('/test/1.counter')
+      ok_xp([:div, {:class=>'counter'}, '1'],
+	    "//div[@class='counter']")
+
+      counter_page = @site['_counter_1']
+      eq '1', counter_page.load
+
+      res = session('/test/1.counter')
+      ok_xp([:div, {:class=>'counter'}, '2'],
+	    "//div[@class='counter']")
+      eq '2', counter_page.load
+    end
+  end
+end

data/vendor/qwik/act-day.rb

@@ -0,0 +1,96 @@
+# 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.
+
+# Under construction.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/site-timeline'
+require 'qwik/act-chronology'
+
+module Qwik
+  class Action
+    # find the newest day.
+    def act_day
+      timeline = @site.timeline
+      timeline.calc_history
+      #pp timeline
+
+      max = timeline.site_max
+      day = max.ymd_s
+
+      @req.base = day
+      return ext_day
+
+#      return c_notice('max') {
+#	day
+#      }
+    end
+
+    # http://co/qwik/20051126.day
+    def ext_day
+      day = @req.base
+      return c_nerror('require arg') if day.nil?
+
+      if /\A(\d\d\d\d)(\d\d)(\d\d)\z/ =~ day
+	time = Time.local($1, $2, $3)
+      else      
+	return c_nerror('wrong format')
+      end
+
+      timeline = @site.timeline
+      timeline.calc_history
+      #pp timeline
+
+      ymd = time.ymd_s
+      keys = timeline.get_keys_by_day(ymd)
+      return c_nerror('no contents') if keys.nil?
+
+      ar = []
+      keys.each {|pagename|
+        page = @site[pagename]
+        ar << [:h1, [:a, {:href=>"#{pagename}.html"}, page.get_title]]
+        ar << surface_get_body(page)
+        pageattribute = c_page_res('_PageAttribute')
+      }
+      return c_surface(_('One day') + ' | ' + ymd) {
+        ar
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActDay < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      page = @site.create_new
+      page.put_with_time('* t1', 0)	# Store this page first.
+      page.put_with_time('* t2', 1)	# Store this page second.
+      #p @site.to_a
+
+      # test_act_day
+      res = session '/test/.day'
+     #ok_in ['max'], '//title'
+
+=begin
+      # test_ext_day
+      # There is a page in 1970-01-01.
+      res = session '/test/19700101.day'
+      ok_in ["One day | 19700101"], '//title'
+=end
+
+      # There is no page in 1970-01-02.
+      res = session '/test/19700102.day'
+      ok_in ['no contents'], '//title'
+    end
+  end
+end

data/vendor/qwik/act-describe.rb

@@ -0,0 +1,135 @@
+# 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/description'
+require 'qwik/description-ja'
+# FIXME: Load description files from all languages automatically.
+
+module Qwik
+  class Action
+    NotNecessary_D_ExtDescribe = {
+      :dt => 'Description of functions',
+      :dd => 'You can see the description of each functions of qwikWeb.',
+      :dc => "* Example
+ [[QwikWeb.describe]]
+[[QwikWeb.describe]]
+
+You can see the list below.
+"
+    }
+
+    NotNecessary_D_ExtDescribe_ja = {
+      :dt => '�@�\����',
+      :dd => 'qwikWeb�̋@�\���������邱�Ƃ��ł��܂��B',
+      :dc => '* ��
+ [[QwikWeb.describe]]
+[[QwikWeb.describe]]
+
+�@�\�����̈ꗗ�́A���̉��ɂ‚��Ă��܂��B
+'
+    }
+
+    def notuse_plg_description_list_dl
+      list = [:dl]
+      self.description_list(@req.accept_language).each {|name|
+	hash = description_get(name, @req.accept_language)
+	list << [:dt, [:a, {:href=>"#{name}.describe"},
+	    [:em, name], "  | ", [:strong, hash[:dt]]]]
+	list << [:dd, hash[:dd]]
+      }
+      return [:div, {:class=>'description-list'}, list]
+    end
+
+    def plg_description_list
+      list = [:ul]
+      self.description_list(@req.accept_language).each {|name|
+	hash = description_get(name, @req.accept_language)
+	list << [:li, [:a, {:href=>"#{name}.describe"},
+	    [:em, name], ' ', [:strong, hash[:dt]]], ' ', hash[:dd]]
+      }
+      return [:div, {:class=>'description-list'}, list]
+    end
+
+    def description_list(langs=nil)
+      langs = [] if langs.nil?
+      langs << '' if ! langs.include?('')
+      list = []
+      self.class.constants.each {|constname|
+	langs.each {|lang|
+	  if /\AD_([A-Za-z]+)_#{lang}\z/ =~ constname
+	    if ! list.include?($1)
+	      list << $1
+	    end
+	  elsif /\AD_([A-Za-z]+)\z/ =~ constname
+	    if ! list.include?($1)
+	      list << $1
+	    end
+	  end
+	}
+      }
+      return list.sort
+    end
+
+    DEFAULT_DESCRIPTION = 'QwikWeb'
+
+    def act_describe
+      @req.base = DEFAULT_DESCRIPTION
+      return ext_describe
+    end
+
+    def ext_describe
+      hash = description_get(@req.base, @req.accept_language)
+      return c_nerror('No such description') if hash.nil?
+      content = "#{hash[:dd]}
+#{hash[:dc]}
+* #{_('Functions list')}
+{{description_list}}
+"
+      @req.base = 'FrontPage'		# Fake.
+      w = c_res(content)
+      w = TDiaryResolver.resolve(@config, @site, self, w)
+      #title = "#{_('Function')} | #{hash[:dt]}"
+      title = hash[:dt]
+      return c_surface(title, true) { w }
+    end
+
+    def description_get(name, langs=nil)
+      langs = [] if langs.nil?
+      langs << '' if ! langs.include?('')
+      langs.each {|lang|
+	lang.gsub!(/-/, '_')
+	constname = "D_#{name}"
+	constname = "D_#{name}_#{lang}" if ! lang.empty?
+	if self.class.const_defined?(constname)
+	  return self.class.const_get(constname)
+	end
+      }
+      return nil
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActDescribe < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+      res = session '/test/QwikWeb.describe'
+      ok_title 'How to qwikWeb'
+#      ok_in [:p, 'You can see the description of each functions of qwikWeb.'],
+#	'//div[@class="section"]'
+
+      # test_description_list
+      list = @action.description_list
+      eq true, 0 < list.length
+    end
+  end
+end

data/vendor/qwik/act-diary.rb

@@ -0,0 +1,109 @@
+# 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/act-include'
+
+module Qwik
+  class Action
+    D_PluginDiary = {
+      :dt => 'Diary plugin',
+      :dd => 'You can create a diary page.',
+      :dc => "* How to
+TBD
+"
+    }
+
+    D_PluginDiary_ja = {
+      :dt => '���L�v���O�C��',
+      :dd => '���L�y�[�W�����܂��B',
+      :dc => "* �g����
+�Ⴆ�΁uUser�v�Ƃ����y�[�W���̃y�[�W�����܂��B
+���̃y�[�W�ɉ��L�̂悤�ɓ��L�v���O�C���𖄂ߍ��݂܂��B
+ {{diary}}
+
+���L�y�[�W�́uUser_20070417�v�Ƃ����悤�ɁuUser_�v�Ƃ���prefix�̌��
+���t���������悤�ȃy�[�W���ŋL�q���Ă��������B
+�uUser�v�y�[�W�ɂ́A�����̓��L�̈ꗗ���\������܂��B
+"
+    }
+
+    def plg_diary(include_days = 10)
+      keys = []
+      @site.each {|page|
+	if /\A#{@req.base}_(\d\d\d\d\d\d\d\d)\z/ =~ page.key
+	  keys << page.key
+	end
+      }
+
+      recent_days = keys.sort.reverse[0, include_days]
+
+      div = []
+      recent_days.each {|key|
+	page = @site[key]
+	div << [:h2, [:a, {:href=>page.url}, page.get_title]]
+	div += plg_include(key)
+      }
+
+      return div
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActDiary < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_diary
+      t_add_user
+
+      page = @site.create('Diary')
+      page.store("{{diary}}")
+      page1 = @site.create('Diary_20070417')
+      page1.store("d1")
+      page2 = @site.create('Diary_20070418')
+      page2.store("d2")
+
+      res = session('/test/Diary.html')
+      ok_in([[:div,
+		{:class=>"day"},
+		"",
+		[:div,
+		  {:class=>"body"},
+		  [:div, {:class=>"section"}, [[:p, "d2"]]],
+		  [:"!--", "section"]],
+		[:"!--", "body"]],
+	      [:"!--", "day"]],
+	    "//div[@class='section']")
+
+=begin
+      res = session('/test/Diary.html')
+      ok_in([[[:div,
+		  {:class=>"day"},
+		  "",
+		  [:div,
+		    {:class=>"body"},
+		    [:div, {:class=>"section"}, [[:p, "d2"]]],
+		    [:"!--", "section"]],
+		  [:"!--", "body"]],
+		[:"!--", "day"]],
+	      [[:div,
+		  {:class=>"day"},
+		  "",
+		  [:div,
+		    {:class=>"body"},
+		    [:div, {:class=>"section"}, [[:p, "d1"]]],
+		    [:"!--", "section"]],
+		  [:"!--", "body"]],
+		[:"!--", "day"]]], "//div[@class='section']")
+=end
+
+    end
+  end
+end