qwikdoc 0.0.1

data/vendor/qwik/act-rrefs.rb

@@ -0,0 +1,255 @@
+# Copyright (C) 2009 AIST, 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.
+
+=begin
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+require 'qwik/act-backup'
+
+module Qwik
+  class Action
+    def plg_rrefs
+        rrefs = @site.rrefs(@req.base)
+	wabisabi = []
+	if rrefs
+	  w = []
+          rrefs.each{|key| 
+	    page = @site[key]
+	    if page
+	      w.push([:span, {:class => "rref"}, [:a, {:href => "#{key}.html"}, page.get_title]])
+	    else
+	      rrefs.delete(key)
+	    end
+	  }
+	  if w.size > 0
+	    wabisabi = [:div, {:class => "rrefs"}] + w
+	  end
+	end
+        return wabisabi
+    end
+
+    private
+    def clear_rrefs(mykey)
+      @site.each {|page|
+	page.rrefs.delete(mykey) unless page.rrefs.nil?
+      }
+    end
+
+    def create_rrefs(mykey)
+      links = find_links_to_this_page(mykey)
+      @site.rrefs(mykey).put(links) if links.size > 0
+    end
+    
+    def find_links_to_this_page(mykey)
+      links = []
+      @site.each {|page|
+        l = extract_wiki_links(page.get)
+        if l.include?(mykey)
+          links.push(page.key)
+        end
+      }
+      links
+    end
+
+    def update_rrefs
+      list = backup_list(@site,@req.base)
+      # new page already has two pages at this point
+      list = list.sort {|a,b| a[1] <=> b[1]}[-2..-1]
+      if list
+        links = list.map{|w|
+          extract_wiki_links(w[0])
+        }
+
+        new_links = links[1] - links[0]
+        deleted_links = links[0] - links[1]
+
+        update_links(new_links,"add") 
+        update_links(deleted_links,"delete") 
+      end
+    end
+
+    def update_links(links, method)
+      links.each {|key|
+        rrefs = @site.rrefs(key)
+	rrefs.send(method, @req.base) unless rrefs.nil?
+      }
+    end
+
+    def extract_wiki_links(wiki)
+      links = []
+      wabisabi = wiki_to_wabisabi(wiki)
+      wabisabi.each_tag(:a) {|e|
+        href = e.attr[:href]
+        if (!href.nil? and !href.empty?)
+          key = href_to_key(href)
+         links.push(key) if !key.nil?
+       end
+      }
+      return links
+    end
+
+    def wiki_to_wabisabi(wiki)
+      tokens = Qwik::TextTokenizer.tokenize(wiki)
+      return Qwik::TextParser.make_tree(tokens)
+    end
+
+    def href_to_key(href)
+      #fix me! this is from site-reslove.rb#resolve_ref
+      return nil if /^(?:http|https|ftp|file):\/\// =~ href
+      return nil if href.include?('?')    # ignore command link
+      return nil if href[0] == ?/ # already resolved
+      return nil if /\.html\z/ !~ href    # ignore not html file
+      key = href.sub(/\.html\z/, '')
+      page = @site.get_by_title(key)
+      if page && page.key != key
+        key = page.key
+      end
+      return key
+    end    
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActRRefs < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_rrefs
+      t_add_user
+      #test empty rrefs
+      ok_wi([],'{{rrefs}}')
+
+      page = @site['_PageAttribute']
+      page.store('{{rrefs}}')
+
+      ## assertion for a new page  
+      #create page contatins a link to page2
+      res = session('POST /test/.new?t=page1')
+      res = session('/test/page1.save?contents=%5b%5bpage2%5d%5d')
+
+      #create page2
+      res = session('POST /test/.new?t=page2')
+      res = session('/test/page2.save?contents=page2')
+
+      #load page2
+      res = session('/test/page2.html')
+
+      #check if page2 has a rref to page1
+      ok_xp([:div, {:class => "rrefs"}, [:span, {:class => "rref"}, [:a, {:href => "page1.html"}, "page1"]]],'//div[@class="rrefs"]/')
+
+
+      ## assertion for adding a link to existing page 
+      #ensure to differ backup epoch time of page2
+      sleep(1)
+
+      #modify page2 to add a link to page1
+      res = session('/test/page2.edit')
+      md5hex = session_md5(res.body)
+      res = session('/test/page2.save?contents=page2%5b%5bpage1%5d%5d&md5hex=' + md5hex)
+      ok_in(['Page is saved.'],'title')
+
+      #check if page1's rrefs has page2
+# comment outed due to cache issue.
+#      ok_eq("page2" + $/, @site["page1"].rrefs.get)
+
+      #load page1
+      res = session('/test/page1.html')
+
+      #check if page1 has a rref to page2
+      ok_xp([:div, {:class => "rrefs"}, [:span, {:class => "rref"}, [:a, {:href => "page2.html"}, "page2"]]],'//div[@class="rrefs"]/')
+
+      ## assetion for deleting a link to page
+      #ensure to differ backup epoch time of page2
+      sleep(1)
+
+      #modify page2 to delete a link to page1
+      res = session('/test/page2.edit')
+      md5hex = session_md5(res.body)
+      res = session('/test/page2.save?contents=page2&md5hex=' + md5hex)
+      ok_in(['Page is saved.'],'title')
+
+      #check if page1's rrefs has no content
+# comment outed due to cache issue.
+#      ok_eq("",@site["page1"].rrefs.get)
+
+      ## assetion for deleting page1
+      res = session('/test/page1.edit')
+      md5hex = session_md5(res.body)
+      res = session('/test/page1.save?contents=&md5hex=' + md5hex)
+      ok_in(['Page is deleted.'],'title')
+      
+      #check if page2's rrefs has no content
+# comment outed due to cache issue.
+#      ok_eq("",@site["page2"].rrefs.get)
+    end
+
+#=begin
+    # check exclusive rrefs update
+    # this test takes too long to run as regression
+    # please uncomment when needed to test
+    def test_multi_pages_update
+      t_add_user
+
+     
+      # number of pages to update at once.
+      # This number should be even.
+      # Adequate number is upto the test environment.
+      num = 300
+
+      #create pages0~num
+      0.upto(num){|i|
+        t = "page#{i}"
+        res = session("POST /test/.new?t=#{t}")
+	if ((i&0x1) == 0x1) #odd pages have a link to page0
+          res = session("/test/#{t}.save?contents=%5b%5bpage0%5d%5d")
+	else #even pages have no links
+          res = session("/test/#{t}.save?contents=#{t}")
+	end
+      }
+
+      #update page1~num
+      1.upto(num) {|i|
+	  p = "page#{i}"
+	  res = session("/test/#{p}.edit")
+      }
+      sleep(1)
+
+      ths = []
+      1.upto(num) {|i|
+        ths[i] = Thread.new {
+	  p = "page#{i}"
+	  if ((i&0x1) == 0x1) #odd pages: remove a link to page0
+	    res = session("/test/#{p}.save?contents=page0")
+	  else #even pages: add a link to page0
+	    res = session("/test/#{p}.save?contents=%5b%5bpage0%5d%5d")
+	  end
+        }
+      }
+      1.upto(num){|i|
+        ths[i].join
+      }
+
+      #check if page0's rrefs has num/2 pages
+      r = @site["page0"].rrefs.get.sort
+      ok_eq(num/2,r.to_a.size)
+    end
+#=end
+
+    private
+    def session_md5(body)
+      md5hex = nil
+      body.each_tag(:input) {|e|
+        if e.attr[:name] == "md5hex"
+          md5hex = e.attr[:value]
+	end
+      }
+      return md5hex
+    end
+  end
+end
+=end

