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

[Git][cmucl/cmucl][issue-390-autogen-errno-package] Fix typo and use correct cmucl.org url
by Raymond Toy (＠rtoy) 04 Mar '25

04 Mar '25

Raymond Toy pushed to branch issue-390-autogen-errno-package at cmucl / cmucl Commits: ec44aaf0 by Raymond Toy at 2025-03-04T07:39:43-08:00 Fix typo and use correct cmucl.org url Forgot to include the "downloads" part of the URL to get the binaries. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,6 +1,6 @@ variables: #download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2024/08" - download_url: "https://cmucl.org/snapshots/2024/08" + download_url: "https://cmucl.org/downloads/snapshots/2024/08" version: "2024-08-x86" bootstrap: "-B boot-2024-08" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ec44aaf0ff65c02aae3f8a2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ec44aaf0ff65c02aae3f8a2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-390-autogen-errno-package] Change download url to cmucl.org
by Raymond Toy (＠rtoy) 04 Mar '25

04 Mar '25

Raymond Toy pushed to branch issue-390-autogen-errno-package at cmucl / cmucl Commits: a38d4045 by Raymond Toy at 2025-03-04T07:36:39-08:00 Change download url to cmucl.org The download site from common-lisp.net is not working right now. Switch to cmucl.org to get the binaries we need. Comment out the c-l.net URL for now so we can switch back if desired. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -1,5 +1,6 @@ variables: - download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2024/08" + #download_url: "https://common-lisp.net/project/cmucl/downloads/snapshots/2024/08" + download_url: "https://cmucl.org/snapshots/2024/08" version: "2024-08-x86" bootstrap: "-B boot-2024-08" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a38d4045a7204f67c2901fe… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a38d4045a7204f67c2901fe… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-390-autogen-errno-package] 4 commits: Modify how exports-errno.lisp is created.
by Raymond Toy (＠rtoy) 04 Mar '25

04 Mar '25

