qwik2md 0.1.0

data/vendor/qwik/lib/qwik/db-indexer.rb

@@ -0,0 +1,154 @@
+# 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.
+
+begin
+#  require 'senna'
+#  $have_senna_so = true
+rescue LoadError
+  $have_senna_so = false
+end
+$have_senna_so = false
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+module Qwik
+  class DBIndexer
+    def initialize(path)
+      @path = path
+
+      @index = nil
+      return if ! $have_senna_so
+
+      @cache_path = @path+'.cache'
+      @index_path = @cache_path+'index'
+      check_directory
+
+      @index = Senna::Index.new((@cache_path+'index').to_s)
+    end
+
+    def check(k, v)
+      return update(k, v)
+    end
+
+    def put(k, v, time=nil)
+      return update(k, v)
+    end
+
+    def update(k, v)
+      return if @index.nil?
+
+      # Try to read old content.
+      pa = path(k)
+      old = nil
+      old = pa.get if pa.exist?
+
+      # Avoid \0 from its contents.
+      v = v.gsub("\0", '')if v.include?("\0")	# FIXME: Too ad hoc.
+
+      return false if v == old		# Not necessary to update.
+
+      result = @index.upd(k, old, v)	# FIXME: Take care of result?
+
+      # Store new value to cached content.
+      check_directory
+      pa.open('wb') {|f| f.print(v) }
+
+      return result
+    end
+
+    def search(key)
+      return nil if @index.nil?
+
+      records = @index.sel(key)
+      return [] if records.nil? || records.nhits == 0
+
+      ar = []
+      while res = records.next
+	ar << res
+      end
+      return ar
+    end
+
+    private
+
+    def check_directory
+      @cache_path.check_directory
+      @index_path.check_directory
+    end
+
+    def path(k)
+      return @index_path+(k+'.txt')
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/config'
+  require 'qwik/test-module-path'
+  require 'qwik/db-filesystem'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestDBIndexer < Test::Unit::TestCase
+    def setup_db
+      config = Qwik::Config.new
+      spath = config.super_dir.path
+      path = './.test/'.path
+      path.setup
+      db = Qwik::FileSystemDB.new(path, spath)
+      return path, db
+    end
+
+    def teardown_db(path)
+      path.teardown
+    end
+
+    def test_all
+      # setup
+      path, db = setup_db
+
+      # Initialize DBIndexer.
+      indexer = Qwik::DBIndexer.new(path)
+      db.register_observer(indexer)	# Regist to the DB.
+
+      # Put test contents.
+      db.put('a', 'This is a test.')
+      db.put('b', 'This is a test, too.')
+
+      # test_search
+      if $have_senna_so
+        ok_eq(['a', 'b'], indexer.search('test'))
+        ok_eq(['b'], indexer.search('too'))
+        ok_eq([], indexer.search('nosuch'))
+      end
+
+      teardown_db(path)
+    end
+
+    def test_pre_content
+      # Setup db
+      path, db = setup_db
+
+      # Put test contents before to setup indexer.
+      db.put('a', 'This is a test.')
+      db.put('b', 'This is a test, too.')
+
+      # Initialize DBIndexer.
+      indexer = Qwik::DBIndexer.new(path)
+      db.register_observer(indexer)	# Regist to the DB.
+
+      # test_search
+      if $have_senna_so
+        ok_eq(['a', 'b'], indexer.search('test'))
+        ok_eq(['b'], indexer.search('too'))
+        ok_eq([], indexer.search('nosuch'))
+      end
+
+      teardown_db(path)
+    end
+  end
+end

data/vendor/qwik/lib/qwik/db-searchwords.rb

