/[cl-syslog]/cl-syslog/variable.lisp
ViewVC logotype

Contents of /cl-syslog/variable.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Thu Nov 13 18:32:45 2003 UTC (10 years, 5 months ago) by eenge
Branch: MAIN, eenge
CVS Tags: init, HEAD
Changes since 1.1: +0 -0 lines
inital import
1 ;;;; $Id: variable.lisp,v 1.1.1.1 2003/11/13 18:32:45 eenge Exp $
2 ;;;; $Source: /tiger/var/lib/cvsroots/cl-syslog/cl-syslog/variable.lisp,v $
3
4 ;;;; See the LICENSE file for licensing information.
5
6 (in-package :syslog)
7
8 (defparameter *priorities*
9 '((:emerg . 0)
10 (:alert . 1)
11 (:crit . 2)
12 (:err . 3)
13 (:warning . 4)
14 (:notice . 5)
15 (:info . 6)
16 (:debug . 7)))
17
18 (defparameter *facilities*
19 '((:kern . 0)
20 (:user . 1)
21 (:mail . 2)
22 (:daemon . 3)
23 (:auth . 4)
24 (:syslog . 5)
25 (:lpr . 6)
26 (:news . 7)
27 (:uucp . 8)
28 (:cron . 9)
29 (:authpriv . 10)
30 (:ftp . 11)
31 (:local0 . 16)
32 (:local1 . 17)
33 (:local2 . 18)
34 (:local3 . 19)
35 (:local4 . 20)
36 (:local5 . 21)
37 (:local6 . 22)
38 (:local7 . 23)))
39
40 (defconstant +log-pid+ #x01
41 "Log the pid with each message.")
42 (defconstant +log-cons+ #x02
43 "Log on the console if errors in sending.")
44 (defconstant +log-odelay+ #x04
45 "Delay open until first syslog() (default).")
46 (defconstant +log-ndelay+ #x08
47 "Don't delay open.")
48 (defconstant +log-nowait+ #x10
49 "Don't wait for console forks: deprecated.")
50 (defconstant +log-perror+ #x20
51 "Log to stderr as well.")

  ViewVC Help
Powered by ViewVC 1.1.5