mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 02:01:24 +01:00
David Scott
2f778405fe
This was lost in the OCaml xenstored log merge of 10/Oct/2011. The binding isn't exported as a shared "log" library, instead it is kept local to xenstored. Signed-off-by: David Scott <dave.scott@eu.citrix.com>
42 lines
990 B
OCaml
42 lines
990 B
OCaml
(*
|
|
* Copyright (C) 2006-2009 Citrix Systems Inc.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU Lesser General Public License as published
|
|
* by the Free Software Foundation; version 2.1 only. with the special
|
|
* exception on linking described in file LICENSE.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU Lesser General Public License for more details.
|
|
*)
|
|
|
|
type level = Emerg | Alert | Crit | Err | Warning | Notice | Info | Debug
|
|
type facility =
|
|
Auth
|
|
| Authpriv
|
|
| Cron
|
|
| Daemon
|
|
| Ftp
|
|
| Kern
|
|
| Local0
|
|
| Local1
|
|
| Local2
|
|
| Local3
|
|
| Local4
|
|
| Local5
|
|
| Local6
|
|
| Local7
|
|
| Lpr
|
|
| Mail
|
|
| News
|
|
| Syslog
|
|
| User
|
|
| Uucp
|
|
|
|
external log : facility -> level -> string -> unit = "stub_syslog"
|
|
|
|
|
|
val facility_of_string : string -> facility
|