qwikdoc 0.0.1

data/vendor/qwik/page-images.rb

@@ -0,0 +1,168 @@
+# 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-files'
+
+module Qwik
+  class PageFiles
+    IMAGE_EXT = %w(jpg jpeg png gif bmp ico ppm)
+    CONVERT_PATH = '/usr/bin/convert'
+    THUMB_SIZE = 100
+    SCREEN_WIDTH  = 1024
+    SCREEN_HEIGHT = 768
+
+    def image_list
+      return self.select {|file|
+	PageFiles.is_image?(file.path.ext)
+      }
+    end
+
+    def each_image
+      image_list.each {|file|
+	yield(file)
+      }
+    end
+
+    def self.is_image?(ext)
+      return true if IMAGE_EXT.include?(ext.downcase)
+      return false
+    end
+
+    def generate_all_thumb
+      self.each_image {|file|
+	generate_thumb(file)
+      }
+    end
+
+    def generate_thumb(file)
+      generate_scaled(file, '.thumb', THUMB_SIZE, THUMB_SIZE)
+    end
+
+    def generate_all_screen
+      self.each_image {|file|
+	generate_screen(file)
+      }
+    end
+
+    def generate_screen(file)
+      generate_scaled(file, '.screen', SCREEN_WIDTH, SCREEN_HEIGHT)
+    end
+
+    def generate_scaled(file, scaled_dir, w, h)
+      return if $test
+
+      sc_dir = self.path(scaled_dir)
+      sc_dir.check_directory
+
+      org = self.path(file)
+      #scaled = sc_dir+file
+      scaled = sc_dir + Filename.encode(file)
+      if ! scaled.exist?
+	convert = CONVERT_PATH
+	return nil if ! convert.path.exist?
+	geom = "#{w}x#{h}"
+	cmd = "#{convert} -size #{geom} \"#{org}\" -resize #{geom} \"#{scaled}\""
+	#cmd = "#{convert} -size #{geom} #{org} -resize #{geom} #{scaled}"
+	#p cmd
+	system cmd
+      end
+    end
+
+=begin
+# Excerpt from man convert
+
+       To make a thumbnail of a JPEG image, use:
+
+           convert -size 120x120 cockatoo.jpg -resize 120x120
+                   +profile '*' thumbnail.jpg
+
+       In  this example, '-size 120x120' gives a hint to the JPEG decoder that
+       the image is going to be downscaled to  120x120,  allowing  it  to  run
+       faster  by avoiding returning full-resolution images to ImageMagick for
+       the subsequent resizing operation.   The  output  image.   It  will  be
+       scaled  so  its  largest  dimension  is  120 pixels.  The that might be
+       present in the input and aren't needed in the thumbnail.
+=end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/test-module-session'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestPageImages < Test::Unit::TestCase
+    include TestSession
+
+    def setup
+    end
+
+    def teardown
+    end
+
+    def test_all
+      dir = './.test/'.path
+      dir.setup
+      files = Qwik::PageFiles.new(dir.to_s, '1')
+
+      png = TEST_PNG_DATA
+      files.fput('1.jpg', png)	# content is PNG, but use it as .jpg
+      files.fput('2.jpg', png)
+
+      # test_image_list
+      eq(['1.jpg', '2.jpg'], files.image_list)
+
+      # test_each_image
+      files.each_image {|file|
+	assert_match(/jpg\z/, file)
+      }
+
+      return if $0 != __FILE__		# Only for separated test.
+
+      org_debug = $test
+      $test = false
+
+      # test_generate_thumb
+      files.generate_thumb('1.jpg')
+      ok_eq(true, files.exist?('.thumb/1.jpg'))
+      ok_eq(false, files.exist?('.thumb/2.jpg'))
+
+      # test_generate_all_thumb
+      files.generate_all_thumb
+      ok_eq(true, files.exist?('.thumb/1.jpg'))
+      ok_eq(true, files.exist?('.thumb/2.jpg'))
+
+      # test_generate_screen
+      files.generate_screen('1.jpg')
+      ok_eq(true, files.exist?('.screen/1.jpg'))
+      ok_eq(false, files.exist?('.screen/2.jpg'))
+
+      # test_generate_all_screen
+      files.generate_all_screen
+      ok_eq(true, files.exist?('.screen/1.jpg'))
+      ok_eq(true, files.exist?('.screen/2.jpg'))
+
+      $test = org_debug
+
+      dir.teardown
+    end
+
+    def test_is_image?
+      c = Qwik::PageFiles
+      ok_eq(true, c.is_image?('jpg'))
+      ok_eq(true, c.is_image?('jpeg'))
+      ok_eq(true, c.is_image?('JPG'))
+      ok_eq(true, c.is_image?('png'))
+      ok_eq(true, c.is_image?('gif'))
+      ok_eq(true, c.is_image?('bmp'))
+      ok_eq(true, c.is_image?('ico'))
+      ok_eq(true, c.is_image?('ppm'))
+      ok_eq(false, c.is_image?('pdf'))
+    end
+  end
+end

data/vendor/qwik/page-put.rb

