qwikdoc 0.0.1

data/vendor/qwik/act-emode.rb

@@ -0,0 +1,150 @@
+# 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-emode'
+require 'qwik/act-include'
+
+module Qwik
+  class Action
+    def plg_emode_date_link
+      years = []
+      months = {}
+
+      emode_each_month {|y, m|
+	years << y unless years.include?(y)
+	months[y] = [] if months[y].nil?
+	months[y] << m
+      }
+
+      list = [:ul]
+      years.each {|y|
+	ar = [:li]
+	ar << "20#{y} "
+	months[y].each {|m|
+	  ar << [:a, {:href=>y+m+'.html'}, m]
+	  ar << ' '
+	}
+	ar.pop
+	list << ar
+      }
+
+      return [:div, list]
+    end
+
+    def plg_emode_include_recent
+      max = 0
+      emode_each_month {|y, m|
+	ym = (y+m).to_i
+	max = ym if max < ym
+      }
+      str = sprintf('%04d', max)
+      return plg_include(str)
+    end
+
+    def emode_each_month
+      @site.to_a.sort.each {|page|
+	title = page.key
+	if /\A(\d\d)([0-1]\d)\z/ =~ title
+	  y = $1
+	  m = $2
+	  yield(y, m)
+	end
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActEmode < Test::Unit::TestCase
+    include TestSession
+
+    def test_emode_date_link
+      page = @site.create('0002')
+      page = @site.create('0003')
+      page = @site.create('0101')
+      page = @site.create('0110')
+      ok_wi([:div, [:ul,
+		[:li, '2000 ',
+		  [:a, {:href=>'0002.html'}, '02'], ' ',
+		  [:a, {:href=>'0003.html'}, '03']],
+		[:li, '2001 ',
+		  [:a, {:href=>'0101.html'}, '01'], ' ',
+		  [:a, {:href=>'0110.html'}, '10']]]],
+	    '{{emode_date_link}}')
+    end
+
+    def test_emode_include_recent
+      page = @site.create('0002')
+      page = @site.create('0003')
+      page = @site.create('0101')
+      page = @site.create('0110')
+      page.store('01/10')
+      ok_wi([:div, {:class=>'day'}, '',
+	      [:div, {:class=>'body'},
+		[:div, {:class=>'section'},
+		  [[:p, '01/10']]]]],
+	    '{{emode_include_recent}}')
+    end
+
+    def ok(e, w, user=DEFAULT_USER)	# assert_body_main
+      assert_path(e, w, user, "//div[@class='body_main']")
+    end
+
+    def test_emode_include
+      page = @site.create_new
+      page.store("* t
+* t")
+      page2 = @site.create_new
+      page2.store("* t2
+* t2")
+      key = page2.key
+
+      config = @site['_SiteConfig']
+      config.store(':emode_titlelink:true')
+      ok([:div,
+	   {:class=>'day'},
+	   '',
+	   [:div,
+	     {:class=>'body'},
+	     [:div,
+	       {:class=>'section'},
+	       [[:div,
+		   {:class=>'day'},
+		   [:h2,
+		     [:a, {:href=>"2.html#t2", :name=>'t2', :class=>'label'},
+		       "��"],
+		     't2'],
+		   [:div, {:class=>'body'},
+		     [:div, {:class=>'section'}, []]]]]]]],
+	 "{{include(#{key})}}")
+
+      config.store('')
+    end
+
+    def test_emode_include_with_titlelink
+      t_add_user
+
+      page = @site.create('t1')
+      page.store("* t1
+{{include(t2)}}")
+      page2 = @site.create('t2')
+      page2.store("* t2!
+* t2!")
+
+      config = @site['_SiteConfig']
+      config.store(':emode_titlelink:true')
+      res = session('/test/t1.html')
+      ok_in([[:a, {:href=>"t2.html#Xb_M6_lBLMaGGH88jpd-rQ",
+		  :name=>'Xb_M6_lBLMaGGH88jpd-rQ',
+		  :class=>'label'}, "��"], "t2!"],
+	    "//div[@class='day']/h2")
+    end
+  end
+end

data/vendor/qwik/act-event.rb

@@ -0,0 +1,187 @@
+# 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/site-event'
+
+module Qwik
+  class Action
+    # ==================== Show current event.
+    def plg_event(pagename=nil)
+      return if defined?(@event_defined)
+      @event_defined = true
+
+      pagename ||= @req.base
+
+      url = "#{pagename}.event"
+      url = c_relative_to_root(url)
+
+      ar = []
+      div = [:div, {:id=>'event'}]
+      div << [:strong, 'plg_event'] if @config.debug
+      ar << div
+      ar << [:script, {:type=>'text/javascript',
+	  :src=>'.theme/js/event.js'}, '']
+      ar << [:script, {:type=>'text/javascript'}, "
+//alert('start');
+g_eventwatcher.add('#{url}');
+g_eventwatcher.start();
+"]
+      return ar
+    end
+
+    # ==================== Event occurred.
+    def c_event(cmd)
+      time = @req.start_time.to_i
+      user = @req.user
+      user ||= 'anonymous'
+      key  = @req.base
+      ext  = @req.ext
+      event = [time, user, key, ext, cmd]	# When, Who, Where, What
+      @site.event.occurred(event)
+    end
+
+    # ==================== Event callback
+    def get_sitename
+      return @site.sitename
+    end
+
+    def get_start_time
+      return @req.start_time
+    end
+
+    def event_occurred(event)
+      @event = event
+    end
+
+    def event_disconnect(reason)
+      if @event.nil?
+	@event = reason
+      end
+    end
+
+    # ==================== Wait for event.
+    def ext_event
+      @event = nil
+      siteevent = @site.event
+
+      begin
+	siteevent.add_listener(self)
+      rescue ListenerMaxExceed
+	@event = 'max_exceed'
+      end
+
+      while @event.nil?
+	sleep 0.1
+      end
+
+      if @event.is_a?(String)
+	return event_error(@event)
+      end
+
+      return event_tell(@event)
+    end
+
+    def event_error(msg)
+      return event_send(",#{msg}\n")
+    end
+
+    def event_tell(event)
+      time, user, key, ext, cmd = event
+      ar = []
+      title = "#{Time.at(time).ymd} : #{cmd}"
+      user = MailAddress.obfuscate(user)
+      msg = "#{user}: #{cmd} #{key}"
+      ar << [:h2, title]
+      ar << [:p, msg]
+      return event_send(ar)
+    end    
+
+    def event_send(body)
+      @res.status = 200
+      @res['Cache-Control'] = 'no-cache, must-revalidate'
+      @res['Pragma'] = 'no-cache'
+      @res.body = body
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActEvent < Test::Unit::TestCase
+    include TestSession
+
+    def setup_event
+      Thread.abort_on_exception = true
+      t_add_user
+      page = @site.create_new
+      page.store('*t')
+    end
+
+    def test_event_1
+      setup_event
+      t = Thread.new {
+	tres = session('/test/1.save?contents=t2')
+	ok_in(['Page is saved.'], 'title', tres)
+      }
+      res = session('/test/1.event')	# Wait for update.
+      #ok_eq(",0,user@e.com,1,save,save\n", res.body)
+      t.join	# Wait for the thread.
+    end
+
+    def test_event_2
+      setup_event
+      t = Thread.new {
+	res = session('/test/1.event')	# Wait for update.
+	#ok_eq(",0,user@e.com,1,save,save\n", res.body)
+      }
+      tres = session('/test/1.save?contents=t2')
+      ok_in(['Page is saved.'], 'title', tres)
+      t.join	# Wait for the thread.
+    end
+
+    def test_event_3_several_watchers
+      setup_event
+      t1 = Thread.new {
+	t1res = session('/test/1.event')	# Wait for update.
+	#ok_eq(",0,user@e.com,1,save,save\n", t1res.body)
+      }
+      t2 = Thread.new {
+	t2res = session('/test/1.event')	# Wait for update.
+	#ok_eq(",0,user@e.com,1,save,save\n", t2res.body)
+      }
+      tres = session('/test/1.save?contents=t2')
+      ok_in(['Page is saved.'], 'title', tres)
+      t1.join	# Wait for the thread.
+      t2.join	# Wait for the thread.
+    end
+
+    def test_event_4_many_watchers
+      setup_event
+      ts = []
+      res = []
+      #max = 20
+      max = 5
+      (0..max).each {|i|
+	ts[i] = Thread.new {
+	  res[i] = session('/test/1.event')	# Wait for update.
+	  str = res[i].body
+	  if !(str == ",0,user@e.com,1,save,save\n" ||
+	       str == ",max_exceed\n" || str == ",disconnect\n")
+	    #ok_eq('', str)	# error
+	  end
+	}
+      }
+      tres = session('/test/1.save?contents=t3')
+      ok_in(['Page is saved.'], 'title', tres)
+      (0..max).each {|i|
+	ts[i].join	# Wait for the thread.
+      }
+    end
+  end
+end

data/vendor/qwik/act-file.rb

@@ -0,0 +1,303 @@
+# 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/page-images'
+
+module Qwik
+  class Action
+    def plg_file(f=nil, alt=f, base=@req.base)
+      return if f.nil?
+
+      encoded = Filename.encode(f)
+      href     = "#{base}.files/#{encoded}"
+      download = "#{base}.download/#{encoded}"
+
+      files = @site.files(base)
+      if files.nil? || ! files.exist?(f)
+	src = icon_path('broken')
+	return [:div, {:class=>'ref'}, 
+	  [:a, {:href=>href},
+	    [:img, {:class=>'icon', :src=>src, :alt=>alt}],
+	    [:br], alt]]
+      end
+
+      src = thumb_check(f)
+      if src
+	return [:div, {:class=>'ref'}, 
+	  [:a, {:href=>href},
+	    [:img, {:class=>'thumb', :src=>src, :alt=>alt}],
+	    [:br], alt],
+	  [:br],
+	  [:a, {:href=>download}, 'download']
+	]
+      end
+
+      ext = Filename.extname(f)
+      src = icon_find(ext)
+      if src
+	return [:div, {:class=>'ref'}, 
+	  [:a, {:href=>href},
+	    [:img, {:class=>'icon', :src=>src, :alt=>alt}],
+	    [:br], alt],
+	  [:br],
+	  [:a, {:href=>download}, 'download']
+	]
+      end
+
+      return [:div, {:class=>'ref'},
+	[:a, {:href=>href}, alt]]
+    end
+
+    def file_html(href, klass, src, alt, message)
+      return [:div, {:class=>'ref'}, 
+	[:a, {:href=>href},
+	  [:img, {:class=>klass, :src=>src, :alt=>alt}],
+	  [:br], message]]
+    end
+
+    def plg_imgfile(f=nil, alt=f, base=@req.base)
+      return nil if f.nil?
+      src = base+'.files/'+f
+      return [:img, {:src=>src, :alt=>alt}]
+    end
+
+    # ============================== thumbnail
+    def thumb_generate(f)
+      files = @site.files(@req.base)
+      files.generate_thumb(f)	# page-images.rb
+      return @req.base+'.files/.thumb/'+f.to_s
+    end
+
+    def thumb_check(f)
+      ext = Filename.extname(f)
+      return thumb_generate(f) if PageFiles.is_image?(ext)
+      return nil
+    end
+
+    # ============================== icon
+    ICON_SUF_TABLE = {
+      'tgz'	=> 'tar',
+    }
+
+    ICON_MIMETYPE_TABLE = {
+      'application/octet-stream'	=> 'binary',
+      'application/pdf'			=> 'pdf',
+      'application/postscript'		=> 'ps',
+      'application/zip'			=> 'compressed',
+    }
+
+    ICON_GENRE_TABLE = {
+      'application'	=> 'a',
+      'audio'		=> 'sound2',
+      'image'		=> 'image2',
+      'message'		=> 'text',
+      'model'		=> 'sphere2',
+      'multipart'	=> 'text',
+      'text'		=> 'text',
+      'video'		=> 'movie',
+    }
+
+    def icon_find(ext)
+      mimetype = @res.get_mimetypes ext
+      return icon_find_internal(mimetype, ext)
+    end
+
+    def icon_find_internal(mimetype, ext)
+      ext.downcase!
+
+      type = ICON_SUF_TABLE[ext]
+      return icon_path(type) if type
+
+      if mimetype
+	type = ICON_MIMETYPE_TABLE[mimetype]
+	if type
+	  path = icon_path(type)
+	  return path if path
+	end
+
+	genre, spec = mimetype.split('/')
+	type = ICON_GENRE_TABLE[genre]
+	if type
+	  path = icon_path(type)
+	  return path if path
+	end
+      end
+
+      return icon_path('generic')
+    end
+
+    def icon_path(type)
+      return icon_path_internal(@config.theme_dir.path+'i', type)
+    end
+
+    def icon_path_internal(path, type)
+      file = "#{type}.gif"
+      return nil unless (path+file).exist?
+      return ".theme/i/#{file}"
+    end
+
+    # ============================== ref
+    def plg_ref(f=nil, alt=f)
+      return nil if f.nil?
+      return [:div, {:class=>'ref'}, 
+	[:a, {:href=>'.attach/'+f}, alt]]
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  require 'qwik/act-attach'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActFile < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      ok_wi('', '')
+
+      files = @site.files('1')
+
+      if files.exist?('1x1.png')
+	files.delete('1x1.png')
+      end
+
+      ok_wi([], '{{file}}')
+
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'1.files/1x1.png'},
+		[:img, {:alt=>'1x1.png', :class=>'icon',
+		    :src=>'.theme/i/broken.gif'}],
+		[:br], '1x1.png']],
+	    '{{file(1x1.png)}}')
+
+      png = TEST_PNG_DATA
+      files.fput('1x1.png', png)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'1.files/1x1.png'},
+		[:img, {:alt=>'1x1.png',
+		    :class=>'thumb', :src=>'1.files/.thumb/1x1.png'}],
+		[:br], '1x1.png'],
+	      [:br],
+	      [:a, {:href=>'1.download/1x1.png'}, 'download']],
+	    '{{file(1x1.png)}}')
+
+      files.delete('test.pdf') if files.exist?('test.pdf')
+      pdf = 'PDF...dummy'
+      files.fput('test.pdf', pdf)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'1.files/test.pdf'},
+		[:img, {:alt=>'test.pdf',
+		    :class=>'icon', :src=>'.theme/i/pdf.gif'}],
+		[:br], 'test.pdf'],
+	      [:br],
+	      [:a, {:href=>'1.download/test.pdf'}, 'download']],
+	    '{{file(test.pdf)}}')
+
+      files.delete('test.txt') if files.exist?('test.txt')
+      file = 'text file dummy'
+      files.fput('test.txt', file)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'1.files/test.txt'},
+		[:img, {:alt=>'test.txt',
+		    :class=>'icon', :src=>'.theme/i/text.gif'}],
+		[:br], 'test.txt'],
+	      [:br],
+	      [:a, {:href=>'1.download/test.txt'}, 'download']],
+	    '{{file(test.txt)}}')
+
+      if files.exist?('test.nosuchext')
+	files.delete('test.nosuchext')
+      end
+
+      file = 'unknown file dummy'
+      files.fput('test.nosuchext', file)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'1.files/test.nosuchext'},
+		[:img,
+		  {:alt=>'test.nosuchext',
+		    :class=>'icon', :src=>'.theme/i/generic.gif'}],
+		[:br], 'test.nosuchext'],
+	      [:br],
+	      [:a, {:href=>'1.download/test.nosuchext'}, 'download']],
+	    '{{file(test.nosuchext)}}')
+    end
+
+    def test_bug
+      eq '=7E', Qwik::Filename.encode('~')
+
+      ok_wi [:div, {:class=>'ref'},
+	[:a, {:href=>'1.files/=7E.txt'},
+	  [:img, {:src=>'.theme/i/broken.gif', :alt=>'~.txt', :class=>'icon'}],
+	  [:br],
+	  '~.txt']], '{{file(~.txt)}}'
+    end
+  end
+
+  class TestActIcon < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      res = session
+      a = @action
+
+      # test_icon_path
+      ok_eq('.theme/i/broken.gif', a.icon_path('broken'))
+      ok_eq('.theme/i/image2.gif', a.icon_path('image2'))
+
+      # test_find_icon
+      ok_eq('.theme/i/tar.gif',	a.icon_find('tgz'))
+      ok_eq('.theme/i/text.gif',	a.icon_find('txt'))
+      ok_eq('.theme/i/text.gif',	a.icon_find('css'))
+      ok_eq('.theme/i/image2.gif',	a.icon_find('png'))
+      ok_eq('.theme/i/image2.gif',	a.icon_find('gif'))
+      ok_eq('.theme/i/pdf.gif',	a.icon_find('pdf'))
+      ok_eq('.theme/i/ps.gif',	a.icon_find('ps'))
+      ok_eq('.theme/i/compressed.gif',	a.icon_find('zip'))
+      ok_eq('.theme/i/binary.gif',	a.icon_find('exe'))
+      ok_eq('.theme/i/generic.gif',	a.icon_find('nosuchext'))
+    end
+  end
+
+  class TestActRef < Test::Unit::TestCase
+    include TestSession
+
+    def test_ref_plugin
+      attach = @site.attach
+      attach.delete('1x1.png') if attach.exist?('1x1.png')
+
+      ok_wi([], '{{ref}}')
+
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'.attach/1x1.png'}, '1x1.png']],
+	    '{{ref(1x1.png)}}')
+
+      attach.delete('test.pdf') if attach.exist?('test.pdf')
+      pdf = 'PDF...dummy'
+      attach.fput('test.pdf', pdf)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'.attach/test.pdf'}, 'test.pdf']],
+	    '{{ref(test.pdf)}}')
+
+      attach.delete('test.txt') if attach.exist?('test.txt')
+      file = 'text file dummy'
+      attach.fput('test.txt', file)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'.attach/test.txt'}, 'test.txt']],
+	    '{{ref(test.txt)}}')
+
+      if attach.exist?('test.nosuchext')
+	attach.delete('test.nosuchext')
+      end
+      file = 'unknown file dummy'
+      attach.fput('test.nosuchext', file)
+      ok_wi([:div, {:class=>'ref'},
+	      [:a, {:href=>'.attach/test.nosuchext'}, 'test.nosuchext']],
+	    '{{ref(test.nosuchext)}}')
+    end
+  end
+end