data/vendor/qwik/act-ruby.rb

@@ -0,0 +1,116 @@
+# 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.
+
+module Qwik
+  class Action
+    D_PluginRuby = {
+      :dt => 'Embed Ruby code plugin',
+      :dd => 'You can embed ruby code on pages.',
+      :dc => "* Examples
+ {{ruby
+ \"<b>hello</b>\"
+ }}
+{{ruby
+\"<b>hello</b>\"
+}}
+
+* enable_ruby
+
+Please enable ruby plugin from 'config.txt'.
+Ask for the administrator.
+}}
+"
+    }
+
+    def plg_ruby(*argv)
+      return [:p, "Ruby plugin is not enabled."] if ! @config.enable_ruby
+
+      return if ! block_given?
+      ruby_code = yield
+
+      require 'date'
+
+      th = Thread.new {
+	$SAFE = 4
+	eval(ruby_code)
+      }
+      result = th.value.to_s
+      wabisabi = HTree(result).to_wabisabi
+      return [:p, wabisabi]
+    end
+  end
+end
+
+if $0 == __FILE__
+  $LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActRuby < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_ruby
+      res = session
+      ok_wi [:p, "Ruby plugin is not enabled."],
+	"{{ruby
+'hello'
+}}"
+
+      @config[:enable_ruby] = true
+
+      ok_wi [], "{{ruby}}"
+
+      ok_wi [:p, ["hello"]],
+	"{{ruby
+\"hello\"
+}}"
+
+      ok_wi [:p, ["2"]],
+	"{{ruby
+1 + 1
+}}"
+
+      ok_wi [:p, ["11"]],
+	"{{ruby(1, 1)
+argv[0] + argv[1]
+}}"
+
+      ok_wi [:p, ["2"]],
+	"{{ruby(1, 1)
+argv[0].to_i + argv[1].to_i
+}}"
+
+      ok_wi [:p,
+ [[:pre,
+   "\nSun Mon Tue Wed Thu Fri Sat\n              1   2   3   4 \n  5   6   7   8   9  10  11 \n 12  13  14  15  16  17  18 \n 19  20  21  22  23  24  25 \n 26  27  28  29  30  31 \n"],
+  "\n"]],
+	'{{ruby(2007, 8)
+year = argv[0].to_i
+month = argv[1].to_i
+
+str = ""
+str << "<pre>\n"
+str << Date::ABBR_DAYNAMES.join(" ")
+str << "\n"
+
+day = Date.new(year, month)
+
+str << ("    " * day.wday)
+loop do
+  str << day.strftime(" %e ")
+  str << "\n" if day.wday == 6
+  day += 1
+  break if day.month != month
+end
+str << "\n"
+str << "</pre>\n"
+
+str
+}}'
+
+    end
+  end
+end