@@ -0,0 +1,238 @@
+# 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.
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+
+require 'thread'
+
+module Qwik
+  class SearchWordsDB
+    Word = Struct.new("Word", :word, :count, :time)
+
+    def initialize(path, config)
+      @config = config
+      @path = path
+      @word_index = Hash.new
+      @recent_list = Array.new
+      @normalized_list = Array.new
+      @lock = Mutex.new
+      read
+    end
+
+    def delete(word)
+      w = word.to_sym
+      @lock.synchronize {
+        em = @word_index[w]
+        if em
+  	  @word_index.delete(w)
+	  @recent_list.delete(em)
+	  save
+        end
+      }
+    end
+
+    def put(words)
+      if words.class == String
+        words = [words]
+      end
+      @lock.synchronize {
+        words.each {|word|
+	  w = word.to_sym
+          em = @word_index[w]
+	  if em
+	    @recent_list.delete(em)
+	    em.count +=1 
+	  else
+	    em = Word.new(w, 1, Time.new)
+	    if @config[:search_word_max_num] < @recent_list.size
+	      em = @recent_list.delete_at(-1)
+	      @word_index.delete(em.word)
+	    end
+	    @word_index[em.word] = em
+	  end
+	  @recent_list.unshift(em)
+	}
+        save
+      }
+    end
+
+    def get
+      @recent_list[0...@config[:search_word_display_num]]
+    end
+
+    def get_normalized
+      @normalized_list
+    end
+
+   private
+    # should be called from synchronized block
+    def save
+      f = File.new(path,"w")
+      @recent_list.each {|em|
+        f.puts "#{em.time.to_i} #{em.count} #{em.word}" 
+      }
+      f.close
+      normalize
+    end
+
+    def read
+      begin
+        cont = File.new(path).read
+        @lock.synchronize {
+          cont.each_line {|line|
+            time, count, word = line.chomp.split(/ /)
+	    em = Word.new(word.to_sym, count.to_i, Time.at(time.to_i))
+	    @recent_list.push(em)
+	    @word_index[em.word] = em
+          }
+	  normalize
+        }
+      rescue Errno::ENOENT
+        # do nothing
+      end
+    end
+
+    def path
+      "#{@path}/_SearchWords.txt"
+    end
+
+    NUM_SIZE = 5
+    def normalize
+      min,max = min_max
+      diff = max - min + 0.1
+      @normalized_list =
+        @recent_list[0...@config[:search_word_display_num]].map{|em|
+        norm = (em.count - min) / diff * NUM_SIZE
+        Word.new(em.word, norm.to_i, em.time)
+      }
+    end
+
+    def min_max
+      return [0, 0] if @recent_list[0].nil?
+      min = max = @recent_list[0].count
+      @recent_list[1...@config[:search_word_display_num]].each{|em|
+        if max < em.count 
+	  max = em.count
+	elsif em.count < min
+	  min = em.count
+	end
+      }
+      return [min, max]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  require 'qwik/config'
+  require 'qwik/test-module-path'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSearchWorddsDB < Test::Unit::TestCase
+    def test_swdb
+      # setup
+      config = Qwik::Config.new
+      config.update Qwik::Config::DebugConfig
+      config.update Qwik::Config::TestConfig
+      path = '.test/'.path
+      path.setup
+      db = Qwik::SearchWordsDB.new(path,config)
+
+      # put a word
+      db.put(["foo"])
+      ems = db.get
+      assert_equal 1, ems.size
+      assert_equal :foo, ems[0].word
+      assert_equal 1, ems[0].count
+
+      # put the same word
+      db.put("foo")
+      ems = db.get
+      assert_equal 1, ems.size
+      assert_equal :foo, ems[0].word
+      assert_equal 2, ems[0].count
+
+      # check if correctly saved and read
+      db2 = Qwik::SearchWordsDB.new(path,config)
+      ems = db2.get
+      assert_equal 1, ems.size
+      assert_equal :foo, ems[0].word
+      assert_equal 2, ems[0].count
+
+      # put the different word
+      db.put("bar")
+      ems = db.get
+      assert_equal 2, ems.size
+      assert_equal :bar, ems[0].word
+      assert_equal 1, ems[0].count
+      assert_equal :foo, ems[1].word
+      assert_equal 2, ems[1].count
+
+      # check if correctly saved and read
+      db2 = Qwik::SearchWordsDB.new(path,config)
+      ems = db2.get
+      assert_equal 2, ems.size
+      assert_equal :bar, ems[0].word
+      assert_equal 1, ems[0].count
+      assert_equal :foo, ems[1].word
+      assert_equal 2, ems[1].count
+
+      # put Jpanaese name
+      word = "ほげ"
+      db.put(word)
+      ems = db.get
+      assert_equal 3, ems.size
+      assert_equal word.to_sym, ems[0].word
+      assert_equal 1, ems[0].count
+      assert_equal :bar, ems[1].word
+      assert_equal 1, ems[1].count
+      assert_equal :foo, ems[2].word
+      assert_equal 2, ems[2].count
+
+      # check if correctly saved and read
+      db2 = Qwik::SearchWordsDB.new(path,config)
+      ems = db2.get
+      assert_equal 3, ems.size
+      assert_equal word.to_sym, ems[0].word
+      assert_equal 1, ems[0].count
+      assert_equal :bar, ems[1].word
+      assert_equal 1, ems[1].count
+      assert_equal :foo, ems[2].word
+      assert_equal 2, ems[2].count
+
+      db2.put("bar")
+      ems = db2.get
+      assert_equal 3, ems.size
+      assert_equal :bar, ems[0].word
+      assert_equal 2, ems[0].count
+      assert_equal word.to_sym, ems[1].word
+      assert_equal 1, ems[1].count
+      assert_equal :foo, ems[2].word
+      assert_equal 2, ems[2].count
+
+      #test deleation
+      db2.delete(word)
+      ems = db2.get
+      assert_equal 2, ems.size
+      assert_equal :bar, ems[0].word
+      assert_equal 2, ems[0].count
+      assert_equal :foo, ems[1].word
+      assert_equal 2, ems[1].count
+
+      # check if correctly saved and read
+      db3 = Qwik::SearchWordsDB.new(path,config)
+      ems = db3.get
+      assert_equal 2, ems.size
+      assert_equal :bar, ems[0].word
+      assert_equal 2, ems[0].count
+      assert_equal :foo, ems[1].word
+      assert_equal 2, ems[1].count
+
+      path.teardown
+    end
+  end
+end

