module Exception2MessageMapper

def Raise(err = nil, *rest)
  E2MM.Raise(self, err, *rest)
end

def bind(cl)
  self.module_eval "#{<<-"begin;"}\n#{<<-"end;"}", __FILE__, __LINE__+1
  begin;
    def Raise(err = nil, *rest)
      Exception2MessageMapper.Raise(self.class, err, *rest)
    end
    alias Fail Raise
    class << self
      undef included
    end
    def self.included(mod)
      mod.extend Exception2MessageMapper
    end
  end;
end

def def_e2message(c, m)
  E2MM.def_e2message(self, c, m)
end

def def_exception(n, m, s = StandardError)
  E2MM.def_exception(self, n, m, s)
end