From d8925d6fcd7cda35bbea18d648587d7b3d9c79a6 Mon Sep 17 00:00:00 2001 From: peter Date: Wed, 17 May 2000 17:11:16 +0000 Subject: [PATCH] * fixed string length --- rtl/linux/errors.pp | 259 ++++++++++++++++++++++---------------------- 1 file changed, 131 insertions(+), 128 deletions(-) diff --git a/rtl/linux/errors.pp b/rtl/linux/errors.pp index 0e4ccb473c..502f73a36e 100644 --- a/rtl/linux/errors.pp +++ b/rtl/linux/errors.pp @@ -21,132 +21,132 @@ uses strings; const 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; Procedure PError(const s:string; Errno : longint); @@ -165,7 +165,7 @@ begin StrError:=Sys_ErrList[err]; end; - + procedure PError(const s:string; Errno : longint); begin WriteLn(stderr,s,': ',StrError(ErrNo)); @@ -175,7 +175,10 @@ end. { $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 Revision 1.5 2000/01/07 16:41:40 daniel