keystone 0.0.29

data/util/bin/disk_size_check.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/ruby
+
+require 'rubygems'
+require 'keystone'
+require 'pit'
+
+include Keystone::Batch::Base
+
+ENV["EDITOR"] = "vi" unless ENV.key?("EDITOR")
+
+config = Pit.get("disk_size_check", :require => {
+        "smtp_addr" => "smtp_server_address",
+        "mailto" => "mailto",
+        "mailfrom" => "mailfrom"
+})
+
+SMTP_ADDR = config["smtp_addr"]
+MAIL_TO = [config["mailto"]]
+ERROR_MAIL_TO = MAIL_TO
+MAIL_FROM = config["mailfrom"]
+
+@os = Keystone::Os.get()
+
+def send_alert_mail(additional_body = "")
+  title = 'disk size alert'
+  body  = <<-BODY
+disk size alert at #{@os.hostname}(#{@os.ip_address.join(" , ")})
+#{@df_result}
+#{additional_body}
+BODY
+
+  Keystone::Mail::Send.send(
+    MAIL_FROM,
+    MAIL_TO,
+    title,
+    body,
+    {:smtp_addr=>SMTP_ADDR,:retry_cnt=>3}
+  )
+end
+
+execute() do
+  limit = 80
+  limit = Integer(ARGV[0]) if ARGV.size > 0
+
+  @df_result = @os.disk
+  @df_result.gsub(/(\d+)%/){|s|
+    if $1.to_i >= limit
+      warn 'log size alert'
+      send_alert_mail
+      break
+    end
+  }
+end
+

data/util/bin/notice

@@ -0,0 +1,93 @@
+#!/usr/bin/ruby
+
+require 'rubygems'
+require 'activesupport'
+require 'meow'
+require 'pit'
+require 'keystone'
+
+config = Pit.get("notice")
+MAIL_TO = config["mailto"]
+MAIL_FROM = config["mailfrom"]
+
+def ppp(message)
+  print message
+  STDOUT.flush
+end
+
+class GrowlMessage
+  attr_accessor :execute_at,:message
+  def initialize
+    @message = ""
+    @execute_at = Time.now
+  end
+end
+
+if ARGV.size > 0 && ARGV[0] == "-f"
+  message = Marshal.load(File.open(ARGV[1]))
+  File.delete(ARGV[1])
+  loop do
+    break if message.execute_at < Time.now
+    sleep 30
+  end
+  
+  begin
+    Keystone::Mail::Send.send(MAIL_FROM,MAIL_TO,message.message,message.message)
+  rescue 
+  end
+  
+  meep = Meow.new("growl_notify")
+  option = {:sticky=>true,:priority=>1}
+  message_text = "#{message.execute_at.strftime("%Y/%m/%d %H:%M:%S")}\n#{message.message}"
+  meep.notify("growl_notify",message_text,option)
+  exit
+end
+
+INPUT_TIME_MESSAGE = "when?(NN(minutes later) or NNh(hours later) or HH:MM(time format)):"
+message = GrowlMessage.new
+
+ppp "message:"
+STDIN.each_line do |line|
+  line.chomp!
+  exit if line == ""
+  message.message = line
+  break
+end
+
+ppp INPUT_TIME_MESSAGE
+STDIN.each_line do |line|
+  line.chomp!
+  minutes = 5
+  begin
+    minutes = Integer(line)
+    message.execute_at += minutes * 60
+    break
+  rescue
+    begin
+      if line =~ /(\d+):(\d+)/
+        hour,minute= Integer($1),Integer($2)
+        execute_at_candidate = message.execute_at.change(:hour => hour,:min => minute)
+        if execute_at_candidate < message.execute_at
+          execute_at_candidate += 60 * 60 * 24
+        end
+        message.execute_at = execute_at_candidate
+        break
+      elsif line =~ /(\d+)h/
+        hours = Integer($1)
+        message.execute_at += hours * 60 * 60
+        break
+      end
+    rescue => e
+      puts e
+    end
+  end
+  puts "invalid format"
+  ppp INPUT_TIME_MESSAGE
+end
+
+path = "/tmp/.gw_message.#{Time.now.tv_usec}"
+Marshal.dump(message,File.new(path, 'w'))
+cmd = "notice -f #{path} &"
+#puts cmd
+system cmd
+

data/util/bin/ve2tar.rb

