- cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Ignore duplicate errno values
by Raymond Toy (＠rtoy) 01 Mar '25

01 Mar '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 17859fdd by Raymond Toy at 2025-03-01T05:38:46-08:00 Ignore duplicate errno values Put the awk script in the new file create-def-unix-error.awk. This script pretty much does what the previous version did, but it checks to see if we have a duplicate errno value in the file and just ignores it, assuming the first occurrence is what we want. Update create-errno.sh to call this script. Duplicates appear to happen on Darwin, where EOPNOTSUPP occurs twice due to #if's selecting one or the other. We assume here that the latter is not what we want. This is a gross hack. - - - - - 2 changed files: - + bin/create-def-unix-error.awk - bin/create-errno.sh Changes: ===================================== bin/create-def-unix-error.awk ===================================== @@ -0,0 +1,22 @@ +BEGIN { + count = 0 +} + +# Find anything that matches '#define Efoo value' +/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ { + # If we haven't found $2 in errno before, add it to the table. + # This is to catch any duplicates. We assume the latter value is + # NOT what we want. This happens on Darwin where EOPNOSUPP is + # defined twice due to #if's. + if (!($2 in errno)) { + errno[count] = $2; + value[count] = $3; + ++count; + } +} + +END { + for (k = 0; k < count; ++k) { + printf "(def-unix-error %s %s)\n", errno[k], value[k]; + } +} ===================================== bin/create-errno.sh ===================================== @@ -23,9 +23,7 @@ case `uname -s` in ;; esac -awk '/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ { - printf "(def-unix-error %s %s)\n", $2, $3; -}' "$@" ${ERRNO_FILES} >> $OUTPUT +awk -f bin/create-def-unix-error.awk ${ERRNO_FILES} >> $OUTPUT # The tail was also copied from code/unix.lisp. It's needed to tell # Lisp about the errno values. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/17859fddd84b302482b8614… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/17859fddd84b302482b8614… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Add support for auto-generating on Macosx
by Raymond Toy (＠rtoy) 01 Mar '25

