# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
# License: Gnu General Public License.

# $LastChangedBy: polrop $
# $Id: trace.rb 90 2005-01-09 22:09:32Z polrop $


module Kernel

  def trace_on
    set_trace_func proc { |event, file, line, id, binding, classname|
      printf("%8s %s:%-2d %10s %8s\n",
             event,
             file,
             line,
             id,
             classname)
    }
  end

  def trace_off
    set_trace_func nil
  end

end # module Kernel