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