← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/base/libc/ssyslogh.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/base/libc/ssyslogh.inc
1
 
 
2
 
const
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
 
 
14
 
function LOG_PRI(p : longint) : longint;
15
 
function LOG_MAKEPRI(fac,pri : longint) : longint;
16
 
 
17
 
const
18
 
   INTERNAL_NOPRI = $10;
19
 
   INTERNAL_MARK  = 24 shl 3;
20
 
 
21
 
type
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
 
 
31
 
Const
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
 
 
49
 
const
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
 
 
73
 
const
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
 
 
102
 
function LOG_FAC(p : longint) : longint;
103
 
function LOG_MASK(pri : longint) : longint;
104
 
function LOG_UPTO(pri : longint) : longint;
105
 
 
106
 
 
107
 
const
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
 
 
115
 
procedure closelog;cdecl;external clib name 'closelog';
116
 
procedure openlog(__ident:Pchar; __option:longint; __facility:longint);cdecl;external clib name 'openlog';
117
 
function setlogmask(__mask:longint):longint;cdecl;external clib name 'setlogmask';
118
 
procedure syslog(__pri: Integer; __fmt: PChar; arg : array of const); cdecl; external clib name 'syslog';
119
 
procedure vsyslog(__pri: Integer; Fmt: PChar; Arg: Pointer);cdecl; external clib name 'vsyslog';
120
 
 
121
 
 
122
 
{ ---------------------------------------------------------------------
123
 
    Borland compatibility types
124
 
  ---------------------------------------------------------------------}
125
 
 
126
 
Type
127
 
  TSysLogCode = _code;