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