Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | (* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh |
2 | * Jagannathan, and Stephen Weeks. | |
3 | * Copyright (C) 1997-2000 NEC Research Institute. | |
4 | * | |
5 | * MLton is released under a BSD-style license. | |
6 | * See the file MLton-LICENSE for details. | |
7 | *) | |
8 | ||
9 | (* From Tom 7 <twm@andrew.cmu.edu>. *) | |
10 | (* A rather complete interface to the syslog facilities. | |
11 | * | |
12 | * See | |
13 | * man 3 syslog | |
14 | * | |
15 | * .. for descriptions of these constants. | |
16 | *) | |
17 | signature MLTON_SYSLOG = | |
18 | sig | |
19 | type openflag | |
20 | ||
21 | val CONS : openflag | |
22 | val NDELAY : openflag | |
23 | val NOWAIT : openflag | |
24 | val ODELAY : openflag | |
25 | (* NOT STANDARD *) | |
26 | val PERROR : openflag | |
27 | (* *) | |
28 | val PID : openflag | |
29 | ||
30 | type facility | |
31 | ||
32 | val AUTHPRIV : facility | |
33 | val CRON : facility | |
34 | val DAEMON : facility | |
35 | val KERN : facility | |
36 | val LOCAL0 : facility | |
37 | val LOCAL1 : facility | |
38 | val LOCAL2 : facility | |
39 | val LOCAL3 : facility | |
40 | val LOCAL4 : facility | |
41 | val LOCAL5 : facility | |
42 | val LOCAL6 : facility | |
43 | val LOCAL7 : facility | |
44 | val LPR : facility | |
45 | val MAIL : facility | |
46 | val NEWS : facility | |
47 | (* NOT STANDARD *) | |
48 | val SYSLOG : facility | |
49 | (* *) | |
50 | val USER : facility | |
51 | val UUCP : facility | |
52 | ||
53 | type loglevel | |
54 | ||
55 | val EMERG : loglevel | |
56 | val ALERT : loglevel | |
57 | val CRIT : loglevel | |
58 | val ERR : loglevel | |
59 | val WARNING : loglevel | |
60 | val NOTICE : loglevel | |
61 | val INFO : loglevel | |
62 | val DEBUG : loglevel | |
63 | ||
64 | (* Closelog is also optional. *) | |
65 | val closelog: unit -> unit | |
66 | ||
67 | (* log a message at a particular loglevel. *) | |
68 | val log: loglevel * string -> unit | |
69 | ||
70 | (* | |
71 | * Openlog opens a connection to the system logger. | |
72 | * Calling openlog is optional but recommended. | |
73 | * From the man pages. | |
74 | * The string is prefixed to each message, and is typically set to the | |
75 | * program name. | |
76 | *) | |
77 | val openlog: string * openflag list * facility -> unit | |
78 | end |