note description: "Wrapper class providing synchronize logging access." date: "$Date$" revision: "$Revision$" class LOGGING_FACILITY create make feature -- Initialization make do create logging.make end feature -- Access logging: LOG_LOGGING_FACILITY register_log_writer (a_log_writer: LOG_WRITER) -- -- Register the non-default log writer `a_log_writer'. do logging.register_log_writer (a_log_writer) end feature -- Output write_alert (msg: STRING) -- Write `msg' to the log writers as an alert. local l_retry: BOOLEAN do if not l_retry then logging.write_alert (msg) end rescue l_retry := True retry end write_critical (msg: STRING) -- Write `msg' to the log writers as an critical local l_retry: BOOLEAN do if not l_retry then logging.write_critical (msg) end rescue l_retry := True retry end write_debug (msg: STRING) -- Write `msg' to the log writers as an debug. local l_retry: BOOLEAN do if not l_retry then logging.write_debug (msg) end rescue l_retry := True retry end write_emergency (msg: STRING) -- Write `msg' to the log writers as an emergency. local l_retry: BOOLEAN do if not l_retry then logging.write_emergency (msg) end rescue l_retry := True retry end write_error (msg: STRING) -- Write `msg' to the log writers as an error. local l_retry: BOOLEAN do if not l_retry then logging.write_error (msg) end rescue l_retry := True retry end write_information (msg: STRING) -- Write `msg' to the log writers as an information. local l_retry: BOOLEAN do if not l_retry then logging.write_information (msg) end rescue l_retry := True retry end write_notice (msg: STRING) -- Write `msg' to the log writers as an notice. local l_retry: BOOLEAN do if not l_retry then logging.write_notice (msg) end rescue l_retry := True retry end write_warning (msg: STRING) -- Write `msg' to the log writers as an warning. local l_retry: BOOLEAN do if not l_retry then logging.write_warning (msg) end rescue l_retry := True retry end end