01 Mar '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 3566cce0 by Raymond Toy at 2025-02-28T19:57:44-08:00 Add support for auto-generating on Macosx On mac, get the errno values from /usr/include/sys/errno.h. Update the template so we exclude more stuff when `:darwin` is defined for macosx. - - - - - 2 changed files: - bin/create-errno.sh - bin/errno-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -19,6 +19,8 @@ cat bin/errno-template.lisp > $OUTPUT case `uname -s` in Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h ;; + Darwin) ERRNO_FILES=/usr/include/sys/errno.h + ;; esac awk '/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ { ===================================== bin/errno-template.lisp ===================================== @@ -44,7 +44,7 @@ ;;; (def-unix-error ESUCCESS 0 _N"Successful") -#-linux +#-(or linux darwin) (progn (def-unix-error EPERM 1 _N"Operation not permitted") (def-unix-error ENOENT 2 _N"No such file or directory") @@ -86,7 +86,7 @@ ) ;;; -#-(or linux svr4) +#-(or linux svr4 darwin) (progn ;;; non-blocking and interrupt i/o (def-unix-error EWOULDBLOCK 35 _N"Operation would block") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3566cce059b37bbe26a3c91… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3566cce059b37bbe26a3c91… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Remove linux-specific values
by Raymond Toy (＠rtoy) 28 Feb '25

28 Feb '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: af849ea9 by Raymond Toy at 2025-02-28T07:46:47-08:00 Remove linux-specific values The linux-specific definitions are removed since we're auto-generating them. This also means the unconditional definitions need to adjusted so that they aren't used on linux since we're generating them. - - - - - 1 changed file: - bin/errno-template.lisp Changes: ===================================== bin/errno-template.lisp ===================================== @@ -43,6 +43,9 @@ ;;; From <errno.h> ;;; (def-unix-error ESUCCESS 0 _N"Successful") + +#-linux +(progn (def-unix-error EPERM 1 _N"Operation not permitted") (def-unix-error ENOENT 2 _N"No such file or directory") (def-unix-error ESRCH 3 _N"No such process") @@ -80,6 +83,8 @@ ;;; Math (def-unix-error EDOM 33 _N"Numerical argument out of domain") (def-unix-error ERANGE 34 #-linux _N"Result too large" #+linux _N"Math result not representable") +) + ;;; #-(or linux svr4) (progn @@ -224,97 +229,6 @@ (def-unix-error EINPROGRESS 150 _N"Operation now in progress") (def-unix-error ESTALE 151 _N"Stale NFS file handle") ) -#+linux -(progn -(def-unix-error EDEADLK 35 _N"Resource deadlock would occur") -(def-unix-error ENAMETOOLONG 36 _N"File name too long") -(def-unix-error ENOLCK 37 _N"No record locks available") -(def-unix-error ENOSYS 38 _N"Function not implemented") -(def-unix-error ENOTEMPTY 39 _N"Directory not empty") -(def-unix-error ELOOP 40 _N"Too many symbolic links encountered") -(def-unix-error EWOULDBLOCK 11 _N"Operation would block") -(def-unix-error ENOMSG 42 _N"No message of desired type") -(def-unix-error EIDRM 43 _N"Identifier removed") -(def-unix-error ECHRNG 44 _N"Channel number out of range") -(def-unix-error EL2NSYNC 45 _N"Level 2 not synchronized") -(def-unix-error EL3HLT 46 _N"Level 3 halted") -(def-unix-error EL3RST 47 _N"Level 3 reset") -(def-unix-error ELNRNG 48 _N"Link number out of range") -(def-unix-error EUNATCH 49 _N"Protocol driver not attached") -(def-unix-error ENOCSI 50 _N"No CSI structure available") -(def-unix-error EL2HLT 51 _N"Level 2 halted") -(def-unix-error EBADE 52 _N"Invalid exchange") -(def-unix-error EBADR 53 _N"Invalid request descriptor") -(def-unix-error EXFULL 54 _N"Exchange full") -(def-unix-error ENOANO 55 _N"No anode") -(def-unix-error EBADRQC 56 _N"Invalid request code") -(def-unix-error EBADSLT 57 _N"Invalid slot") -(def-unix-error EDEADLOCK EDEADLK _N"File locking deadlock error") -(def-unix-error EBFONT 59 _N"Bad font file format") -(def-unix-error ENOSTR 60 _N"Device not a stream") -(def-unix-error ENODATA 61 _N"No data available") -(def-unix-error ETIME 62 _N"Timer expired") -(def-unix-error ENOSR 63 _N"Out of streams resources") -(def-unix-error ENONET 64 _N"Machine is not on the network") -(def-unix-error ENOPKG 65 _N"Package not installed") -(def-unix-error EREMOTE 66 _N"Object is remote") -(def-unix-error ENOLINK 67 _N"Link has been severed") -(def-unix-error EADV 68 _N"Advertise error") -(def-unix-error ESRMNT 69 _N"Srmount error") -(def-unix-error ECOMM 70 _N"Communication error on send") -(def-unix-error EPROTO 71 _N"Protocol error") -(def-unix-error EMULTIHOP 72 _N"Multihop attempted") -(def-unix-error EDOTDOT 73 _N"RFS specific error") -(def-unix-error EBADMSG 74 _N"Not a data message") -(def-unix-error EOVERFLOW 75 _N"Value too large for defined data type") -(def-unix-error ENOTUNIQ 76 _N"Name not unique on network") -(def-unix-error EBADFD 77 _N"File descriptor in bad state") -(def-unix-error EREMCHG 78 _N"Remote address changed") -(def-unix-error ELIBACC 79 _N"Can not access a needed shared library") -(def-unix-error ELIBBAD 80 _N"Accessing a corrupted shared library") -(def-unix-error ELIBSCN 81 _N".lib section in a.out corrupted") -(def-unix-error ELIBMAX 82 _N"Attempting to link in too many shared libraries") -(def-unix-error ELIBEXEC 83 _N"Cannot exec a shared library directly") -(def-unix-error EILSEQ 84 _N"Illegal byte sequence") -(def-unix-error ERESTART 85 _N"Interrupted system call should be restarted _N") -(def-unix-error ESTRPIPE 86 _N"Streams pipe error") -(def-unix-error EUSERS 87 _N"Too many users") -(def-unix-error ENOTSOCK 88 _N"Socket operation on non-socket") -(def-unix-error EDESTADDRREQ 89 _N"Destination address required") -(def-unix-error EMSGSIZE 90 _N"Message too long") -(def-unix-error EPROTOTYPE 91 _N"Protocol wrong type for socket") -(def-unix-error ENOPROTOOPT 92 _N"Protocol not available") -(def-unix-error EPROTONOSUPPORT 93 _N"Protocol not supported") -(def-unix-error ESOCKTNOSUPPORT 94 _N"Socket type not supported") -(def-unix-error EOPNOTSUPP 95 _N"Operation not supported on transport endpoint") -(def-unix-error EPFNOSUPPORT 96 _N"Protocol family not supported") -(def-unix-error EAFNOSUPPORT 97 _N"Address family not supported by protocol") -(def-unix-error EADDRINUSE 98 _N"Address already in use") -(def-unix-error EADDRNOTAVAIL 99 _N"Cannot assign requested address") -(def-unix-error ENETDOWN 100 _N"Network is down") -(def-unix-error ENETUNREACH 101 _N"Network is unreachable") -(def-unix-error ENETRESET 102 _N"Network dropped connection because of reset") -(def-unix-error ECONNABORTED 103 _N"Software caused connection abort") -(def-unix-error ECONNRESET 104 _N"Connection reset by peer") -(def-unix-error ENOBUFS 105 _N"No buffer space available") -(def-unix-error EISCONN 106 _N"Transport endpoint is already connected") -(def-unix-error ENOTCONN 107 _N"Transport endpoint is not connected") -(def-unix-error ESHUTDOWN 108 _N"Cannot send after transport endpoint shutdown") -(def-unix-error ETOOMANYREFS 109 _N"Too many references: cannot splice") -(def-unix-error ETIMEDOUT 110 _N"Connection timed out") -(def-unix-error ECONNREFUSED 111 _N"Connection refused") -(def-unix-error EHOSTDOWN 112 _N"Host is down") -(def-unix-error EHOSTUNREACH 113 _N"No route to host") -(def-unix-error EALREADY 114 _N"Operation already in progress") -(def-unix-error EINPROGRESS 115 _N"Operation now in progress") -(def-unix-error ESTALE 116 _N"Stale NFS file handle") -(def-unix-error EUCLEAN 117 _N"Structure needs cleaning") -(def-unix-error ENOTNAM 118 _N"Not a XENIX named type file") -(def-unix-error ENAVAIL 119 _N"No XENIX semaphores available") -(def-unix-error EISNAM 120 _N"Is a named type file") -(def-unix-error EREMOTEIO 121 _N"Remote I/O error") -(def-unix-error EDQUOT 122 _N"Quota exceeded") -) ;;; Auto-generated forms, if any, follow here. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/af849ea9e5fea5c0c31924f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/af849ea9e5fea5c0c31924f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Move default def-unix-error forms to separate file
by Raymond Toy (＠rtoy) 28 Feb '25

28 Feb '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 58142415 by Raymond Toy at 2025-02-28T07:37:08-08:00 Move default def-unix-error forms to separate file To make managing and maintaining the default list of `def-unix-error` forms, move them all to bin/errno-template.lisp. Update create-errno.sh to copy this file to the final src/code/errno.lisp file. - - - - - 2 changed files: - bin/create-errno.sh - + bin/errno-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -8,251 +8,9 @@ # Where the output should go. OUTPUT="src/code/errno.lisp" -# The header was copied from code/unix.lisp. This includes all the -# support code for DEF-UNIX-ERROR and for all OSes that don't use the -# awk script to create the DEF-UNIX-ERROR forms. -# -cat > $OUTPUT <<EOF -;;; -*- Package: ERRNO -*- -;;; -;;; ********************************************************************** -;;; This code was written as part of the CMU Common Lisp project at -;;; Carnegie Mellon University, and has been placed in the public domain. -;;; -(ext:file-comment - "$Header: src/code/unix-errno.lisp $") -;;; -;;; ********************************************************************** -;;; -;;; This file contains the UNIX low-level support, just enough to run -;;; CMUCL. -;;; -(in-package "ERRNO") -(intl:textdomain "cmucl-unix") - -;;;; Errno stuff. -(eval-when (compile eval) - -(defparameter *compiler-unix-errors* nil) - -(defmacro def-unix-error (name number &optional description) - "Define a constant named Name corresponding to the Unix errno value - Number. A description of the errno is optional in Description." - \`(progn - (eval-when (compile eval) - (push (cons ,number ,description) *compiler-unix-errors*)) - (defconstant ,name ,number ,description) - (export ',name))) - -(defmacro emit-unix-errors () - (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*))) - (array (make-array (1+ max) :initial-element nil))) - (dolist (error *compiler-unix-errors*) - (setf (svref array (car error)) (cdr error))) - \`(progn - (defvar *unix-errors* ',array) - (declaim (simple-vector *unix-errors*))))) - -) ;eval-when -EOF - -# Output the default def-unix-error forms for the OSes where we don't -# grovel the include files to get the errno definitions. -cat >> $OUTPUT <<EOF -;;; -;;; From <errno.h> -;;; -(def-unix-error ESUCCESS 0 _N"Successful") -#-linux -(progn -(def-unix-error EPERM 1 _N"Operation not permitted") -(def-unix-error ENOENT 2 _N"No such file or directory") -(def-unix-error ESRCH 3 _N"No such process") -(def-unix-error EINTR 4 _N"Interrupted system call") -(def-unix-error EIO 5 _N"I/O error") -(def-unix-error ENXIO 6 _N"Device not configured") -(def-unix-error E2BIG 7 _N"Arg list too long") -(def-unix-error ENOEXEC 8 _N"Exec format error") -(def-unix-error EBADF 9 _N"Bad file descriptor") -(def-unix-error ECHILD 10 _N"No child process") -) -#+bsd(def-unix-error EDEADLK 11 _N"Resource deadlock avoided") -#-(or bsd linux) (def-unix-error EAGAIN 11 #-linux _N"No more processes" #+linux _N"Try again") -#-linux -(progn -(def-unix-error ENOMEM 12 _N"Out of memory") -(def-unix-error EACCES 13 _N"Permission denied") -(def-unix-error EFAULT 14 _N"Bad address") -(def-unix-error ENOTBLK 15 _N"Block device required") -(def-unix-error EBUSY 16 _N"Device or resource busy") -(def-unix-error EEXIST 17 _N"File exists") -(def-unix-error EXDEV 18 _N"Cross-device link") -(def-unix-error ENODEV 19 _N"No such device") -(def-unix-error ENOTDIR 20 _N"Not a director") -(def-unix-error EISDIR 21 _N"Is a directory") -(def-unix-error EINVAL 22 _N"Invalid argument") -(def-unix-error ENFILE 23 _N"File table overflow") -(def-unix-error EMFILE 24 _N"Too many open files") -(def-unix-error ENOTTY 25 _N"Inappropriate ioctl for device") -(def-unix-error ETXTBSY 26 _N"Text file busy") -(def-unix-error EFBIG 27 _N"File too large") -(def-unix-error ENOSPC 28 _N"No space left on device") -(def-unix-error ESPIPE 29 _N"Illegal seek") -(def-unix-error EROFS 30 _N"Read-only file system") -(def-unix-error EMLINK 31 _N"Too many links") -(def-unix-error EPIPE 32 _N"Broken pipe") -;;; -;;; Math -(def-unix-error EDOM 33 _N"Numerical argument out of domain") -(def-unix-error ERANGE 34 #-linux _N"Result too large" #+linux _N"Math result not representable") -) -;;; -#-(or linux svr4) -(progn -;;; non-blocking and interrupt i/o -(def-unix-error EWOULDBLOCK 35 _N"Operation would block") -#-bsd(def-unix-error EDEADLK 35 _N"Operation would block") ; Ditto -#+bsd(def-unix-error EAGAIN 35 _N"Resource temporarily unavailable") -(def-unix-error EINPROGRESS 36 _N"Operation now in progress") -(def-unix-error EALREADY 37 _N"Operation already in progress") -;;; -;;; ipc/network software -(def-unix-error ENOTSOCK 38 _N"Socket operation on non-socket") -(def-unix-error EDESTADDRREQ 39 _N"Destination address required") -(def-unix-error EMSGSIZE 40 _N"Message too long") -(def-unix-error EPROTOTYPE 41 _N"Protocol wrong type for socket") -(def-unix-error ENOPROTOOPT 42 _N"Protocol not available") -(def-unix-error EPROTONOSUPPORT 43 _N"Protocol not supported") -(def-unix-error ESOCKTNOSUPPORT 44 _N"Socket type not supported") -(def-unix-error EOPNOTSUPP 45 _N"Operation not supported on socket") -(def-unix-error EPFNOSUPPORT 46 _N"Protocol family not supported") -(def-unix-error EAFNOSUPPORT 47 _N"Address family not supported by protocol family") -(def-unix-error EADDRINUSE 48 _N"Address already in use") -(def-unix-error EADDRNOTAVAIL 49 _N"Can't assign requested address") -;;; -;;; operational errors -(def-unix-error ENETDOWN 50 _N"Network is down") -(def-unix-error ENETUNREACH 51 _N"Network is unreachable") -(def-unix-error ENETRESET 52 _N"Network dropped connection on reset") -(def-unix-error ECONNABORTED 53 _N"Software caused connection abort") -(def-unix-error ECONNRESET 54 _N"Connection reset by peer") -(def-unix-error ENOBUFS 55 _N"No buffer space available") -(def-unix-error EISCONN 56 _N"Socket is already connected") -(def-unix-error ENOTCONN 57 _N"Socket is not connected") -(def-unix-error ESHUTDOWN 58 _N"Can't send after socket shutdown") -(def-unix-error ETOOMANYREFS 59 _N"Too many references: can't splice") -(def-unix-error ETIMEDOUT 60 _N"Connection timed out") -(def-unix-error ECONNREFUSED 61 _N"Connection refused") -;;; -(def-unix-error ELOOP 62 _N"Too many levels of symbolic links") -(def-unix-error ENAMETOOLONG 63 _N"File name too long") -;;; -(def-unix-error EHOSTDOWN 64 _N"Host is down") -(def-unix-error EHOSTUNREACH 65 _N"No route to host") -(def-unix-error ENOTEMPTY 66 _N"Directory not empty") -;;; -;;; quotas & resource -(def-unix-error EPROCLIM 67 _N"Too many processes") -(def-unix-error EUSERS 68 _N"Too many users") -(def-unix-error EDQUOT 69 _N"Disc quota exceeded") -;;; -;;; CMU RFS -(def-unix-error ELOCAL 126 _N"namei should continue locally") -(def-unix-error EREMOTE 127 _N"namei was handled remotely") -;;; -;;; VICE -(def-unix-error EVICEERR 70 _N"Remote file system error _N") -(def-unix-error EVICEOP 71 _N"syscall was handled by Vice") -) -#+svr4 -(progn -(def-unix-error ENOMSG 35 _N"No message of desired type") -(def-unix-error EIDRM 36 _N"Identifier removed") -(def-unix-error ECHRNG 37 _N"Channel number out of range") -(def-unix-error EL2NSYNC 38 _N"Level 2 not synchronized") -(def-unix-error EL3HLT 39 _N"Level 3 halted") -(def-unix-error EL3RST 40 _N"Level 3 reset") -(def-unix-error ELNRNG 41 _N"Link number out of range") -(def-unix-error EUNATCH 42 _N"Protocol driver not attached") -(def-unix-error ENOCSI 43 _N"No CSI structure available") -(def-unix-error EL2HLT 44 _N"Level 2 halted") -(def-unix-error EDEADLK 45 _N"Deadlock situation detected/avoided") -(def-unix-error ENOLCK 46 _N"No record locks available") -(def-unix-error ECANCELED 47 _N"Error 47") -(def-unix-error ENOTSUP 48 _N"Error 48") -(def-unix-error EBADE 50 _N"Bad exchange descriptor") -(def-unix-error EBADR 51 _N"Bad request descriptor") -(def-unix-error EXFULL 52 _N"Message tables full") -(def-unix-error ENOANO 53 _N"Anode table overflow") -(def-unix-error EBADRQC 54 _N"Bad request code") -(def-unix-error EBADSLT 55 _N"Invalid slot") -(def-unix-error EDEADLOCK 56 _N"File locking deadlock") -(def-unix-error EBFONT 57 _N"Bad font file format") -(def-unix-error ENOSTR 60 _N"Not a stream device") -(def-unix-error ENODATA 61 _N"No data available") -(def-unix-error ETIME 62 _N"Timer expired") -(def-unix-error ENOSR 63 _N"Out of stream resources") -(def-unix-error ENONET 64 _N"Machine is not on the network") -(def-unix-error ENOPKG 65 _N"Package not installed") -(def-unix-error EREMOTE 66 _N"Object is remote") -(def-unix-error ENOLINK 67 _N"Link has been severed") -(def-unix-error EADV 68 _N"Advertise error") -(def-unix-error ESRMNT 69 _N"Srmount error") -(def-unix-error ECOMM 70 _N"Communication error on send") -(def-unix-error EPROTO 71 _N"Protocol error") -(def-unix-error EMULTIHOP 74 _N"Multihop attempted") -(def-unix-error EBADMSG 77 _N"Not a data message") -(def-unix-error ENAMETOOLONG 78 _N"File name too long") -(def-unix-error EOVERFLOW 79 _N"Value too large for defined data type") -(def-unix-error ENOTUNIQ 80 _N"Name not unique on network") -(def-unix-error EBADFD 81 _N"File descriptor in bad state") -(def-unix-error EREMCHG 82 _N"Remote address changed") -(def-unix-error ELIBACC 83 _N"Can not access a needed shared library") -(def-unix-error ELIBBAD 84 _N"Accessing a corrupted shared library") -(def-unix-error ELIBSCN 85 _N".lib section in a.out corrupted") -(def-unix-error ELIBMAX 86 _N"Attempting to link in more shared libraries than system limit") -(def-unix-error ELIBEXEC 87 _N"Can not exec a shared library directly") -(def-unix-error EILSEQ 88 _N"Error 88") -(def-unix-error ENOSYS 89 _N"Operation not applicable") -(def-unix-error ELOOP 90 _N"Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS") -(def-unix-error ERESTART 91 _N"Error 91") -(def-unix-error ESTRPIPE 92 _N"Error 92") -(def-unix-error ENOTEMPTY 93 _N"Directory not empty") -(def-unix-error EUSERS 94 _N"Too many users") -(def-unix-error ENOTSOCK 95 _N"Socket operation on non-socket") -(def-unix-error EDESTADDRREQ 96 _N"Destination address required") -(def-unix-error EMSGSIZE 97 _N"Message too long") -(def-unix-error EPROTOTYPE 98 _N"Protocol wrong type for socket") -(def-unix-error ENOPROTOOPT 99 _N"Option not supported by protocol") -(def-unix-error EPROTONOSUPPORT 120 _N"Protocol not supported") -(def-unix-error ESOCKTNOSUPPORT 121 _N"Socket type not supported") -(def-unix-error EOPNOTSUPP 122 _N"Operation not supported on transport endpoint") -(def-unix-error EPFNOSUPPORT 123 _N"Protocol family not supported") -(def-unix-error EAFNOSUPPORT 124 _N"Address family not supported by protocol family") -(def-unix-error EADDRINUSE 125 _N"Address already in use") -(def-unix-error EADDRNOTAVAIL 126 _N"Cannot assign requested address") -(def-unix-error ENETDOWN 127 _N"Network is down") -(def-unix-error ENETUNREACH 128 _N"Network is unreachable") -(def-unix-error ENETRESET 129 _N"Network dropped connection because of reset") -(def-unix-error ECONNABORTED 130 _N"Software caused connection abort") -(def-unix-error ECONNRESET 131 _N"Connection reset by peer") -(def-unix-error ENOBUFS 132 _N"No buffer space available") -(def-unix-error EISCONN 133 _N"Transport endpoint is already connected") -(def-unix-error ENOTCONN 134 _N"Transport endpoint is not connected") -(def-unix-error ESHUTDOWN 143 _N"Cannot send after socket shutdown") -(def-unix-error ETOOMANYREFS 144 _N"Too many references: cannot splice") -(def-unix-error ETIMEDOUT 145 _N"Connection timed out") -(def-unix-error ECONNREFUSED 146 _N"Connection refused") -(def-unix-error EHOSTDOWN 147 _N"Host is down") -(def-unix-error EHOSTUNREACH 148 _N"No route to host") -(def-unix-error EWOULDBLOCK 11 _N"Resource temporarily unavailable") -(def-unix-error EALREADY 149 _N"Operation already in progress") -(def-unix-error EINPROGRESS 150 _N"Operation now in progress") -(def-unix-error ESTALE 151 _N"Stale NFS file handle") -) - -;;; Auto-generated forms, if any. -EOF +# Copy the main errno template to the output. The template is a lisp +# file so we can read and modify it more easily. +cat bin/errno-template.lisp > $OUTPUT # Create appropriate DEF-UNIX-ERROR forms by reading header files # containing the C definitions. ===================================== bin/errno-template.lisp ===================================== @@ -0,0 +1,320 @@ +;;; -*- Package: ERRNO -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; +(ext:file-comment + "$Header: src/code/errno.lisp $") +;;; +;;; ********************************************************************** +;;; +;;; This file contains the UNIX low-level support, just enough to run +;;; CMUCL. +;;; +(in-package "ERRNO") +(intl:textdomain "cmucl-unix") + +;;;; Errno stuff. + +(eval-when (compile eval) + +(defparameter *compiler-unix-errors* nil) + +(defmacro def-unix-error (name number &optional description) + `(progn + (eval-when (compile eval) + (push (cons ,number ,description) *compiler-unix-errors*)) + (defconstant ,name ,number ,description) + (export ',name))) + +(defmacro emit-unix-errors () + (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*))) + (array (make-array (1+ max) :initial-element nil))) + (dolist (error *compiler-unix-errors*) + (setf (svref array (car error)) (cdr error))) + `(progn + (defvar *unix-errors* ',array) + (declaim (simple-vector *unix-errors*))))) + +) ;eval-when + +;;; +;;; From <errno.h> +;;; +(def-unix-error ESUCCESS 0 _N"Successful") +(def-unix-error EPERM 1 _N"Operation not permitted") +(def-unix-error ENOENT 2 _N"No such file or directory") +(def-unix-error ESRCH 3 _N"No such process") +(def-unix-error EINTR 4 _N"Interrupted system call") +(def-unix-error EIO 5 _N"I/O error") +(def-unix-error ENXIO 6 _N"Device not configured") +(def-unix-error E2BIG 7 _N"Arg list too long") +(def-unix-error ENOEXEC 8 _N"Exec format error") +(def-unix-error EBADF 9 _N"Bad file descriptor") +(def-unix-error ECHILD 10 _N"No child process") +#+bsd(def-unix-error EDEADLK 11 _N"Resource deadlock avoided") +#-bsd(def-unix-error EAGAIN 11 #-linux _N"No more processes" #+linux _N"Try again") +(def-unix-error ENOMEM 12 _N"Out of memory") +(def-unix-error EACCES 13 _N"Permission denied") +(def-unix-error EFAULT 14 _N"Bad address") +(def-unix-error ENOTBLK 15 _N"Block device required") +(def-unix-error EBUSY 16 _N"Device or resource busy") +(def-unix-error EEXIST 17 _N"File exists") +(def-unix-error EXDEV 18 _N"Cross-device link") +(def-unix-error ENODEV 19 _N"No such device") +(def-unix-error ENOTDIR 20 _N"Not a director") +(def-unix-error EISDIR 21 _N"Is a directory") +(def-unix-error EINVAL 22 _N"Invalid argument") +(def-unix-error ENFILE 23 _N"File table overflow") +(def-unix-error EMFILE 24 _N"Too many open files") +(def-unix-error ENOTTY 25 _N"Inappropriate ioctl for device") +(def-unix-error ETXTBSY 26 _N"Text file busy") +(def-unix-error EFBIG 27 _N"File too large") +(def-unix-error ENOSPC 28 _N"No space left on device") +(def-unix-error ESPIPE 29 _N"Illegal seek") +(def-unix-error EROFS 30 _N"Read-only file system") +(def-unix-error EMLINK 31 _N"Too many links") +(def-unix-error EPIPE 32 _N"Broken pipe") +;;; +;;; Math +(def-unix-error EDOM 33 _N"Numerical argument out of domain") +(def-unix-error ERANGE 34 #-linux _N"Result too large" #+linux _N"Math result not representable") +;;; +#-(or linux svr4) +(progn +;;; non-blocking and interrupt i/o +(def-unix-error EWOULDBLOCK 35 _N"Operation would block") +#-bsd(def-unix-error EDEADLK 35 _N"Operation would block") ; Ditto +#+bsd(def-unix-error EAGAIN 35 _N"Resource temporarily unavailable") +(def-unix-error EINPROGRESS 36 _N"Operation now in progress") +(def-unix-error EALREADY 37 _N"Operation already in progress") +;;; +;;; ipc/network software +(def-unix-error ENOTSOCK 38 _N"Socket operation on non-socket") +(def-unix-error EDESTADDRREQ 39 _N"Destination address required") +(def-unix-error EMSGSIZE 40 _N"Message too long") +(def-unix-error EPROTOTYPE 41 _N"Protocol wrong type for socket") +(def-unix-error ENOPROTOOPT 42 _N"Protocol not available") +(def-unix-error EPROTONOSUPPORT 43 _N"Protocol not supported") +(def-unix-error ESOCKTNOSUPPORT 44 _N"Socket type not supported") +(def-unix-error EOPNOTSUPP 45 _N"Operation not supported on socket") +(def-unix-error EPFNOSUPPORT 46 _N"Protocol family not supported") +(def-unix-error EAFNOSUPPORT 47 _N"Address family not supported by protocol family") +(def-unix-error EADDRINUSE 48 _N"Address already in use") +(def-unix-error EADDRNOTAVAIL 49 _N"Can't assign requested address") +;;; +;;; operational errors +(def-unix-error ENETDOWN 50 _N"Network is down") +(def-unix-error ENETUNREACH 51 _N"Network is unreachable") +(def-unix-error ENETRESET 52 _N"Network dropped connection on reset") +(def-unix-error ECONNABORTED 53 _N"Software caused connection abort") +(def-unix-error ECONNRESET 54 _N"Connection reset by peer") +(def-unix-error ENOBUFS 55 _N"No buffer space available") +(def-unix-error EISCONN 56 _N"Socket is already connected") +(def-unix-error ENOTCONN 57 _N"Socket is not connected") +(def-unix-error ESHUTDOWN 58 _N"Can't send after socket shutdown") +(def-unix-error ETOOMANYREFS 59 _N"Too many references: can't splice") +(def-unix-error ETIMEDOUT 60 _N"Connection timed out") +(def-unix-error ECONNREFUSED 61 _N"Connection refused") +;;; +(def-unix-error ELOOP 62 _N"Too many levels of symbolic links") +(def-unix-error ENAMETOOLONG 63 _N"File name too long") +;;; +(def-unix-error EHOSTDOWN 64 _N"Host is down") +(def-unix-error EHOSTUNREACH 65 _N"No route to host") +(def-unix-error ENOTEMPTY 66 _N"Directory not empty") +;;; +;;; quotas & resource +(def-unix-error EPROCLIM 67 _N"Too many processes") +(def-unix-error EUSERS 68 _N"Too many users") +(def-unix-error EDQUOT 69 _N"Disc quota exceeded") +;;; +;;; CMU RFS +(def-unix-error ELOCAL 126 _N"namei should continue locally") +(def-unix-error EREMOTE 127 _N"namei was handled remotely") +;;; +;;; VICE +(def-unix-error EVICEERR 70 _N"Remote file system error _N") +(def-unix-error EVICEOP 71 _N"syscall was handled by Vice") +) +#+svr4 +(progn +(def-unix-error ENOMSG 35 _N"No message of desired type") +(def-unix-error EIDRM 36 _N"Identifier removed") +(def-unix-error ECHRNG 37 _N"Channel number out of range") +(def-unix-error EL2NSYNC 38 _N"Level 2 not synchronized") +(def-unix-error EL3HLT 39 _N"Level 3 halted") +(def-unix-error EL3RST 40 _N"Level 3 reset") +(def-unix-error ELNRNG 41 _N"Link number out of range") +(def-unix-error EUNATCH 42 _N"Protocol driver not attached") +(def-unix-error ENOCSI 43 _N"No CSI structure available") +(def-unix-error EL2HLT 44 _N"Level 2 halted") +(def-unix-error EDEADLK 45 _N"Deadlock situation detected/avoided") +(def-unix-error ENOLCK 46 _N"No record locks available") +(def-unix-error ECANCELED 47 _N"Error 47") +(def-unix-error ENOTSUP 48 _N"Error 48") +(def-unix-error EBADE 50 _N"Bad exchange descriptor") +(def-unix-error EBADR 51 _N"Bad request descriptor") +(def-unix-error EXFULL 52 _N"Message tables full") +(def-unix-error ENOANO 53 _N"Anode table overflow") +(def-unix-error EBADRQC 54 _N"Bad request code") +(def-unix-error EBADSLT 55 _N"Invalid slot") +(def-unix-error EDEADLOCK 56 _N"File locking deadlock") +(def-unix-error EBFONT 57 _N"Bad font file format") +(def-unix-error ENOSTR 60 _N"Not a stream device") +(def-unix-error ENODATA 61 _N"No data available") +(def-unix-error ETIME 62 _N"Timer expired") +(def-unix-error ENOSR 63 _N"Out of stream resources") +(def-unix-error ENONET 64 _N"Machine is not on the network") +(def-unix-error ENOPKG 65 _N"Package not installed") +(def-unix-error EREMOTE 66 _N"Object is remote") +(def-unix-error ENOLINK 67 _N"Link has been severed") +(def-unix-error EADV 68 _N"Advertise error") +(def-unix-error ESRMNT 69 _N"Srmount error") +(def-unix-error ECOMM 70 _N"Communication error on send") +(def-unix-error EPROTO 71 _N"Protocol error") +(def-unix-error EMULTIHOP 74 _N"Multihop attempted") +(def-unix-error EBADMSG 77 _N"Not a data message") +(def-unix-error ENAMETOOLONG 78 _N"File name too long") +(def-unix-error EOVERFLOW 79 _N"Value too large for defined data type") +(def-unix-error ENOTUNIQ 80 _N"Name not unique on network") +(def-unix-error EBADFD 81 _N"File descriptor in bad state") +(def-unix-error EREMCHG 82 _N"Remote address changed") +(def-unix-error ELIBACC 83 _N"Can not access a needed shared library") +(def-unix-error ELIBBAD 84 _N"Accessing a corrupted shared library") +(def-unix-error ELIBSCN 85 _N".lib section in a.out corrupted") +(def-unix-error ELIBMAX 86 _N"Attempting to link in more shared libraries than system limit") +(def-unix-error ELIBEXEC 87 _N"Can not exec a shared library directly") +(def-unix-error EILSEQ 88 _N"Error 88") +(def-unix-error ENOSYS 89 _N"Operation not applicable") +(def-unix-error ELOOP 90 _N"Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS") +(def-unix-error ERESTART 91 _N"Error 91") +(def-unix-error ESTRPIPE 92 _N"Error 92") +(def-unix-error ENOTEMPTY 93 _N"Directory not empty") +(def-unix-error EUSERS 94 _N"Too many users") +(def-unix-error ENOTSOCK 95 _N"Socket operation on non-socket") +(def-unix-error EDESTADDRREQ 96 _N"Destination address required") +(def-unix-error EMSGSIZE 97 _N"Message too long") +(def-unix-error EPROTOTYPE 98 _N"Protocol wrong type for socket") +(def-unix-error ENOPROTOOPT 99 _N"Option not supported by protocol") +(def-unix-error EPROTONOSUPPORT 120 _N"Protocol not supported") +(def-unix-error ESOCKTNOSUPPORT 121 _N"Socket type not supported") +(def-unix-error EOPNOTSUPP 122 _N"Operation not supported on transport endpoint") +(def-unix-error EPFNOSUPPORT 123 _N"Protocol family not supported") +(def-unix-error EAFNOSUPPORT 124 _N"Address family not supported by protocol family") +(def-unix-error EADDRINUSE 125 _N"Address already in use") +(def-unix-error EADDRNOTAVAIL 126 _N"Cannot assign requested address") +(def-unix-error ENETDOWN 127 _N"Network is down") +(def-unix-error ENETUNREACH 128 _N"Network is unreachable") +(def-unix-error ENETRESET 129 _N"Network dropped connection because of reset") +(def-unix-error ECONNABORTED 130 _N"Software caused connection abort") +(def-unix-error ECONNRESET 131 _N"Connection reset by peer") +(def-unix-error ENOBUFS 132 _N"No buffer space available") +(def-unix-error EISCONN 133 _N"Transport endpoint is already connected") +(def-unix-error ENOTCONN 134 _N"Transport endpoint is not connected") +(def-unix-error ESHUTDOWN 143 _N"Cannot send after socket shutdown") +(def-unix-error ETOOMANYREFS 144 _N"Too many references: cannot splice") +(def-unix-error ETIMEDOUT 145 _N"Connection timed out") +(def-unix-error ECONNREFUSED 146 _N"Connection refused") +(def-unix-error EHOSTDOWN 147 _N"Host is down") +(def-unix-error EHOSTUNREACH 148 _N"No route to host") +(def-unix-error EWOULDBLOCK 11 _N"Resource temporarily unavailable") +(def-unix-error EALREADY 149 _N"Operation already in progress") +(def-unix-error EINPROGRESS 150 _N"Operation now in progress") +(def-unix-error ESTALE 151 _N"Stale NFS file handle") +) +#+linux +(progn +(def-unix-error EDEADLK 35 _N"Resource deadlock would occur") +(def-unix-error ENAMETOOLONG 36 _N"File name too long") +(def-unix-error ENOLCK 37 _N"No record locks available") +(def-unix-error ENOSYS 38 _N"Function not implemented") +(def-unix-error ENOTEMPTY 39 _N"Directory not empty") +(def-unix-error ELOOP 40 _N"Too many symbolic links encountered") +(def-unix-error EWOULDBLOCK 11 _N"Operation would block") +(def-unix-error ENOMSG 42 _N"No message of desired type") +(def-unix-error EIDRM 43 _N"Identifier removed") +(def-unix-error ECHRNG 44 _N"Channel number out of range") +(def-unix-error EL2NSYNC 45 _N"Level 2 not synchronized") +(def-unix-error EL3HLT 46 _N"Level 3 halted") +(def-unix-error EL3RST 47 _N"Level 3 reset") +(def-unix-error ELNRNG 48 _N"Link number out of range") +(def-unix-error EUNATCH 49 _N"Protocol driver not attached") +(def-unix-error ENOCSI 50 _N"No CSI structure available") +(def-unix-error EL2HLT 51 _N"Level 2 halted") +(def-unix-error EBADE 52 _N"Invalid exchange") +(def-unix-error EBADR 53 _N"Invalid request descriptor") +(def-unix-error EXFULL 54 _N"Exchange full") +(def-unix-error ENOANO 55 _N"No anode") +(def-unix-error EBADRQC 56 _N"Invalid request code") +(def-unix-error EBADSLT 57 _N"Invalid slot") +(def-unix-error EDEADLOCK EDEADLK _N"File locking deadlock error") +(def-unix-error EBFONT 59 _N"Bad font file format") +(def-unix-error ENOSTR 60 _N"Device not a stream") +(def-unix-error ENODATA 61 _N"No data available") +(def-unix-error ETIME 62 _N"Timer expired") +(def-unix-error ENOSR 63 _N"Out of streams resources") +(def-unix-error ENONET 64 _N"Machine is not on the network") +(def-unix-error ENOPKG 65 _N"Package not installed") +(def-unix-error EREMOTE 66 _N"Object is remote") +(def-unix-error ENOLINK 67 _N"Link has been severed") +(def-unix-error EADV 68 _N"Advertise error") +(def-unix-error ESRMNT 69 _N"Srmount error") +(def-unix-error ECOMM 70 _N"Communication error on send") +(def-unix-error EPROTO 71 _N"Protocol error") +(def-unix-error EMULTIHOP 72 _N"Multihop attempted") +(def-unix-error EDOTDOT 73 _N"RFS specific error") +(def-unix-error EBADMSG 74 _N"Not a data message") +(def-unix-error EOVERFLOW 75 _N"Value too large for defined data type") +(def-unix-error ENOTUNIQ 76 _N"Name not unique on network") +(def-unix-error EBADFD 77 _N"File descriptor in bad state") +(def-unix-error EREMCHG 78 _N"Remote address changed") +(def-unix-error ELIBACC 79 _N"Can not access a needed shared library") +(def-unix-error ELIBBAD 80 _N"Accessing a corrupted shared library") +(def-unix-error ELIBSCN 81 _N".lib section in a.out corrupted") +(def-unix-error ELIBMAX 82 _N"Attempting to link in too many shared libraries") +(def-unix-error ELIBEXEC 83 _N"Cannot exec a shared library directly") +(def-unix-error EILSEQ 84 _N"Illegal byte sequence") +(def-unix-error ERESTART 85 _N"Interrupted system call should be restarted _N") +(def-unix-error ESTRPIPE 86 _N"Streams pipe error") +(def-unix-error EUSERS 87 _N"Too many users") +(def-unix-error ENOTSOCK 88 _N"Socket operation on non-socket") +(def-unix-error EDESTADDRREQ 89 _N"Destination address required") +(def-unix-error EMSGSIZE 90 _N"Message too long") +(def-unix-error EPROTOTYPE 91 _N"Protocol wrong type for socket") +(def-unix-error ENOPROTOOPT 92 _N"Protocol not available") +(def-unix-error EPROTONOSUPPORT 93 _N"Protocol not supported") +(def-unix-error ESOCKTNOSUPPORT 94 _N"Socket type not supported") +(def-unix-error EOPNOTSUPP 95 _N"Operation not supported on transport endpoint") +(def-unix-error EPFNOSUPPORT 96 _N"Protocol family not supported") +(def-unix-error EAFNOSUPPORT 97 _N"Address family not supported by protocol") +(def-unix-error EADDRINUSE 98 _N"Address already in use") +(def-unix-error EADDRNOTAVAIL 99 _N"Cannot assign requested address") +(def-unix-error ENETDOWN 100 _N"Network is down") +(def-unix-error ENETUNREACH 101 _N"Network is unreachable") +(def-unix-error ENETRESET 102 _N"Network dropped connection because of reset") +(def-unix-error ECONNABORTED 103 _N"Software caused connection abort") +(def-unix-error ECONNRESET 104 _N"Connection reset by peer") +(def-unix-error ENOBUFS 105 _N"No buffer space available") +(def-unix-error EISCONN 106 _N"Transport endpoint is already connected") +(def-unix-error ENOTCONN 107 _N"Transport endpoint is not connected") +(def-unix-error ESHUTDOWN 108 _N"Cannot send after transport endpoint shutdown") +(def-unix-error ETOOMANYREFS 109 _N"Too many references: cannot splice") +(def-unix-error ETIMEDOUT 110 _N"Connection timed out") +(def-unix-error ECONNREFUSED 111 _N"Connection refused") +(def-unix-error EHOSTDOWN 112 _N"Host is down") +(def-unix-error EHOSTUNREACH 113 _N"No route to host") +(def-unix-error EALREADY 114 _N"Operation already in progress") +(def-unix-error EINPROGRESS 115 _N"Operation now in progress") +(def-unix-error ESTALE 116 _N"Stale NFS file handle") +(def-unix-error EUCLEAN 117 _N"Structure needs cleaning") +(def-unix-error ENOTNAM 118 _N"Not a XENIX named type file") +(def-unix-error ENAVAIL 119 _N"No XENIX semaphores available") +(def-unix-error EISNAM 120 _N"Is a named type file") +(def-unix-error EREMOTEIO 121 _N"Remote I/O error") +(def-unix-error EDQUOT 122 _N"Quota exceeded") +) + +;;; Auto-generated forms, if any, follow here. + View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/58142415c6a7b8ba1250322… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/58142415c6a7b8ba1250322… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Make create-errno.sh self-contained
by Raymond Toy (＠rtoy) 28 Feb '25

28 Feb '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 5611669b by Raymond Toy at 2025-02-27T18:34:54-08:00 Make create-errno.sh self-contained All of the logic is moved to create-errno.sh so that the callers don't need to know anything about what's happening. The output is always src/code/errno.lisp. Update callers to remove stuff that is now in create-errno.sh - - - - - 3 changed files: - bin/build.sh - bin/create-errno.sh - bin/cross-build-world.sh Changes: ===================================== bin/build.sh ===================================== @@ -157,14 +157,8 @@ buildit () fi } -# Create src/code/errno.lisp by reading the errno definitions from the -# header files. -case `uname -s` in - Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h - ;; -esac - -bin/create-errno.sh ${ERRNO_FILES} > src/code/errno.lisp +# Create the errno file containing all the def-unix-error forms. +bin/create-errno.sh BUILDWORLD="$TOOLDIR/build-world.sh" BUILD_POT="yes" ===================================== bin/create-errno.sh ===================================== @@ -5,11 +5,14 @@ # definitions of all the Unix errno values. # +# Where the output should go. +OUTPUT="src/code/errno.lisp" + # The header was copied from code/unix.lisp. This includes all the # support code for DEF-UNIX-ERROR and for all OSes that don't use the # awk script to create the DEF-UNIX-ERROR forms. # -cat <<EOF +cat > $OUTPUT <<EOF ;;; -*- Package: ERRNO -*- ;;; ;;; ********************************************************************** @@ -51,7 +54,11 @@ cat <<EOF (declaim (simple-vector *unix-errors*))))) ) ;eval-when +EOF +# Output the default def-unix-error forms for the OSes where we don't +# grovel the include files to get the errno definitions. +cat >> $OUTPUT <<EOF ;;; ;;; From <errno.h> ;;; @@ -249,13 +256,20 @@ EOF # Create appropriate DEF-UNIX-ERROR forms by reading header files # containing the C definitions. + +# Set ERRNO_FILES to the files where we can find errno definitions. +case `uname -s` in + Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h + ;; +esac + awk '/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ { printf "(def-unix-error %s %s)\n", $2, $3; -}' "$@" +}' "$@" ${ERRNO_FILES} >> $OUTPUT # The tail was also copied from code/unix.lisp. It's needed to tell # Lisp about the errno values. -cat <<EOF +cat >>$OUTPUT <<EOF ;;; End auto-generated forms, if any. ;;; ===================================== bin/cross-build-world.sh ===================================== @@ -84,13 +84,8 @@ then sed "s:^src:$CROSS:g" | xargs mkdir fi -# Create unix-errno.lisp -case `uname -s` in - Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h - ;; -esac - -bin/create-errno.sh ${ERRNO_FILES} > src/code/errno.lisp +# Create the errno file containing all the def-unix-error forms. +bin/create-errno.sh echo cross boot = $CROSSBOOT $LISP "$@" -noinit -nositeinit <<EOF View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5611669b2c2e95093f53a17… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5611669b2c2e95093f53a17… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-386-generate-def-unix-error
by Raymond Toy (＠rtoy) 28 Feb '25

28 Feb '25

Raymond Toy pushed new branch issue-386-generate-def-unix-error at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-386-generate-def-un… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Address #386: Group all errno symbols by OS feature
by Raymond Toy (＠rtoy) 27 Feb '25

27 Feb '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: bf0a4435 by Raymond Toy at 2025-02-27T22:21:25+00:00 Address #386: Group all errno symbols by OS feature - - - - - 8335d636 by Raymond Toy at 2025-02-27T22:21:25+00:00 Merge branch 'issue-386-group-errno-syms' into 'master' Address #386: Group all errno symbols by OS feature See merge request cmucl/cmucl!274 - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -31,6 +31,9 @@ (if (find-package "BIGNUM") (rename-package "BIGNUM" "BIGNUM" 'nil) (make-package "BIGNUM" :nicknames 'nil :use nil)) +(if (find-package "UNIX-ERRNO") + (rename-package "UNIX-ERRNO" "UNIX-ERRNO" 'nil) + (make-package "UNIX-ERRNO" :nicknames 'nil :use nil)) (if (find-package "UNIX") (rename-package "UNIX" "UNIX" 'nil) (make-package "UNIX" :nicknames 'nil :use nil)) @@ -196,6 +199,450 @@ "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) +(defpackage "ERRNO" + #+linux + (:export "E2BIG" + "EACCES" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" + "EBUSY" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" + "EDOTDOT" + "EDQUOT" + "EEXIST" + "EFAULT" + "EFBIG" + "EHOSTDOWN" + "EHOSTUNREACH" + "EIDRM" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EISNAM" + "EL2HLT" + "EL2NSYNC" + "EL3HLT" + "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" + "ELNRNG" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENAVAIL" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" + "ENOANO" + "ENOBUFS" + "ENOCSI" + "ENODATA" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" + "ENONET" + "ENOPKG" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" + "ENOSYS" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" + "ENOTEMPTY" + "ENOTNAM" + "ENOTSOCK" + "ENOTTY" + "ENOTUNIQ" + "ENXIO" + "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" + "EPFNOSUPPORT" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMCHG" + "EREMOTE" + "EREMOTEIO" + "ERESTART" + "EROFS" + "ESHUTDOWN" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" + "ESTRPIPE" + "ESUCCESS" + "ETIME" + "ETIMEDOUT" + "ETOOMANYREFS" + "ETXTBSY" + "EUCLEAN" + "EUNATCH" + "EUSERS" + "EWOULDBLOCK" + "EXDEV" + "EXFULL" + ) + #+(or bsd darwin) + (:export "E2BIG" + "EACCES" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADF" + "EBUSY" + "ECHILD" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDESTADDRREQ" + "EDOM" + "EDQUOT" + "EEXIST" + "EFAULT" + "EFBIG" + "EHOSTDOWN" + "EHOSTUNREACH" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "ELOCAL" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" + "ENOBUFS" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOMEM" + "ENOPROTOOPT" + "ENOSPC" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" + "ENOTEMPTY" + "ENOTSOCK" + "ENOTTY" + "ENXIO" + "EOPNOTSUPP" + "EPERM" + "EPFNOSUPPORT" + "EPIPE" + "EPROCLIM" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMOTE" + "EROFS" + "ESHUTDOWN" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESUCCESS" + "ETIMEDOUT" + "ETOOMANYREFS" + "ETXTBSY" + "EUSERS" + "EVICEERR" + "EVICEOP" + "EWOULDBLOCK" + "EXDEV" + ) + #+solaris + (:export "E2BIG" + "EACCES" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" + "EBUSY" + "ECANCELED" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" + "EEXIST" + "EFAULT" + "EFBIG" + "EHOSTDOWN" + "EHOSTUNREACH" + "EIDRM" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EL2HLT" + "EL2NSYNC" + "EL3HLT" + "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" + "ELNRNG" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" + "ENOANO" + "ENOBUFS" + "ENOCSI" + "ENODATA" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" + "ENONET" + "ENOPKG" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" + "ENOSYS" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" + "ENOTEMPTY" + "ENOTSOCK" + "ENOTSUP" + "ENOTTY" + "ENOTUNIQ" + "ENXIO" + "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" + "EPFNOSUPPORT" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMCHG" + "EREMOTE" + "ERESTART" + "EROFS" + "ESHUTDOWN" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" + "ESTRPIPE" + "ESUCCESS" + "ETIME" + "ETIMEDOUT" + "ETOOMANYREFS" + "ETXTBSY" + "EUNATCH" + "EUSERS" + "EWOULDBLOCK" + "EXDEV" + "EXFULL" + ) + #-(or linux solaris bsd darwin) + (:export "E2BIG" + "EACCES" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" + "EBUSY" + "ECANCELED" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" + "EEXIST" + "EFAULT" + "EFBIG" + "EHOSTDOWN" + "EHOSTUNREACH" + "EIDRM" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EL2HLT" + "EL2NSYNC" + "EL3HLT" + "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" + "ELNRNG" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" + "ENOANO" + "ENOBUFS" + "ENOCSI" + "ENODATA" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" + "ENONET" + "ENOPKG" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" + "ENOSYS" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" + "ENOTEMPTY" + "ENOTSOCK" + "ENOTSUP" + "ENOTTY" + "ENOTUNIQ" + "ENXIO" + "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" + "EPFNOSUPPORT" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMCHG" + "EREMOTE" + "ERESTART" + "EROFS" + "ESHUTDOWN" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" + "ESTRPIPE" + "ESUCCESS" + "ETIME" + "ETIMEDOUT" + "ETOOMANYREFS" + "ETXTBSY" + "EUNATCH" + "EUSERS" + "EWOULDBLOCK" + "EXDEV" + "EXFULL" + )) + (defpackage "UNIX" (:export "UNIX-CURRENT-DIRECTORY" "UNIX-OPEN" @@ -309,18 +756,8 @@ ;; Other symbols from structures, etc. "C-CC" "C-CFLAG" "C-IFLAG" "C-ISPEED" "C-LFLAG" "C-OFLAG" "C-OSPEED" - "CHECK" "D-NAME" "D-RECLEN" "E2BIG" "EACCES" "EADDRINUSE" "EADDRNOTAVAIL" - "EAFNOSUPPORT" "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" - "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" - "EDOM" "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN" "EHOSTUNREACH" - "EINPROGRESS" "EINTR" "EINVAL" "EIO" "EISCONN" "EISDIR" "ELOOP" "EMFILE" - "EMLINK" "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET" "ENETUNREACH" - "ENFILE" "ENOBUFS" "ENODEV" "ENOENT" "ENOEXEC" "ENOMEM" "ENOPROTOOPT" - "ENOSPC" "ENOTBLK" "ENOTCONN" "ENOTDIR" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" - "ENXIO" "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROTONOSUPPORT" - "EPROTOTYPE" "ERANGE" "EREMOTE" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" - "ESPIPE" "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY" "EUSERS" - "EWOULDBLOCK" "EXDEV" "F-GETFL" "F-GETOWN" "F-SETFL" "F-SETOWN" "FAPPEND" + "CHECK" "D-NAME" "D-RECLEN" + "F-GETFL" "F-GETOWN" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC" "FD-SET" "FD-ZERO" "FNDELAY" "F_OK" "GID-T" "IT-INTERVAL" "IT-VALUE" "ITIMERVAL" "L_INCR" "L_SET" "L_XTND" "MAP_ANONYMOUS" "MAP_FIXED" "MAP_PRIVATE" "MAP_SHARED" "MS_ASYNC" "MS_INVALIDATE" @@ -368,7 +805,6 @@ (:export "TCHARS" "LTCHARS" "D-NAMLEN" - ;; run-program.lisp "SGTTYB" @@ -396,14 +832,8 @@ "SGTTYB" ;; Other symbols - "BLKCNT-T" "D-INO" "D-OFF" "EADV" "EBADE" "EBADFD" "EBADMSG" "EBADR" - "EBADRQC" "EBADSLT" "EBFONT" "ECHRNG" "ECOMM" "EDEADLOCK" "EDOTDOT" - "EIDRM" "EILSEQ" "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC" - "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" "ELNRNG" "EMULTIHOP" "ENAVAIL" - "ENOANO" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET" "ENOPKG" - "ENOSR" "ENOSTR" "ENOSYS" "ENOTNAM" "ENOTUNIQ" "EOVERFLOW" "EPROTO" - "EREMCHG" "EREMOTEIO" "ERESTART" "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" - "EUCLEAN" "EUNATCH" "EXFULL" "O_NOCTTY" "SIGSTKFLT" + "BLKCNT-T" "D-INO" "D-OFF" + "O_NOCTTY" "SIGSTKFLT" "SG-FLAGS" "TIOCGETP" "TIOCSETP" @@ -416,57 +846,10 @@ (:export "D-INO" "D-OFF" "DIRECT" - "EADV" - "EBADE" - "EBADFD" - "EBADMSG" - "EBADR" - "EBADRQC" - "EBADSLT" - "EBFONT" - "ECANCELED" - "ECHRNG" - "ECOMM" - "EDEADLOCK" - "EIDRM" - "EILSEQ" - "EL2HLT" - "EL2NSYNC" - "EL3HLT" - "EL3RST" - "ELIBACC" - "ELIBBAD" - "ELIBEXEC" - "ELIBMAX" - "ELIBSCN" - "ELNRNG" - "EMULTIHOP" - "ENOANO" - "ENOCSI" - "ENODATA" - "ENOLCK" - "ENOLINK" - "ENOMSG" - "ENONET" - "ENOPKG" - "ENOSR" - "ENOSTR" - "ENOSYS" - "ENOTSUP" - "ENOTUNIQ" - "EOVERFLOW" - "EPROTO" - "EREMCHG" - "ERESTART" - "ESRMNT" - "ESTALE" - "ESTRPIPE" - "ETIME" - "EUNATCH" "EXECGRP" "EXECOTH" "EXECOWN" - "EXFULL" + "F-DUPFD" "F-GETFD" "F-SETFD" @@ -553,7 +936,15 @@ "WRITEGRP" "WRITEOTH" "XMT1EN" - )) + ) + ) + +;; Import all of the symbols from UNIX-ERRNO into UNIX and the export +;; them. +(ext:without-package-locks + (do-external-symbols (sym "ERRNO") + (shadowing-import sym "UNIX") + (export sym "UNIX"))) (defpackage "FORMAT") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c0b4f40ae628572d85f9e2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c0b4f40ae628572d85f9e2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-group-errno-syms] Rename package to ERRNO and sort symbols alphabetically.
by Raymond Toy (＠rtoy) 27 Feb '25

27 Feb '25

Raymond Toy pushed to branch issue-386-group-errno-syms at cmucl / cmucl Commits: d1eb0294 by Raymond Toy at 2025-02-27T05:58:05-08:00 Rename package to ERRNO and sort symbols alphabetically. - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -199,448 +199,448 @@ "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) -(defpackage "UNIX-ERRNO" +(defpackage "ERRNO" #+linux - (:export "ESUCCESS" - "EPERM" - "ENOENT" - "ESRCH" - "EINTR" - "EIO" - "ENXIO" - "E2BIG" - "ENOEXEC" - "EBADF" - "ECHILD" - "EAGAIN" - "ENOMEM" + (:export "E2BIG" "EACCES" - "EFAULT" - "ENOTBLK" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" "EBUSY" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" + "EDOTDOT" + "EDQUOT" "EEXIST" - "EXDEV" - "ENODEV" - "ENOTDIR" - "EISDIR" - "EINVAL" - "ENFILE" - "EMFILE" - "ENOTTY" - "ETXTBSY" + "EFAULT" "EFBIG" - "ENOSPC" - "ESPIPE" - "EROFS" - "EMLINK" - "EPIPE" - "EDOM" - "ERANGE" - "EDEADLK" - "ENAMETOOLONG" - "ENOLCK" - "ENOSYS" - "ENOTEMPTY" - "ELOOP" - "EWOULDBLOCK" - "ENOMSG" + "EHOSTDOWN" + "EHOSTUNREACH" "EIDRM" - "ECHRNG" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EISNAM" + "EL2HLT" "EL2NSYNC" "EL3HLT" "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" "ELNRNG" - "EUNATCH" - "ENOCSI" - "EL2HLT" - "EBADE" - "EBADR" - "EXFULL" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENAVAIL" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" "ENOANO" - "EBADRQC" - "EBADSLT" - "EDEADLOCK" - "EBFONT" - "ENOSTR" + "ENOBUFS" + "ENOCSI" "ENODATA" - "ETIME" - "ENOSR" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" "ENONET" "ENOPKG" - "EREMOTE" - "ENOLINK" - "EADV" - "ESRMNT" - "ECOMM" - "EPROTO" - "EMULTIHOP" - "EDOTDOT" - "EBADMSG" - "EOVERFLOW" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" + "ENOSYS" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" + "ENOTEMPTY" + "ENOTNAM" + "ENOTSOCK" + "ENOTTY" "ENOTUNIQ" - "EBADFD" + "ENXIO" + "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" + "EPFNOSUPPORT" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" "EREMCHG" - "ELIBACC" - "ELIBBAD" - "ELIBSCN" - "ELIBMAX" - "ELIBEXEC" - "EILSEQ" + "EREMOTE" + "EREMOTEIO" "ERESTART" + "EROFS" + "ESHUTDOWN" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" "ESTRPIPE" + "ESUCCESS" + "ETIME" + "ETIMEDOUT" + "ETOOMANYREFS" + "ETXTBSY" + "EUCLEAN" + "EUNATCH" "EUSERS" - "ENOTSOCK" - "EDESTADDRREQ" - "EMSGSIZE" - "EPROTOTYPE" - "ENOPROTOOPT" - "EPROTONOSUPPORT" - "ESOCKTNOSUPPORT" - "EOPNOTSUPP" - "EPFNOSUPPORT" - "EAFNOSUPPORT" + "EWOULDBLOCK" + "EXDEV" + "EXFULL" + ) + #+(or bsd darwin) + (:export "E2BIG" + "EACCES" "EADDRINUSE" "EADDRNOTAVAIL" - "ENETDOWN" - "ENETUNREACH" - "ENETRESET" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADF" + "EBUSY" + "ECHILD" "ECONNABORTED" - "ECONNRESET" - "ENOBUFS" - "EISCONN" - "ENOTCONN" - "ESHUTDOWN" - "ETOOMANYREFS" - "ETIMEDOUT" "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDESTADDRREQ" + "EDOM" + "EDQUOT" + "EEXIST" + "EFAULT" + "EFBIG" "EHOSTDOWN" "EHOSTUNREACH" - "EALREADY" "EINPROGRESS" - "ESTALE" - "EUCLEAN" - "ENOTNAM" - "ENAVAIL" - "EISNAM" - "EREMOTEIO" - "EDQUOT" - ) - #+(or bsd darwin) - (:export "ESUCCESS" - "EPERM" - "ENOENT" - "ESRCH" "EINTR" + "EINVAL" "EIO" - "ENXIO" - "E2BIG" + "EISCONN" + "EISDIR" + "ELOCAL" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" + "ENOBUFS" + "ENODEV" + "ENOENT" "ENOEXEC" - "EBADF" - "ECHILD" - "EDEADLK" "ENOMEM" - "EACCES" - "EFAULT" + "ENOPROTOOPT" + "ENOSPC" "ENOTBLK" - "EBUSY" - "EEXIST" - "EXDEV" - "ENODEV" + "ENOTCONN" "ENOTDIR" - "EISDIR" - "EINVAL" - "ENFILE" - "EMFILE" + "ENOTEMPTY" + "ENOTSOCK" "ENOTTY" - "ETXTBSY" - "EFBIG" - "ENOSPC" - "ESPIPE" - "EROFS" - "EMLINK" - "EPIPE" - "EDOM" - "ERANGE" - "EWOULDBLOCK" - "EAGAIN" - "EINPROGRESS" - "EALREADY" - "ENOTSOCK" - "EDESTADDRREQ" - "EMSGSIZE" - "EPROTOTYPE" - "ENOPROTOOPT" - "EPROTONOSUPPORT" - "ESOCKTNOSUPPORT" + "ENXIO" "EOPNOTSUPP" + "EPERM" "EPFNOSUPPORT" - "EAFNOSUPPORT" - "EADDRINUSE" - "EADDRNOTAVAIL" - "ENETDOWN" - "ENETUNREACH" - "ENETRESET" - "ECONNABORTED" - "ECONNRESET" - "ENOBUFS" - "EISCONN" - "ENOTCONN" + "EPIPE" + "EPROCLIM" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMOTE" + "EROFS" "ESHUTDOWN" - "ETOOMANYREFS" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESUCCESS" "ETIMEDOUT" - "ECONNREFUSED" - "ELOOP" - "ENAMETOOLONG" - "EHOSTDOWN" - "EHOSTUNREACH" - "ENOTEMPTY" - "EPROCLIM" + "ETOOMANYREFS" + "ETXTBSY" "EUSERS" - "EDQUOT" - "ELOCAL" - "EREMOTE" "EVICEERR" "EVICEOP" + "EWOULDBLOCK" + "EXDEV" ) #+solaris - (:export "ESUCCESS" - "EPERM" - "ENOENT" - "ESRCH" - "EINTR" - "EIO" - "ENXIO" - "E2BIG" - "ENOEXEC" - "EBADF" - "ECHILD" - "EAGAIN" - "ENOMEM" + (:export "E2BIG" "EACCES" - "EFAULT" - "ENOTBLK" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" "EBUSY" + "ECANCELED" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" "EEXIST" - "EXDEV" - "ENODEV" - "ENOTDIR" - "EISDIR" - "EINVAL" - "ENFILE" - "EMFILE" - "ENOTTY" - "ETXTBSY" + "EFAULT" "EFBIG" - "ENOSPC" - "ESPIPE" - "EROFS" - "EMLINK" - "EPIPE" - "EDOM" - "ERANGE" - "ENOMSG" + "EHOSTDOWN" + "EHOSTUNREACH" "EIDRM" - "ECHRNG" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EL2HLT" "EL2NSYNC" "EL3HLT" "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" "ELNRNG" - "EUNATCH" - "ENOCSI" - "EL2HLT" - "EDEADLK" - "ENOLCK" - "ECANCELED" - "ENOTSUP" - "EBADE" - "EBADR" - "EXFULL" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" "ENOANO" - "EBADRQC" - "EBADSLT" - "EDEADLOCK" - "EBFONT" - "ENOSTR" + "ENOBUFS" + "ENOCSI" "ENODATA" - "ETIME" - "ENOSR" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" "ENONET" "ENOPKG" - "EREMOTE" - "ENOLINK" - "EADV" - "ESRMNT" - "ECOMM" - "EPROTO" - "EMULTIHOP" - "EBADMSG" - "ENAMETOOLONG" - "EOVERFLOW" - "ENOTUNIQ" - "EBADFD" - "EREMCHG" - "ELIBACC" - "ELIBBAD" - "ELIBSCN" - "ELIBMAX" - "ELIBEXEC" - "EILSEQ" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" "ENOSYS" - "ELOOP" - "ERESTART" - "ESTRPIPE" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" "ENOTEMPTY" - "EUSERS" "ENOTSOCK" - "EDESTADDRREQ" - "EMSGSIZE" - "EPROTOTYPE" - "ENOPROTOOPT" - "EPROTONOSUPPORT" - "ESOCKTNOSUPPORT" + "ENOTSUP" + "ENOTTY" + "ENOTUNIQ" + "ENXIO" "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" "EPFNOSUPPORT" - "EAFNOSUPPORT" - "EADDRINUSE" - "EADDRNOTAVAIL" - "ENETDOWN" - "ENETUNREACH" - "ENETRESET" - "ECONNABORTED" - "ECONNRESET" - "ENOBUFS" - "EISCONN" - "ENOTCONN" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMCHG" + "EREMOTE" + "ERESTART" + "EROFS" "ESHUTDOWN" - "ETOOMANYREFS" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" + "ESTRPIPE" + "ESUCCESS" + "ETIME" "ETIMEDOUT" - "ECONNREFUSED" - "EHOSTDOWN" - "EHOSTUNREACH" + "ETOOMANYREFS" + "ETXTBSY" + "EUNATCH" + "EUSERS" "EWOULDBLOCK" - "EALREADY" - "EINPROGRESS" - "ESTALE" + "EXDEV" + "EXFULL" ) #-(or linux solaris bsd darwin) - (:export "ESUCCESS" - "EPERM" - "ENOENT" - "ESRCH" - "EINTR" - "EIO" - "ENXIO" - "E2BIG" - "ENOEXEC" - "EBADF" - "ECHILD" - "EAGAIN" - "ENOMEM" + (:export "E2BIG" "EACCES" - "EFAULT" - "ENOTBLK" + "EADDRINUSE" + "EADDRNOTAVAIL" + "EADV" + "EAFNOSUPPORT" + "EAGAIN" + "EALREADY" + "EBADE" + "EBADF" + "EBADFD" + "EBADMSG" + "EBADR" + "EBADRQC" + "EBADSLT" + "EBFONT" "EBUSY" + "ECANCELED" + "ECHILD" + "ECHRNG" + "ECOMM" + "ECONNABORTED" + "ECONNREFUSED" + "ECONNRESET" + "EDEADLK" + "EDEADLOCK" + "EDESTADDRREQ" + "EDOM" "EEXIST" - "EXDEV" - "ENODEV" - "ENOTDIR" - "EISDIR" - "EINVAL" - "ENFILE" - "EMFILE" - "ENOTTY" - "ETXTBSY" + "EFAULT" "EFBIG" - "ENOSPC" - "ESPIPE" - "EROFS" - "EMLINK" - "EPIPE" - "EDOM" - "ERANGE" - "ENOMSG" + "EHOSTDOWN" + "EHOSTUNREACH" "EIDRM" - "ECHRNG" + "EILSEQ" + "EINPROGRESS" + "EINTR" + "EINVAL" + "EIO" + "EISCONN" + "EISDIR" + "EL2HLT" "EL2NSYNC" "EL3HLT" "EL3RST" + "ELIBACC" + "ELIBBAD" + "ELIBEXEC" + "ELIBMAX" + "ELIBSCN" "ELNRNG" - "EUNATCH" - "ENOCSI" - "EL2HLT" - "EDEADLK" - "ENOLCK" - "ECANCELED" - "ENOTSUP" - "EBADE" - "EBADR" - "EXFULL" + "ELOOP" + "EMFILE" + "EMLINK" + "EMSGSIZE" + "EMULTIHOP" + "ENAMETOOLONG" + "ENETDOWN" + "ENETRESET" + "ENETUNREACH" + "ENFILE" "ENOANO" - "EBADRQC" - "EBADSLT" - "EDEADLOCK" - "EBFONT" - "ENOSTR" + "ENOBUFS" + "ENOCSI" "ENODATA" - "ETIME" - "ENOSR" + "ENODEV" + "ENOENT" + "ENOEXEC" + "ENOLCK" + "ENOLINK" + "ENOMEM" + "ENOMSG" "ENONET" "ENOPKG" - "EREMOTE" - "ENOLINK" - "EADV" - "ESRMNT" - "ECOMM" - "EPROTO" - "EMULTIHOP" - "EBADMSG" - "ENAMETOOLONG" - "EOVERFLOW" - "ENOTUNIQ" - "EBADFD" - "EREMCHG" - "ELIBACC" - "ELIBBAD" - "ELIBSCN" - "ELIBMAX" - "ELIBEXEC" - "EILSEQ" + "ENOPROTOOPT" + "ENOSPC" + "ENOSR" + "ENOSTR" "ENOSYS" - "ELOOP" - "ERESTART" - "ESTRPIPE" + "ENOTBLK" + "ENOTCONN" + "ENOTDIR" "ENOTEMPTY" - "EUSERS" "ENOTSOCK" - "EDESTADDRREQ" - "EMSGSIZE" - "EPROTOTYPE" - "ENOPROTOOPT" - "EPROTONOSUPPORT" - "ESOCKTNOSUPPORT" + "ENOTSUP" + "ENOTTY" + "ENOTUNIQ" + "ENXIO" "EOPNOTSUPP" + "EOVERFLOW" + "EPERM" "EPFNOSUPPORT" - "EAFNOSUPPORT" - "EADDRINUSE" - "EADDRNOTAVAIL" - "ENETDOWN" - "ENETUNREACH" - "ENETRESET" - "ECONNABORTED" - "ECONNRESET" - "ENOBUFS" - "EISCONN" - "ENOTCONN" + "EPIPE" + "EPROTO" + "EPROTONOSUPPORT" + "EPROTOTYPE" + "ERANGE" + "EREMCHG" + "EREMOTE" + "ERESTART" + "EROFS" "ESHUTDOWN" - "ETOOMANYREFS" + "ESOCKTNOSUPPORT" + "ESPIPE" + "ESRCH" + "ESRMNT" + "ESTALE" + "ESTRPIPE" + "ESUCCESS" + "ETIME" "ETIMEDOUT" - "ECONNREFUSED" - "EHOSTDOWN" - "EHOSTUNREACH" + "ETOOMANYREFS" + "ETXTBSY" + "EUNATCH" + "EUSERS" "EWOULDBLOCK" - "EALREADY" - "EINPROGRESS" - "ESTALE" + "EXDEV" + "EXFULL" )) (defpackage "UNIX" @@ -942,7 +942,7 @@ ;; Import all of the symbols from UNIX-ERRNO into UNIX and the export ;; them. (ext:without-package-locks - (do-external-symbols (sym "UNIX-ERRNO") + (do-external-symbols (sym "ERRNO") (shadowing-import sym "UNIX") (export sym "UNIX"))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d1eb029453decc454a83669… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d1eb029453decc454a83669… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-389-reduce-duplication-in-ci-rules] 3 commits: Fix #388: Analyzer stage needs cmucl-version.h
by Raymond Toy (＠rtoy) 26 Feb '25

