qwik2md 0.1.0

data/vendor/qwik/lib/qwik/act-table.rb

@@ -0,0 +1,263 @@
+# 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-edit'
+require 'qwik/wabisabi-table'
+
+module Qwik
+  class Action
+    D_PluginTable = {
+      :dt => 'Table edit plugin',
+      :dd => 'You can edit a table in the page.',
+      :dc => "* Example
+{{table}}
+ {{table}}
+You see a five by five table here.
+You can edit the table in the page.
+
+This is just a description page.
+You should try this plugin on your own page.
+"
+    }
+
+    D_PluginTable_ja = {
+      :dt => 'テーブル編集プラグイン',
+      :dd => 'ページ中でテーブルを編集できます。',
+      :dc => "* 例
+ {{table}}
+{{table}}
+ここに5x5のテーブルが見えます。
+それぞれの項目は入力フィールドになっており、書き換えられます。
+最後に「更新」を押すと、それらの入力が反映されます。
+
+この画面は説明用の画面なので、編集できません。
+自分のページで試してみてください。
+"
+    }
+
+    def plg_table
+      content = nil
+      content = yield if block_given?
+
+      if content.nil? || content.empty?		# no contents
+	content = Action.table_default_content
+      end
+
+      w = c_parse(content)
+      return p_error(_('You can only use a table.')) if 1 < w.length
+
+      table = w[0]
+      if table.nil? || table[0] != :table
+	return p_error(_('You can only use a table.'))
+      end
+
+      if WabisabiTable.error_check(table)
+	return p_error(_('You can only use text.'))
+      end
+
+      WabisabiTable.prepare(table)
+
+      # @table_num is global for an action.
+      @table_num = 0 if !defined?(@table_num)
+      @table_num += 1
+      num = @table_num
+
+      action = "#{@req.base}.#{num}.table"
+      div = [:div, {:class=>'table'},
+	[:form, {:method=>'POST', :action=>action},
+	  table,
+	  [:div, {:class=>'submit'},
+	    [:input, {:type=>'submit', :value=>_('Update')}]]]]
+      return div
+    end
+
+    def self.table_default_content
+      content = ''
+      content << "||A|B|C|D|E\n"
+      (1..5).each {|n|
+	content << "|#{n}||||||\n"
+      }
+      return content
+    end
+
+    def ext_table
+      num = @req.ext_args[0].to_i
+      return c_nerror(_('Error')) if num < 1
+
+      query = @req.query
+      new_table_str = table_construct(query)
+
+      begin
+	plugin_edit(:table, num) {
+	  new_table_str
+	}
+      rescue NoCorrespondingPlugin
+	return c_nerror(_('Failed'))
+      rescue PageCollisionError
+	url = "#{@req.base}.html"
+	editing_content = [:pre, new_table_str]
+	message = edit_conflict_message(url, editing_content)
+	return mcomment_error(_('Page collision detected.')) {
+	  message
+	}
+      end
+
+      c_make_log('table')	# TABLE
+
+      url = "#{@req.base}.html"
+      return c_notice(_('Edit done.'), url){
+	[[:h2, _('Edit done.')],
+	  [:p, [:a, {:href=>url}, _('Go back')]]]
+      }
+    end
+
+    def table_construct(query)
+      table = []
+      query.each {|k, v|
+	prefix, col, row = k.split('_')
+	next if prefix != 't' || col.nil? || row.nil?
+	col = col.to_i
+	row = row.to_i
+	table[row] = [] if table[row].nil?
+	table[row][col] = v
+      }
+
+      # Check last row
+      last_tr = table.last
+      empty = true
+      last_tr.each {|col|
+	if col && ! col.empty?
+	  empty = false
+	end
+      }
+      if empty
+	table[table.length-1] = nil	# Delete the last row.
+      end
+
+      str = ''
+      table.each_with_index {|row, y|
+	next if row.nil?
+	row.each_with_index {|col, x|
+	  str << "|#{col}"
+	}
+	str << "\n"
+      }
+
+      return str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTable < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_table
+      t_add_user
+      ok_wi([:div, {:class=>'error'},
+	      [:strong, 'Error', ':'], ' ', 'You can only use a table.'],
+	    "{{table
+a
+}}")
+      ok_wi([:div, {:class=>'error'},
+	      [:strong, 'Error', ':'], ' ', 'You can only use a table.'],
+	    "{{table
+|a
+
+|b
+}}")
+      ok_wi([:div, {:class=>'table'},
+	      [:form, {:action=>'1.1.table', :method=>'POST'},
+		[:table,
+		  [:tr,
+		    [:th, [:input, {:size=>'1', :value=>'a', :name=>'t_0_0'}]],
+		    [:th, {:class=>'new_col'},
+		      [:input, {:size=>'1', :value=>'', :name=>'t_1_0'}]],
+		    [:td, {:class=>'new_col_button'},
+		      [:a, {:href=>"javascript:show_new_col();"}, ">>"]]],
+		  [:tr, {:class=>'new_row'},
+		    [:th, [:input, {:size=>'1', :value=>'', :name=>'t_0_1'}]],
+		    [:td, {:class=>'new_col'},
+		      [:input, {:size=>'1', :value=>'', :name=>'t_1_1'}]]],
+		  [:tr, {:class=>'new_row_button_row'},
+		    [:td, {:class=>'new_row_button'},
+		      [:a, {:href=>"javascript:show_new_row();"}, 'v']]]],
+		[:div, {:class=>'submit'},
+		  [:input, {:value=>'Update', :type=>'submit'}]]]],
+	    "{{table
+|a
+}}")
+      ok_wi([:div, {:class=>'table'},
+	      [:form, {:action=>'1.1.table', :method=>'POST'},
+		[:table,
+		  [:tr,
+		    [:th, [:input, {:size=>'1', :value=>'a', :name=>'t_0_0'}]],
+		    [:th, [:input, {:size=>'1', :value=>'b', :name=>'t_1_0'}]],
+		    [:th, {:class=>'new_col'},
+		      [:input, {:size=>'1', :value=>'', :name=>'t_2_0'}]],
+		    [:td, {:class=>'new_col_button'},
+		      [:a, {:href=>"javascript:show_new_col();"}, ">>"]]],
+		  [:tr,
+		    [:th, [:input, {:size=>'1', :value=>'c', :name=>'t_0_1'}]],
+		    [:td, [:input, {:size=>'1', :value=>'d', :name=>'t_1_1'}]],
+		    [:td, {:class=>'new_col'},
+		      [:input, {:size=>'1', :value=>'', :name=>'t_2_1'}]]],
+		  [:tr, {:class=>'new_row'},
+		    [:th, [:input, {:size=>'1', :value=>'', :name=>'t_0_2'}]],
+		    [:td, [:input, {:size=>'1', :value=>'', :name=>'t_1_2'}]],
+		    [:td, {:class=>'new_col'},
+		      [:input, {:size=>'1', :value=>'', :name=>'t_2_2'}]]],
+		  [:tr, {:class=>'new_row_button_row'},
+		    [:td, {:class=>'new_row_button'},
+		      [:a, {:href=>"javascript:show_new_row();"}, 'v']]]],
+		[:div, {:class=>'submit'},
+		  [:input, {:value=>'Update', :type=>'submit'}]]]],
+	    "{{table
+|a|b
+|c|d
+}}")
+    end
+
+    def nutest_ext_table
+      t_add_user
+      page = @site.create_new
+      page.store("{{table
+|a
+}}")
+
+      res = session('/test/1.html')
+      expected = [:form, {:action=>'1.1.table', :method=>'POST'},
+	[:table,
+	  [:tr,
+	    [:th, [:input, {:size=>'1', :value=>'a', :name=>'t_0_0'}]],
+	    [:th, {:class=>'new_col'},
+	      [:input, {:size=>'1', :value=>'', :name=>'t_1_0'}]],
+	    [:td, {:class=>'new_col_button'},
+	      [:a, {:href=>"javascript:show_new_col();"}, ">>"]]],
+	  [:tr, {:class=>'new_row'},
+	    [:th, [:input, {:size=>'1', :value=>'', :name=>'t_0_1'}]],
+	    [:td, {:class=>'new_col'},
+	      [:input, {:size=>'1', :value=>'', :name=>'t_1_1'}]]],
+	  [:tr, {:class=>'new_row_button_row'},
+	    [:td, {:class=>'new_row_button'},
+	      [:a, {:href=>"javascript:show_new_row();"}, 'v']]]],
+	[:div, {:class=>'submit'},
+	  [:input, {:value=>'Update', :type=>'submit'}]]]
+      ok_in(expected, "//div[@class='table']")
+
+      res = session("/test/1.1.table?t_0_0=bb")
+      ok_in(['Edit done.'], '//h2')
+
+      res = session('/test/1.html')
+      ok_xp([:input, {:size=>'2', :value=>'bb', :name=>'t_0_0'}],
+	    "//div[@class='table']/form/input")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-tableform.rb

