module Cf_journal:sig
..end
The core interface is functorial, and is intended for extensibility. An
additional interface is provided for simplicity of use in the common case
of journaling diagnostic messages to Pervasives.out_channel
objects, e.g
stdout
and stderr
.
Create(P: Cf_ordered.Total_T)
functor defined below.module type T =sig
..end
module Create:
T
that defines extensible
diagnostic event journaling with messages prioritized by codes in the total
order defined by the module P
.
module Basic:sig
..end
class[[> Basic.level ]]
basic_prioritizer :object
..end
`Invalid
, `Fail
, `Error
,
`Warn
, `Info
and `Debug
.
class[[> Basic.level ] #Basic.event]
basic_channel_archiver :Pervasives.out_channel ->
object
..end
class virtual[[> Basic.level ] #Basic.event
basic_agent :
#Basic.archiver]([> Basic.level ] as 'a) #basic_prioritizer -> 'a -> ('a #Basic.event #Basic.archiver as 'b) list ->
object
..end
typet =
Basic.level Basic.event Basic.archiver
basic_agent
stdout
and stderr
below.val stdout : t
`Notice
, and with with one
basic archiver for the Pervasives.stdout
channel.val stderr : t
`Notice
, and with with one
basic archiver for the Pervasives.stderr
channel.