fairy 0.6.0

data/lib/fairy/share/hash-simple-hash.rb

@@ -0,0 +1,28 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+require "simple_hash"
+
+module Fairy
+  module HValueGenerator
+    module SimpleHash
+      def SimpleHash.value(key)
+	case key
+	when String
+	  Fairy::SimpleHash.hash(key)
+	else
+	  ERR::Raise ERR::NoImpliment, "non-string key(#{key.inspect})"
+	end
+      end
+#      module_function :hash
+    end
+
+    def self.create_seed;end
+    def self.new(seed)
+      SimpleHash
+    end
+  end
+end
+

data/lib/fairy/share/inspector.rb

@@ -0,0 +1,16 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+module Fairy
+  class Inspector
+    def initialize(obj)
+      @obj = obj
+    end
+
+    def exec str
+      @obj.instance_eval str
+    end
+  end
+end

data/lib/fairy/share/lc/exceptions.rb

@@ -0,0 +1,82 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+require "e2mmap"
+
+module Fairy
+
+  class BreakCreateNode<Exception;end
+  class AbortCreateNode<Exception;end
+
+  module ERR
+    extend Exception2MessageMapper
+
+    def_exception :CantAcceptBlock,
+      "Can't accept block"
+    def_exception :NodeNotArrived, 
+      "Node don't arrived host(%s)"
+    def_exception :NoExistProcessorWithObject, 
+      "No Exists Processor within object(%s)"
+
+    def_exception :NoSuchMode, 
+      "No such mode(%s)"
+    def_exception :UnrecognizedOption,
+      "Unrecognized option(%s)"
+
+    def_exception :AlreadyAssignedVarriable,
+      "Already assigned varriable(%s)"
+
+    def_exception :NoAssignedVarriable,
+      "No assigned varriable(%s)"
+
+    def_exception :NoSupportClass,
+      "No support class(%s)"
+
+    def_exception :NoVFile,
+      "Not a vfile(%s)"
+
+    def_exception :IllegalVFile,
+      "Illegal vfile"
+
+    def_exception :NoImpliment,
+      "Yet, no impliment(%s)"
+
+    def_exception :NoSupportRubyEncoding,
+      "Ruby(%s) isn't support Encoding"
+
+    def_exception :NoTmpDir,
+      "No exists fairy tmp dir(CONF.TMP_DIR=%s)"
+
+    def_exception :NoLogDir,
+      "No exists fairy log dir(CONF.LOG_FILE=%s)"
+
+    def_exception :CantExecSubcmd,
+      "Can't execute subcommand(%s)"
+
+    module INTERNAL
+      extend Exception2MessageMapper
+
+      def_exception :NoSuchDefiledUserLevelFilter, 
+	"No such defined user level filter(%s)"
+
+      def_exception :CantDefExport, 
+	"Should have Service name except class(%s)"
+      def_exception :NoRegisterService,
+	"No register service(%s)"
+
+      def_exception :UndefinedPolicy, "Undefined policy(%s)"
+
+      def_exception :UndefinedBackendClass, "Undefined Backend Class"
+      def_exception :UndefinedNodeClass, "Undefined Node Class"
+
+      def_exception :ShouldDefineSubclass, "Should define subclass"
+
+      def_exception :ShouldNotSetInput, "Should not set input(%s)"
+
+      def_exception :MarshalQueueNotEmpty, "Marshal queue no empty"
+    end
+  end
+
+end

data/lib/fairy/share/lc/ja/exceptions.rb