@@ -0,0 +1,80 @@
+#!/usr/bin/ruby
+
+require 'rubygems'
+require 'keystone'
+
+include Keystone::Batch::Base
+
+####################################################################
+VEIDS = ["170161"]
+PRIVATE_DIR = "/vz/private"
+BACKUP_DIR = "/cluster/dsk0/backup/vz"
+# replace string __VEID__
+EXCLUDES = ["/vz/private/__VEID__/usr/local/rails/tubebox/shared/movie"] 
+# replace string __VEID__
+TAR_FILE_NAME = "__VEID__-#{Time.now.strftime("%Y%m%d")}.tar.gz"
+####################################################################
+
+execute do
+  raise "PRIVATE_DIR not set" if PRIVATE_DIR.blank?
+  raise "BACKUP_DIR not set" if BACKUP_DIR.blank?
+
+  VEIDS.each do |veid|
+    vedir = "#{PRIVATE_DIR}/#{veid}"
+    backupdir = "#{BACKUP_DIR}/#{veid}/"
+    backupfile = "#{BACKUP_DIR}/#{veid}/#{TAR_FILE_NAME}".gsub(/__VEID__/,veid)
+    FileUtils.mkdir_p(backupdir)
+    (error "#{backupdir} not found";next) unless File.directory?(backupdir)
+    (error "veid #{veid} not found";next) unless File.exists?("#{PRIVATE_DIR}/#{veid}")
+    #(error "veid #{veid} still running";next) if ` /usr/sbin/vzlist #{veid}|/bin/grep running -c`.strip != "1"
+
+    exclude = ""
+    EXCLUDES.each{|exc| exclude += " --exclude=#{exc.gsub(/__VEID__/,veid)} "}
+    
+    cmds = ["/usr/sbin/vzctl stop #{veid}",
+      "/bin/tar #{exclude} -cvzf #{backupfile} #{vedir} /etc/vz/conf/#{veid}.conf",
+      "/usr/sbin/vzctl start #{veid}"]
+
+    cmds.each do |cmd| 
+      puts cmd
+      `#{cmd}` unless $DEBUG
+    end
+  end
+end
+
+__END__
+
+original
+
+VEID=$1
+VEPRIVATEDIR=$2
+TARFILENAME=$3
+
+if [ "${VEID}" = "" ]; then
+    echo "usage: $0 <VEID> <VEPRIVATEDIR> <TAR FILE NAME>"
+    exit
+fi
+if [ "${VEPRIVATEDIR}" = "" ]; then
+  echo "usage: $0 <VEID> <VEPRIVATEDIR> <TAR FILE NAME>"
+    exit
+fi
+if [ "${TARFILENAME}" = "" ]; then
+  echo "usage: $0 <VEID> <VEPRIVATEDIR> <TAR FILE NAME>"
+    exit
+fi
+
+if [ ! -d ${VEPRIVATEDIR}/${VEID} ]; then
+    echo "error: VEID is not exist"
+    exit
+fi
+
+if [ ` /usr/sbin/vzlist ${VEID}|/bin/grep running -c` -gt 0  ]; then
+        echo "you must stop ve "
+        echo `/usr/sbin/vzlist ${VEID}|/bin/grep running`
+        exit
+fi
+
+#/bin/tar --ignore-failed-read --exclude=./mnt --exclude=./u01/mydata                   --exclude=./u01/mytmp --exclude=./u01/myarclog --exclude=./u01/mybackup                   --exclude=./u02/mydata  --exclude=./u02/mytmp --exclude=./u02/myarclog                   --exclude=./u02/mybackup --exclude=./d01 --exclude=./var/spool/upgrade                   --exclude=./proc --exclude=./lost+found --exclude=./sys                   --exclude=./usr/local/vlmail/logs/history                   -cvzf ${TARFILENAME}  /cluster/dsk0/vz/private/${VEID}  /etc/vz/conf/${VEID}.conf
+/bin/tar -cvzf ${TARFILENAME} ${VEPRIVATEDIR}/${VEID}  /etc/vz/conf/${VEID}.conf
+
+exit

data/vendor/flag_set_maker.rb