data/vendor/qwik/act-sample.rb

@@ -0,0 +1,170 @@
+# 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.
+
+#
+# This is a sample plugin for qwikWeb.
+# If you'd like to check the details of qwikWeb plugin, please see URL below.
+# http://qwik.jp/HowToMakePlugin.html
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    D_PluginSample = {
+      :dt => 'Sample plugins',
+      :dd => 'These are sample plugins.',
+      :dc => "* Example
+You can show famous \"hello, world!\" string by this plugin.
+
+As you know, this \"hello world\" plugin is an example to describe
+how you can create your own plugin.
+
+Please check this URL for detail.
+http://qwik.jp/HowToMakePlugin.html
+
+** hello world plugin
+ {{hello}}
+{{hello}}
+ {{hello(\"qwik users\")}}
+{{hello(\"qwik users\")}}
+You can specify the target in the argument.
+** hello world action
+ [[.hello]]
+[[.hello]]
+You can see a page with 'hello world' message.
+** Monospace plugin
+{{tt(\"This is a test.\")}}
+ {{tt(\"This is a test.\")}}
+You can make the string as monotype font face.
+
+** Quote plugin
+{{quote
+This is a text to quote.
+}}
+ {{quote
+ This is a text to quote.
+ }}
+You can make block quote of the string.
+"
+    }
+
+    D_PluginSample_ja = {
+      :dt => '�T���v���E�v���O�C��',
+      :dd => '�v���O�C���̃T���v���ł��B',
+      :dc => '
+qwikWeb�̃v���O�C���������ō���Ă݂�ۂ̎Q�l�ƂȂ�v���O�C����񋟂�
+�Ă��܂��B���̃v���O�C�����������āA���R�Ɏ����Ȃ�̃v���O�C���������
+�݂Ă��������B
+
+�ڂ����́A�������URL������񂭂������B
+http://qwik.jp/HowToMakePlugin.html
+* ��
+** �n���[���[���h�E�v���O�C��
+{{hello}}
+ {{hello}}
+�L���ȁuhello, world!�v����ʂɕ\�������邱�Ƃ��ł��܂��B
+{{hello(\"qwik users\")}}
+ {{hello(\"qwik users\")}}
+�������Ƃ邱�Ƃ��ł��܂��B
+** �n���[���[���h�E�A�N�V����
+[[.hello]]
+ [[.hello]]
+�uhello, world!�v�ƕ\������܂��B
+** �����v���O�C��
+{{tt(\"This is a test.\")}}
+ {{tt(\"This is a test.\")}}
+�������w�肵�܂��B
+** ���p�v���O�C��
+{{quote
+This is a text to quote.
+}}
+ {{quote
+ This is a text to quote.
+ }}
+���p�ł��܂��B
+'
+    }
+
+    def plg_hello(target='world')
+      return [:strong, "hello, #{target}!"]
+    end
+
+    def plg_bhello
+      content = yield
+      content = content.map {|line|
+	"hello, #{line.chomp}!\n"
+      }.join
+      return [:pre, content]
+    end
+
+    def act_hello
+      c_notice('hello, world!') {
+	'hi, there.'
+      }
+    end
+
+    def plg_tt(text)
+      return [:tt, text]
+    end
+
+    def plg_quote
+      text = ''
+      text = yield if block_given?
+      ar = []
+      text.each {|line|
+	ar << line
+	ar << [:br]
+      }
+      bq = [:blockquote, [:p, {:style=>'font-size:smaller;'}, *ar]]
+      return bq
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActSample < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_hello
+      ok_wi([:strong, 'hello, world!'], '{{hello}}')
+      ok_wi([:strong, 'hello, qwik!'], '{{hello(qwik)}}')
+      ok_wi [:pre, "hello, s!\nhello, t!\n"], '{{bhello
+s
+t
+}}'
+    end
+
+    def test_act_hello
+      t_add_user
+      res = session('/test/.hello')
+      ok_title 'hello, world!'
+      ok_in(['hi, there.'], '//div[@class="section"]')
+    end
+
+    def test_plg_tt
+      ok_wi([:tt, 't'], '{{tt(t)}}')
+    end
+
+    def test_plg_quote
+      ok_wi([:blockquote, [:p, {:style=>'font-size:smaller;'}]],
+	    '{{quote}}')
+      ok_wi([:blockquote, [:p, {:style=>'font-size:smaller;'}]],
+	    "{{quote\n\n}}")
+      ok_wi([:blockquote, [:p, {:style=>'font-size:smaller;'}, "t\n", [:br]]],
+	    "{{quote\nt\n}}")
+      ok_wi([:blockquote, [:p, {:style=>'font-size:smaller;'}, "t\n", [:br]]],
+	    "{{quote\n\nt\n}}")
+      ok_wi([:blockquote, [:p, {:style=>'font-size:smaller;'},
+		"t1\n", [:br],
+		"t2\n", [:br]]],
+	    "{{quote\nt1\nt2\n}}")
+    end
+  end
+end