@@ -0,0 +1,241 @@
+# 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 plg_tableform(dest=nil)
+      content = yield
+      return TableForm.generate(self, dest, content, @req.base)
+    end
+
+    def plg_form(dest=nil, method=nil)
+      str = yield
+      dest = @req.base unless dest && ! dest.empty?
+      action = dest.to_s.escape
+      action += '.html' if action[0] != ?.
+      http_method = nil
+      if method
+	http_method = 'GET' if method == 'GET'
+	http_method = 'POST' if method == 'POST'
+      end
+      hash = {:method=>http_method, :action=>action}
+      hash.delete_if {|k, v| v.nil? }
+      form = [:form, hash]
+      form += c_res(str)
+      return form
+    end
+
+    def req_user
+      return @req.user
+    end
+  end
+
+  class TableForm
+    def self.generate(action, dest, str, pagename)
+      table = [:table, {:class=>'form'}]
+
+      str.each {|line|
+	line.chomp!
+
+	ar = line.split(/\|/)
+	ar.shift
+
+	case ar.length
+	when 1
+	  table << [:tr, [:td, {:colspan=>2, :class=>'msg'}, ar.shift]]
+
+	when 2
+	  midashi = ar.shift
+	  td = []
+	  nakami = ar.shift
+	  nakami.sub!(/^\{\{/, "")
+	  nakami.sub!(/\}\}$/, "")
+
+	  if /^([^\(\)]+)\((.*)\)$/ =~ nakami
+	    cmd, args = $1, $2
+	    aa = args.split(/,/)
+
+	    case cmd
+	    when 'input'
+	      td << gen_input(*aa)
+
+	    when 'select'
+	      td << gen_select(*aa)
+
+	    when 'textarea'
+	      name, w, h, msg = aa
+	      msg = '' if !msg
+	      msg.gsub!(/\\n/, "\n")
+	      td << gen_textarea(name, w, h, msg)
+
+	    when 'submit'
+	      su = gen_submit(*aa)
+	      su.attr[:class] = 'submit'
+	      td << su
+
+	    when 'show'
+	      td << [:span, action.show(*aa)]
+
+	    when 'ring_show'
+	      td << [:span, action.plg_ring_show(*aa)]
+
+	    when 'member_user'
+	     #td << [:span, action.plg_member_user]
+	      td << [:span, action.req_user]
+
+	    end
+	  else
+	    td << [:span, nakami]
+	  end
+	  etd = [:td, {:class=>'nakami'}, td]
+	  etr = [:tr, [:td, {:class=>'midashi'}, midashi], etd]
+	  table << etr
+	else
+	  table << [:tr, ar.to_s] #debug
+	end
+      }
+
+      action = "#{pagename.to_s.escape}.html"
+      action = "#{dest.to_s.escape}.html" if dest && ! dest.empty?
+
+      div = [:div, {:class=>'form'},
+	[:form, {:method=>'POST', :action=>action},
+	  [:input, {:type=>'hidden', :name=>'page', :value=>pagename.escape}],
+	  table]]
+      return div
+    end
+
+    def self.gen_input(name, value=nil, size=nil, maxsize=nil)
+      attr = {:name=>name}
+      attr[:value] = value if value
+      attr[:size] = size if size
+      attr[:maxsize] = maxsize if maxsize
+      return [:input, attr]
+    end
+
+    def self.gen_input_password(n, v=nil)
+      attr = {:type=>'password', :name=>n}
+      attr[:value] = v if v
+      return [:input, attr]
+    end
+
+    def self.gen_select(n, *aa)
+      return [:select, {:name=>n}] + aa.map {|a| [:option, {:name=>a}, a] }
+    end
+
+    def self.gen_submit(v=nil, n=nil)
+      attr = {:type=>'submit'}
+      attr[:value] = v if v
+      attr[:name] = n if n
+      return [:input, attr]
+    end
+
+    def self.gen_textarea(name, cols=nil, rows=nil, msg=nil)
+      msg ||= ''
+      msg.gsub!(/\\n/, "\n")
+      attr = {:name=>name}
+      attr[:cols] = cols if cols
+      attr[:rows] = rows if rows
+      return [:textarea, attr, msg]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTableForm < Test::Unit::TestCase
+    include TestSession
+
+    alias ok ok_eq
+
+    def test_form_element
+      c = Qwik::TableForm
+      ok([:input, {:name=>'n'}], c.gen_input('n'))
+      ok([:input, {:value=>'v', :name=>'n'}], c.gen_input('n', 'v'))
+      ok([:input, {:type=>'password', :name=>'n'}], c.gen_input_password('n'))
+      ok([:input, {:value=>'v', :type=>'submit'}], c.gen_submit('v'))
+      ok([:textarea, {:name=>'n'}, ''], c.gen_textarea('n'))
+      ok([:textarea, {:cols=>'40', :name=>'n', :rows=>'7'}, ''],
+	 c.gen_textarea('n', '40', '7'))
+      ok([:textarea, {:cols=>'40', :name=>'n', :rows=>'7'}, 'msg'],
+	 c.gen_textarea('n', '40', '7', 'msg'))
+      # does not work for now
+      ok([:textarea, {:cols=>'40', :name=>'n', :rows=>'7'}, "line1\nline2"],
+	 c.gen_textarea('n', '40', '7', "line1\\nline2"))
+      ok([:select, {:name=>'n'}], c.gen_select('n'))
+      ok([:select, {:name=>'n'}, [:option, {:name=>'1'}, '1']],
+	 c.gen_select('n', '1'))
+    end
+
+    def test_form_arg
+      ok_wi([:form, {:action=>'DestPage.html'}, [:p, 'a']],
+	    "{{form(DestPage)\na\n}}")
+      ok_wi([:form, {:method=>'POST', :action=>'DestPage.html'}, [:p, 'a']],
+	    "{{form(DestPage, POST)\na\n}}")
+      ok_wi([:form, {:action=>'1.html'}, [:dl, [:dt, 'k'], [:dd, 'v']]],
+	    "{{form\n:k:v\n}}")
+      # test_real_situation
+    end
+
+    def test_tableform
+      ok_wi([:div, {:class=>'form'},
+	      [:form, {:method=>'POST', :action=>'dest.html'},
+		[:input, {:value=>'1', :type=>'hidden', :name=>'page'}],
+		[:table, {:class=>'form'},
+		  [:tr,
+		      [:td, {:class=>'midashi'}, 'k'],
+		      [:td, {:class=>'nakami'}, [[:span, 'v']]]]]]],
+	    "{{tableform(dest)\n|k|v|\n}}")
+
+      ok_wi([:div, {:class=>'form'},
+	      [:form, {:method=>'POST', :action=>'dest.html'},
+		[:input, {:value=>'1', :type=>'hidden', :name=>'page'}],
+		[:table, {:class=>'form'},
+		  [:tr,
+		      [:td, {:class=>'midashi'}, 'mail'],
+		      [:td, {:class=>'nakami'},
+			[[:input, {:size=>'must',
+			      :value=>'', :name=>'tomail'}]]]],
+		    [:tr, [:td, {:class=>'msg', :colspan=>2},
+			'input your mail.']],
+		    [:tr,
+		      [:td, {:class=>'midashi'}, ''],
+		      [:td, {:class=>'nakami'},
+			[[:input, {:value=>' GO ',
+			      :type=>'submit', :class=>'submit'}]]]]]]],
+	    "{{tableform(dest)
+|mail|{{input(tomail,,must)}}|
+|input your mail.|
+||{{submit( GO )}}|
+}}")
+
+      ok_wi([:div, {:class=>'form'},
+	      [:form, {:method=>'POST', :action=>'1.html'},
+		[:input, {:value=>'1', :type=>'hidden', :name=>'page'}],
+		[:table, {:class=>'form'},
+		  [:tr,
+		      [:td, {:class=>'midashi'}, "項目"],
+		      [:td, {:class=>'nakami'},
+			[[:input, {:size=>'must',
+			      :value=>'default', :name=>'name'}]]]],
+		    [:tr, [:td, {:class=>'msg', :colspan=>2}, "説明"]],
+		    [:tr,
+		      [:td, {:class=>'midashi'}, ''],
+		      [:td, {:class=>'nakami'},
+			[[:input, {:value=>" 投稿 ",
+			      :type=>'submit', :class=>'submit'}]]]]]]],
+	    "{{tableform
+|項目|{{input(name,default,must)}}|
+|説明|
+||{{submit( 投稿 )}}|
+}}")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-tag.rb

