source: extensions/gsdl-video/trunk/installed/cmdline/lib/ruby/1.8/irb/notifier.rb@ 18425

#
#   notifier.rb - optput methods used by irb 
#       $Release Version: 0.9.5$
#       $Revision: 11708 $
#       $Date: 2007-02-13 08:01:19 +0900 (Tue, 13 Feb 2007) $
#       by Keiju ISHITSUKA([email protected])
#
# --
#
#   
#

require "e2mmap"
require "irb/output-method"

module IRB
  module Notifier
    extend Exception2MessageMapper
    def_exception :ErrUndefinedNotifier, 
      "undefined notifier level: %d is specified"
    def_exception :ErrUnrecognizedLevel, 
      "unrecognized notifier level: %s is specified"

    def def_notifier(prefix = "", output_method = StdioOutputMethod.new)
      CompositeNotifier.new(prefix, output_method)
    end
    module_function :def_notifier
  
    class AbstructNotifier
      def initialize(prefix, base_notifier)
    @prefix = prefix
    @base_notifier = base_notifier
      end

      attr_reader :prefix

      def notify?
    true
      end

      def print(*opts)
    @base_notifier.print prefix, *opts if notify?
      end

      def printn(*opts)
    @base_notifier.printn prefix, *opts if notify?
      end

      def printf(format, *opts)
    @base_notifier.printf(prefix + format, *opts) if notify?
      end

      def puts(*objs)
    if notify?
      @base_notifier.puts(*objs.collect{|obj| prefix + obj.to_s})
    end
      end

      def pp(*objs)
    if notify?
      @base_notifier.ppx @prefix, *objs
    end
      end

      def ppx(prefix, *objs)
    if notify?
      @base_notifier.ppx @prefix+prefix, *objs
    end
      end

      def exec_if
    yield(@base_notifier) if notify?
      end
    end

    class CompositeNotifier<AbstructNotifier
      def initialize(prefix, base_notifier)
    super

    @notifiers = [D_NOMSG]
    @level_notifier = D_NOMSG
      end

      attr_reader :notifiers

      def def_notifier(level, prefix = "")
    notifier = LeveledNotifier.new(self, level, prefix)
    @notifiers[level] = notifier
    notifier
      end

      attr_reader :level_notifier
      alias level level_notifier

      def level_notifier=(value)
    case value
    when AbstructNotifier
      @level_notifier = value
    when Integer
      l = @notifiers[value]
      Notifier.Raise ErrUndefinedNotifer, value unless l
      @level_notifier = l
    else
      Notifier.Raise ErrUnrecognizedLevel, value unless l
    end
      end

      alias level= level_notifier=
    end

    class LeveledNotifier<AbstructNotifier
      include Comparable

      def initialize(base, level, prefix)
    super(prefix, base)
    
    @level = level
      end

      attr_reader :level

      def <=>(other)
    @level <=> other.level
      end
      
      def notify?
    @base_notifier.level >= self
      end
    end

    class NoMsgNotifier<LeveledNotifier
      def initialize
    @base_notifier = nil
    @level = 0
    @prefix = ""
      end

      def notify?
    false
      end
    end

    D_NOMSG = NoMsgNotifier.new
  end
end