@@ -0,0 +1,81 @@
+# -*- coding: utf-8 -*-
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+require "e2mmap"
+
+module Fairy
+  extend Exception2MessageMapper
+
+  class BreakCreateNode<Exception;end
+  class AbortCreateNode<Exception;end
+
+  module ERR
+    extend Exception2MessageMapper
+
+    def_exception :CantAcceptBlock,
+      "ブロックは受け付けられません" 
+    def_exception :NodeNotArrived, 
+      "%s のホスト上でnodeが立ち上がっていません"
+    def_exception :NoExistProcessorWithObject, 
+      "%s の存在するプロセッサは存在しません"
+    def_exception :NoSuchMode, 
+      "そのモードはありません(%s)"
+    
+    def_exception :UnrecognizedOption,
+      "そのオプションは分かりません(%s)"
+
+    def_exception :AlreadyAssignedVarriable,
+      "すでに変数(%s)は登録されています"
+    def_exception :NoAssignedVarriable,
+      "すでに変数(%s)は登録されていません"
+
+    def_exception :NoSupportClass,
+      "そのクラスはサポートしていません(%s)"
+
+    def_exception :NoVFile,
+      "VFileではありません(%s)"
+    def_exception :IllegalVFile,
+      "指定が間違っています"
+
+    def_exception :NoImpliment,
+      "まだ出来ていません(%s)"
+
+    def_exception :NoSupportRubyEncoding,
+      "Ruby(%s)ではエンコーディングの指定はできません"
+
+    def_exception :NoTmpDir,
+      "fairy用のテンポラリディレクトリが存在しません(CONF.TMP_DIR=%s)"
+
+    def_exception :NoLogDir,
+      "fairy用のログディレクトリが存在しません(CONF.LOG_FILE=%s)"
+
+    def_exception :CantExecSubcmd,
+      "サブコマンドが実行できません(%s)"
+
+    module INTERNAL
+      extend Exception2MessageMapper
+
+      def_exception :NoSuchDefiledUserLevelFilter, 
+	"ユーザーレベルフィルタ(%s)は定義されていません"
+      def_exception :CantDefExport, 
+	"クラス以外を登録するときにはサービス名が必要です(%s)"
+      def_exception :NoRegisterService,
+	"サービス名が登録されていません(%s)"
+
+      def_exception :UndefinedPolicy, "未サポートのポリシー(%s)"
+
+      def_exception :UndefinedBackendClass, "Backend Classが定義されていません"
+      def_exception :UndefinedNodeClass, "Node Classが定義されていません"
+
+      def_exception :ShouldDefineSubclass, "サブクラスで定義してください"
+
+      def_exception :ShouldNotSetInput, "インプットフィルタ(%s)にはinputを設定出来ません"
+
+      def_exception :MarshalQueueNotEmpty, "Marshal queue は Emptyでなくてはなりません"
+    end
+  end
+
+end

data/lib/fairy/share/locale.rb

@@ -0,0 +1,17 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+begin
+  require 'irb/src_encoding'
+  require "irb/magic-file"
+rescue LoadError
+end
+require "irb/locale"
+
+module Fairy
+  LC_MESSAGES = IRB::Locale.new
+  LC_MESSAGES.load(CONF.LIB+"/fairy/share/exceptions.rb")
+end
+

data/lib/fairy/share/log.rb

