qwikdoc 0.0.1

data/vendor/qwik/util-pid.rb

@@ -0,0 +1,58 @@
+# 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-pathname'
+
+module PidModule
+  def write_pid_file(pidfile)
+    pidfile.path.put("#{Process.pid}\n")
+  end
+
+  def read_pid_file(pidfile)
+    pid = nil
+    pid = pidfile.path.get_first.chomp.to_i
+    return pid
+  end
+
+  def remove_pid_file(pidfile)
+    if Process.pid == read_pid_file(pidfile)
+      pidfile.path.unlink
+    end
+  end
+
+  # for test
+  def exist_pid_file?(pidfile)
+    return pidfile.path.exist?
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestUtilPid < Test::Unit::TestCase
+    include PidModule
+
+    def test_all
+      f = 'test-pid.txt'
+
+      # test_exist_pid_file?
+      assert_equal false, exist_pid_file?(f)
+
+      # test_write_pid_file
+      write_pid_file(f)
+      assert_equal true, exist_pid_file?(f)
+
+      # test_read_pid_file
+      assert_equal Process.pid, read_pid_file(f)
+      
+      # test_remove_pid_file
+      remove_pid_file(f)
+      assert_equal false, exist_pid_file?(f)
+    end
+  end
+end

data/vendor/qwik/util-safe.rb

@@ -0,0 +1,67 @@
+#
+# 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? '..'
+
+#class TooLongLine < StandardError; end
+class TooLongLine < Exception; end	# FIXME: should be StandardError.
+
+module SafeGetsModule
+  def safe_gets (max_length = 1024)
+    s = ''
+    while ! self.eof?
+      c = self.read(1)		# FIXME: This code may be slow.
+      s << c
+
+      if max_length < s.length
+	raise TooLongLine
+      end
+
+      if c == "\n"
+	return s
+      end
+    end
+
+    res = if s.empty? then nil else s end
+    return res
+  end
+end
+
+class IO
+  include SafeGetsModule
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  require 'stringio'
+  $test = true
+end
+
+if defined?($test) && $test
+  class StringIO
+    include SafeGetsModule
+  end
+
+  class TestUtilSafe < Test::Unit::TestCase
+    def test_safe_gets
+      # under max
+      line = 'a' * 1024
+      assert_equal line, StringIO.new(line).gets
+      assert_equal line, StringIO.new(line).safe_gets
+
+      # over max
+      line = 'a' * 1025
+      assert_equal line, StringIO.new(line).gets
+      assert_raise(TooLongLine) {
+	assert_equal line, StringIO.new(line).safe_gets
+      }
+    end
+  end
+end

data/vendor/qwik/util-sendmail.rb

