qwik2md 0.1.0

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

@@ -0,0 +1,238 @@
+# -*- coding: shift_jis -*-
+# 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/html-to-wabisabi'
+require 'qwik/wabisabi-to-wiki'
+require 'qwik/act-event'
+require 'qwik/act-md5'
+
+module Qwik
+  class Action
+    D_ExtWysiwyg = {
+      :dt => 'WYSIWYG editing mode',
+      :dd => 'You can edit a page in wysiwyg mode.',
+      :dc => "* Example
+You can access [[edit FrontPage|FrontPage.wysiwyg]] in wysiwyg mode.
+
+You can show a link to wysiwyg mode by this plugin.
+ {{wysiwyg}}
+{{wysiwyg}}
+"
+    }
+
+    D_ExtWysiwyg_ja = {
+      :dt => '見たまま編集モード',
+      :dd => 'ページを見たままの状態で編集できます。',
+      :dc => "* 例
+たとえば、[[FrontPageを見たまま編集|FrontPage.wysiwyg]]ページにいくと、
+FrontPageを見たままの状態で編集する画面にとびます。
+
+そのページから見たまま編集画面に飛ぶには、下記のプラグインを使います。
+ {{wysiwyg}}
+{{wysiwyg}}
+"
+    }
+
+    def plg_wysiwyg
+      return if @req.user.nil?
+      return page_attribute('wysiwyg', _('Edit in this page'))
+    end
+    alias plg_edit_wysiwyg plg_wysiwyg
+
+    def plg_watch(pagename=@req.base, ext=nil)
+      ext ||= 'html'
+      return if defined?(@watch_defined)
+      @watch_defined = true
+
+#//alert('hi');
+      script = "
+g_watcher_env.add('#{pagename}', '#{ext}');
+g_watcher_env.start();
+g_weditor.init('#{pagename}', '#{ext}');
+g_weditor.check();
+"
+      md5 = @site[pagename].get.md5hex
+
+      div = [:div, {:id=>'watch'}]
+
+      if @config.debug || defined?($test) && $test
+#	div << "watch(#{pagename})"
+      end
+
+      div << [:input, {:type=>'hidden', :name=>'watch_md5', :value=>md5}]
+      div << [:script,
+	{:type=>'text/javascript', :src=>'.theme/js/watch.js'}, '']
+      div << [:script, {:type=>'text/javascript'}, script]
+      return div
+    end
+
+    def ext_wysiwyg
+      c_require_pagename
+      c_require_page_exist
+      c_require_member
+      c_require_no_path_args
+      c_require_no_ext_args
+
+      if 0 < @req.query.length
+	return wysiwyg_save
+      end
+
+      return wysiwyg_editor_page(@site, @req.base)
+    end
+
+    def wysiwyg_save
+      wtext = @req.query['wtext']
+      return c_nerror('null content') if wtext.nil? || wtext.empty?
+      wtext = wtext.gsub(/\&nbsp\;/, '')	# delete_bogus
+
+      wabisabi = HtmlToWabisabi.parse(wtext)
+      wiki = WabisabiToWiki.translate(wabisabi)
+      return ext_save(wiki, 'wysiwyg')		# in act-save.rb
+    end
+
+    def wysiwyg_editor_page(site, pagename)
+      page = site[pagename]
+      str = page.load
+      w = c_parse(str)	# without resolve
+
+     #w = c_tdiary_resolve(w)
+      md5hex = str.md5hex
+      ar = Action.wysiwyg_generate(pagename, w, md5hex, $test)
+
+      title = "#{pagename} : "+_('Edit in this page')
+      c_surface(title, false) { ar }
+
+      wysiwyg_patch_sidemenu
+
+      return nil
+    end
+
+    def wysiwyg_patch_sidemenu
+      side = @res.body.get_path("//div[@class='sidebar']")
+      side.insert(2, plg_watch(@req.base, @req.ext))
+    end
+
+    def self.wysiwyg_generate(pagename, w, md5hex, debug)
+      s = [:div, {:class=>'section'}]
+      s << [:style, "@import '.theme/css/wema.css';"]
+      s << wysiwyg_toolbar(pagename)
+      s << wysiwyg_editor(w)	# important
+      s << wysiwyg_form(pagename, md5hex, debug)
+      s << [:script, {:type=>'text/javascript', :src=>'.theme/js/wysiwyg.js'},
+	'']
+      div = [:div, {:class=>'wysiwyg'}, [:div, {:class=>'day'}, s]]
+      return div
+    end
+
+    def self.wysiwyg_toolbar(pagename)
+      div = [:div, {:class=>'toolbar'},
+	[:a, {:href=>'javascript:wysiwyg_save()'},
+	  [:img, {:alt=>'Save', :src=>'.theme/i/action_save.gif'}]],
+	[:input, {:type=>'checkbox', :name=>'autosave',
+	    :title=>'Auto-save'}],
+
+	[:a, {:href=>"javascript:wysiwyg_command('bold')"},
+	  [:img, {:alt=>'Bold', :src=>'.theme/i/text_bold.png'}]],
+	[:a, {:href=>"javascript:wysiwyg_command('italic')"},
+	  [:img, {:alt=>'Italic', :src=>'.theme/i/text_italic.png'}]],
+
+	[:a, {:href=>"javascript:wysiwyg_command('InsertUnorderedList')"},
+	  [:img, {:alt=>'UL', :src=>'.theme/i/text_list_bullets.png'}]],
+	[:a, {:href=>"javascript:wysiwyg_command('InsertOrderedList')"},
+	  [:img, {:alt=>'OL', :src=>'.theme/i/text_list_numbers.png'}]],
+
+	[:a, {:href=>"javascript:wysiwyg_markup('h2')"},
+	  [:img, {:alt=>'H2', :src=>'.theme/i/text_heading_2.png'}]],
+	[:a, {:href=>"javascript:wysiwyg_markup('h3')"},
+	  [:img, {:alt=>'H3', :src=>'.theme/i/text_heading_3.png'}]],
+	[:a, {:href=>"javascript:wysiwyg_markup('h4')"},
+	  [:img, {:alt=>'H4', :src=>'.theme/i/text_heading_4.png'}]],
+
+	[:a, {:href=>"javascript:wysiwyg_command('CreateLink')"},
+	  [:img, {:alt=>'Link', :src=>'.theme/i/icon_link.gif'}]],
+	[:a, {:href=>'javascript:wysiwyg_image()'},
+	  [:img, {:alt=>'Image', :src=>'.theme/i/image.gif'}]],
+
+	[:a, {:href=>'javascript:wysiwyg_deleteTags()'},
+	  [:img, {:alt=>'Normal', :src=>'.theme/i/text_align_justify.png'}]],
+
+	[:span, {:class=>'wupdate_here'},
+	  [:a, {:href=>"#{pagename}.wysiwyg"},
+	    [:img,
+	      {:alt=>'Update', :src=>'.theme/i/action_refresh_blue.gif'}]]],
+	[:input, {:type=>'checkbox', :name=>'autoupdate',
+	    :title=>'Auto update'}],
+      ]
+      return div
+    end
+
+    def self.wysiwyg_editor(w)
+      # The attribute 'contenteditable' makes it editable.  Only works in IE.
+      return [:div, {:id=>'weditor', :contenteditable=>'true'}, w]
+    end
+
+    def self.wysiwyg_form(pagename, md5hex, debug=false)
+      #debug = true
+      div = [:div]
+      div << {:style=>'display:none;'} if ! debug
+      div << [:form, {:action=>pagename+'.wysiwyg', :method=>'POST',
+	  :name=>'wform', :id=>'wform'},
+	[:input, {:type=>'submit', :value=>'Submit'}],
+	[:input, {:type=>'text', :name=>'mode', :value=>'save'}],
+	[:input, {:type=>'text', :name=>'md5hex', :value=>md5hex}],
+	[:textarea, {:name=>'wtext', :id=>'wtext'}, '']]
+
+      return div
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActWysiwyg < Test::Unit::TestCase
+    include TestSession
+
+    def test_plg_edit_wysiwyg
+      ok_wi([:span, {:class=>'attribute'},
+	      [:a, {:href=>'1.wysiwyg'}, 'Edit in this page']],
+	    '{{edit_wysiwyg}}')
+      ok_wi([:span, {:class=>'attribute'},
+	      [:a, {:href=>'1.wysiwyg'}, 'Edit in this page']],
+	    '{{wysiwyg}}')
+    end
+
+    def test_ext_wysiwyg
+      t_add_user
+
+      page = @site.create_new
+      page.store('* t')
+
+      res = session('/test/1.wysiwyg')
+      ok_title('1 : Edit in this page')
+
+      res = session('POST /test/1.wysiwyg?wtext=ttt')
+      ok_eq('ttt', page.load)
+
+      res = session('POST /test/1.wysiwyg?wtext=<p>t</p>')
+      ok_eq("t\n", page.load)
+
+      res = session('POST /test/1.wysiwyg?wtext=<h2>t</h2>')
+      ok_eq("* t\n", page.load)
+
+      res = session('POST /test/1.wysiwyg?wtext=<p>a %26nbsp%3b b</p>')
+      ok_eq("a  b\n", page.load)
+
+      # test_wysiwyg_bug
+      res = session('/test/TextFormatSimple.wysiwyg')
+      ok_title('TextFormatSimple : Edit in this page')
+    end
+  end
+end