@@ -0,0 +1,121 @@
+require "forwardable"
+
+
+module FlagSetMaker
+  
+  
+  class FlagSet
+    
+    def initialize(mod, names, zero= nil)
+      @module= mod
+      @flag_names= names.to_a()
+      @zero_name= zero
+      for i in 0...@flag_names.size
+        mod.const_set(@flag_names[i], Flags.new(1 << i, self))
+      end
+      mod.const_set(@zero_name, Flags.new(0, self)) if @zero_name
+    end
+    
+    def to_s(v)
+      names= []
+      @flag_names.each_with_index(){ |name, i| names.push(name) if v[i]==1 }
+      if names.empty?()
+        return (@zero_name.to_s() || "0")
+      elsif names.size==1
+        return names[0].to_s()
+      else
+        return "("+names.join("|")+")"
+      end
+    end
+    
+    def inspect(v= nil)
+      return v ? format("%p::%s", @module, to_s(v)) : super()
+    end
+    
+    def validate(v)
+      return v&((1 << @flag_names.size)-1)
+    end
+    
+  end
+  
+  
+  class Flags
+    
+    extend(Forwardable)
+    
+    def initialize(v, fs)
+      @value= fs.validate(v)
+      @flag_set= fs
+    end
+    
+    def to_i()
+      return @value
+    end
+    
+    def to_s()
+      return @flag_set.to_s(@value)
+    end
+    
+    def inspect()
+      return @flag_set.inspect(@value)
+    end
+    
+    def ==(rhs)
+      return rhs.is_a?(Flags) && @flag_set==rhs.flag_set && @value==rhs.to_i()
+    end
+    
+    alias :eql? :==
+    
+    def_delegators(:to_i, :hash)
+    
+    def &(rhs)
+      return new_flag(@value&rhs.to_i())
+    end
+    
+    def |(rhs)
+      return new_flag(@value|rhs.to_i())
+    end
+    
+    def ~()
+      return new_flag(~@value)
+    end
+    
+    def include?(flags)
+      return (@value&flags.to_i())==flags.to_i()
+    end
+    
+    def empty?()
+      return @value!=0
+    end
+    
+  protected
+    
+    attr_reader(:flag_set)
+    
+  private
+    
+    def new_flag(v)
+      return Flags.new(v, @flag_set)
+    end
+    
+  end
+  
+  
+  def make_flag_set(*args)
+    FlagSet.new(self, *args)
+  end
+  
+end
+
+
+if __FILE__==$0
+  
+  class Hoge
+    
+    extend(FlagSetMaker)
+    
+    make_flag_set([:FOO, :BAR, :HOGE], :NONE)
+    
+  end
+  
+end

data/vendor/moji.rb

