sig
  type opt = Syslog.opt = PID | CONS | ODELAY | NDELAY | NOWAIT | PERROR
  type fac =
    Syslog.fac =
      KERN
    | USER
    | MAIL
    | DAEMON
    | AUTH
    | SYSLOG
    | LPR
    | NEWS
    | UUCP
    | CRON
    | AUTHPRIV
    | FTP
    | LOCAL0
    | LOCAL1
    | LOCAL2
    | LOCAL3
    | LOCAL4
    | LOCAL5
    | LOCAL6
    | LOCAL7
  type lev =
    Syslog.lev =
      EMERG
    | ALERT
    | CRIT
    | ERR
    | WARNING
    | NOTICE
    | INFO
    | DEBUG
  val all_levs : lev array
  val all_str_levs : string array
  val compare_lev : lev -> lev -> int
  val string_of_lev : lev -> string
  val lev_of_string : string -> lev
  val setlogmask :
    ?levs:lev list -> ?from_lev:lev -> ?to_lev:lev -> unit -> unit
  val openlog : ?id:string -> ?opt:opt list -> ?fac:fac -> unit -> unit
  val syslog : ?fac:fac -> ?lev:lev -> string -> unit
  val esyslog : ?fac:fac -> ?lev:lev -> string -> unit
  val syslogf :
    ?fac:fac -> ?lev:lev -> ('b, unit, string, unit) format4 -> 'b
  val esyslogf :
    ?fac:fac -> ?lev:lev -> ('b, unit, string, unit) format4 -> 'b
  external closelog : unit -> unit = "closelog_stub" "noalloc"
end