26 Feb '25

Raymond Toy pushed to branch issue-389-reduce-duplication-in-ci-rules at cmucl / cmucl Commits: 490b48a3 by Raymond Toy at 2025-02-24T04:03:16+00:00 Fix #388: Analyzer stage needs cmucl-version.h - - - - - c0b4f40a by Raymond Toy at 2025-02-24T04:03:16+00:00 Merge branch 'issue-388-fix-linux-analyzer-stage' into 'master' Fix #388: Analyzer stage needs cmucl-version.h Closes #388 See merge request cmucl/cmucl!273 - - - - - 3a3ba14c by Raymond Toy at 2025-02-26T07:15:45-08:00 Merge branch 'master' into issue-389-reduce-duplication-in-ci-rules - - - - - 0 changed files: Changes: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7b95435cff4d323502d96a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7b95435cff4d323502d96a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-389-reduce-duplication-in-ci-rules] Need cmucl-version.h for linux analyzer
by Raymond Toy (＠rtoy) 26 Feb '25

26 Feb '25

Raymond Toy pushed to branch issue-389-reduce-duplication-in-ci-rules at cmucl / cmucl Commits: 7b95435c by Raymond Toy at 2025-02-26T07:11:29-08:00 Need cmucl-version.h for linux analyzer Update .build_template to include src/lisp/cmucl-version.h artifact that's needed by linux analyzer stage. Just save this for all builds. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -33,6 +33,8 @@ variables: - build-2/*.log - build-3/*.log - build-4/ + # Needed by Linux analyzer stage + - src/lisp/cmucl-version.h script: # Do cross compile first #- bin/create-target.sh xtarget x86_linux_clang View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7b95435cff4d323502d96a5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7b95435cff4d323502d96a5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0