diff options
author | David Scott <dave.scott@eu.citrix.com> | 2013-03-19 16:42:40 +0000 |
---|---|---|
committer | David Scott <dave.scott@eu.citrix.com> | 2013-03-19 21:15:59 +0000 |
commit | 2f778405fe074ae0801d6328da6ba869e4786d77 (patch) | |
tree | 9105a6ae2ff0bb182ce8bea216f94c3f78b66fc0 /tools/ocaml/xenstored/syslog.mli | |
parent | f91c9f4254c926c92815da881fdff2a14ce72acf (diff) | |
download | xen-2f778405fe074ae0801d6328da6ba869e4786d77.tar.gz xen-2f778405fe074ae0801d6328da6ba869e4786d77.tar.bz2 xen-2f778405fe074ae0801d6328da6ba869e4786d77.zip |
oxenstored: Re-add ocaml syslog binding
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>
Diffstat (limited to 'tools/ocaml/xenstored/syslog.mli')
-rw-r--r-- | tools/ocaml/xenstored/syslog.mli | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/tools/ocaml/xenstored/syslog.mli b/tools/ocaml/xenstored/syslog.mli new file mode 100644 index 0000000000..ecac8a1f42 --- /dev/null +++ b/tools/ocaml/xenstored/syslog.mli @@ -0,0 +1,41 @@ +(* + * 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 |