Raymond Toy pushed to branch issue-390-autogen-errno-package at cmucl / cmucl Commits: 90dbaa53 by Raymond Toy at 2025-03-03T17:15:00-08:00 Modify how exports-errno.lisp is created. To make it a little easier to read, we use `{...} > src/code/exports-errno.lisp`. Then we can more easily see the header and the footer of the file and also the commands used to generate all the exported symbols. Update some comments in the generated file as well. - - - - - 59b9f69e by Raymond Toy at 2025-03-04T06:21:52-08:00 ERRNO uses LISP package In the generated file containing the defpackage form for ERRNO, we need to make sure ERRNO uses the LISP package so that this file can be compiled. This is what happens with the UNIX package in exports.lisp, so we need to do the same for ERRNO. - - - - - eb59cc93 by Raymond Toy at 2025-03-04T06:23:31-08:00 Remove line saying ERRNO uses LISP package This was moved to the generated exports-errno.lisp file. - - - - - 6acf4a72 by Raymond Toy at 2025-03-04T06:24:14-08:00 Load and/or compile exports-errno.lisp Actually load or compile this file appropriately just before we do the same to exports.lisp. - - - - - 5 changed files: - bin/build-world.sh - bin/create-errno.sh - src/code/exports.lisp - src/tools/worldcom.lisp - src/tools/worldload.lisp Changes: ===================================== bin/build-world.sh ===================================== @@ -53,6 +53,7 @@ $LISP "$@" -noinit -nositeinit <<EOF (pushnew :no-clm *features*) (pushnew :no-hemlock *features*) +(load "target:code/exports-errno") (load "target:code/exports") (load "target:tools/setup" :if-source-newer :load-source) (comf "target:tools/setup" :load t) ===================================== bin/create-errno.sh ===================================== @@ -82,7 +82,8 @@ if [ -n "$SHOW" ]; then fi # Now generate the defpackage form for the ERRNO package. -cat > src/code/exports-errno.lisp <<EOF +{ + cat <<EOF ;;; -*- Log: C.Log -*- ;;; ;;; ********************************************************************** @@ -94,7 +95,11 @@ cat > src/code/exports-errno.lisp <<EOF ;;; ;;; ********************************************************************** ;;; -;;; All the stuff necessary to export various symbols from various packages. +;;; Defines the ERRNO package and all the exported symbols. +;;; +;;; This file is auto-generated via bin/create-errno.sh. +;;; +;;; DO NOT EDIT! ;;; (in-package "LISP") @@ -105,11 +110,20 @@ cat > src/code/exports-errno.lisp <<EOF (rename-package "ERRNO" "ERRNO" 'nil) (make-package "ERRNO" :nicknames 'nil :use nil)) +(use-package '("LISP") "ERRNO") + (defpackage "ERRNO" (:export -$(grep '(def-unix-error ' $ERRNO_FILE | - cut -d ' ' -f2 | - sed 's/$.*$/ "\1"/' | - sort) +EOF + # Get the def-unix-error forms from the ERRNO_FILE, extract out + # the name, put double-quotes around them and then sort the result + # to get all the exported symbols for the ERRNO package. + grep '(def-unix-error ' $ERRNO_FILE | + cut -d ' ' -f2 | + sed 's/$.*$/ "\1"/' | + sort + # Close the defpackage form + cat <<EOF )) EOF +} > src/code/exports-errno.lisp ===================================== src/code/exports.lisp ===================================== @@ -136,7 +136,6 @@ (use-package '("SYSTEM" "ALIEN-INTERNALS" "ALIEN" "LISP") "C-CALL") (use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT") (use-package '("LISP" "KERNEL") "BIGNUM") -(use-package '("LISP") "ERRNO") (use-package '("LISP") "UNIX") (use-package '("KERNEL" "LISP" "EXTENSIONS") "FORMAT") (use-package '("EXTENSIONS" "SYSTEM" "DEBUG" "KERNEL" "BIGNUM") "LISP") ===================================== src/tools/worldcom.lisp ===================================== @@ -315,6 +315,7 @@ (comf "target:code/multi-proc")) (comf "target:code/setf-funs") +(comf "target:code/exports-errno" :proceed t) (comf "target:code/exports" :proceed t) ;;; Compile basic macros that we assume are already in the compilation ===================================== src/tools/worldload.lisp ===================================== @@ -78,6 +78,7 @@ ;;; Make sure the package structure is correct. ;;; +(maybe-byte-load "code:exports-errno") (maybe-byte-load "code:exports") ;;; Load random code sources. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7120588272b74c392c0d3e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/7120588272b74c392c0d3e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-390-autogen-errno-package] Update create-errno.sh to create src/code/exports-errno.lisp
by Raymond Toy (＠rtoy) 04 Mar '25

04 Mar '25

