qwikdoc 0.0.1

data/vendor/qwik/ml-catalog-factory.rb

@@ -0,0 +1,27 @@
+# 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/catalog-factory'
+
+module QuickML
+  class CatalogFactory < Qwik::CatalogFactory
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMLCatalogFactory < Test::Unit::TestCase
+    def test_all
+      cf = QuickML::CatalogFactory.new
+      cf.load_all_here('catalog-ml-??.rb')
+      catalog_ja = cf.get_catalog('ja')
+      assert_equal true, catalog_ja != nil
+    end
+  end
+end

data/vendor/qwik/ml-exception.rb

@@ -0,0 +1,15 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+module QuickML
+  class QuickMLException < StandardError; end
+  class TooManyMembers < QuickMLException; end
+  class InvalidMLName < QuickMLException; end
+end

data/vendor/qwik/ml-generator.rb

@@ -0,0 +1,28 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module QuickML
+  class Generator
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/mail'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMLGenerator < Test::Unit::TestCase
+    def test_all
+    end
+  end
+end

data/vendor/qwik/ml-gettext.rb

@@ -0,0 +1,137 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+
+module QuickML
+  module GetText
+    def set_catalog (catalog)
+      @catalog = nil
+      @gettext_catalog = catalog
+    end
+
+    def set_charset(charset)
+      @message_charset = nil
+      @gettext_charset = charset
+    end
+
+    # Used in group-sendmail.rb, ml-processor.rb, ml-session.rb
+    def codeconv (text)
+      return text if @gettext_catalog.nil?
+      method = @gettext_catalog[:codeconv_method]
+      return text if method.nil?
+      return text.send(method)
+    end
+
+    def gettext (text, *args)
+      @gettext_catalog	= nil if ! defined?(@gettext_catalog)
+      @catalog		= nil if ! defined?(@catalog)
+      @message_charset	= nil if ! defined?(@message_charset)
+      @gettext_charset	= nil if ! defined?(@gettext_charset)
+      @gettext_catalog = @catalog if @catalog && @gettext_catalog.nil?
+      if @message_charset && @gettext_charset.nil?
+	@gettext_charset = @message_charset
+      end
+      unless @gettext_catalog && @gettext_catalog[:charset] == @gettext_charset
+	return sprintf(text, *args)
+      end
+      translated_message = @gettext_catalog[text]
+      if translated_message
+	text = sprintf(translated_message, *args)
+	method = @gettext_catalog[:codeconv_method]
+	return text.send(method) if method
+	return text
+      end
+      return sprintf(text, *args)
+    end
+    alias :_ :gettext
+
+    def gettext2 (text)
+      @gettext_catalog	= nil if ! defined?(@gettext_catalog)
+      @catalog		= nil if ! defined?(@catalog)
+      @message_charset	= nil if ! defined?(@message_charset)
+      @gettext_charset	= nil if ! defined?(@gettext_charset)
+      @gettext_catalog = @catalog if @catalog && @gettext_catalog.nil?
+      if @message_charset && @gettext_charset.nil?
+	@gettext_charset = @message_charset
+      end
+      unless @gettext_catalog && @gettext_catalog[:charset] == @gettext_charset
+	return text
+      end
+      translated_message = @gettext_catalog[text]
+      if translated_message
+	text = translated_message
+	method = @gettext_catalog[:codeconv_method]
+	return text.send(method) if method
+	return text
+      end
+      return text
+    end
+    alias :__ :gettext2
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  require 'qwik/ml-catalog-factory'
+  require 'qwik/util-charset'
+  $test = true
+end
+
+if defined?($test) && $test
+  class MockMLGetText
+    include QuickML::GetText
+
+    def test_all(t)
+      # $KCODE = 's'
+
+      # test_set_catalog
+      cf = QuickML::CatalogFactory.new
+      cf.load_all_here('catalog-ml-??.rb')
+      catalog_ja = cf.get_catalog('ja')
+      set_catalog(catalog_ja)
+
+      # test before set catalog
+      @catalog		= nil
+      @message_charset	= nil
+      set_catalog(nil)
+      set_charset(nil)
+      t.is 'hello', gettext('hello')
+      t.is "Info: a\n", gettext("Info: %s\n", 'a')
+      t.is "If you agree, then,\n", gettext("If you agree, then,\n")
+
+      # test_codeconv
+      t.is '��', codeconv('��')
+
+      # test after set catalog
+      @catalog		= catalog_ja
+      @message_charset	= 'iso-2022-jp'
+      set_catalog(catalog_ja)
+      set_charset('iso-2022-jp')
+      t.is '����ɂ���'.set_sourcecode_charset.to_mail_charset, gettext('hello')
+      t.is '����ɂ���'.set_sourcecode_charset.to_mail_charset, _('hello')
+      t.is '����ɂ���'.set_sourcecode_charset.to_mail_charset, gettext2('hello')
+      t.is '����ɂ���'.set_sourcecode_charset.to_mail_charset, gettext('hello')
+      t.is "�g����: a\n".set_sourcecode_charset.to_mail_charset, gettext("Info: %s\n", 'a')
+      t.is "�������F����ꍇ�A\n".set_sourcecode_charset.to_mail_charset,
+	gettext("If you agree, then,\n")
+
+      # test_codeconv_ja
+      t.is "\e$B$\"\e(B", codeconv('��')
+    end
+  end
+
+  class TestMockMLGetText < Test::Unit::TestCase
+    def test_all
+      mock = MockMLGetText.new
+      mock.test_all(self)
+    end
+  end
+end

