|
@@ -21,132 +21,132 @@ uses strings;
|
|
|
|
|
|
|
|
const
|
|
const
|
|
|
sys_errn=125;
|
|
sys_errn=125;
|
|
|
- sys_errlist:array[0..sys_errn-1] of string[40] = (
|
|
|
|
|
- '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 file busy', { ETXTBSY }
|
|
|
|
|
- '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 }
|
|
|
|
|
|
|
+ sys_errlist:array[0..sys_errn-1] of string[47] = (
|
|
|
|
|
+ '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 file busy', { ETXTBSY }
|
|
|
|
|
+ '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 }
|
|
|
|
|
|
|
|
Function StrError(err:longint):string;
|
|
Function StrError(err:longint):string;
|
|
|
Procedure PError(const s:string; Errno : longint);
|
|
Procedure PError(const s:string; Errno : longint);
|
|
@@ -165,7 +165,7 @@ begin
|
|
|
StrError:=Sys_ErrList[err];
|
|
StrError:=Sys_ErrList[err];
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
procedure PError(const s:string; Errno : longint);
|
|
procedure PError(const s:string; Errno : longint);
|
|
|
begin
|
|
begin
|
|
|
WriteLn(stderr,s,': ',StrError(ErrNo));
|
|
WriteLn(stderr,s,': ',StrError(ErrNo));
|
|
@@ -175,7 +175,10 @@ end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 2000-02-09 16:59:31 peter
|
|
|
|
|
|
|
+ Revision 1.7 2000-05-17 17:11:16 peter
|
|
|
|
|
+ * fixed string length
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 2000/02/09 16:59:31 peter
|
|
|
* truncated log
|
|
* truncated log
|
|
|
|
|
|
|
|
Revision 1.5 2000/01/07 16:41:40 daniel
|
|
Revision 1.5 2000/01/07 16:41:40 daniel
|
peter