@@ -0,0 +1,103 @@
+# 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 plg_show_tags
+      page = @site[@req.base]
+      return if page.nil?
+      tags = page.get_tags
+      return nil if tags.nil?
+      div = [:div, {:class=>'tags'}]
+      tags.each {|tag|
+	div << [:a, {:href=>"#{tag}.tag"}, tag]
+      }
+      return div
+    end
+
+    def self.tag_get_pages(site)
+      pages = Hash.new {|h, k| h[k] = []}
+      site.each {|page|
+	tags = page.get_tags
+	next if tags.nil?
+	tags.each {|tag|
+	  pages[tag] << page.key
+	}
+      }
+      return pages
+    end
+
+    def ext_tag
+      target_tag = @req.base
+
+      all_pages = Action.tag_get_pages(@site)
+      pages = all_pages[target_tag]
+      return c_nerror('no such tag') if pages.empty?
+
+      div = [:div, {:class=>'tag_pages'}]
+      pages.each {|key|
+	page = @site[key]
+	body = surface_get_body(page)
+	div += body
+      }
+      return c_surface("tag : #{target_tag}"){
+	div
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActTag < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      t_add_user
+
+      # test_plg_show_tags
+      page = @site.create_new
+      page.store("* [t1][t2] t
+{{show_tags}}")
+      res = session('/test/1.html')
+      ok_title 't'
+      ok_xp([:div, {:class=>'tags'},
+	      [:a, {:href=>'t1.tag'}, 't1'],
+	      [:a, {:href=>'t2.tag'}, 't2']], "//div[@class='tags']")
+
+      # Make pages with tag 't1'.
+      page1 = @site['1']
+      page1.store("* [t1] page1
+body1")
+      page2 = @site.create('2')
+      page2.store("* [t1] page2
+body2")
+
+      # test_tag_get_pages
+      pages = Qwik::Action.tag_get_pages(@site)
+      ok_eq({'t1'=>['1', '2']}, pages)
+
+      # test_act_tag
+      res = session('/test/nosuch.tag')
+      ok_title 'no such tag'
+
+      res = session('/test/t1.tag')
+      ok_title 'tag : t1'
+      ok_xp([:div, {:class=>'tag_pages'},
+	      [:div, {:class=>'day'}, '',
+		[:div, {:class=>'body'},
+		  [:div, {:class=>'section'}, [[:p, 'body1']]]]],
+	      [:div, {:class=>'day'}, '',
+		[:div, {:class=>'body'},
+		  [:div, {:class=>'section'}, [[:p, 'body2']]]]]],
+	    "//div[@class='tag_pages']")
+    end
+  end
+end

data/vendor/qwik/lib/qwik/act-text.rb

@@ -0,0 +1,70 @@
+# 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 plg_text
+      str = yield
+      return c_res(str)
+    end
+
+    def plg_pre_text
+      str = yield
+      return c_pre_text { str }
+    end
+
+    def c_pre_text
+      str = yield
+      tokens = TextTokenizer.tokenize(str, true)
+      tree = TextParser.make_tree(tokens)
+      w = Resolver.resolve(@site, self, tree)
+      return w
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActText < Test::Unit::TestCase
+    include TestSession
+
+    def ok_day(e, w, user=DEFAULT_USER)
+      assert_path(e, w, user, "//div[@class='day']")
+    end
+
+    def test_plg_text
+      ok_day([[:h2, {:id=>'8f03c3a6dbec1d0f1a5af60947b7b052'}, 'あ'],
+	       [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]],
+	     "{{text\n* あ\n}}")
+      ok_day([[:h2, {:id=>'7657b04993b557a2ee9b36bf280a3ec4'}, 'い'],
+	       [:div, {:class=>'body'}, [:div, {:class=>'section'}, []]]],
+	     "{{text\n* い\n}}")
+      ok_wi([:p, '<'], "{{text\n<\n}}")
+      @site['1'].delete
+      @site.erase_all
+      ok_wi([[:dl, [:dt, 'dt1'], [:dd, 'dd1']],
+	      [:p, 'p1'], [:dl, [:dd, 'dd2']]],
+	    "{{text\n:dt1:dd1\np1\n::dd2\n}}")
+    end
+
+    def test_c_pre_text
+      res = session
+      ok_eq([[:p, 'a']], @action.c_pre_text { 'a' })
+      ok_eq([[:br]], @action.c_pre_text { '{{br}}' })
+      ok_eq([[:div, {:class=>'ref'},
+		[:a, {:href=>'FrontPage.files/a.jpg'},
+		  [:img, {:src=>'.theme/i/broken.gif',
+		      :class=>'icon', :alt=>'a.jpg'}],
+		  [:br],
+		  'a.jpg']]],
+	    @action.c_pre_text { '{{file(a.jpg)}}' })
+    end
+  end
+end