@@ -0,0 +1,215 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+require "thread"
+require "stringio"
+
+require "forwardable"
+
+require "deep-connect/future"
+
+module Fairy
+  class Log
+
+    LEVELS = [:FATAL, :ERROR, :WARN, :INFO, :VERBOSE, :DEBUG]
+    MESSAGE_LEVEL = CONF.LOG_LEVEL
+    
+    def initialize
+      @logger = nil
+      @host = `hostname`.chomp
+      @type = $0
+      @pid = nil
+
+      @export_thread = nil
+
+      @mutex = Mutex.new
+
+      @puts_mutex = Mutex.new
+
+      @buffer = []
+      @buffer_mutex = Mutex.new
+      @buffer_cv = ConditionVariable.new
+
+      set_local_output_dev
+      
+      start_exporter
+    end
+
+    def start_exporter
+      @export_thread = Thread.start {
+	loop do
+	  buf = nil
+	  @buffer_mutex.synchronize do
+	    while @buffer.empty?
+	      @buffer_cv.wait(@buffer_mutex)
+	    end
+	    buf = @buffer.dup
+	    @buffer.clear
+	  end
+	  @logger.messages(buf)
+	end
+      }
+    end
+
+    def set_local_output_dev(dev = CONF.LOG_LOCAL_OUTPUT_DEV)
+      case dev
+      when nil
+	@LOCAL_OUTPUT_DEV = nil
+      when String, Symbol
+	begin
+	  @LOCAL_OUTPUT_DEV = eval(dev.to_s)
+	rescue
+	  Log::warn(self, "Can't set local output dev")
+	  Log::warn(self, "Use old local output dev")
+	end
+      else
+	@LOCAL_OUTPUT_DEV = dev
+      end
+    end
+
+    @the_log = Log.new unless @the_log
+
+    class<<self
+      extend Forwardable
+
+      def_delegator :@the_log, :set_local_output_dev
+
+      def method_added(method)
+	(class<<self;self;end).def_delegator :@the_log, method
+      end
+    end
+
+    attr_accessor :logger
+    attr_reader :host
+    attr_accessor :type
+    attr_accessor :pid
+    attr_accessor :LOCAL_OUTPUT_DEV
+
+    def stop_export
+      @export_thread.exit
+    end
+
+    def log(sender, str = nil, &block)
+      bt = caller(0).select{|l| /fairy.*(share\/log)|__FORWARDABLE__|forwardable/ !~ l}
+      bt.first =~ /\/([^\/]*\.rb):([0-9]+):in `(.*)'$/
+      file_name = $1
+      line_no = $2
+      method = $3
+
+      if sender.kind_of?(String)
+	str = sender
+	sender_type = "[UNDEF]"
+      else
+	begin
+	  sender_type = sender.log_id
+	rescue
+	  sender_type = sender.class.name.sub(/Fairy::/, "")
+	end
+      end
+
+      time = Time.now
+      prefix = time.strftime("%Y/%m/%d %H:%M:%S")
+      prefix.concat sprintf(".%06d %s ", time.usec, @host)
+      mes = sprintf("%s%s%s %s[%s] %s#%s: ", 
+		    @type, 
+		    @pid ? "\##{@pid}": "", 
+		    Thread.current["name"] ? Thread.current["name"]: "",
+		    file_name, line_no,
+		    sender_type, method)
+      if block_given?
+	sio = StringIO.new(mes, "a+")
+	yield sio
+      else
+	mes.concat str
+      end
+      mes.chomp!
+      
+      if @LOCAL_OUTPUT_DEV
+	@puts_mutex.synchronize do
+	  begin
+	    @LOCAL_OUTPUT_DEV.local_stdout.puts mes
+	  rescue
+	    @LOCAL_OUTPUT_DEV.puts mes
+	  end
+	end
+      end
+      
+      if @logger
+	@buffer_mutex.synchronize do
+	  @buffer.push prefix+mes
+	  @buffer_cv.signal
+	end
+      else
+      	$stdout.puts "****Loggerが設定されていません****"
+      end
+    end
+    #alias stdout_puts puts
+    alias puts log
+
+    # Log::log(sender, format, args...)
+    # Log::log(format, args,...)
+    def logf(sender, format=nil, *args)
+      log(sender, sprintf(format, *args))
+    end
+    alias printf logf
+
+    # Log::log_exception(sender, exception, level = :WARN)
+    # Log::log_exception(exception, level = :WARN)
+    def log_exception(sender = $!, exception=$!)
+      if sender.kind_of?(Exception)
+	exception = sender
+	sender = "UNDEF"
+      end
+      log(sender) do |sio|
+	sio.puts "#{exception.message}: #{exception.class}"
+	for l in exception.backtrace
+	  sio.puts l
+	end
+      end
+    end
+
+    def log_backtrace(sender = nil)
+      log(sender) do |sio|
+	for l in caller(0)
+	  sio.puts l
+	end
+      end
+    end
+    
+    def nop(*args); end
+
+    range = LEVELS[0..LEVELS.index(MESSAGE_LEVEL)]
+    if range
+      for level in range
+	method = level.id2name.downcase
+	alias_method method, :log
+	alias_method method+"f", :logf
+	alias_method method+"_exception", :log_exception
+	alias_method method+"_backtrace", :log_backtrace
+      end
+    end
+
+    range = LEVELS[LEVELS.index(MESSAGE_LEVEL)+1.. -1]
+    if range
+      for level in range
+	method = level.id2name.downcase
+	alias_method method, :nop
+	alias_method method+"f", :nop
+	alias_method method+"_exception", :nop
+	alias_method method+"_backtrace", :nop
+      end
+    end
+
+    if MESSAGE_LEVEL == :DEBUG
+      def debug_p(*objs)
+	for o in objs
+	  log(self, o.inspect)
+	end
+      end
+    else
+      def debug_p(*args);end      
+    end
+  end
+end

data/lib/fairy/share/pool-dictionary.rb

@@ -0,0 +1,53 @@
+# encoding: UTF-8
+#
+# Copyright (C) 2007-2010 Rakuten, Inc.
+#
+
+module Fairy
+  class PoolDictionary
+    
+    def initialize
+      @pool = {}
+      @pool_mutex = Mutex.new
+      @pool_cv = ConditionVariable.new
+    end
+
+    attr_reader :pool_mutex
+    attr_reader :pool_cv
+
+    def def_variable(vname, value = nil)
+      @pool_mutex.synchronize do
+	if @pool.key?(vname)
+	  ERR::Raise ERR::AlreadyAssignedVarriable, vname
+	end
+	case value
+	when DeepConnect::Reference
+	  @pool[vname] = value.dc_deep_copy
+	else
+	  @pool[vname] = value
+	end
+	
+	instance_eval "def #{vname}; self[:#{vname}]; end"
+	instance_eval "def #{vname}=(v); self[:#{vname}]=v; end"
+      end
+    end
+    def [](name)
+      @pool_mutex.synchronize do
+	ERR::Raise NoAssignedVarriable, name unless @pool.key?(name)
+	@pool[name]
+      end
+    end
+
+    def []=(name, value)
+      @pool_mutex.synchronize do
+	ERR::Raise NoAssignedVarriable, name unless @pool.key?(name)
+	case value
+	when DeepConnect::Reference
+	  @pool[name] = value.dc_deep_copy
+	else
+	  @pool[name] = value
+	end
+      end
+    end
+  end
+end