sig
type options = LOG_PID | LOG_CONS | LOG_NDELAY | LOG_ODELAY | LOG_NOWAIT
type facility =
LOG_KERN
| LOG_USER
| LOG_MAIL
| LOG_NEWS
| LOG_UUCP
| LOG_DAEMON
| LOG_AUTH
| LOG_CRON
| LOG_LPR
| LOG_LOCAL0
| LOG_LOCAL1
| LOG_LOCAL2
| LOG_LOCAL3
| LOG_LOCAL4
| LOG_LOCAL5
| LOG_LOCAL6
| LOG_LOCAL7
type level =
LOG_EMERG
| LOG_ALERT
| LOG_CRIT
| LOG_ERR
| LOG_WARNING
| LOG_NOTICE
| LOG_INFO
| LOG_DEBUG
val setlogmask :
ExtUnixSpecific.??.level list -> ExtUnixSpecific.??.level list
val openlog :
?ident:string ->
ExtUnixSpecific.??.options list -> ExtUnixSpecific.??.facility -> unit
val closelog : unit -> unit
val syslog :
?facility:ExtUnixSpecific.??.facility ->
ExtUnixSpecific.??.level ->
('a, unit, string, unit) Pervasives.format4 -> 'a
val log_upto : ExtUnixSpecific.??.level -> ExtUnixSpecific.??.level list
end