1(* 2 * Copyright (C) 2006-2009 Citrix Systems Inc. 3 * 4 * This program is free software; you can redistribute it and/or modify 5 * it under the terms of the GNU Lesser General Public License as published 6 * by the Free Software Foundation; version 2.1 only. with the special 7 * exception on linking described in file LICENSE. 8 * 9 * This program is distributed in the hope that it will be useful, 10 * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 * GNU Lesser General Public License for more details. 13 *) 14 15type level = Emerg | Alert | Crit | Err | Warning | Notice | Info | Debug 16type facility = 17 Auth 18 | Authpriv 19 | Cron 20 | Daemon 21 | Ftp 22 | Kern 23 | Local0 24 | Local1 25 | Local2 26 | Local3 27 | Local4 28 | Local5 29 | Local6 30 | Local7 31 | Lpr 32 | Mail 33 | News 34 | Syslog 35 | User 36 | Uucp 37 38external log : facility -> level -> string -> unit = "stub_syslog" 39 40 41val facility_of_string : string -> facility 42