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

[Git][cmucl/cmucl][master] Forgot to rename UNIX-ERRNO to ERRNO
by Raymond Toy (＠rtoy) 02 Mar '25

02 Mar '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d5c2ab6a by Raymond Toy at 2025-03-02T06:05:53-08:00 Forgot to rename UNIX-ERRNO to ERRNO In !274, we renamed the package to ERRNO, but forgot to do the renaming in a few other places in exports.lisp. Fix that. - - - - - 1 changed file: - src/code/exports.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -31,9 +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 "ERRNO") + (rename-package "ERRNO" "ERRNO" 'nil) + (make-package "ERRNO" :nicknames 'nil :use nil)) (if (find-package "UNIX") (rename-package "UNIX" "UNIX" 'nil) (make-package "UNIX" :nicknames 'nil :use nil)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d5c2ab6aa76fead22efdd7b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d5c2ab6aa76fead22efdd7b… 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] 2 commits: Add support for solaris
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: 87485d89 by Raymond Toy at 2025-03-01T08:27:29-08:00 Add support for solaris We can read the errno values on solaris from the file /usr/include/sys/errno.h. There are no duplicates in this file. - - - - - fc37bfe8 by Raymond Toy at 2025-03-01T08:28:15-08:00 Update for solaris/svr4 in the template. create-errno.sh supports Solaris, so we can remove the special definitions from the template. This means that all the definitions that remain are considered to be the same on any OS other than linux, darwin, and solaris. We left the feature as `:svr4`, but maybe it should be `:solaris`. On my solaris/x86 VM, both `:svr4` and `:solaris` are features. - - - - - 2 changed files: - bin/create-errno.sh - bin/errno-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -21,6 +21,8 @@ case `uname -s` in ;; Darwin) ERRNO_FILES=/usr/include/sys/errno.h ;; + SunOS) ERRNO_FILES=/usr/include/sys/errno.h + ;; esac awk -f bin/create-def-unix-error.awk ${ERRNO_FILES} >> $OUTPUT ===================================== bin/errno-template.lisp ===================================== @@ -44,7 +44,7 @@ ;;; (def-unix-error ESUCCESS 0 _N"Successful") -#-(or linux darwin) +#-(or linux darwin svr4) (progn (def-unix-error EPERM 1 _N"Operation not permitted") (def-unix-error ENOENT 2 _N"No such file or directory") @@ -83,11 +83,7 @@ ;;; 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 darwin) -(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 @@ -143,92 +139,6 @@ (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, follow here. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/30f4504e9f7b3bc1e45c37… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/30f4504e9f7b3bc1e45c37… 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] Want the second definition for duplicates
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: 30f4504e by Raymond Toy at 2025-03-01T08:01:43-08:00 Want the second definition for duplicates Modify script so that if we find a duplicate, we mark the old as something to be skipped on output. We want the second (last) definition. This is needed on Darwin where we want the second definition of EOPNOTSUPP. Tested this with a simple C program on Darwin to print the value of EOPNOTSUPP. It is 102, not ENOTSUP (45). - - - - - 1 changed file: - bin/create-def-unix-error.awk Changes: ===================================== bin/create-def-unix-error.awk ===================================== @@ -4,27 +4,26 @@ BEGIN { # 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. found = 0 + # Search to see if the current key, $2, is already in the table. + # If so, we mark it as something to skip. This happens on Darwin + # where EOPNTOSUPP is seen twice. We want the second entry. for (key in errno) { if (errno[key] == $2) { - printf ";; Ignoring dup of %s: old value %d, new value %\n", $2, errno[key], $3; + printf ";; Ignoring dup of %s: old value %s, new value %s\n", $2, value[key], $3; found = 1; + skip[key] = 1; break; } } - if (!found) { - errno[count] = $2; - value[count] = $3; - ++count; - } + 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]; + printf "%s(def-unix-error %s %s)\n", + (skip[k] != 1) ? "": ";; ", errno[k], value[k]; } } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/30f4504e9f7b3bc1e45c375… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/30f4504e9f7b3bc1e45c375… 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] Save errno.lisp in artifacts
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: 8148f5a7 by Raymond Toy at 2025-03-01T07:08:10-08:00 Save errno.lisp in artifacts Want to keep src/code/errno.lisp so we can look at it when browsing the artifacts. Currently only for osx. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -184,6 +184,7 @@ osx:build: - darwin-2/*.log - darwin-3/*.log - darwin-4/*.log + - src/code/errno.lisp needs: - job: osx:install artifacts: true View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8148f5a7667e8aa404007be… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8148f5a7667e8aa404007be… 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] Have to search the array ourselves for duplicates
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: e82619f1 by Raymond Toy at 2025-03-01T06:52:07-08:00 Have to search the array ourselves for duplicates We have write our own loop to find a duplicate errno value. If we do, print a comment to the output saying so, at least for now. - - - - - 1 changed file: - bin/create-def-unix-error.awk Changes: ===================================== bin/create-def-unix-error.awk ===================================== @@ -8,7 +8,15 @@ BEGIN { # 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)) { + found = 0 + for (key in errno) { + if (errno[key] == $2) { + printf ";; Ignoring dup of %s: old value %d, new value %\n", $2, errno[key], $3; + found = 1; + break; + } + } + if (!found) { errno[count] = $2; value[count] = $3; ++count; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82619f1f9ceab750574bc2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82619f1f9ceab750574bc2… 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] 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