sig
  type facility =
      LOG_KERN
    | LOG_USER
    | LOG_MAIL
    | LOG_DAEMON
    | LOG_AUTH
    | LOG_SYSLOG
    | LOG_LPR
    | LOG_NEWS
    | LOG_UUCP
    | LOG_CRON
    | LOG_AUTHPRIV
    | LOG_FTP
    | LOG_NTP
    | LOG_SECURITY
    | LOG_CONSOLE
    | LOG_LOCAL0
    | LOG_LOCAL1
    | LOG_LOCAL2
    | LOG_LOCAL3
    | LOG_LOCAL4
    | LOG_LOCAL5
    | LOG_LOCAL6
    | LOG_LOCAL7
  and flag = LOG_CONS | LOG_NDELAY | LOG_PERROR | LOG_PID
  and level =
      LOG_EMERG
    | LOG_ALERT
    | LOG_CRIT
    | LOG_ERR
    | LOG_WARNING
    | LOG_NOTICE
    | LOG_INFO
    | LOG_DEBUG
  val set_logpath : string -> unit
  val set_socktype : Unix.socket_type -> unit
  val openlog : string -> Syslog.flag list -> Syslog.facility -> unit
  val syslog : ?fac:Syslog.facility -> Syslog.level -> string -> unit
  val closelog : unit -> unit
end