@@ -0,0 +1,502 @@
+#このファイルの文字コードはUTF-8です。
+#このファイルをUnicode非対応のエディタで編集してはいけません（〜が文字化ける）。
+
+=begin
+
+=Moji モジュール
+
+日本語の文字種判定、文字種変換(半角→全角、ひらがな→カタカナなど)を行います。
+
+==インストール:
+
+解凍してできた moji ディレクトリの中で以下のコマンドを実行してください。
+
+  # ruby setup.rb
+
+または、 moji/lib の中の moji.rb と flag_set_maker.rb を lib/ruby/site_ruby/1.8 にコピーしてください。
+
+==使い方:
+
+(({$KCODE})) を指定してから (({require "moji"})) してください。
+Moji モジュールの関数に渡す文字列の文字コードは (({$KCODE})) と一致させてください。
+
+  $KCODE= "UTF8"
+  require "moji"
+  
+  #文字種判定。
+  p Moji.type("漢")                                    # => Moji::ZEN_KANJI
+  p Moji.type?("Ａ", Moji::ZEN)                        # => true
+  
+  #文字種変換。
+  p Moji.zen_to_han("Ｒｕｂｙ")                        # => "Ruby"
+  p Moji.upcase("Ｒｕｂｙ")                            # => "ＲＵＢＹ"
+  p Moji.kata_to_hira("ルビー")                        # => "るびー"
+  
+  #文字種による正規表現。
+  p /#{Moji.kata}+#{Moji.hira}+/ =~ "ぼくドラえもん"   # => 6
+  p Regexp.last_match.to_s                             # => "ドラえもん"
+
+==定数:
+
+以下の定数は、文字種の一番細かい分類です。
+(({Moji.type})) が返すのは、以下の定数のうちの1つです。
+
+--- HAN_CONTROL
+    制御文字。
+--- HAN_ASYMBOL
+    ASCIIに含まれる半角記号。
+--- HAN_JSYMBOL
+    JISに含まれるがASCIIには含まれない半角記号。
+--- HAN_NUMBER
+    半角数字。
+--- HAN_UPPER
+    半角アルファベット大文字。
+--- HAN_LOWER
+    半角アルファベット小文字。
+--- HAN_KATA
+    半角カタカナ。
+--- ZEN_ASYMBOL
+    JISの全角記号のうち、ASCIIに対応する半角記号があるもの。
+--- ZEN_JSYMBOL
+    JISの全角記号のうち、ASCIIに対応する半角記号がないもの。
+--- ZEN_NUMBER
+    全角数字。
+--- ZEN_UPPER
+    全角アルファベット大文字。
+--- ZEN_LOWER
+    全角アルファベット小文字。
+--- ZEN_HIRA
+    ひらがな。
+--- ZEN_KATA
+    全角カタカナ。
+--- ZEN_GREEK
+    ギリシャ文字。
+--- ZEN_CYRILLIC
+    キリル文字。
+--- ZEN_LINE
+    罫線のかけら。
+--- ZEN_KANJI
+    漢字。
+
+以下の定数は、上の文字種の組み合わせと別名です。
+
+--- HAN_SYMBOL
+    JISに含まれる半角記号。(({HAN_ASYMBOL | HAN_JSYMBOL}))
+--- HAN_ALPHA
+    半角アルファベット。(({HAN_UPPER | HAN_LOWER}))
+--- HAN_ALNUM
+    半角英数字。(({HAN_ALPHA | HAN_NUMBER}))
+--- HAN
+    全ての半角文字。(({HAN_CONTROL | HAN_SYMBOL | HAN_ALNUM | HAN_KATA}))
+--- ZEN_SYMBOL
+    JISに含まれる全角記号。(({ZEN_ASYMBOL | ZEN_JSYMBOL}))
+--- ZEN_ALPHA
+    全角アルファベット。(({ZEN_UPPER | ZEN_LOWER}))
+--- ZEN_ALNUM
+    全角英数字。(({ZEN_ALPHA | ZEN_NUMBER}))
+--- ZEN_KANA
+    全角かな/カナ。(({ZEN_KATA | ZEN_HIRA}))
+--- ZEN
+    JISに含まれる全ての全角文字。(({ZEN_SYMBOL | ZEN_ALNUM | ZEN_KANA | ZEN_GREEK | ZEN_CYRILLIC | ZEN_LINE | ZEN_KANJI}))
+--- ASYMBOL
+    ASCIIに含まれる半角記号とその全角版。(({HAN_ASYMBOL | ZEN_ASYMBOL}))
+--- JSYMBOL
+    JISに含まれるが (({ASYMBOL})) には含まれない全角/半角記号。(({HAN_JSYMBOL | ZEN_JSYMBOL}))
+--- SYMBOL 
+    JISに含まれる全ての全角/半角記号。(({HAN_SYMBOL | ZEN_SYMBOL}))
+--- NUMBER
+    全角/半角数字。(({HAN_NUMBER | ZEN_NUMBER}))
+--- UPPER
+    全角/半角アルファベット大文字。(({HAN_UPPER | ZEN_UPPER}))
+--- LOWER
+    全角/半角アルファベット小文字。(({HAN_LOWER | ZEN_LOWER}))
+--- ALPHA
+    全角/半角アルファベット。(({HAN_ALPHA | ZEN_ALPHA}))
+--- ALNUM
+    全角/半角英数字。(({HAN_ALNUM | ZEN_ALNUM}))
+--- HIRA
+    (({ZEN_HIRA})) の別名。
+--- KATA
+    全角/半角カタカナ。(({HAN_KATA | ZEN_KATA}))
+--- KANA
+    全角/半角 かな/カナ。(({KATA | ZEN_HIRA}))
+--- GREEK
+    (({ZEN_GREEK})) の別名。
+--- CYRILLIC
+    (({ZEN_CYRILLIC})) の別名。
+--- LINE
+    (({ZEN_LINE})) の別名。
+--- KANJI
+    (({ZEN_KANJI})) の別名。
+--- ALL
+    上記全ての文字。
+
+==モジュール関数:
+
+--- Moji.type(ch)
+    
+    文字 ((|ch|)) の文字種を返します。
+    
+    「一番細かい分類」の((<定数|定数:>))のうち1つを返します。
+    
+    上の分類に当てはまらない文字(Unicodeのハングルなど)に対しては (({nil})) を返します。
+    また、UnicodeのB面以降の文字に対しても (({nil})) を返します。
+    
+    文字が割り当てられていない文字コードに対する結果は不定です( (({nil})) を返す事もあります)。
+    
+      p Moji.type("漢")   # => Moji::ZEN_KANJI
+    
+--- Moji.type?(ch, type)
+    
+    文字 ((|ch|)) が文字種 ((|type|)) に含まれれば、 (({true})) を返します。
+    
+    ((|type|)) には全ての((<定数|定数:>))と、それらを (({|}))
+    で結んだものを使えます。
+    
+      p Moji.type?("Ａ", Moji::ZEN)   # => true
+    
+--- Moji.regexp(type)
+    
+    文字種 ((|type|)) の1文字を表す正規表現を返します。
+    
+    ((|type|)) には全ての((<定数|定数:>))と、それらを (({|}))
+    で結んだものを使えます。
+    
+      p Moji.regexp(Moji::HIRA)   # => /[ぁ-ん]/
+    
+--- Moji.zen_to_han(str[, type])
+    
+    文字列 ((|str|)) の全角を半角に変換して返します。
+    
+    ((|type|)) には、変換対象とする文字種を((<定数|定数:>))で指定します。
+    デフォルトは (({ALL})) (全て)です。
+    
+      p Moji.zen_to_han("Ｒｕｂｙ！？")                # => "Ruby!?"
+      p Moji.zen_to_han("Ｒｕｂｙ！？", Moji::ALPHA)   # => "Ruby！？"
+    
+--- Moji.han_to_zen(str[, type])
+    
+    文字列 ((|str|)) の半角を全角に変換して返します。
+    
+    ((|type|)) には、変換対象とする文字種を((<定数|定数:>))で指定します。
+    デフォルトは (({ALL})) (全て)です。
+    
+      p Moji.han_to_zen("Ruby!?")                 # => "Ｒｕｂｙ！？"
+      p Moji.han_to_zen("Ruby!?", Moji::SYMBOL)   # => "Ruby！？"
+    
+--- Moji.normalize_zen_han(str)
+    
+    文字列 ((|str|)) の大文字、小文字を一般的なものに統一します。
+    
+    具体的には、ASCIIに含まれる記号と英数字( (({ALNUM|ASYMBOL}))
+    )を半角に、それ以外の記号とカタカナ( (({JSYMBOL|HAN_KATA})) )を全角に変換します。
+    
+--- Moji.upcase(str[, type])
+    
+    文字列 ((|str|)) の小文字を大文字に変換して返します。
+    
+    ((|type|)) には、変換対象とする文字種を((<定数|定数:>))で指定します。
+    デフォルトは (({LOWER})) (全角/半角のアルファベット)です。
+    ギリシャ文字、キリル文字には対応していません。
+    
+      p Moji.upcase("Ｒｕｂｙ")   # => "ＲＵＢＹ"
+    
+--- Moji.downcase(str[, type])
+    
+    文字列 ((|str|)) の小文字を大文字に変換して返します。
+    
+    ((|type|)) には、変換対象とする文字種を((<定数|定数:>))で指定します。
+    デフォルトは (({UPPER})) (全角/半角のアルファベット)です。
+    ギリシャ文字、キリル文字には対応していません。
+    
+      p Moji.downcase("Ｒｕｂｙ")   # => "ｒｕｂｙ"
+    
+--- Moji.kata_to_hira(str)
+    
+    文字列 ((|str|)) の全角カタカナをひらがなに変換して返します。
+    
+    半角カタカナは直接変換できません。 (({han_to_zen})) で全角にしてから変換してください。
+    
+      p Moji.kata_to_hira("ルビー")   # => "るびー"
+    
+--- Moji.hira_to_kata(str)
+    
+    文字列 ((|str|)) のひらがなを全角カタカナに変換して返します。
+    
+      p Moji.hira_to_kata("るびー")   # => "ルビー"
+    
+--- Moji.han_control
+--- Moji.han_asymbol
+--- ...
+--- Moji.kana
+--- ...
+    
+    ((<定数|定数:>))それぞれに対応するメソッドが有り、
+    それぞれの文字種の1文字を表す正規表現を返します。
+    
+    例えば、 (({Moji.kana})) は (({Moji.regexp(Moji::KANA)})) と同じです。
+    
+    以下の例のように、文字クラスっぽく使えます。
+      p /#{Moji.kata}+#{Moji.hira}+/ =~ "ぼくドラえもん"   # => 6
+      p Regexp.last_match.to_s                             # => "ドラえもん"
+    
+==動作環境:
+
+たぶんRuby 1.8以降。
+
+FreeBSD Ruby 1.8.5にて動作確認しました。
+
+==置き場所/連絡先:
+
+置き場所: ((<URL:http://gimite.ddo.jp/pukiwiki/index.php?Ruby%BE%AE%CA%AA%BD%B8>))
+
+作者: Gimite 市川 (連絡先: ((<URL:http://gimite.ddo.jp/bbs/tnote.cgi>)) )
+
+==ライセンス:
+
+Public Domainです。煮るなり焼くなりご自由に。
+
+==更新履歴:
+
+2006/7/23 Ver.1.3
+*半角中黒(･)の字種判別、全角中黒との相互変換ができていなかったのを修正。(thanks to xyzzyさん)
+
+2006/10/5 Ver.1.2
+*EUC 以外の文字コードにも対応し、ライブラリ名を Moji に変更。
+*han_to_zen, zen_to_han の対象文字種のデフォルトを全て( (({ALL})) )に。
+*normalize_zen_han 追加。
+
+2005/1/3 Ver.1.1
+*(({$KCODE})) が指定されていないとEUCUtil.typeが正常動作しない問題を修正。
+*定数に (({ASYMBOL})) と (({JSYMBOL})) を追加。
+
+2004/11/16 Ver.1.0
+*EUCUtil 公開。
+
+=end
+
+
+if $KCODE=="NONE"
+  warn("Warning: Set $KCODE before requiring 'moji' (UTF8 assumed)")
+  $KCODE= "u"
+end
+
+require "nkf"
+require "jcode"
+require "enumerator"
+require "vendor/flag_set_maker"
+
+nkf_kcode= {"SJIS" => "s", "EUC" => "e"}[$KCODE]
+
+script= <<'EOS'
+
+
+module Moji
+  
+  extend(FlagSetMaker)
+  
+  module Detail
+    
+    HAN_ASYMBOL_LIST= ' !"#$%&\'()*+,-./:;<=>?@[\]^_`{|}~'
+    # ZEN_ASYMBOL_LIST= '　！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝￣'  # Keystone replaced
+    ZEN_ASYMBOL_LIST= '　！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～'
+    HAN_JSYMBOL1_LIST= '｡｢｣､ｰﾞﾟ･'
+    ZEN_JSYMBOL1_LIST= '。「」、ー゛゜・'
+    ZEN_JSYMBOL_LIST= '、。・゛゜´｀¨ヽヾゝゞ〃仝々〆〇ー―‐＼～〜∥…‥“〔〕〈〉《》「」『』【】'+
+      '±×÷≠≦≧∞∴♂♀°′″℃￠￡§☆★○●◎◇◇◆□■△▲▽▼※〒→←↑↓〓'
+    HAN_KATA_LIST= 'ﾊﾋﾌﾍﾎｳｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄｱｲｴｵﾅﾆﾇﾈﾉﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｬｭｮｯ'.split(//)
+    HAN_VSYMBOLS= ['', 'ﾞ', 'ﾟ']
+    ZEN_KATA_LISTS= [
+      'ハヒフヘホウカキクケコサシスセソタチツテトアイエオ'+
+        'ナニヌネノマミムメモヤユヨラリルレロワヲンァィゥェォャュョッ',
+      'バビブベボヴガギグゲゴザジズゼゾダヂヅデド',
+      'パピプペポ',
+    ].map(){ |s| s.split(//) }
+    
+  end
+  
+  def self.uni_range(*args)
+    if $KCODE=="UTF8"
+      str= args.map(){ |n| NKF.nkf("-wW160x", [n].pack("n")) }.
+        enum_slice(2).map(){ |f, e| "#{f}-#{e}" }.to_s()
+      return /[#{str}]/u
+    else
+      return nil
+    end
+  end
+  
+  make_flag_set([
+    :HAN_CONTROL, :HAN_ASYMBOL, :HAN_JSYMBOL, :HAN_NUMBER, :HAN_UPPER, :HAN_LOWER, :HAN_KATA,
+    :ZEN_ASYMBOL, :ZEN_JSYMBOL, :ZEN_NUMBER, :ZEN_UPPER, :ZEN_LOWER, :ZEN_HIRA, :ZEN_KATA,
+    :ZEN_GREEK, :ZEN_CYRILLIC, :ZEN_LINE, :ZEN_KANJI,
+  ])
+  
+  HAN_SYMBOL= HAN_ASYMBOL | HAN_JSYMBOL
+  HAN_ALPHA= HAN_UPPER | HAN_LOWER
+  HAN_ALNUM= HAN_ALPHA | HAN_NUMBER
+  HAN= HAN_CONTROL | HAN_SYMBOL | HAN_ALNUM | HAN_KATA
+  ZEN_SYMBOL= ZEN_ASYMBOL | ZEN_JSYMBOL
+  ZEN_ALPHA= ZEN_UPPER | ZEN_LOWER
+  ZEN_ALNUM= ZEN_ALPHA | ZEN_NUMBER
+  ZEN_KANA= ZEN_KATA | ZEN_HIRA
+  ZEN= ZEN_SYMBOL | ZEN_ALNUM | ZEN_KANA | ZEN_GREEK | ZEN_CYRILLIC | ZEN_LINE | ZEN_KANJI
+  ASYMBOL= HAN_ASYMBOL | ZEN_ASYMBOL
+  JSYMBOL= HAN_JSYMBOL | ZEN_JSYMBOL
+  SYMBOL= HAN_SYMBOL | ZEN_SYMBOL
+  NUMBER= HAN_NUMBER | ZEN_NUMBER
+  UPPER= HAN_UPPER | ZEN_UPPER
+  LOWER= HAN_LOWER | ZEN_LOWER
+  ALPHA= HAN_ALPHA | ZEN_ALPHA
+  ALNUM= HAN_ALNUM | ZEN_ALNUM
+  HIRA= ZEN_HIRA
+  KATA= HAN_KATA | ZEN_KATA
+  KANA= KATA | ZEN_HIRA
+  GREEK= ZEN_GREEK
+  CYRILLIC= ZEN_CYRILLIC
+  LINE= ZEN_LINE
+  KANJI= ZEN_KANJI
+  ALL= HAN | ZEN
+  
+  CHAR_REGEXPS= {
+    HAN_CONTROL => /[\x00-\x1f\x7f]/,
+    HAN_ASYMBOL =>
+      Regexp.new("["+Detail::HAN_ASYMBOL_LIST.gsub(/[\[\]\-\^\\]/){ "\\"+$& }+"]"),
+    HAN_JSYMBOL => Regexp.new("["+Detail::HAN_JSYMBOL1_LIST+"]"),
+    HAN_NUMBER => /[0-9]/,
+    HAN_UPPER => /[A-Z]/,
+    HAN_LOWER => /[a-z]/,
+    HAN_KATA => /[ｦ-ｯｱ-ﾝ]/,
+    ZEN_ASYMBOL => Regexp.new("["+Detail::ZEN_ASYMBOL_LIST+"]"),
+    ZEN_JSYMBOL => Regexp.new("["+Detail::ZEN_JSYMBOL_LIST+"]"),
+    ZEN_NUMBER => /[０-９]/,
+    ZEN_UPPER => /[Ａ-Ｚ]/,
+    ZEN_LOWER => /[ａ-ｚ]/,
+    ZEN_HIRA => /[ぁ-ん]/,
+    ZEN_KATA => /[ァ-ヶ]/,
+    ZEN_GREEK => /[Α-Ωα-ω]/,
+    ZEN_CYRILLIC => /[А-Яа-я]/,
+    ZEN_LINE => uni_range(0x2570, 0x25ff) || /[─-╂]/,
+    ZEN_KANJI => uni_range(0x3400, 0x9fff, 0xf900, 0xfaff) || /[亜-瑤]/,
+  }
+  
+  def type(ch)
+    ch=~/^./
+    ch= $&
+    for tp, reg in CHAR_REGEXPS
+      return tp if ch=~reg
+    end
+    return nil
+  end
+  
+  def type?(ch, tp)
+    return tp.include?(type(ch))
+  end
+  
+  def regexp(tp)
+    regs= []
+    for tp2, reg in CHAR_REGEXPS
+      regs.push(reg) if tp.include?(tp2)
+    end
+    return regs.size==1 ? regs[0] : Regexp.new(regs.join("|"))
+  end
+  
+  def zen_to_han(str, tp= ALL)
+    if tp.include?(ZEN_KATA)
+      reg= Regexp.new("["+Detail::ZEN_KATA_LISTS.to_s()+"]")
+      str= str.gsub(reg) do
+        for i in 0...3
+          pos= Detail::ZEN_KATA_LISTS[i].index($&)
+          break Detail::HAN_KATA_LIST[pos]+Detail::HAN_VSYMBOLS[i] if pos
+        end
+      end
+    end
+    str= str.tr("ａ-ｚ", "a-z") if tp.include?(ZEN_LOWER)
+    str= str.tr("Ａ-Ｚ", "A-Z") if tp.include?(ZEN_UPPER)
+    str= str.tr("０-９", "0-9") if tp.include?(ZEN_NUMBER)
+    str= str.tr(Detail::ZEN_ASYMBOL_LIST,
+      Detail::HAN_ASYMBOL_LIST.gsub(/[\-\^\\]/){ "\\"+$& }) if tp.include?(ZEN_ASYMBOL)
+    str= str.tr(Detail::ZEN_JSYMBOL1_LIST,
+      Detail::HAN_JSYMBOL1_LIST) if tp.include?(ZEN_JSYMBOL)
+    return str
+  end
+  
+  def han_to_zen(str, tp= ALL)
+    #[半]濁音記号がJSYMBOLに含まれるので、KATAの変換をJSYMBOLより前にやる必要あり。
+    if tp.include?(HAN_KATA)
+      str= str.gsub(/(#{han_kata})([ﾞﾟ]?)/) do
+        i= {""=>0, "ﾞ"=>1, "ﾟ"=>2}[$2]
+        pos= Detail::HAN_KATA_LIST.index($1)
+        s= Detail::ZEN_KATA_LISTS[i][pos]
+        (!s || s=="") ? Detail::ZEN_KATA_LISTS[0][pos]+$2 : s
+      end
+    end
+    str= str.tr("a-z", "ａ-ｚ") if tp.include?(HAN_LOWER)
+    str= str.tr("A-Z", "Ａ-Ｚ") if tp.include?(HAN_UPPER)
+    str= str.tr("0-9", "０-９") if tp.include?(HAN_NUMBER)
+    str= str.tr(Detail::HAN_ASYMBOL_LIST.gsub(/[\-\^\\]/){ "\\"+$& },
+      Detail::ZEN_ASYMBOL_LIST) if tp.include?(HAN_ASYMBOL)
+    str= str.tr(Detail::HAN_JSYMBOL1_LIST,
+      Detail::ZEN_JSYMBOL1_LIST) if tp.include?(HAN_JSYMBOL)
+    return str
+  end
+  
+  def normalize_zen_han(str)
+    return zen_to_han(han_to_zen(str, HAN_JSYMBOL|HAN_KATA), ZEN_ALNUM|ZEN_ASYMBOL)
+  end
+  
+  def upcase(str, tp= LOWER)
+    str= str.tr("a-z", "A-Z") if tp.include?(HAN_LOWER)
+    str= str.tr("ａ-ｚ", "Ａ-Ｚ") if tp.include?(ZEN_LOWER)
+  end
+  
+  def downcase(str, tp= UPPER)
+    str= str.tr("A-Z", "a-z") if tp.include?(HAN_UPPER)
+    str= str.tr("Ａ-Ｚ", "ａ-ｚ") if tp.include?(ZEN_UPPER)
+  end
+  
+  def kata_to_hira(str)
+    return str.tr("ァ-ン", "ぁ-ん")
+  end
+  
+  def hira_to_kata(str)
+    return str.tr("ぁ-ん", "ァ-ン")
+  end
+  
+  module_function(
+    :type, :type?, :regexp, :zen_to_han, :han_to_zen, :normalize_zen_han, :upcase, :downcase,
+    :kata_to_hira, :hira_to_kata
+  )
+  
+  def self.define_regexp_method(name, tp)
+    define_method(name){ regexp(tp) }
+    module_function(name)
+  end
+  
+  #han_control, han_asymbol, …などのモジュール関数を定義。
+  for cons in constants
+    val= const_get(cons)
+    define_regexp_method(cons.downcase(), val) if val.is_a?(FlagSetMaker::Flags)
+  end
+  
+  def self.test()
+    str= "ドラえもん(Doraemon)は、日本で1番有名な漫画だ。"
+    str.each_char() do |ch|
+      printf("%2s  %s\n", ch, Moji.type(ch))
+    end
+    str= Moji.zen_to_han(str, Moji::ALL)
+    puts(str)
+    str= Moji.han_to_zen(str, Moji::ALL)
+    puts(str)
+  end
+  
+end
+
+EOS
+
+script= NKF.nkf("-#{nkf_kcode}Wx", script) if nkf_kcode
+  #UTF-8の場合、nkfしてはいけない（～が〜になるので）。
+eval(script, TOPLEVEL_BINDING)
+
+if __FILE__==$0
+  Moji.test()
+end