data/vendor/qwik/ml-logger.rb

@@ -0,0 +1,82 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+require 'thread'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-safe'
+require 'qwik/util-pathname'
+
+module QuickML
+  class Logger
+    ML_LOG_FILE = 'quickml.log'
+
+    def initialize (log_filename, verbose_mode = nil)
+      @mutex = Mutex.new
+      log_path = log_filename.path
+      log_path.parent.check_directory
+      @log_file = log_path.open('a')
+      @log_file.sync = true
+      @verbose_mode = verbose_mode
+    end
+
+    def log (msg)
+      puts_log(msg)
+    end
+
+    def vlog (msg)
+      puts_log(msg) if @verbose_mode
+    end
+
+    def reopen
+      @mutex.synchronize {
+	log_filename = @log_file.path
+      	@log_file.close
+      	@log_file = File.open(log_filename, 'a')
+      }
+    end
+
+    private
+
+    def puts_log (msg)
+      @mutex.synchronize {
+	time = Time.now.strftime('%Y-%m-%dT%H:%M:%S')
+	str = "#{time}: #{msg}"
+	@log_file.puts str
+	$stdout.puts str if $ml_debug
+      }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMLLogger < Test::Unit::TestCase
+    def test_all
+      file = '.test/testlog.txt'
+      logger = QuickML::Logger.new(file)
+
+      # test_log
+      logger.log('t')
+      str = open(file) {|f| f.read }
+      assert_match(/: t\n/, str)
+      file.path.unlink
+
+      # TODO
+      # test_vlog
+      # test_reopen
+      # test_puts_log
+    end
+  end
+end

data/vendor/qwik/ml-memory.rb

@@ -0,0 +1,65 @@
+# 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/config'
+require 'qwik/ml-logger'
+require 'qwik/ml-catalog-factory'
+require 'qwik/util-safe'
+
+module QuickML
+  class ServerMemory
+    def self.init_logger(memory, config)
+      ml_log_file = (config[:log_dir].path + Logger::ML_LOG_FILE).to_s
+      memory[:logger] = Logger.new(ml_log_file, config[:verbose_mode])
+    end
+
+    def self.init_mutex(memory)
+      memory[:ml_mutexes] = Hash.new
+    end
+
+    def self.ml_mutex(memory, address)
+      hash = memory[:ml_mutexes]
+      return hash.fetch(address) {|x| hash[x] = Mutex.new }
+    end
+
+    def self.init_catalog(memory)
+      memory[:catalog] = nil
+      if memory[:message_catalog]
+	cf = CatalogFactory.new
+	cf.load_all_here('catalog-ml-??.rb')
+	memory[:catalog] = cf.get_catalog('ja')
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require 'qwik/testunit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestMLMemory < Test::Unit::TestCase
+    def test_all
+      c = QuickML::ServerMemory
+
+      # test_init_logger
+      memory = {}
+      config = {:log_dir=>'.'}
+      c.init_logger(memory, config)
+      assert_instance_of(QuickML::Logger, memory[:logger])
+
+      # test_init_mutex
+      memory = {}
+      c.init_mutex(memory)
+      eq({:ml_mutexes=>{}}, memory)
+
+      # test_init_catalog
+      memory = {:message_catalog=>'something'}
+      c.init_catalog(memory)
+      assert_instance_of(Hash, memory[:catalog])
+    end
+  end
+end

data/vendor/qwik/ml-msg-validator.rb

@@ -0,0 +1,86 @@
+#
+# Copyright (C) 2002-2004 Satoru Takabayashi <satoru@namazu.org> 
+# 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 General Public License version 2.
+#
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/ml-gettext'
+
+module QuickML
+  module GetText
+    class MessageValidator
+      def self.main(argv)
+	if argv.length < 2
+	  puts "Usage: ruby ml-msg-validator.rb <catalog> <source...>"
+	  exit
+	end
+
+	catalog_file = argv.shift
+	catalog = Catalog.new(catalog_file)
+
+	ok = true
+	argv.each {|source_file|
+	  validator = MessageValidator.new(catalog, source_file)
+	  validator.validate
+	  ok = (ok and validator.ok?)
+	}
+	if ok then exit else exit(1) end
+      end
+
+      def initialize (catalog, source_filename)
+	@catalog = catalog
+	@source_filename  = source_filename
+	@has_error = false
+      end
+
+      def read_file_with_numbering (filename)
+	content = ''
+	File.open(filename).each_with_index {|line, idx|
+	  lineno = idx + 1
+	  content << line.gsub(/\b_\(/, "_[#{lineno}](")
+	}
+	content
+      end
+
+      def collect_messages (content)
+	messages = []
+	while content.sub!(/\b_\[(\d+)\]\((".*?").*?\)/m, "")
+	  lineno  = $1.to_i
+	  message = eval($2)
+	  messages.push([lineno, message]) 
+	end
+	messages
+      end
+
+      def validate
+	@catalog or return
+	content = read_file_with_numbering(@source_filename)
+	messages = collect_messages(content)
+	messages.each {|lineno, message|
+	  translated_message = @catalog.messages[message]
+	  if not translated_message
+	    printf "%s:%d: %s\n", @source_filename, lineno, message.inspect
+	    @has_error = true
+	  elsif message.count('%') != translated_message.count('%')
+	    printf "%s:%d: %s => # of %% mismatch.\n", 
+	      @source_filename, lineno, message.inspect, translated_message
+	    @has_error = true
+	  end
+	}
+      end
+
+      def ok?
+	not @has_error
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  QuickML::GetText::MessageValidator.main(ARGV)
+end