Raymond Toy pushed to branch issue-390-autogen-errno-package at cmucl / cmucl Commits: 71205882 by Raymond Toy at 2025-03-03T16:07:17-08:00 Update create-errno.sh to create src/code/exports-errno.lisp Forgot to checkin the bit of code that actually generates exports-errno.lisp. Also, move the bit of code about renaming ERRNO from exports.lisp to exports-errno.lisp since the latter is loaded before the former. - - - - - 2 changed files: - bin/create-errno.sh - src/code/exports.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -32,7 +32,7 @@ do done # Where the output should go. -OUTPUT="src/code/errno.lisp" +ERRNO_FILE="src/code/errno.lisp" # Template file containing the default def-unix-error forms and other # support code. @@ -53,7 +53,7 @@ fi if [ -z "$ERRNO_FILES" ]; then # Copy the main errno template to the output. The template is a lisp # file so we can read and modify it more easily. - cat "$TEMPLATE" > $OUTPUT + cat "$TEMPLATE" > $ERRNO_FILE else # We can autogenerate the def-unix-error forms. Copy just the # initial part of the template, up to the first def-unix-error @@ -73,10 +73,43 @@ EOF # The tail was also copied from code/unix.lisp. It's needed to tell # Lisp about the errno values. sed '1,/^;;; End of default/d' "$TEMPLATE" - } > $OUTPUT + } > $ERRNO_FILE fi # If -S option given, cat the output file to stdout if [ -n "$SHOW" ]; then - cat $OUTPUT + cat $ERRNO_FILE fi + +# Now generate the defpackage form for the ERRNO package. +cat > src/code/exports-errno.lisp <<EOF +;;; -*- Log: C.Log -*- +;;; +;;; ********************************************************************** +;;; 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 + ": src/code/exports-errno.lisp $") +;;; +;;; ********************************************************************** +;;; +;;; All the stuff necessary to export various symbols from various packages. +;;; + +(in-package "LISP") + +(intl:textdomain "cmucl") + +(if (find-package "ERRNO") + (rename-package "ERRNO" "ERRNO" 'nil) + (make-package "ERRNO" :nicknames 'nil :use nil)) + +(defpackage "ERRNO" + (:export +$(grep '(def-unix-error ' $ERRNO_FILE | + cut -d ' ' -f2 | + sed 's/$.*$/ "\1"/' | + sort) + )) +EOF ===================================== src/code/exports.lisp ===================================== @@ -31,9 +31,6 @@ (if (find-package "BIGNUM") (rename-package "BIGNUM" "BIGNUM" 'nil) (make-package "BIGNUM" :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/7120588272b74c392c0d3e5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7120588272b74c392c0d3e5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-390-autogen-errno-package
by Raymond Toy (＠rtoy) 03 Mar '25

03 Mar '25

Raymond Toy pushed new branch issue-390-autogen-errno-package at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-390-autogen-errno-p… 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] Run shellcheck and apply (most) suggestions
by Raymond Toy (＠rtoy) 02 Mar '25

