mirror of
https://github.com/xen-project/xen.git
synced 2026-10-29 02:30:03 +01:00
Edwin Török
ea250e81cf
`git log -p -1 -w` proves the change here is only whitespace. No functional change. Signed-off-by: Edwin Török <edwin.torok@cloud.com> Acked-by: Christian Lindig <christian.lindig@citrix.com>
47 lines
1.4 KiB
OCaml
47 lines
1.4 KiB
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"
|
|
|
|
exception Unknown_facility of string
|
|
let facility_of_string s =
|
|
match s with
|
|
|"auth"->Auth
|
|
|"authpriv"->Authpriv
|
|
|"cron"->Cron
|
|
|"daemon"->Daemon
|
|
|"ftp"->Ftp
|
|
|"kern"->Kern
|
|
|"local0"->Local0
|
|
|"local1"->Local1
|
|
|"local2"->Local2
|
|
|"local3"->Local3
|
|
|"local4"->Local4
|
|
|"local5"->Local5
|
|
|"local6"->Local6
|
|
|"local7"->Local7
|
|
|"lpr"->Lpr
|
|
|"mail"->Mail
|
|
|"news"->News
|
|
|"syslog"->Syslog
|
|
|"user"->User
|
|
|"uucp"->Uucp
|
|
|_-> raise (Unknown_facility s)
|