1
2const
3   _PATH_LOG = '/dev/log';
4   LOG_EMERG = 0;
5   LOG_ALERT = 1;
6   LOG_CRIT = 2;
7   LOG_ERR = 3;
8   LOG_WARNING = 4;
9   LOG_NOTICE = 5;
10   LOG_INFO = 6;
11   LOG_DEBUG = 7;
12   LOG_PRIMASK = $07;
13
14function LOG_PRI(p : longint) : longint;
15function LOG_MAKEPRI(fac,pri : longint) : longint;
16
17const
18   INTERNAL_NOPRI = $10;
19   INTERNAL_MARK  = 24 shl 3;
20
21type
22
23   P_code = ^_code;
24   _code = record
25        c_name : Pchar;
26        c_val : longint;
27     end;
28   CODE = _code;
29   PCODE = ^CODE;
30
31Const
32  prioritynames: array[0..12] of _code =
33  (
34    (c_name: 'alert';   c_val: LOG_ALERT),
35    (c_name: 'crit';    c_val: LOG_CRIT),
36    (c_name: 'debug';   c_val: LOG_DEBUG),
37    (c_name: 'emerg';   c_val: LOG_EMERG),
38    (c_name: 'err';     c_val: LOG_ERR),
39    (c_name: 'error';   c_val: LOG_ERR),
40    (c_name: 'info';    c_val: LOG_INFO),
41    (c_name: 'none';    c_val: INTERNAL_NOPRI),
42    (c_name: 'notice';  c_val: LOG_NOTICE),
43    (c_name: 'panic';   c_val: LOG_EMERG),
44    (c_name: 'warn';    c_val: LOG_WARNING),
45    (c_name: 'warning'; c_val: LOG_WARNING),
46    (c_name: nil;       c_val: -1)
47  );
48
49const
50   LOG_KERN = 0 shl 3;
51   LOG_USER = 1 shl 3;
52   LOG_MAIL = 2 shl 3;
53   LOG_DAEMON = 3 shl 3;
54   LOG_AUTH = 4 shl 3;
55   LOG_SYSLOG = 5 shl 3;
56   LOG_LPR = 6 shl 3;
57   LOG_NEWS = 7 shl 3;
58   LOG_UUCP = 8 shl 3;
59   LOG_CRON = 9 shl 3;
60   LOG_AUTHPRIV = 10 shl 3;
61   LOG_FTP = 11 shl 3;
62   LOG_LOCAL0 = 16 shl 3;
63   LOG_LOCAL1 = 17 shl 3;
64   LOG_LOCAL2 = 18 shl 3;
65   LOG_LOCAL3 = 19 shl 3;
66   LOG_LOCAL4 = 20 shl 3;
67   LOG_LOCAL5 = 21 shl 3;
68   LOG_LOCAL6 = 22 shl 3;
69   LOG_LOCAL7 = 23 shl 3;
70   LOG_NFACILITIES = 24;
71   LOG_FACMASK = $03f8;
72
73const
74  facilitynames: array[0..22] of _code =
75  (
76    (c_name: 'auth';     c_val: LOG_AUTH),
77    (c_name: 'authpriv'; c_val: LOG_AUTHPRIV),
78    (c_name: 'cron';      c_val: LOG_CRON),
79    (c_name: 'daemon';   c_val: LOG_DAEMON),
80    (c_name: 'ftp';      c_val: LOG_FTP),
81    (c_name: 'kern';     c_val: LOG_KERN),
82    (c_name: 'lpr';      c_val: LOG_LPR),
83    (c_name: 'mail';     c_val: LOG_MAIL),
84    (c_name: 'mark';     c_val: INTERNAL_MARK),
85    (c_name: 'news';     c_val: LOG_NEWS),
86    (c_name: 'security'; c_val: LOG_AUTH),
87    (c_name: 'syslog';   c_val: LOG_SYSLOG),
88    (c_name: 'user';     c_val: LOG_USER),
89    (c_name: 'uucp';     c_val: LOG_UUCP),
90    (c_name: 'local0';   c_val: LOG_LOCAL0),
91    (c_name: 'local1';   c_val: LOG_LOCAL1),
92    (c_name: 'local2';   c_val: LOG_LOCAL2),
93    (c_name: 'local3';   c_val: LOG_LOCAL3),
94    (c_name: 'local4';   c_val: LOG_LOCAL4),
95    (c_name: 'local5';   c_val: LOG_LOCAL5),
96    (c_name: 'local6';   c_val: LOG_LOCAL6),
97    (c_name: 'local7';   c_val: LOG_LOCAL7),
98    (c_name: nil;        c_val: -1)
99  );
100
101
102function LOG_FAC(p : longint) : longint;
103function LOG_MASK(pri : longint) : longint;
104function LOG_UPTO(pri : longint) : longint;
105
106
107const
108   LOG_PID = $01;
109   LOG_CONS = $02;
110   LOG_ODELAY = $04;
111   LOG_NDELAY = $08;
112   LOG_NOWAIT = $10;
113   LOG_PERROR = $20;
114
115procedure closelog;cdecl;external clib name 'closelog';
116procedure openlog(__ident:Pchar; __option:longint; __facility:longint);cdecl;external clib name 'openlog';
117function setlogmask(__mask:longint):longint;cdecl;external clib name 'setlogmask';
118procedure syslog(__pri: Integer; __fmt: PChar; arg : array of const); cdecl; external clib name 'syslog';
119procedure vsyslog(__pri: Integer; Fmt: PChar; Arg: Pointer);cdecl; external clib name 'vsyslog';
120
121
122{ ---------------------------------------------------------------------
123    Borland compatibility types
124  ---------------------------------------------------------------------}
125
126Type
127  TSysLogCode = _code;
128