|
|
@@ -11,154 +11,20 @@
|
|
|
|
|
|
**********************************************************************}
|
|
|
|
|
|
-
|
|
|
Unit errors;
|
|
|
|
|
|
Interface
|
|
|
|
|
|
-uses strings;
|
|
|
+uses strings,unixtype;
|
|
|
|
|
|
-const
|
|
|
- sys_errn=125;
|
|
|
- sys_errlist:array[0..sys_errn-1] of pchar = (
|
|
|
- 'Success', { 0 }
|
|
|
- 'Operation not permitted', { EPERM }
|
|
|
- 'No such file or directory', { ENOENT }
|
|
|
- 'No such process', { ESRCH }
|
|
|
- 'Interrupted system call', { EINTR }
|
|
|
- 'I/O error', { EIO }
|
|
|
- 'No such device or address', { ENXIO }
|
|
|
- 'Arg list too long', { E2BIG }
|
|
|
- 'Exec format error', { ENOEXEC }
|
|
|
- 'Bad file number', { EBADF }
|
|
|
- 'No child processes', { ECHILD }
|
|
|
- 'Try again', { EAGAIN }
|
|
|
- 'Out of memory', { ENOMEM }
|
|
|
- 'Permission denied', { EACCES }
|
|
|
- 'Bad address', { EFAULT }
|
|
|
- 'Block device required', { ENOTBLK }
|
|
|
- 'Device or resource busy', { EBUSY }
|
|
|
- 'File exists', { EEXIST }
|
|
|
- 'Cross-device link', { EXDEV }
|
|
|
- 'No such device', { ENODEV }
|
|
|
- 'Not a directory', { ENOTDIR }
|
|
|
- 'Is a directory', { EISDIR }
|
|
|
- 'Invalid argument', { EINVAL }
|
|
|
- 'File table overflow', { ENFILE }
|
|
|
- 'Too many open files', { EMFILE }
|
|
|
- 'Not a typewriter', { ENOTTY }
|
|
|
- 'Text (code segment) file busy', { ETXTBSY Text file busy. The new process was
|
|
|
- a pure procedure (shared text) file which was
|
|
|
- open for writing by another process, or file
|
|
|
- which was open for writing by another process,
|
|
|
- or while the pure procedure file was being
|
|
|
- executed an open(2) call requested write access
|
|
|
- requested write access.}
|
|
|
- 'File too large', { EFBIG }
|
|
|
- 'No space left on device', { ENOSPC }
|
|
|
- 'Illegal seek', { ESPIPE }
|
|
|
- 'Read-only file system', { EROFS }
|
|
|
- 'Too many links', { EMLINK }
|
|
|
- 'Broken pipe', { EPIPE }
|
|
|
- 'Math argument out of domain of func', { EDOM }
|
|
|
- 'Math result not representable', { ERANGE }
|
|
|
- 'Resource deadlock would occur', { EDEADLK }
|
|
|
- 'File name too long', { ENAMETOOLONG }
|
|
|
- 'No record locks available', { ENOLCK }
|
|
|
- 'Function not implemented', { ENOSYS }
|
|
|
- 'Directory not empty', { ENOTEMPTY }
|
|
|
- 'Too many symbolic links encountered', { ELOOP }
|
|
|
- 'Operation would block', { EWOULDBLOCK }
|
|
|
- 'No message of desired type', { ENOMSG }
|
|
|
- 'Identifier removed', { EIDRM }
|
|
|
- 'Channel number out of range', { ECHRNG }
|
|
|
- 'Level 2 not synchronized', { EL2NSYNC }
|
|
|
- 'Level 3 halted', { EL3HLT }
|
|
|
- 'Level 3 reset', { EL3RST }
|
|
|
- 'Link number out of range', { ELNRNG }
|
|
|
- 'Protocol driver not attached', { EUNATCH }
|
|
|
- 'No CSI structure available', { ENOCSI }
|
|
|
- 'Level 2 halted', { EL2HLT }
|
|
|
- 'Invalid exchange', { EBADE }
|
|
|
- 'Invalid request descriptor', { EBADR }
|
|
|
- 'Exchange full', { EXFULL }
|
|
|
- 'No anode', { ENOANO }
|
|
|
- 'Invalid request code', { EBADRQC }
|
|
|
- 'Invalid slot', { EBADSLT }
|
|
|
- 'File locking deadlock error', { EDEADLOCK }
|
|
|
- 'Bad font file format', { EBFONT }
|
|
|
- 'Device not a stream', { ENOSTR }
|
|
|
- 'No data available', { ENODATA }
|
|
|
- 'Timer expired', { ETIME }
|
|
|
- 'Out of streams resources', { ENOSR }
|
|
|
- 'Machine is not on the network', { ENONET }
|
|
|
- 'Package not installed', { ENOPKG }
|
|
|
- 'Object is remote', { EREMOTE }
|
|
|
- 'Link has been severed', { ENOLINK }
|
|
|
- 'Advertise error', { EADV }
|
|
|
- 'Srmount error', { ESRMNT }
|
|
|
- 'Communication error on send', { ECOMM }
|
|
|
- 'Protocol error', { EPROTO }
|
|
|
- 'Multihop attempted', { EMULTIHOP }
|
|
|
- 'RFS specific error', { EDOTDOT }
|
|
|
- 'Not a data message', { EBADMSG }
|
|
|
- 'Value too large for defined data type', { EOVERFLOW }
|
|
|
- 'Name not unique on network', { ENOTUNIQ }
|
|
|
- 'File descriptor in bad state', { EBADFD }
|
|
|
- 'Remote address changed', { EREMCHG }
|
|
|
- 'Can not access a needed shared library', { ELIBACC }
|
|
|
- 'Accessing a corrupted shared library', { ELIBBAD }
|
|
|
- '.lib section in a.out corrupted', { ELIBSCN }
|
|
|
- 'Attempting to link in too many shared libraries', { ELIBMAX }
|
|
|
- 'Cannot exec a shared library directly', { ELIBEXEC }
|
|
|
- 'Illegal byte sequence', { EILSEQ }
|
|
|
- 'Interrupted system call should be restarted', { ERESTART }
|
|
|
- 'Streams pipe error', { ESTRPIPE }
|
|
|
- 'Too many users', { EUSERS }
|
|
|
- 'Socket operation on non-socket', { ENOTSOCK }
|
|
|
- 'Destination address required', { EDESTADDRREQ }
|
|
|
- 'Message too long', { EMSGSIZE }
|
|
|
- 'Protocol wrong type for socket', { EPROTOTYPE }
|
|
|
- 'Protocol not available', { ENOPROTOOPT }
|
|
|
- 'Protocol not supported', { EPROTONOSUPPORT }
|
|
|
- 'Socket type not supported', { ESOCKTNOSUPPORT }
|
|
|
- 'Operation not supported on transport endpoint', { EOPNOTSUPP }
|
|
|
- 'Protocol family not supported', { EPFNOSUPPORT }
|
|
|
- 'Address family not supported by protocol', { EAFNOSUPPORT }
|
|
|
- 'Address already in use', { EADDRINUSE }
|
|
|
- 'Cannot assign requested address', { EADDRNOTAVAIL }
|
|
|
- 'Network is down', { ENETDOWN }
|
|
|
- 'Network is unreachable', { ENETUNREACH }
|
|
|
- 'Network dropped connection because of reset', { ENETRESET }
|
|
|
- 'Software caused connection abort', { ECONNABORTED }
|
|
|
- 'Connection reset by peer', { ECONNRESET }
|
|
|
- 'No buffer space available', { ENOBUFS }
|
|
|
- 'Transport endpoint is already connected', { EISCONN }
|
|
|
- 'Transport endpoint is not connected', { ENOTCONN }
|
|
|
- 'Cannot send after transport endpoint shutdown', { ESHUTDOWN }
|
|
|
- 'Too many references: cannot splice', { ETOOMANYREFS }
|
|
|
- 'Connection timed out', { ETIMEDOUT }
|
|
|
- 'Connection refused', { ECONNREFUSED }
|
|
|
- 'Host is down', { EHOSTDOWN }
|
|
|
- 'No route to host', { EHOSTUNREACH }
|
|
|
- 'Operation already in progress', { EALREADY }
|
|
|
- 'Operation now in progress', { EINPROGRESS }
|
|
|
- 'Stale NFS file handle', { ESTALE }
|
|
|
- 'Structure needs cleaning', { EUCLEAN }
|
|
|
- 'Not a XENIX named type file', { ENOTNAM }
|
|
|
- 'No XENIX semaphores available', { ENAVAIL }
|
|
|
- 'Is a named type file', { EISNAM }
|
|
|
- 'Remote I/O error', { EREMOTEIO }
|
|
|
- 'Quota exceeded', { EDQUOT }
|
|
|
- 'No medium found', { ENOMEDIUM }
|
|
|
- 'Wrong medium type'); { EMEDIUMTYPE }
|
|
|
+{$i errnostr.inc} // BSD or Linux ones
|
|
|
|
|
|
-Function StrError(err:longint):string;
|
|
|
-Procedure PError(const s:string; Errno : longint);
|
|
|
+Function StrError(err:cint):string;
|
|
|
+Procedure PError(const s:string; Errno : cint);
|
|
|
|
|
|
Implementation
|
|
|
|
|
|
-Function StrError(err:longint):string;
|
|
|
+Function StrError(err:cint):string;
|
|
|
var s : string[12];
|
|
|
begin
|
|
|
if (err<0) or (err>=sys_errn) then
|
|
|
@@ -171,7 +37,7 @@ begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
-procedure PError(const s:string; Errno : longint);
|
|
|
+procedure PError(const s:string; Errno : cint);
|
|
|
begin
|
|
|
WriteLn(stderr,s,': ',StrError(ErrNo));
|
|
|
end;
|
marco