qwik2md 0.1.0

data/vendor/qwik/lib/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/lib/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/lib/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 => 'サンプル・プラグイン',
+      :dd => 'プラグインのサンプルです。',
+      :dc => '
+qwikWebのプラグインを自分で作ってみる際の参考となるプラグインを提供し
+ています。このプラグインを改造して、自由に自分なりのプラグインを作って
+みてください。
+
+詳しくは、こちらのURLをごらんください。
+http://qwik.jp/HowToMakePlugin.html
+* 例
+** ハローワールド・プラグイン
+{{hello}}
+ {{hello}}
+有名な「hello, world!」を画面に表示させることができます。
+{{hello(\"qwik users\")}}
+ {{hello(\"qwik users\")}}
+引数をとることもできます。
+** ハローワールド・アクション
+[[.hello]]
+ [[.hello]]
+「hello, world!」と表示されます。
+** 等幅プラグイン
+{{tt(\"This is a test.\")}}
+ {{tt(\"This is a test.\")}}
+等幅を指定します。
+** 引用プラグイン
+{{quote
+This is a text to quote.
+}}
+ {{quote
+ This is a text to quote.
+ }}
+引用できます。
+'
+    }
+
+    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