@@ -0,0 +1,273 @@
+#
+# 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 'socket'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/mail'
+require 'qwik/util-charset'
+
+module Qwik
+  class Sendmail
+    def initialize(host, port, test=false)
+      @host, @port = host, port
+      @test = test
+    end
+
+    def send(mail)
+      Sendmail.send(@host, @port, mail[:from], mail[:to], mail[:subject],
+		    mail[:content], @test)
+    end
+
+    # FIXME: This method is too ad hoc.
+    def self.send(host, port, from, to, subject, body, test)
+      efrom    = QuickML::Mail.encode_field(from.to_s)
+      eto      = QuickML::Mail.encode_field(to.to_s)
+      esubject = QuickML::Mail.encode_field(subject)
+      body = body.set_sourcecode_charset.to_mail_charset
+      message =
+"From: #{efrom}
+To: #{eto}
+Subject: #{esubject}
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+#{body}
+"
+      if test
+	$smtp_sendmail = [host, port, efrom, eto, message]
+	return message	# for debug
+      end
+
+      require 'net/smtp'
+      Net::SMTP.start(host, port) {|smtp|
+	smtp.send_mail(message, from, to)
+      }
+      return nil
+    end
+  end
+end
+
+class Sendmail
+  def self.send_mail (smtp_host, smtp_port, logger, mail)
+    validate_mail(mail)
+
+    msg = build_message(mail)
+
+    result = nil
+    begin
+      config = Sendmail.prepare_config(smtp_host, smtp_port, true)
+      s = Sendmail.open_socket(config)
+
+      myhostname = config[:test] ? 'sender' : Socket.gethostname
+
+      Sendmail.send_to_socket(config, s, myhostname, msg,
+			      mail[:mail_from], mail[:recipient])
+      result = s
+    rescue => e
+      logger.log "Error: Unable to send mail: #{e.class}: #{e.message}"
+    end
+
+    if $test
+      $quickml_sendmail = [smtp_host, smtp_port,
+	mail[:mail_from], mail[:recipient], msg]
+    end
+
+    return result	# Only for test
+  end
+
+  private
+
+  def self.validate_mail(mail)
+    if mail[:mail_from].nil? ||
+	mail[:recipient].nil? ||
+	mail[:header].nil? ||
+	mail[:body].nil?
+      raise "Missing mail header."
+    end
+
+    mail[:recipient] = [mail[:recipient]] if mail[:recipient].kind_of?(String)
+  end
+
+  def self.build_message(mail)
+    return mail[:header].map {|field|
+      key, value = field
+      "#{key}: #{value}\n"
+    }.join+"\n"+mail[:body]
+  end
+
+  def self.prepare_config(smtp_host, smtp_port,
+			  use_xverp = false, test = false)
+    test = true if defined?($test) && $test
+    config = {
+      :smtp_port => smtp_port,
+      :smtp_host => smtp_host,
+      :use_xverp => use_xverp,
+      :xverp_available => false,
+      :test => test,
+    }
+    return config
+  end
+
+  def self.open_socket(c)
+    klass = c[:test] ? MockSmtpServer : TCPSocket
+    s = $ml_sm = klass.open(c[:smtp_host], c[:smtp_port]) # $ml_sm is for test
+    return s
+  end
+
+  def self.send_to_socket(c, s, myhostname, message, mail_from, recipients)
+    recipients = [recipients] if recipients.kind_of?(String)
+
+    send_command(c, s, nil, 220)
+
+    send_command(c, s, "EHLO #{myhostname}", 250)
+
+    if c[:use_xverp] and c[:xverp_available] and (not mail_from.empty?)
+      send_command(c, s, "MAIL FROM: <#{mail_from}> XVERP===", 250)
+    else
+      send_command(c, s, "MAIL FROM: <#{mail_from}>", 250)
+    end
+
+    recipients.each {|recipient|
+      send_command(c, s, "RCPT TO: <#{recipient}>", 250)
+    }
+
+    send_command(c, s, 'DATA', 354)
+
+    message.each_line {|line|
+      line.sub!(/\r?\n/, "")
+      line.sub!(/^\./, '..')
+      line << "\r\n"
+      s.print(line)
+    }
+
+    send_command(c, s, '.', 250)
+    send_command(c, s, 'QUIT', 221)
+
+    s.close
+  end
+
+  def self.send_command (c, s, command, code)
+    s.print(command + "\r\n") if command
+    begin
+      line = s.gets
+      c[:xverp_available] = true if /^250-XVERP/.match(line)
+    end while line[3] == ?-
+
+    return_code = line[0, 3].to_i
+    if return_code == code
+      line
+    else
+      raise "smtp-error: #{command} => #{line}"
+    end
+  end
+end
+
+def Sendmail(*args)
+  Sendmail.send_mail(*args)
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  require 'qwik/testunit'
+  require 'qwik/mock-sendmail'
+  require 'pp'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestSendmail < Test::Unit::TestCase
+    def test_all
+      sm = Qwik::Sendmail.new('127.0.0.1', '25', true)
+      mail = {
+	:from    => 'from@example.com',
+	:to      => 'to@example.com',
+	:subject => 'subject',
+	:content => 'content',
+      }
+      assert_equal "From: from@example.com
+To: to@example.com
+Subject: subject
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+content
+",
+	sm.send(mail)
+
+      mail = {
+	:from    => 'from@example.com',
+	:to      => 'to@example.com',
+	:subject => '�薼',
+	:content => '�{��',
+      }
+      assert_equal "From: from@example.com
+To: to@example.com
+Subject: =?ISO-2022-JP?B?GyRCQmpMPhsoQg==?=
+Content-Type: text/plain; charset=\"ISO-2022-JP\"
+
+\e$BK\\J8\e(B
+",
+	sm.send(mail)
+    end
+  end
+end
+
+if defined?($test) && $test
+  class TestSendmail < Test::Unit::TestCase
+    def test_all
+      c = Sendmail
+
+      # test_build_message
+      is "\n", c.build_message(:header=>[], :body=>'')
+      is "a: b\n\nc", c.build_message(:header=>[['a', 'b']], :body=>'c')
+      is "a: b\n\nc", c.build_message(:header=>[[:a, 'b']], :body=>'c')
+
+      # test_send
+      mail = {
+	:mail_from => '',
+	:recipient => '',
+	:header => [],
+	:body => '',
+      }
+      so = Sendmail('localhost', 25, nil, mail)
+      is "EHLO sender
+MAIL FROM: <>
+RCPT TO: <>
+DATA
+
+.
+QUIT",
+	so.buffer.join("\n")
+
+      mail = {
+	:mail_from => 'alice@example.com',
+	:recipient => 'bob@example.com',
+	:header => [
+	  ['To', 'bob@example.com'],
+	  ['From', 'alice@example.com'],
+	  ['Subject', 'test'],
+	],
+	:body => 'This is a test.',
+      }
+      so = Sendmail('localhost', 25, false, mail)
+      is "EHLO sender
+MAIL FROM: <alice@example.com>
+RCPT TO: <bob@example.com>
+DATA
+To: bob@example.com
+From: alice@example.com
+Subject: test
+
+This is a test.
+.
+QUIT",
+	so.buffer.join("\n")
+    end
+  end
+end

data/vendor/qwik/util-string.rb

@@ -0,0 +1,203 @@
+#encoding: sjis
+# 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 'md5'
+
+$LOAD_PATH << 'compat' unless $LOAD_PATH.include? 'compat'
+require 'base64'
+
+$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
+require 'qwik/util-charset'
+
+class String
+  def xchomp
+    return self.chomp("\n").chomp("\r")
+  end
+
+  # Used from parser.rb
+  def chompp
+    return self.sub(/[\n\r]+\z/, '')
+  end
+
+  def normalize_eol
+    return self.xchomp+"\n"
+  end
+
+  def normalize_newline
+    return self.gsub("\r\n", "\n").gsub("\r", "\n")
+  end
+
+  def sub_str(pattern, replace)
+    return sub(Regexp.new(Regexp.escape(pattern)), replace)
+  end
+
+  def md5
+    return MD5.digest(self)
+  end
+
+  def md5hex
+    return MD5.hexdigest(self)
+  end
+
+  def base64
+    return Base64.encode64(self).chomp
+  end
+
+  # ============================== escape
+  # Copied from cgi.rb
+  def escape
+    return self.gsub(/([^ a-zA-Z0-9_.-]+)/n) {
+      '%' + $1.unpack('H2' * $1.size).join('%').upcase
+    }.tr(' ', "+")
+  end
+
+  def unescape
+    return self.tr("+", ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n) {
+      [$1.delete('%')].pack('H*')
+    }
+  end
+
+  def unescapeHTML
+    return self.gsub(/&(.*?);/n) {
+      match = $1.dup
+      case match
+      when /\Aamp\z/ni	then "&"
+      when /\Aquot\z/ni	then "'"
+      when /\Agt\z/ni	then ">"
+      when /\Alt\z/ni	then "<"
+      else
+	"&#{match};"
+      end
+    }
+  end
+
+  def mb_length
+    case self.charset || self.guess_charset
+    when 'UTF-8';       return self.split(//u).length
+    when 'Shift_JIS';   return self.split(//s).length
+    when 'EUC-JP';      return self.split(//e).length
+    end
+    return self.length
+  end
+
+  def mb_substring(s,e)
+    case self.charset || self.guess_charset
+    when 'UTF-8';       return self.split(//u)[s...e].to_s
+    when 'Shift_JIS';   return self.split(//s)[s...e].to_s
+    when 'EUC-JP';      return self.split(//e)[s...e].to_s
+    end
+    return self[s...e]
+  end
+ 
+  # Copied from gonzui-0.1
+  # Use this method instead of WEBrick::HTMLUtils.escape for performance reason.
+  EscapeTable = {
+    "&" => "&amp;",
+    '"' => "&quot;",
+    '<' => "&lt;",
+    '>' => "&gt;",
+  }
+  def escapeHTML
+    string = self
+    return string.gsub(/[&"<>]/n) {|x| EscapeTable[x] }
+  end
+end
+
+if $0 == __FILE__
+  require 'test/unit'
+  $test = true
+end
+
+if defined?($test) && $test
+  class TestString < Test::Unit::TestCase
+    def test_string
+      # test_xchomp
+      assert_equal '', ''.xchomp
+      assert_equal '', "\n".xchomp
+      assert_equal '', "\r".xchomp
+      assert_equal '', "\r\n".xchomp
+      assert_equal "\n", "\n\r".xchomp
+      assert_equal 't', 't'.xchomp
+      assert_equal 't', "t\r".xchomp
+      assert_equal 't', "t\n".xchomp
+
+      # test_chompp
+      assert_equal '', "\n\r".chompp
+      assert_equal '', "\n\r\n\r".chompp
+
+      # test_normalize_eol
+      assert_equal "\n", ''.normalize_eol
+      assert_equal "\n", "\n".normalize_eol
+      assert_equal "t\n", 't'.normalize_eol
+      assert_equal "t\n", "t\n".normalize_eol
+
+      # test_normalize_newline
+      assert_equal "\n", "\n".normalize_newline
+      assert_equal "\n", "\r".normalize_newline
+      assert_equal "\n", "\r\n".normalize_newline
+      assert_equal "\n\n", "\n\r".normalize_newline
+      assert_equal "\na\n", "\ra\r".normalize_newline
+      assert_equal "\na\n", "\r\na\r\n".normalize_newline
+      assert_equal "\n\na\n\n", "\n\ra\n\r".normalize_newline
+
+      # test_sub_str
+      assert_equal 'a:b', 'a*b'.sub_str('*', ':')
+
+      # test_md5
+      assert_instance_of String, 't'.md5
+      assert_equal 16, 't'.md5.length
+      assert_equal "\343X\357\244\211\365\200b\361\r\3271ked\236", 't'.md5
+      assert_instance_of String, 't'.md5hex
+      assert_equal 32, 't'.md5hex.length
+      assert_equal 'e358efa489f58062f10dd7316b65649e', 't'.md5hex
+      assert_equal 'dA==', 't'.base64
+    end
+
+    def test_escape
+      # test_escape
+      assert_equal('A', 'A'.escape)
+      assert_equal("+", ' '.escape)
+      assert_equal('%2B', "+".escape)
+      assert_equal('%21', "!".escape)
+      assert_equal("ABC%82%A0%82%A2%82%A4+%2B%23", "ABC������ +#".escape)
+
+      # test_unescape
+      assert_equal('A', '%41'.unescape)
+      assert_equal(' ', "+".unescape)
+      assert_equal("!", '%21'.unescape)
+      assert_equal("ABC������ +#", "ABC%82%A0%82%A2%82%A4+%2B%23".unescape)
+
+      # test_escapeHTML
+      assert_equal("&lt;", "<".escapeHTML)
+      assert_equal("&gt;", ">".escapeHTML)
+      assert_equal("&amp;", "&".escapeHTML)
+      assert_equal("&lt;a href=&quot;http://e.com/&quot;&gt;e.com&lt;/a&gt;",
+		   '<a href="http://e.com/">e.com</a>'.escapeHTML)
+
+      # test_unescapeHTML
+      assert_equal("<", "&lt;".unescapeHTML)
+      assert_equal(">", "&gt;".unescapeHTML)
+      assert_equal("&", "&amp;".unescapeHTML)
+      assert_equal("<a href='http://e.com/'>e.com</a>",
+		   "&lt;a href=&quot;http://e.com/&quot;&gt;e.com&lt;/a&gt;".unescapeHTML)
+    end
+
+    def test_mb_length
+      str = "���{�ꕶ����"
+      assert_equal(6,str.mb_length)
+
+      str = "English"
+      assert_equal(7,str.mb_length)
+    end
+
+    def test_mb_substring
+      str = "���{�ꕶ����"
+      assert_equal("�{�ꕶ",str.mb_substring(1,4))
+
+      str = "English"
+      assert_equal("ngl",str.mb_substring(1,4))
+    end
+  end
+end