data/vendor/qwik/lib/qwik/description-ja.rb

@@ -0,0 +1,267 @@
+# 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_QwikWeb_ja = {
+      :dt => 'qwikWebの使い方',
+      :dd => 'qwikWebの説明です。',
+      :dc => "
+'''qwikWeb'''はWikiWikiWebとメーリングリスト管理システムが統合された
+グループ・コミュニケーション・システムです。
+
+詳細な説明は、[[qwikWebホームページ|http://qwik.jp/qwikWeb.html]]を
+ご覧ください。
+
+"+'
+下記に、qwikWebの機能一覧を示します。
+'
+    }
+
+    D_SiteManagement_ja = {
+      :dt => 'サイト管理',
+      :dd => 'サイトを管理するためのメニューです。',
+      :dc => '
+* サイト管理機能
+サイト管理機能はページ編集画面の右側にまとめてあります。
+ここには同じものを説明付きでのせています。
+- [[設定|_SiteConfig]] サイト環境設定のためのページ
+- [[年表|.chronology]] サイト全体の編集履歴を一画面でまとめて見る
+- [[メンバー|_GroupMembers]] このサイトにアクセスできるメンバーを追加・削除する。
+-- カンマ区切りではなく、一行に一メールアドレスの形式で記述します。
+-- \'\'\'注意:\'\'\' このページの編集に失敗すると誰もログインできなくなることがあります。
+- {{zip}} サイト全体のアーカイブを取得できます。
+-- 静的なHTMLファイルも同梱されます。アーカイブを解凍すれば、そのまま普通のWebページになります。
+* サイトページ設定
+サイドバーなどといったメニュー項目を編集したい場合は、下記ページを編集
+してください。
+- [[編集メニュー|_AdminMenu]] ページの上につく編集メニュー
+- [[サイドメニュー|_SideMenu]] ページのサイドメニュー
+- [[ページアトリビュート|_PageAttribute]] ページの下につくページアトリビュート
+- [[編集フッタ|_EditorFooter]] 編集画面のフッタ
+同様に各種の設定項目もWikiページとして編集できます。
+- [[_SiteTheme]] このページにCSSファイルを添付して、サイトテーマを設定できます。
+- [[_InterWikiName]] 他のWikiサイトへのむすびつきを指定する。
+- [[_IsbnLink]] Isbnプラグインを使う際の接続先を指定する。
+- [[_BookSearch]] 本の検索プラグインを使う際の接続先を指定する。
+- [[_LoginMessage]] このページを作ると、ログイン画面にメッセージを表示できます。
+
+これらのページは、元々用意されている親ページから設定を継承します。
+一度でもこれらのページを修正すると、親ページから内容がコピーされます。
+その後に親ページがかきかわったとしても、その変更は反映されません。
+
+その場合は、ページの内容を手元のエディタなどに一旦保存し、そのページを
+全部クリアして消去してください。そうすると親ページの内容が反映されます。
+その後に、これまでのページ内容を書き戻してください。
+* 他
+#- [[添付ファイル|.attach]] この添付ファイルは古いものです。
+- [[SandBox]]
+- [[書込記録|_SiteLogView]]
+詳細な説明は[[qwikWebホームページ|http://qwik.jp/qwikWeb.html]]をご覧ください。
+'
+    }
+
+    D_TextFormatSimple_ja = {
+      :dt => '書式一覧',
+      :dd => 'qwikWebの書式一覧簡略版です。',
+      :dc => '* 書式一覧
+詳細な説明は[[書式一覧詳細版|TextFormat.describe]]をごらんください。
+** 見出し2
+*** 見出し3
+**** 見出し4
+***** 見出し5
+- 箇条書レベル1
+-- 箇条書レベル2
+--- 箇条書レベル3
++ 順序リスト1
+++ 順序リスト2
++++ 順序リスト3
+ 整形済みテキスト。
+> 引用。
+:Wiki:書き込み可能なWebページ
+:QuickML:簡単に作れるメーリングリストシステム
+,項目1-1,項目1-2,項目1-3
+,項目2-1,項目2-2,項目2-3
+\'\'強調\'\'、\'\'\'さらに強調\'\'\'、==取り消し線==
+[[new|http://qwik.jp/.theme/new.png]]
+[[FrontPage]]
+[[Yahoo!|http://www.yahoo.co.jp/]]
+{{recent(1)}}
+
+{{{
+** 見出し2
+*** 見出し3
+**** 見出し4
+***** 見出し5
+- 箇条書レベル1
+-- 箇条書レベル2
+--- 箇条書レベル3
++ 順序リスト1
+++ 順序リスト2
++++ 順序リスト3
+ 整形済みテキスト。
+> 引用。
+:Wiki:書き込み可能なWebページ
+:QuickML:簡単に作れるメーリングリストシステム
+,項目1-1,項目1-2,項目1-3
+,項目2-1,項目2-2,項目2-3
+\'\'強調\'\'、\'\'\'さらに強調\'\'\'、==取り消し線==
+[[new|http://qwik.jp/.theme/new.png]]
+[[FrontPage]]
+[[Yahoo!|http://www.yahoo.co.jp/]]
+{{recent(1)}}
+}}}
+'
+    }
+
+    D_TextFormat_ja = {
+      :dt => '書式一覧詳細版',
+      :dd => 'qwikWebの書式一覧です。',
+      :dc => '* 書式一覧
+簡略化した説明は[[TextFormatSimple.describe]]をご覧下さい。
+* 見出し
+- 「*」を行の先頭に書くと見出しになります。
+- 「*」は1つから5つまで記述することができます。
+それぞれ<H2>～<H6>に変換されます。
+ * 見出し1
+ ** 見出し2
+ *** 見出し3
+ **** 見出し4
+ ***** 見出し5
+* 見出し1
+** 見出し2
+*** 見出し3
+**** 見出し4
+***** 見出し5
+* ページタイトル
+ページの一番最初の行に「*」を一つで見出しを書くと、その見出しはページ
+タイトルとして機能します。他のページからは、そのページタイトルを使って
+リンクすることができます。
+- [[TextFormat]]をご覧下さい。
+- [[書式一覧詳細版]]をご覧下さい。
+ - [[TextFormat]]をご覧下さい。
+ - [[書式一覧詳細版]]をご覧下さい。
+というように、同じ一つのページへのリンクにおいて、ページIDによるリンク
+と、ページタイトルによるリンクを選ぶことができます。
+
+前者のページIDを使ったリンクの場合、そのページのページタイトルが変更さ
+れた場合、自動的にそのタイトルが反映されます。しかし、後者のページタイ
+トルでリンクした場合、リンク先のページタイトルが変更された場合、リンク
+切れになってしまいます。そのため、通常はページIDを用いたリンク方法をお
+勧めします。
+
+* 箇条書き
+- 「-」を行の先頭に書くと箇条書きになります。
+- 「-」は１つから３つまで記述することが可能で入れ子にすることもできます。
+- 「+」を行の先頭に書くと番号付きの箇条書きになります。
+ - 箇条書レベル1
+ -- 箇条書レベル2
+ --- 箇条書レベル3
+ + 順序リスト1
+ ++ 順序リスト2
+ +++ 順序リスト3
+- 箇条書レベル1
+-- 箇条書レベル2
+--- 箇条書レベル3
++ 順序リスト1
+++ 順序リスト2
++++ 順序リスト3
+* パラグラフ
+- 連続した複数行は連結されて1つのパラグラフになります。
+- 空行(改行のみ、またはスペース、タブだけの行)はパラグラフの区切りになります。
+ 例えば、
+ こういう風に記述すると、これらの行は
+ 1つのパラグラフとして整形されます。
+例えば、
+こういう風に記述すると、これらの行は
+1つのパラグラフとして整形されます。
+* 水平線
+- 「=」を行の先頭から4つ書くと水平線(区切り線)になります。
+ この文章と、
+ ====
+ この文章は、区切られています。
+この文章と、
+====
+この文章は、区切られています。
+* 整形済みテキスト
+- 行の先頭がスペースまたはタブで始まっていると、その行は整形済みとして扱われます。
+ これは、
+ 整形済み
+ テキストです。
+大量の整形済みテキストを表示したい場合は「{{{」と
+「}}}」で囲みます。こんな感じです。
+ {{{
+ void main()
+ {
+     printf(\"hello, world\\n\");
+ }
+ }}}
+{{{
+void main()
+{
+    printf(\"hello, world\\n\");
+}
+}}}
+* 引用
+「>」を行の先頭から書くと引用になります。
+ > これは引用です。
+> これは引用です。
+* 用語解説
+コロン「:」を行の先頭に書き、続けて用語:解説文とすると用語解説になります。
+ :Wiki:書き込み可能なWebページ
+ :QuickML:簡単に作れるメーリングリストシステム
+:Wiki:書き込み可能なWebページ
+:QuickML:簡単に作れるメーリングリストシステム
+* 表
+表(テーブル)は「,」または「|」で始め、コラム毎にその記号で区切ります。
+ ,項目1-1,項目1-2,項目1-3
+ ,項目2-1,項目2-2,項目2-3
+,項目1-1,項目1-2,項目1-3
+,項目2-1,項目2-2,項目2-3
+* 文字要素の指定
+文章中の一部分の文字要素を変化させます。
+- 「\'」2個ではさんだ部分は強調されます。
+- 「\'」3個ではさんだ部分はさらに強調されます。
+- 「=」2個ではさんだ部分は取消線になります。
+ このようにすると\'\'強調\'\'になります。
+ そして、このようにすると\'\'\'さらに強調\'\'\'されます。
+ ==なんとなく==取り消し線もサポートしています。
+このようにすると\'\'強調\'\'になります。
+そして、このようにすると\'\'\'さらに強調\'\'\'されます。
+==なんとなく==取り消し線もサポートしています。
+* リンク
+- リンクしたいページ名を２つのカギカッコで囲むと、そのページへのリンクになります。
+ 例えば[[FrontPage]]とすると、入口ページへのリンクになります。
+例えば[[FrontPage]]とすると、入口ページへのリンクになります。
+* 新規ページの作成
+「新規作成」をたどると、ページを作成できます。
+* ページの削除
+テキストを全部消去して保存すると、そのページを削除します。
+* 任意のURLへのリンク
+単語|URLを２つのカギカッコで囲むとを任意のURLへのリンクになります。
+ [[qwik|http://qwik.jp/]]とかもできます。
+[[qwik|http://qwik.jp/]]とかもできます。
+
+このときURLの末尾がjpg,jpeg,png,gifだと、画像がページ中に埋め込まれます。
+(指定した単語がALT要素に設定されます。)
+ [[New!|http://img.yahoo.co.jp/images/new2.gif]]
+[[New!|http://img.yahoo.co.jp/images/new2.gif]]
+
+パラグラフ中にURLのようなものがあると、自動的にリンクとなります。
+ qwikWebのホームページはhttp://qwik.jp/です。
+qwikWebのホームページはhttp://qwik.jp/です。
+
+* InterWiki
+InterWikiとは、他のWikiページへ簡単にリンクをはる機能です。
+またその拡張として、GoogleやAmazonなどに簡単にリンクをはる機能も提供します。
+ - [[google:qwikWeb]]
+ - [[isbn:4797318325]]
+ - [[amazon:Wiki]]
+- [[google:qwikWeb]]
+- [[isbn:4797318325]]
+- [[amazon:Wiki]]
+'
+    }
+  end
+end