02 Mar '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: a354f30f by Raymond Toy at 2025-03-02T08:47:29-08:00 Run shellcheck and apply (most) suggestions Applied suggestions from shellcheck, but we still have the warning SC2125. We want shell globbing to occur - - - - - 1 changed file: - bin/create-errno.sh Changes: ===================================== bin/create-errno.sh ===================================== @@ -40,7 +40,7 @@ TEMPLATE="bin/errno-template.lisp" # Set ERRNO_FILES to the files where we can find errno definitions. if [ -z "$DEFAULT" ]; then - case `uname -s` in + case $(uname -s) in Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h ;; Darwin) ERRNO_FILES=/usr/include/sys/errno.h @@ -58,20 +58,22 @@ else # We can autogenerate the def-unix-error forms. Copy just the # initial part of the template, up to the first def-unix-error # form. - sed '/^(def-unix-error ESUCCESS/q' "$TEMPLATE" > $OUTPUT - cat >> $OUTPUT <<EOF + { + sed '/^(def-unix-error ESUCCESS/q' "$TEMPLATE" + cat <<EOF ;; Autogenerated def-unix-error forms EOF - - # Create appropriate DEF-UNIX-ERROR forms by reading header files - # containing the C definitions. + + # Create appropriate DEF-UNIX-ERROR forms by reading header files + # containing the C definitions. - awk -f bin/create-def-unix-error.awk ${ERRNO_FILES} >> $OUTPUT + awk -f bin/create-def-unix-error.awk ${ERRNO_FILES} - # The tail was also copied from code/unix.lisp. It's needed to tell - # Lisp about the errno values. - sed '1,/^;;; End of default/d' "$TEMPLATE" >> $OUTPUT + # The tail was also copied from code/unix.lisp. It's needed to tell + # Lisp about the errno values. + sed '1,/^;;; End of default/d' "$TEMPLATE" + } > $OUTPUT fi # If -S option given, cat the output file to stdout View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a354f30f572d025b1cc7b71… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a354f30f572d025b1cc7b71… 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: Update cmucl-unix.pot
by Raymond Toy (＠rtoy) 02 Mar '25

02 Mar '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: f33ef68a by Raymond Toy at 2025-03-02T07:19:44-08:00 Update cmucl-unix.pot - - - - - b8c890ac by Raymond Toy at 2025-03-02T07:27:02-08:00 Ignore description in def-unix-error The auto-generated def-unix-error forms don't have descriptions, so let's ignore any descriptions provided in the forms. They're not included as a docstring for the defconstant either. - - - - - 2 changed files: - bin/errno-template.lisp - src/i18n/locale/cmucl-unix.pot Changes: ===================================== bin/errno-template.lisp ===================================== @@ -22,10 +22,11 @@ (defparameter *compiler-unix-errors* nil) (defmacro def-unix-error (name number &optional description) + (declare (ignore description)) `(progn (eval-when (compile eval) (push (cons ,number ,description) *compiler-unix-errors*)) - (defconstant ,name ,number ,description) + (defconstant ,name ,number) (export ',name))) (defmacro emit-unix-errors () ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -15,562 +15,10 @@ msgstr "" "Content-Type: text/plain; charset=UTF-8\n" "Content-Transfer-Encoding: 8bit\n" -#: src/code/errno.lisp -msgid "" -"Define a constant named Name corresponding to the Unix errno value\n" -" Number. A description of the errno is optional in Description." -msgstr "" - #: src/code/errno.lisp msgid "Successful" msgstr "" -#: src/code/errno.lisp -msgid "Operation not permitted" -msgstr "" - -#: src/code/errno.lisp -msgid "No such file or directory" -msgstr "" - -#: src/code/errno.lisp -msgid "No such process" -msgstr "" - -#: src/code/errno.lisp -msgid "Interrupted system call" -msgstr "" - -#: src/code/errno.lisp -msgid "I/O error" -msgstr "" - -#: src/code/errno.lisp -msgid "Device not configured" -msgstr "" - -#: src/code/errno.lisp -msgid "Arg list too long" -msgstr "" - -#: src/code/errno.lisp -msgid "Exec format error" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad file descriptor" -msgstr "" - -#: src/code/errno.lisp -msgid "No child process" -msgstr "" - -#: src/code/errno.lisp -msgid "Resource deadlock avoided" -msgstr "" - -#: src/code/errno.lisp -msgid "No more processes" -msgstr "" - -#: src/code/errno.lisp -msgid "Try again" -msgstr "" - -#: src/code/errno.lisp -msgid "Out of memory" -msgstr "" - -#: src/code/errno.lisp -msgid "Permission denied" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad address" -msgstr "" - -#: src/code/errno.lisp -msgid "Block device required" -msgstr "" - -#: src/code/errno.lisp -msgid "Device or resource busy" -msgstr "" - -#: src/code/errno.lisp -msgid "File exists" -msgstr "" - -#: src/code/errno.lisp -msgid "Cross-device link" -msgstr "" - -#: src/code/errno.lisp -msgid "No such device" -msgstr "" - -#: src/code/errno.lisp -msgid "Not a director" -msgstr "" - -#: src/code/errno.lisp -msgid "Is a directory" -msgstr "" - -#: src/code/errno.lisp -msgid "Invalid argument" -msgstr "" - -#: src/code/errno.lisp -msgid "File table overflow" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many open files" -msgstr "" - -#: src/code/errno.lisp -msgid "Inappropriate ioctl for device" -msgstr "" - -#: src/code/errno.lisp -msgid "Text file busy" -msgstr "" - -#: src/code/errno.lisp -msgid "File too large" -msgstr "" - -#: src/code/errno.lisp -msgid "No space left on device" -msgstr "" - -#: src/code/errno.lisp -msgid "Illegal seek" -msgstr "" - -#: src/code/errno.lisp -msgid "Read-only file system" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many links" -msgstr "" - -#: src/code/errno.lisp -msgid "Broken pipe" -msgstr "" - -#: src/code/errno.lisp -msgid "Numerical argument out of domain" -msgstr "" - -#: src/code/errno.lisp -msgid "Result too large" -msgstr "" - -#: src/code/errno.lisp -msgid "Math result not representable" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation would block" -msgstr "" - -#: src/code/errno.lisp -msgid "Resource temporarily unavailable" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation now in progress" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation already in progress" -msgstr "" - -#: src/code/errno.lisp -msgid "Socket operation on non-socket" -msgstr "" - -#: src/code/errno.lisp -msgid "Destination address required" -msgstr "" - -#: src/code/errno.lisp -msgid "Message too long" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol wrong type for socket" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol not available" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol not supported" -msgstr "" - -#: src/code/errno.lisp -msgid "Socket type not supported" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation not supported on socket" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol family not supported" -msgstr "" - -#: src/code/errno.lisp -msgid "Address family not supported by protocol family" -msgstr "" - -#: src/code/errno.lisp -msgid "Address already in use" -msgstr "" - -#: src/code/errno.lisp -msgid "Can't assign requested address" -msgstr "" - -#: src/code/errno.lisp -msgid "Network is down" -msgstr "" - -#: src/code/errno.lisp -msgid "Network is unreachable" -msgstr "" - -#: src/code/errno.lisp -msgid "Network dropped connection on reset" -msgstr "" - -#: src/code/errno.lisp -msgid "Software caused connection abort" -msgstr "" - -#: src/code/errno.lisp -msgid "Connection reset by peer" -msgstr "" - -#: src/code/errno.lisp -msgid "No buffer space available" -msgstr "" - -#: src/code/errno.lisp -msgid "Socket is already connected" -msgstr "" - -#: src/code/errno.lisp -msgid "Socket is not connected" -msgstr "" - -#: src/code/errno.lisp -msgid "Can't send after socket shutdown" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many references: can't splice" -msgstr "" - -#: src/code/errno.lisp -msgid "Connection timed out" -msgstr "" - -#: src/code/errno.lisp -msgid "Connection refused" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many levels of symbolic links" -msgstr "" - -#: src/code/errno.lisp -msgid "File name too long" -msgstr "" - -#: src/code/errno.lisp -msgid "Host is down" -msgstr "" - -#: src/code/errno.lisp -msgid "No route to host" -msgstr "" - -#: src/code/errno.lisp -msgid "Directory not empty" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many processes" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many users" -msgstr "" - -#: src/code/errno.lisp -msgid "Disc quota exceeded" -msgstr "" - -#: src/code/errno.lisp -msgid "namei should continue locally" -msgstr "" - -#: src/code/errno.lisp -msgid "namei was handled remotely" -msgstr "" - -#: src/code/errno.lisp -msgid "Remote file system error _N" -msgstr "" - -#: src/code/errno.lisp -msgid "syscall was handled by Vice" -msgstr "" - -#: src/code/errno.lisp -msgid "No message of desired type" -msgstr "" - -#: src/code/errno.lisp -msgid "Identifier removed" -msgstr "" - -#: src/code/errno.lisp -msgid "Channel number out of range" -msgstr "" - -#: src/code/errno.lisp -msgid "Level 2 not synchronized" -msgstr "" - -#: src/code/errno.lisp -msgid "Level 3 halted" -msgstr "" - -#: src/code/errno.lisp -msgid "Level 3 reset" -msgstr "" - -#: src/code/errno.lisp -msgid "Link number out of range" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol driver not attached" -msgstr "" - -#: src/code/errno.lisp -msgid "No CSI structure available" -msgstr "" - -#: src/code/errno.lisp -msgid "Level 2 halted" -msgstr "" - -#: src/code/errno.lisp -msgid "Deadlock situation detected/avoided" -msgstr "" - -#: src/code/errno.lisp -msgid "No record locks available" -msgstr "" - -#: src/code/errno.lisp -msgid "Error 47" -msgstr "" - -#: src/code/errno.lisp -msgid "Error 48" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad exchange descriptor" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad request descriptor" -msgstr "" - -#: src/code/errno.lisp -msgid "Message tables full" -msgstr "" - -#: src/code/errno.lisp -msgid "Anode table overflow" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad request code" -msgstr "" - -#: src/code/errno.lisp -msgid "Invalid slot" -msgstr "" - -#: src/code/errno.lisp -msgid "File locking deadlock" -msgstr "" - -#: src/code/errno.lisp -msgid "Bad font file format" -msgstr "" - -#: src/code/errno.lisp -msgid "Not a stream device" -msgstr "" - -#: src/code/errno.lisp -msgid "No data available" -msgstr "" - -#: src/code/errno.lisp -msgid "Timer expired" -msgstr "" - -#: src/code/errno.lisp -msgid "Out of stream resources" -msgstr "" - -#: src/code/errno.lisp -msgid "Machine is not on the network" -msgstr "" - -#: src/code/errno.lisp -msgid "Package not installed" -msgstr "" - -#: src/code/errno.lisp -msgid "Object is remote" -msgstr "" - -#: src/code/errno.lisp -msgid "Link has been severed" -msgstr "" - -#: src/code/errno.lisp -msgid "Advertise error" -msgstr "" - -#: src/code/errno.lisp -msgid "Srmount error" -msgstr "" - -#: src/code/errno.lisp -msgid "Communication error on send" -msgstr "" - -#: src/code/errno.lisp -msgid "Protocol error" -msgstr "" - -#: src/code/errno.lisp -msgid "Multihop attempted" -msgstr "" - -#: src/code/errno.lisp -msgid "Not a data message" -msgstr "" - -#: src/code/errno.lisp -msgid "Value too large for defined data type" -msgstr "" - -#: src/code/errno.lisp -msgid "Name not unique on network" -msgstr "" - -#: src/code/errno.lisp -msgid "File descriptor in bad state" -msgstr "" - -#: src/code/errno.lisp -msgid "Remote address changed" -msgstr "" - -#: src/code/errno.lisp -msgid "Can not access a needed shared library" -msgstr "" - -#: src/code/errno.lisp -msgid "Accessing a corrupted shared library" -msgstr "" - -#: src/code/errno.lisp -msgid ".lib section in a.out corrupted" -msgstr "" - -#: src/code/errno.lisp -msgid "Attempting to link in more shared libraries than system limit" -msgstr "" - -#: src/code/errno.lisp -msgid "Can not exec a shared library directly" -msgstr "" - -#: src/code/errno.lisp -msgid "Error 88" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation not applicable" -msgstr "" - -#: src/code/errno.lisp -msgid "" -"Number of symbolic links encountered during path name traversal exceeds " -"MAXSYMLINKS" -msgstr "" - -#: src/code/errno.lisp -msgid "Error 91" -msgstr "" - -#: src/code/errno.lisp -msgid "Error 92" -msgstr "" - -#: src/code/errno.lisp -msgid "Option not supported by protocol" -msgstr "" - -#: src/code/errno.lisp -msgid "Operation not supported on transport endpoint" -msgstr "" - -#: src/code/errno.lisp -msgid "Cannot assign requested address" -msgstr "" - -#: src/code/errno.lisp -msgid "Network dropped connection because of reset" -msgstr "" - -#: src/code/errno.lisp -msgid "Transport endpoint is already connected" -msgstr "" - -#: src/code/errno.lisp -msgid "Transport endpoint is not connected" -msgstr "" - -#: src/code/errno.lisp -msgid "Cannot send after socket shutdown" -msgstr "" - -#: src/code/errno.lisp -msgid "Too many references: cannot splice" -msgstr "" - -#: src/code/errno.lisp -msgid "Stale NFS file handle" -msgstr "" - #: src/code/unix.lisp msgid "" "The encoding to use for converting a namestring to a string that can\n" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/afdc7d7bae198ba5e46339… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/afdc7d7bae198ba5e46339… 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] 3 commits: Copy things directly from the template
by Raymond Toy (＠rtoy) 02 Mar '25

02 Mar '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: 87a68573 by Raymond Toy at 2025-03-02T06:41:29-08:00 Copy things directly from the template Rearrangement of how create-errno.sh works. If we don't have a list of errno files, copy the template directly to the output since the template contains the default errno values. If we do, we can copy just the beginning and ending of the file, skipping the default values. The forms are auto-generated. We leave special markers in the template so we know what to copy. - - - - - 48dc62dc by Raymond Toy at 2025-03-02T06:47:06-08:00 Add some comments about special lines Add some comments not to modify the special lines used by bin/create-errno.sh. These are used by the script to figure out what to copy. - - - - - afdc7d7b by Raymond Toy at 2025-03-02T07:10:49-08:00 Add usage message and command line options Add -D and -S options to control how this script works. -D says to use the default instead of auto-generating. -S says to copy the result to stdout for quick viewing. These command line options are mostly for debugging the script. In any case, the file src/code/errno.lisp is always created. - - - - - 2 changed files: - bin/create-errno.sh - bin/errno-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -5,34 +5,76 @@ # definitions of all the Unix errno values. # +usage () +{ + cat <<EOF +create-erno.sh [-h?DS] + -h This help + -? This help + -D Do not auto-generate; use default + + -S Show the resulting generated file; the file is still created. + +Auto-generates, if possible, the file src/code/errno.lisp that +contains the def-unix-error forms. +EOF + exit 0 +} + +while getopts "h?DS" arg +do + case $arg in + h) usage ;; + \?) usage ;; + D) DEFAULT=yes ;; + S) SHOW=yes ;; + esac +done + # Where the output should go. OUTPUT="src/code/errno.lisp" -# 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. +# Template file containing the default def-unix-error forms and other +# support code. +TEMPLATE="bin/errno-template.lisp" # 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 - ;; - 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 - -# The tail was also copied from code/unix.lisp. It's needed to tell -# Lisp about the errno values. -cat >>$OUTPUT <<EOF -;;; End auto-generated forms, if any. - -;;; -;;; And now for something completely different ... -(emit-unix-errors) +if [ -z "$DEFAULT" ]; then + case `uname -s` in + Linux) ERRNO_FILES=/usr/include/asm-generic/errno*.h + ;; + Darwin) ERRNO_FILES=/usr/include/sys/errno.h + ;; + SunOS) ERRNO_FILES=/usr/include/sys/errno.h + ;; + esac +fi + +if [ -z "$ERRNO_FILES" ]; then + # Copy the main errno template to the output. The template is a lisp + # file so we can read and modify it more easily. + cat "$TEMPLATE" > $OUTPUT +else + # We can autogenerate the def-unix-error forms. Copy just the + # initial part of the template, up to the first def-unix-error + # form. + sed '/^(def-unix-error ESUCCESS/q' "$TEMPLATE" > $OUTPUT + cat >> $OUTPUT <<EOF + +;; Autogenerated def-unix-error forms EOF + + # Create appropriate DEF-UNIX-ERROR forms by reading header files + # containing the C definitions. + + 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. + sed '1,/^;;; End of default/d' "$TEMPLATE" >> $OUTPUT +fi + +# If -S option given, cat the output file to stdout +if [ -n "$SHOW" ]; then + cat $OUTPUT +fi ===================================== bin/errno-template.lisp ===================================== @@ -44,8 +44,11 @@ ;;; (def-unix-error ESUCCESS 0 _N"Successful") -#-(or linux darwin svr4) -(progn +;;; Do NOT modify the ESUCCESS form above. bin/create-errno.sh +;;; depends on it. + +;;; Default errno values. These are used only if we could not +;;; auto-generate these forms. (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") @@ -138,7 +141,11 @@ ;;; VICE (def-unix-error EVICEERR 70 _N"Remote file system error _N") (def-unix-error EVICEOP 71 _N"syscall was handled by Vice") -) -;;; Auto-generated forms, if any, follow here. +;;; Do NOT modify the line below. bin/create-errno.sh depends on it. + +;;; End of default def-unix-error forms + +;;; And now for something completely different ... +(emit-unix-errors) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fc37bfe8d7644926ce41b2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fc37bfe8d7644926ce41b2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[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