@@ -0,0 +1,128 @@
+# 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/util-string'
+
+module Qwik
+  class Page
+    def put(v)
+      return @db.put(@key, v)
+    end
+    alias store put
+
+    def put_with_time(v, time)
+      @db.put(@key, v, time)
+    end
+
+    def put_with_md5(v, md5)
+      if md5 && self.get.md5hex != md5
+	raise PageCollisionError
+      end
+      put(v)
+    end
+
+    def add(v)
+      str = self.get
+      addstr = ''
+
+      # FIXME: Use normalize_eol?
+      if ! (str.empty? || str[-1] == ?\n)
+	addstr += "\n"
+      end
+
+      addstr += v
+
+      if !(v.empty? || v[-1] == ?\n)
+	addstr += "\n"
+      end
+
+      @db.add(@key, addstr)
+    end
+
+    def delete
+      @db.delete(@key)
+      # @pages.delete(@key)
+    end
+
+    def touch
+      @db.touch(@key)
+    end
+
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/farm'
+  require 'qwik/server-memory'
+  require 'qwik/test-module-session'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestPagePut < Test::Unit::TestCase
+    include TestSession
+
+    def test_all
+      pages = @site.get_pages
+      page = pages.create_new
+
+      # test_put
+      page.put('test1')
+      page.store('test1')
+      ok_eq('test1', page.get)
+
+      # test_put_with_time
+      page.put_with_time('test1', 0)
+      ok_eq(0, page.mtime.to_i)
+
+      # test_put_with_md5
+      page.put('t1')
+      assert_raises(Qwik::PageCollisionError) {
+	page.put_with_md5('t1', 'somethingwrong')
+      }
+      md5 = page.get.md5hex
+      page.put_with_md5('t2', md5)
+      ok_eq('t2', page.get)
+
+      # test_add
+      page.add('t3')
+      ok_eq("t2\nt3\n", page.get)
+
+      # test_mtime_with_nonexistent_page
+      assert_instance_of(Time, pages.last_page_time)
+
+      page = pages['1']
+      page.put('* a')
+      assert_instance_of(Time, page.mtime)
+      assert_instance_of(Time, pages.last_page_time)
+
+      page.delete
+      assert_instance_of(Time, page.mtime)
+      assert_instance_of(Time, pages.last_page_time)
+      ok_eq(0, page.mtime.to_i)
+    end
+
+    def test_add
+      pages = @site.get_pages
+      page = pages.create_new
+
+      page.put('t1')
+      page.add('t2')
+      ok_eq("t1\nt2\n", page.get)
+
+      page.put('')
+      page.add('t2')
+      ok_eq("t2\n", page.get)
+
+      page.put('t1')
+      page.add('')
+      ok_eq("t1\n", page.get)
+
+      page.delete
+      page.add('')
+      ok_eq('', page.get)
+    end
+  end
+end

data/vendor/qwik/page-rrefs.rb

@@ -0,0 +1,154 @@
+# 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.
+
+require 'fileutils'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-pathname'
+require 'qwik/util-filename'
+
+module Qwik
+  class PageRRefs
+    include Enumerable
+
+    def initialize(site_dir, key)
+      @rref_file = site_dir.path+"#{key}.rrefs"
+
+      # fix me!
+      # the mutex works only in a process
+      # wiki server process is the process to update rrefs
+      # ml-server is not supposed to update rrefs
+      @lock = Mutex.new
+    end
+
+    def exist?
+      FileTest.exists?(@rref_file)
+    end
+
+    def get
+      if self.exist?
+        rrefs = File.open(@rref_file).read
+        return rrefs
+      else
+        return ""
+      end
+    end
+
+    def delete(key)
+      @lock.synchronize {
+        rrefs = self.get
+        rrefs = rrefs.map {|r| r if r.chomp != key }.to_s
+        @rref_file.path.put(rrefs)
+      }
+    end
+
+    def add(key)
+      @lock.synchronize {
+        f = File.open(@rref_file,"a")
+        f.puts key
+        f.close
+      }
+    end
+
+    def put(keys)
+      rrefs = keys.join($/) + $/
+      @rref_file.path.put(rrefs)
+    end
+    
+    def each
+      return unless self.exist?
+      # key might be deleted in the loop
+      keys = self.get
+      keys.each {|a|
+	yield(a.chomp)
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/test-module-path'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestPageRRefs < Test::Unit::TestCase
+    include TestModulePublic
+
+    def setup_rrefs
+      dir = '.test/'.path
+      dir.setup
+      rrefs = Qwik::PageRRefs.new(dir.to_s, '1')
+
+      return [dir, rrefs]
+    end
+
+    def teardown_rrefs(dir)
+      dir.teardown
+    end
+
+    def test_put
+      dir, rrefs = setup_rrefs
+
+      rrefs.put(["2","3"])
+      ok_eq(true, rrefs.exist?)
+
+      cont = rrefs.get
+      ok_eq("2#{$/}3#{$/}",cont)
+
+      teardown_rrefs(dir)
+    end
+
+    def test_add
+      dir, rrefs = setup_rrefs
+      rrefs.put(["2","3"])
+
+      rrefs.add("4")
+      cont = rrefs.get
+
+      ok_eq(true, rrefs.exist?)
+      ok_eq("2#{$/}3#{$/}4#{$/}",cont)
+
+      teardown_rrefs(dir)
+    end
+
+    def test_delete
+      dir, rrefs = setup_rrefs
+      rrefs.put(["2","3","4"])
+      rrefs.delete("3")
+
+      cont = rrefs.get
+      ok_eq(true, rrefs.exist?)
+      ok_eq("2#{$/}4#{$/}",cont)
+
+      teardown_rrefs(dir)
+    end
+
+    def test_each
+      dir, rrefs = setup_rrefs
+      keys = ["2","3","4"]
+      rrefs.put(keys)
+
+     
+      i = 0
+      rrefs.each {|key|
+        ok_eq(keys[i],key)
+	i+=1
+      }
+    end
+
+    def test_each_empty
+      dir, rrefs = setup_rrefs
+
+      cont = []
+      rrefs.each {|key|
+        cont << key
+      }
+      ok_eq([],cont)
+    end
+  end
+end