data/vendor/qwik/lib/qwik/action.rb

@@ -0,0 +1,325 @@
+# 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/parser'
+require 'qwik/server-memory'
+require 'qwik/template'
+require 'qwik/tokenizer'
+require 'qwik/wabisabi'
+
+# Load utils.
+require 'qwik/util-basic'
+require 'qwik/util-charset'
+require 'qwik/util-filename'
+require 'qwik/util-time'
+
+# Load common actions.
+require 'qwik/common-basic'
+require 'qwik/common-backtrace'
+require 'qwik/common-condition'
+require 'qwik/common-gettext'
+require 'qwik/common-javascript'
+require 'qwik/common-notice'
+require 'qwik/common-plain'
+require 'qwik/common-plugin'
+require 'qwik/common-res'
+require 'qwik/common-send'
+require 'qwik/common-session'
+require 'qwik/common-surface'
+require 'qwik/common-url'
+
+# Load some basic actions.
+require 'qwik/act-basic'
+require 'qwik/act-edit'
+require 'qwik/act-file'
+require 'qwik/act-html'
+require 'qwik/act-interwiki'
+require 'qwik/act-login'
+require 'qwik/act-new'		# newpage_form
+require 'qwik/act-sitelog'
+require 'qwik/act-theme'
+require 'qwik/act-toc'
+
+# Use for site_updated
+require 'qwik/act-metadata'
+require 'qwik/act-archive'
+
+module Qwik
+  class Action
+    def initialize
+      @config = @memory = @req = @res = nil
+    end
+
+    def init(config, memory, req, res)
+      @config, @memory, @req, @res = config, memory, req, res
+    end
+
+    def site_updated
+      pagelist_update
+      metadata_clear_cache
+      archive_clear_cache
+    end
+
+    def run
+      init_gettext
+
+      # for maps plugin support.
+      sitename = @req.query['site']
+      @req.sitename = sitename if sitename
+      pagename = @req.query['page']
+      @req.base = pagename if pagename
+
+      # Get site.
+      @site = @memory.farm.get_site(@req.sitename)
+
+      if @site.nil?
+	@site = @memory.farm.get_top_site
+	unless @req.plugin == 'theme'
+	  return action_no_such_site(@req.sitename)
+	end
+      end
+
+      begin
+	# Get user.
+	login_get_user
+
+	# Do PRE Action.
+	method = "pre_act_#{@req.plugin}"
+	if self.respond_to?(method)
+	  return self.send(method)
+	end
+
+	# Do PRE Ext.
+	method = "pre_ext_#{@req.ext}"
+	if self.respond_to?(method)
+	  return self.send(method)
+	end
+
+	# Check auth for the site.
+	require_mail   = true
+	require_member = true
+	if @site.is_open?
+	  require_mail   = false
+	  require_member = false
+	end
+
+	if require_mail && @req.user.nil?
+	  @res.clear_cookies
+	  return action_go_login
+	end
+
+	if require_member && !@site.member.exist?(@req.user)
+	  user = @req.user
+	  ml = @site.ml_address
+	  return action_go_login if user.nil?
+	  return action_member_only_form(user, ml)
+	end
+
+	# Do action.
+	if @req.plugin
+	  action = @req.plugin
+	  method = "act_#{action}"
+	  if self.respond_to?(method)
+	    return self.send(method)
+	  else
+	    return c_nerror("no such action : #{action}")
+	  end
+	end
+
+	# Do ext action.
+	ext = @req.ext
+	method = "ext_#{ext}"
+	if self.respond_to?(method)
+	  return self.send(method)
+	else
+          # Special attached file mode.
+          @req.path_args = ["#{@req.base}.#{@req.ext}"]
+          @req.base = 'FrontPage'
+          return act_files
+	end
+
+      rescue InvalidUserError
+	@res.clear_cookies	# important
+	return login_invalid_user
+
+      rescue RequireLogin
+	return action_require_login
+
+      rescue RequireMember
+	return action_go_login if @req.user.nil?
+	return action_member_only_form(@req.user, @site.ml_address)
+
+      rescue RequirePost
+	return action_require_post
+
+      rescue PageNotFound
+	return action_page_not_found
+
+      rescue RequireNoPathArgs
+	return action_require_no_path_args
+
+      rescue BaseIsNotSitename
+	return action_require_base_is_sitename
+
+      rescue WEBrick::HTTPStatus::Status
+	raise $!
+
+      rescue StandardError
+	e = $!
+	# Why?
+	pp e.message
+	pp e.backtrace
+	raise e
+	#return c_nerror(e.message){ backtrace_html($!) }
+      end
+    end
+
+    def action_no_such_site(sitename)
+      c_notfound(_('No such site.')) {
+	[:div,
+	  [:p, [:b, sitename], ' : ', _('No corresponding site.')],
+	  [:p , _('Please send mail to make a site')],
+	  [:p, [:a, {:href=>'http://qwik.jp/'}, 'qwik.jp'],
+	    _('Access here and see how to.')]]
+      }
+    end
+
+    def action_go_login
+      url = c_relative_to_root('.login')
+      c_notice(_('Login'), url, 200, 1) {
+	[:div,
+	  [:p, _('Please log in.')],
+	  [:p, login_create_login_link]]
+      }
+    end
+
+    def action_require_login
+      c_nerror(_('Please log in.')) {
+	[:div,
+	  [:p, _('You need to log in to use this function.')],
+	  [:p, login_create_login_link, ' : ' + _('Access here.')],
+	  [:hr],
+	  [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+      }
+    end
+
+    def action_member_only_form(user, ml)
+      c_nerror(_('Members Only')) {
+	[:div,
+	  [:p, _('You are now logged in with this user id.'), [:br],
+	    [:strong, user]],
+	  [:p, _('This user with this ID is not a member of this group.'), [:br],
+	    [:strong, ml]],
+	  [:p, _('If you would like to log in on another account,'), [:br],
+	    _('please log out first.')],
+	  logout_form]
+      }
+    end
+
+    def action_require_post
+      c_nerror(_('Please input POST')) {
+	[[:p, _('This function requires POST input.')],
+	  [:p, [:a, {:href=>'FrontPage.html'}, _('Go back')]]]
+      }
+    end
+
+    def action_require_no_path_args
+      c_notfound(_('Incorrect path arguments.')) {
+	[:h2, _('Path arguments are not acceptable.')]
+      }
+    end
+
+    # action_page_not_found is moved to act-new.rb
+
+    def action_require_base_is_sitename
+      c_notfound(_('Not found.')) {
+	[:h2, _('Not found.')]
+      }
+    end
+
+    # Null ext.
+    def pre_ext_
+      sitename = @req.base
+      title = "redirect to site : #{sitename}"
+      url = c_relative_to_root("#{sitename}/")
+      c_notice(title, url) {
+	[:h2, title]
+      }
+    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_nonexistent_site
+      res = session '/nosuchsite/'
+      ok_title 'No such site.'
+      assert_text 'No such site.', 'h1'
+      assert_text 'nosuchsite', 'b'
+      eq 404, @res.status
+    end
+
+    def test_private_site
+      res = session '/test/'
+      ok_title 'Members Only'
+      ok_xp [:p, 'You are now logged in with this user id.', [:br],
+	[:strong, 'user@e.com']],'//p'
+    end
+
+    def test_nonexistent_action
+      t_add_user
+      res = session '/test/.nosuch'
+      ok_title 'no such action : nosuch'
+    end
+
+    def test_nonexistent_ext
+      t_add_user
+      res = session '/test/1.nosuch'
+      ok_title "No such file"
+    end
+
+    def test_redirect
+      res = session '/test'
+      ok_title 'redirect to site : test'
+      ok_xp [:meta, {:content=>'0; url=/test/',
+	  'http-equiv'=>'Refresh'}], '//meta[2]'
+    end
+
+    def test_redirect
+      t_with_path {
+	res = session '/test'
+	ok_title 'redirect to site : test'
+	ok_xp [:meta, {:content=>'0; url=/qwik/test/',
+	    'http-equiv'=>'Refresh'}], '//meta[2]'
+      }
+    end
+
+    def test_go_login
+      res = session('/test/') {|req|
+	req.cookies.clear
+      }
+      ok_title 'Login'
+      ok_xp [:meta, {:content=>'1; url=/test/.login',
+	  'http-equiv'=>'Refresh'}], '//meta[2]'
+
+      t_with_path {
+	res = session('/test/') {|req|
+	  req.cookies.clear
+	}
+	ok_title 'Login'
+	ok_xp [:meta, {:content=>'1; url=/qwik/test/.login',
+	    'http-equiv'=>'Refresh'}], '//meta[2]'
+      }
+    end
+  end
+end

data/vendor/qwik/lib/qwik/autoreload.rb

@@ -0,0 +1,98 @@
+#
+# Copyright (C) 2001-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 General Public License version 2.
+#
+
+require 'thread'
+
+class AutoReload
+  def self.start(interval, verbose = false, name=nil)
+    ar = AutoReload.new
+    ar.verbose = verbose
+    ar.name = name
+    ar.autoreload(interval)
+  end
+
+  def initialize
+    @status = {}
+    @thread = nil
+    @verbose = false
+    @name = nil
+  end
+  attr_accessor :verbose
+  attr_accessor :name
+
+  def message(str)
+    msg = str
+    msg = @name.to_s+': '+msg if @name
+    return msg
+  end
+
+  def autoreload(interval)
+    @thread = Thread.new {
+      loop {
+	begin
+	  update
+	rescue Exception
+	  STDOUT.puts(message('reload: '+$!))
+	end
+	sleep interval
+      }
+    }
+    @thread.abort_on_exception = true
+  end
+
+  private
+
+  def update
+    check_lib = [$0] + $"
+    check_lib.each {|lib|
+      check_lib(lib)
+    }
+  end
+
+  def check_lib(lib)
+    if @status[lib]
+      file, mtime = @status[lib]
+      return if ! FileTest.exist?(file) # file is disappered.
+      curtime = File.mtime(file).to_i
+      if mtime < curtime
+        if @verbose
+          $stdout.puts(message("reload: \"#{file}\""))
+        end
+	load file	# Load it.
+	@status[lib] = [file, curtime]
+      end
+      return
+    end
+
+    check_path = [''] + $LOAD_PATH
+    #check_path = ['']
+    check_path.each {|path|
+      file = File.join(path, lib)
+      file = lib if path.empty?	# Check if the lib is a filename.
+      if FileTest.exist?(file)
+	@status[lib] = [file, File.mtime(file).to_i]
+	return 
+      end
+    }
+
+    #raise "The library '#{lib}' is not found."
+    # $stdout.puts(message("The library '#{lib}' is not found.")) if @verbose
+  end
+
+  def get_status(file)
+    if FileTest.exist?(file)
+      return [file, File.mtime(file).to_i]
+    end
+    return nil
+  end
+end
+
+def autoreload(*a)
+  AutoReload.start(*a)
+end

data/vendor/qwik/lib/qwik/bench-bench.rb

@@ -0,0 +1,28 @@
+# 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/bench-module-session'
+
+class BenchBenchmark
+  def self.bench_itself
+    puts Benchmark.measure { 'a'*1_000_000 }
+
+    n = 50_000
+    Benchmark.bm(7) {|x|
+      x.report { for i in 1..n; a = '1'; end }
+      x.report { n.times do   ; a = '1'; end }
+      x.report { 1.upto(n) do ; a = '1'; end }
+    }
+  end
+
+  def self.bench_benchmark
+    BenchmarkModule::benchmark {
+      'a'*10_000_000 
+    }
+  end
+end
+
+#BenchBenchmark::bench_itself
+BenchBenchmark::bench_benchmark