qwikdoc 0.0.1

data/vendor/qwik/common-surface.rb

@@ -0,0 +1,261 @@
+# 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-basic'
+require 'qwik/wabisabi-index'
+
+module Qwik
+  class Action
+    # ==================== c_surface
+    # http://co/qwik/.test_surface
+    # Only for page design check.
+    def act_test_surface
+      w = c_page_res('TextFormat')
+      c_surface('act_test_surface') { w }
+    end
+
+    def c_surface(title, patch=true, &b)
+      msg = yield
+      c_set_status
+      c_set_contenttype
+      c_set_no_cache
+      body = surface_generate(title, msg, patch)
+      c_set_body(body)
+    end
+
+    def surface_generate(title, msg, patch=true)
+      template = @memory.template.get('surface')
+      adminmenu = c_page_res('_AdminMenu')
+      if patch
+	li = adminmenu.get_path('//ul/li[2]')
+	li.clear if li
+      end
+      data = {
+	:title		=> title,
+	:theme_path	=> site_theme_path,
+	:adminmenu	=> adminmenu,
+	:toc		=> nil,		# Do not use toc.
+	:h1		=> title,	# same as title.
+	:body		=> msg,
+	:sidemenu	=> surface_get_sidemenu,
+	:pageattribute	=> c_page_res('_PageAttribute'),
+      }
+      surface_template(template, data)
+      return template
+    end
+
+    # ==================== view page
+    # Called from act-html.rb:28, 57
+    def surface_view(pagename)
+      c_set_status
+      c_set_contenttype
+      c_set_no_cache
+      body = surface_view_generate(pagename)
+      c_set_body(body)
+    end
+
+    def surface_view_generate(pagename)
+      page = @site[pagename]
+      template = @memory.template.get('surface')
+      data = {
+	:title		=> @site.get_page_title(pagename),
+	:theme_path	=> site_theme_path,
+	:adminmenu	=> c_page_res('_AdminMenu'),
+	:toc		=> toc_inside,
+	:h1		=> page.get_title,
+	:body		=> surface_get_body(page),
+	:sidemenu	=> surface_get_sidemenu,
+	:pageattribute	=> c_page_res('_PageAttribute'),
+      }
+      surface_template(template, data)
+      return template
+    end
+
+    # act-include:22, act-tag:49
+    def surface_get_body(page)
+      tree = page.get_body_tree
+      w = Resolver.resolve(@site, self, tree)
+      w = TDiaryResolver.resolve(@config, @site, self, w)
+      return w
+    end
+
+    private
+
+    def surface_get_sidemenu
+      page = @site.get_superpage('SideMenu')
+      tree = page.get_tree
+      w = Resolver.resolve(@site, self, tree)
+      return w
+    end
+
+    # ==================== build using template
+    # Destructive for template.
+    def old_surface_template(template, data)
+      w = template.get_tag('head')	# TAKETIME: Here!
+      w.insert(1, [:title, data[:title]])
+      media = 'screen,tv,print'
+      w.insert(w.length, [:link, {:href=>'.theme/css/base.css', :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>data[:theme_path], :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      js = Action.generate_js
+      w.insert(w.length, *js)
+
+      w = template.get_by_class('adminmenu')	# TAKETIME: Here!
+      w << data[:adminmenu]
+
+      w = template.get_by_class('toc')	# TAKETIME: Here!
+      if data[:toc].nil?
+	w.clear
+      else
+	w << data[:toc]
+      end
+
+      w = template.get_tag('h1')	# TAKETIME: Here!
+      w << data[:h1]
+
+      w = template.get_by_class('body_enter')	# TAKETIME: Here!
+      w.clear
+
+      w = template.get_by_class('body_main')	# TAKETIME: Here!
+      w << data[:body]
+
+      w = template.get_by_class('sidebar')	# TAKETIME: Here!
+      w << data[:sidemenu]
+
+      w = template.get_by_class('body_leave')	# TAKETIME: Here!
+      w << [:div, {:class=>'day'},
+	[:div, {:class=>'comment'},
+	  [:div, {:class=>'caption'},
+	    [:div, {:class=>'page_attribute'},
+	      data[:pageattribute]]]]]
+
+      return nil	# Do not return any value.  Just destruct the template.
+    end
+
+    def new_surface_template(template, data)
+      template.make_index
+
+      w = template.index_tag(:head)
+
+      w.insert(1, [:title, data[:title]])
+
+      media = 'screen,tv,print'
+      w.insert(w.length, [:link, {:href=>'.theme/css/base.css', :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>data[:theme_path], :media=>media,
+		   :rel=>'stylesheet', :type=>'text/css'}])
+      w.insert(w.length, [:link, {:href=>'rss.xml', :title=>'RSS 0.91',
+		   :rel=>'alternate', :type=>"application/rss+xml"}])
+
+      js = Action.generate_js
+      w.insert(w.length, *js)
+
+      w = template.index_class('adminmenu')
+      w << data[:adminmenu]
+
+      w = template.index_class('toc')
+      if data[:toc].nil?
+	w.clear
+      else
+	w << data[:toc]
+      end
+
+      w = template.index_tag(:h1)
+      w << data[:h1]
+
+      w = template.index_class('body_enter')
+      w.clear
+
+      w = template.index_class('body_main')
+      w << data[:body]
+
+      w = template.index_class('sidebar')
+      w << data[:sidemenu]
+
+      w = template.index_class('body_leave')
+      w << [:div, {:class=>'day'},
+	[:div, {:class=>'comment'},
+	  [:div, {:class=>'caption'},
+	    [:div, {:class=>'page_attribute'},
+	      data[:pageattribute]]]]]
+
+      return nil	# Do not return any value.  Just destruct the template.
+    end
+
+   #alias surface_template old_surface_template
+    alias surface_template new_surface_template
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  require 'qwik/test-module-public'
+
+  class TestActSurface < Test::Unit::TestCase
+    include TestSession
+    include TestModulePublic
+
+    def test_test_surface
+      t_add_user
+      res = session('/test/.test_surface')
+      ok_title 'act_test_surface'
+    end
+
+    def test_all
+      res = session
+
+#      @action.generate_surface_page('title', 'msg')
+#      ok_xp([:title, 'title'], 'title', res)
+
+      @action.c_surface('c_surface title') { 'msg' }
+      ok_title 'c_surface title'
+    end
+
+    def test_surface_generate
+      res = session
+
+      # test_original_template
+      template = @memory.template.get('surface')
+      eq [:h1], template.get_tag('h1')
+      eq [:div, {:class=>'body_main'}],
+	template.get_by_class('body_main')
+
+      # test_surface_generate
+      res = @action.surface_generate('title', 'msg')
+      eq [:title, 'title'], res.get_tag('title')
+#      eq [:script, {:src=>'.theme/js/base.js',
+#	  :type=>'text/javascript'}, ''], res.get_tag('script')
+      eq [:h1, 'title'], res.get_tag('h1')
+      eq [:div, {:class=>'body_main'}, 'msg'],
+	res.get_path("//div[@class='body_main']")
+    end
+
+    def test_surface_build_template
+      res = session
+      t_make_public(Qwik::Action, :surface_template)
+      template = @memory.template.get('surface')
+      data = {
+	:title		=> 'title',
+	:theme_path	=> 'theme_path',
+	:adminmenu	=> 'adminmenu',
+	:toc		=> 'toc',
+	:h1		=> 'h1',
+	:body		=> 'body',
+	:sidemenu	=> 'sidemenu',
+	:pageattribute	=> 'pageattribute',
+      }
+      @action.surface_template(template, data)
+      res.body = template
+      ok_title 'title'
+      ok_xp([:div, {:class=>'sidebar'}, 'sidemenu'],
+	    "//div[@class='sidebar']")
+    end
+  end
+end

data/vendor/qwik/common-url.rb

@@ -0,0 +1,90 @@
+# 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.
+
+require 'uri'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module Qwik
+  class Action
+    # 1.html -> /test/1.html
+    def c_relative_to_root(url)
+      return url if /\A\// =~ url	# It's already from root path.
+      uri = URI(@config.public_url)
+      return "#{uri.path}#{@site.url_path}#{url}"
+    end
+
+    # 1.html -> http://example.com/test/1.html
+    def c_relative_to_absolute(url)
+      if /\Ahttp:\/\// =~ url || /\Ahttps:\/\// =~ url
+	return url		# It's already absolute URL.
+      end
+
+      # make absolute url
+      fromrootpath = c_relative_to_root(url)
+      return "#{@site.host_url.chomp('/')}#{fromrootpath}"
+    end
+
+    def is_valid_url?(str)
+      return %r!\Ahttp://[\-\_\.\/\?A-Za-z]+\z! =~ str
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/test-common'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestActUrl < Test::Unit::TestCase
+    include TestSession
+
+    def test_normal_site
+      res = session
+      eq '/test/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.com/test/1.html',
+	@action.c_relative_to_absolute('1.html')
+    end
+
+    def test_top_site
+      res = session
+      @action.instance_eval {
+	@site = @memory.farm.get_top_site
+      }
+      eq '/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.com/1.html', @action.c_relative_to_absolute('1.html')
+    end
+
+    def test_external_site
+      res = session
+      page = @site['_SiteConfig']
+      page.store(':siteurl:http://example.org/')
+      eq '/1.html', @action.c_relative_to_root('1.html')
+      eq 'http://example.org/1.html', @action.c_relative_to_absolute('1.html')
+    end
+
+    def test_with_path
+      t_with_path {
+	res = session
+	eq '/qwik/test/1.html', @action.c_relative_to_root('1.html')
+	eq 'http://www.example.org/qwik/test/1.html',
+	  @action.c_relative_to_absolute('1.html')
+      }
+    end
+
+    def test_anomaly
+      res = session
+      eq '/.theme', @action.c_relative_to_root('/.theme')
+      eq 'http://example.gov/',
+	@action.c_relative_to_absolute('http://example.gov/')
+    end
+
+    def test_is_valid_url?
+      res = session
+      eq true, !!@action.is_valid_url?('http://e.com/')
+      eq true, !!@action.is_valid_url?("http://e.com/?")
+    end
+  end
+end

data/vendor/qwik/compat/Makefile

@@ -0,0 +1,12 @@
+# 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.
+
+all:
+	echo 'You can download dependencies by "make get"'
+
+get:	get_typekey
+
+get_typekey:
+	wget http://jouno.s11.xrea.com/x/script/typekey/TypeKey.rb
+

data/vendor/qwik/compat/add_load_path.rb

@@ -0,0 +1 @@
+$LOAD_PATH << File.expand_path(File::dirname(__FILE__))

data/vendor/qwik/config.rb

@@ -0,0 +1,299 @@
+# 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.
+
+require 'optparse'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/version'
+
+module Qwik
+  class Config
+    LIBDIR = File.dirname(__FILE__)
+    DEBUG_BASEDIR = File.expand_path(LIBDIR+'/../../')
+
+    QuickMLInternal = {
+      # QuickML Internal use.
+      :logger		=> nil,
+      :ml_mutexes	=> nil,
+      :catalog		=> nil,
+      :message_catalog	=> nil,
+      :content_type	=> 'text/plain',
+    }
+
+    DefaultConfig = {
+      # For test and debug.
+      :debug		=> false,
+      :test		=> false,
+      :verbose_mode	=> false,
+
+      # Server setting.
+      :server_type	=> 'webrick',
+      #:server_type	=> 'mongrel',
+      :user		=> 'daemon',
+      :group		=> 'daemon',
+      :bind_address	=> '0.0.0.0',
+      :web_port		=> 9190,
+      :ml_port		=> 9195,
+
+      # Public Web address.
+      :public_url	=> 'http://example.com/',
+      :default_sitename	=> 'www',
+
+      # Mailing list setting.
+      :ml_domain	=> 'example.com',
+      :ml_postmaster	=> 'postmaster@example.com',
+
+      # Send mail setting.
+      :smtp_host	=> '127.0.0.1',
+      :smtp_port	=> 25,
+
+      # Experimental.
+      :db		=> 'fsdb',
+      :ssl		=> false,
+      :enable_ruby	=> false,
+
+      # For Graphviz plugin.
+      :graphviz_dot_path	=> '/usr/bin/dot',
+      :graphviz_font_size	=> '10',
+      :graphviz_font_name	=> 'Sazanami Gothic',
+
+      # Mailing list server setting.
+      :sweep_interval		=> 3600,
+      :allowable_error_interval	=> 8600,
+      :max_threads		=> 10,		# Number of working threads.
+      :timeout			=> 120,
+      :use_qmail_verp		=> false,
+      :confirm_ml_creation	=> false,
+
+      # Config for each group.
+      :auto_unsubscribe_count	=> 5,
+      :max_mail_length		=> 100 * 1024,	# 100KB
+      :max_ml_mail_length	=> 100 * 1024,	# 100KB
+      :max_members		=> 100,
+      :ml_alert_time		=> 86400 * 24,
+      :ml_life_time		=> 86400 * 31,
+
+      # Setting for production mode.
+      :sites_dir	=> '/var/lib/qwik/data',
+      :grave_dir	=> '/var/lib/qwik/grave',
+      :cache_dir	=> '/var/cache/qwik',
+      :super_dir	=> '/usr/share/qwik/super',
+      :theme_dir	=> '/usr/share/qwik/theme',
+      :template_dir	=> '/usr/share/qwik/template',
+      :qrcode_dir	=> '/usr/share/qwik/qrcode',
+      :etc_dir		=> '/etc/qwik',
+      :config_file	=> '/etc/qwik/config.txt',
+      :log_dir		=> '/var/log/qwik',
+      :web_pid_file	=> '/var/run/qwikweb.pid',
+      :ml_pid_file	=> '/var/run/quickml.pid',
+      # total size of attachments for each site
+      :max_total_file_size	=>	1 * 1024 * 1024 * 1024, # 1GB
+      :max_total_warn_size	=>	10 * 1024 * 1024, # 10MB
+
+      # search word cloud
+      :search_word_display_num	=>  100,   #number of search words to display
+      :search_word_max_num	=>  10000, #number of search wrods to save
+    }
+
+    DebugConfig = {
+      # Setting for debug mode.
+      :super_dir	=> DEBUG_BASEDIR+'/share/super',
+      :theme_dir	=> DEBUG_BASEDIR+'/share/theme',
+      :template_dir	=> DEBUG_BASEDIR+'/share/template',
+      :qrcode_dir	=> DEBUG_BASEDIR+'/share/qrcode',
+    }
+
+    TestConfig = {
+      # Setting for test mode.
+      :debug		=> true,
+      :test		=> true,	# Do not send mail.
+#      :public_url	=> 'http://example.com/q/',
+#      :default_sitename	=> 'top',
+      :ml_domain	=> 'q.example.com',
+      :ml_postmaster	=> 'postmaster@q.example.com',
+=begin
+      :sites_dir	=> '.',
+      :grave_dir	=> '.',
+      :cache_dir	=> '.',
+      :etc_dir		=> '.',
+      :log_dir		=> '.',
+=end
+      :sites_dir	=> '.test/data',
+      :grave_dir	=> '.test/grave',
+      :cache_dir	=> '.test/cache',
+      :etc_dir		=> '.test/etc',
+      :log_dir		=> '.test/log',
+      :web_pid_file	=> 'qwikweb.pid',
+      :ml_pid_file	=> 'quickml.pid',
+    }
+
+    def initialize
+      @config = {}
+      @config.update(QuickMLInternal)
+      @config.update(DefaultConfig)
+      Config.make_accessor(Config, @config, @config[:debug])
+    end
+
+    def [](k)
+      return @config[k]
+    end
+
+    def []=(k, v)
+      @config[k] = v
+    end
+
+    def update(hash)
+      @config.update(hash)
+    end
+
+    # class method
+
+    def self.load_args_and_config(config, progname, args)
+      args_conf = Config.parse_args(progname, args)
+      config.update(args_conf)		# config file is specified by args
+      file_conf = Config.load_config_file(config[:config_file])
+      config.update(file_conf)
+      config.update(args_conf)		# Set args again to override.
+    end
+
+    def self.load_config_file(file)
+      raise "can not open #{file}" if ! FileTest.exist?(file)
+      content = open(file) {|fh| fh.read }
+      return parse_config(content)
+    end
+
+    def self.parse_config(str)
+      config = {}
+      str.each_line {|line|
+	next unless /\A\:/ =~ line
+	ar = line.chomp.split(':', 3)
+	next if ar[1].empty?
+	config[ar[1].intern] = parse_value(ar[2])
+      }
+      return config
+    end
+
+    def self.parse_value(v)
+      v = $1 if /\A(.+?)\#.*\z/ =~ v	# remove comment
+      v = v.strip
+      case v
+      when 'true';	return true
+      when 'false';	return false
+      when 'nil';	return nil
+      when /\A\d+\z/;	return v.to_i
+      # Only numbers, * and spaces are allowable.
+      # It is allowable to use eval in this context.
+      when /\A[\d\ \*]+\z/;	return eval(v)
+      when /\A(\d+)m\z/;	return $1.to_i * 60
+      when /\A(\d+)h\z/;	return $1.to_i * 60 * 60
+      when /\A(\d+)d\z/;	return $1.to_i * 60 * 60 * 24
+      when /\A(\d+)w\z/;	return $1.to_i * 60 * 60 * 24 * 7
+      when /\A(\d+)KB\z/;	return $1.to_i * 1024
+      when /\A(\d+)MB\z/;	return $1.to_i * 1024 * 1024
+      when /\A(\d+)GB\z/;	return $1.to_i * 1024 * 1024 * 1024
+      end
+      v.gsub!('$BASEDIR') { DEBUG_BASEDIR }
+      return v
+    end
+
+    def self.make_accessor(klass, config, debug=false)
+      config.each_key {|k|
+	if ! klass.method_defined?(k)
+	  klass.class_eval "
+            def #{k}
+              return @config[:#{k}]
+            end
+	  "
+	end
+      }
+    end
+
+    def self.parse_args(myprog, args)
+      config = {}
+      optionparser = OptionParser.new {|opts|
+	opts.banner = "Usage: #{myprog} [options]"
+	opts.separator ''
+	opts.separator 'Specific options:'
+	opts.on('-c', '--config file', 'Specify config file.') {|a|
+	  config[:config_file] = a
+	}
+	opts.on('-d', '--[no-]debug', 'Run in debug mode') {|a|
+	  config[:debug] = a
+	}
+	opts.separator ''
+	opts.separator 'Common options:'
+	opts.on_tail('-h', '--help', 'Show this message') {
+	  puts opts
+	  exit
+	}
+	opts.on_tail('-v', '--version', 'Show version') {
+	  puts VERSION
+	  exit
+	}
+      }
+      optionparser.parse!(args)
+      return config
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestConfig < Test::Unit::TestCase
+    def test_class_method
+      c = Qwik::Config
+
+      # test_parse_config
+      assert_equal({}, c.parse_config('::'))
+      assert_equal({}, c.parse_config('::v'))
+      assert_equal({:k=>''}, c.parse_config(':k:'))
+      assert_equal({:k=>''}, c.parse_config(':k:	'))
+
+      assert_equal({:k=>'v'}, c.parse_config(':k:v'))
+      assert_equal({:k=>'v:v'}, c.parse_config(':k:v:v'))
+      assert_equal({:k=>'v'}, c.parse_config("\#c\n:k:v"))
+      assert_equal({:k=>'v'}, c.parse_config(':k:v#comment'))
+      assert_equal({:k=>'v'}, c.parse_config(':k:v #comment'))
+
+      assert_equal({:k=>4}, c.parse_config(':k:	2 * 2'))
+      assert_equal({:k=>'1.1'}, c.parse_config(':k:1.1'))
+
+      assert_equal({:k=>Qwik::Config::DEBUG_BASEDIR},
+		   c.parse_config(':k:$BASEDIR'))
+
+      # test_parse_value
+      assert_equal  true, c.parse_value('true')
+      assert_equal false, c.parse_value('false')
+      assert_equal   nil, c.parse_value('nil')
+
+      assert_equal 1, c.parse_value('1')
+      assert_equal 4, c.parse_value('2*2')
+      assert_equal 4, c.parse_value('2 * 2')
+
+      assert_equal     60, c.parse_value('1m')
+      assert_equal   3600, c.parse_value('1h')
+      assert_equal  86400, c.parse_value('1d')
+      assert_equal 604800, c.parse_value('1w')
+      assert_equal   1024, c.parse_value('1KB')
+      assert_equal 1048576, c.parse_value('1MB')
+      assert_equal 1073741824, c.parse_value('1GB')
+
+      # test_parse_args
+      assert_equal({:debug=>true}, c.parse_args('myprog', ['-d']))
+    end
+
+    def test_all
+      # test_new
+      config = Qwik::Config.new
+      assert_equal false, config.debug
+      assert_equal false, config.test
+      config[:debug] = true
+      assert_equal true, config.debug
+    end
+  end
+end