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

[Git][cmucl/cmucl][issue-373-handle-temp-files] 22 commits: Document sap-ref-64 and signed-sap-ref-64
by Raymond Toy (＠rtoy) 10 May '25

10 May '25

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: ef48eb2a by Carl Shapiro at 2025-02-18T22:46:55-08:00 Document sap-ref-64 and signed-sap-ref-64 These functions have existed on almost all targets for many years now. - - - - - 6c8861a0 by Raymond Toy at 2025-02-20T13:55:13+00:00 Fix #384: Use correct header guard in elf.h - - - - - 5b452f9a by Raymond Toy at 2025-02-20T13:55:13+00:00 Merge branch 'issue-384-use-correct-header-guard' into 'master' Fix #384: Use correct header guard in elf.h Closes #384 See merge request cmucl/cmucl!270 - - - - - a6846d44 by Raymond Toy at 2025-02-21T03:13:50+00:00 Fix #385: Fix compiler warning about type mismatch between %p and the arg in Linux-os.c - - - - - f21c6507 by Raymond Toy at 2025-02-21T03:13:51+00:00 Merge branch 'issue-385-fix-compiler-warning-linux-os' into 'master' Fix #385: Fix compiler warning about type mismatch between %p and the arg in Linux-os.c Closes #385 See merge request cmucl/cmucl!271 - - - - - f370206e by Raymond Toy at 2025-02-21T13:25:03+00:00 Fix #365: Add Unix interface to strerror and use in get-unix-error-msg - - - - - 8ea8e2a0 by Raymond Toy at 2025-02-21T13:25:03+00:00 Merge branch 'issue-365-get-unix-error-msg-uses-strerror' into 'master' Fix #365: Add Unix interface to strerror and use in get-unix-error-msg Closes #365 See merge request cmucl/cmucl!272 - - - - - 576f422e by Raymond Toy at 2025-02-21T05:42:51-08:00 Update pot file due to changes introduced in !272 Some docstrings changed, so the pot file needs updating. Don't need to run CI for this change. [SKIP-CI] - - - - - cb65bb7e by Raymond Toy at 2025-02-21T05:52:50-08:00 Add recently closed issues to release notes Don't need CI for this change [SKIP-CI] - - - - - 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 - - - - - 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 - - - - - 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. - - - - - de2abad2 by Raymond Toy at 2025-03-25T14:10:15+00:00 Fix #389: Reduce duplication in CI rules - - - - - 7aaca65e by Raymond Toy at 2025-03-25T14:10:15+00:00 Merge branch 'issue-389-reduce-duplication-in-ci-rules' into 'master' Fix #389: Reduce duplication in CI rules Closes #389 See merge request cmucl/cmucl!275 - - - - - 7e2d05db by Raymond Toy at 2025-03-30T21:16:32+00:00 Address #381: Handle OS-specific docstring in pathname.lisp - - - - - fea9f546 by Raymond Toy at 2025-03-30T21:16:32+00:00 Merge branch 'issue-381-darwin-pathname-docstring' into 'master' Address #381: Handle OS-specific docstring in pathname.lisp See merge request cmucl/cmucl!280 - - - - - e90fa5af by Raymond Toy at 2025-03-30T20:10:38-07:00 Update cmucl.pot This was updated in !280 landed and I forgot to update it there, so we're doing it now. - - - - - 78cb9dbd by Raymond Toy at 2025-05-09T06:55:39-07:00 Fix #401: FILE-POSITION returns correct position after setting it - - - - - 3e8a929d by Raymond Toy at 2025-05-09T06:55:39-07:00 Merge branch 'issue-401-file-position-setter-wrong' into 'master' Fix #401: FILE-POSITION returns correct position after setting it Closes #401 See merge request cmucl/cmucl!290 - - - - - b37ed3a9 by Raymond Toy at 2025-05-10T08:30:16-07:00 Merge branch 'master' into issue-373-handle-temp-files - - - - - 12 changed files: - .gitlab-ci.yml - src/code/exports.lisp - src/code/fd-stream.lisp - src/code/pathname.lisp - src/code/unix.lisp - src/docs/cmu-user/unix.tex - src/general-info/release-21f.md - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot - src/lisp/Linux-os.c - src/lisp/elf.h - tests/fd-streams.lisp Changes: ===================================== .gitlab-ci.yml ===================================== @@ -3,44 +3,38 @@ variables: version: "2024-08-x86" bootstrap: "-B boot-2024-08" - -stages: - - install - - build - - test - - ansi-test - - benchmark - - analyze - -cache: - - -linux:install: +# Default install configuration to download the cmucl tarballs to use +# for building. +.install_template: &install_configuration stage: install - tags: - - linux artifacts: paths: - snapshot/ script: - - wget -nv $download_url/cmucl-$version-linux.tar.bz2 - - wget -nv $download_url/cmucl-$version-linux.extra.tar.bz2 + - echo PATH = $PATH + - ls -F /usr/local/bin + - type -all gitlab-runner + # Download binaries. (Do we really need the extras tarball?) + - $CURL -o cmucl-$version-$osname.tar.bz2 $download_url/cmucl-$version-$osname.tar.bz2 + - $CURL -o cmucl-$version-$osname.extra.tar.bz2 $download_url/cmucl-$version-$osname.extra.tar.bz2 - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) + - (cd snapshot; tar xjf ../cmucl-$version-$osname.tar.bz2; tar xjf ../cmucl-$version-$osname.extra.tar.bz2) -linux:build: +# Default build configuration to be added to each build stage for each +# OS. This assumes we don't need anything special between OSes, and +# the option '-C ""' is good enough. We also override the default +# build dirs by using the -b option so that we know where the results +# are, independent of OS. +.build_template: &build_configuration stage: build - tags: - - linux artifacts: paths: - dist/ - - linux-2/*.log - - linux-3/*.log - - linux-4/ - needs: - - job: linux:install - artifacts: true + - 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 @@ -49,11 +43,79 @@ linux:build: # Regular build using the cross-compiled result or snapshot. The # analyzer job requires gcc, so make sure we build with gcc here # instead of clang. - - bin/build.sh $bootstrap -R -C "x86_linux" -o snapshot/bin/lisp - # - bin/build.sh $bootstrap -R -C "x86_linux" -o snapshot/bin/lisp + - bin/build.sh $bootstrap -b build -R -C "" -o snapshot/bin/lisp # When the result of `git describe` cannot be used as a version # string, an alternative can be provided with the -V flag - - bin/make-dist.sh -I dist linux-4 + - bin/make-dist.sh -I dist build-4 + +# Default configuration for running the ansi-tests. +.ansi_test_template: &ansi_test_configuration + stage: ansi-test + artifacts: + paths: + - ansi-test/test.out + script: + - bin/run-ansi-tests.sh -l dist/bin/lisp + +# Default configuration for running unit tests. +.unit_test_template: &unit_test_configuration + stage: test + artifacts: + paths: + - ansi-test/test.out + - test.log + script: + - echo LANG = $LANG + - bin/run-unit-tests.sh -l dist/bin/lisp 2>&1 | tee test.log + +# Default configuration to test creation of lisp executable and +# testing the exectuable works. +.exec_test_template: &exec_test_configuration + stage: test + script: + # Create an executable and test it by printing the version. + - dist/bin/lisp -eval '(save-lisp "saved-lisp-executable" :executable t)' + - ./saved-lisp-executable --version + +# Default configuration for running the benchmarks. +.benchmark_template: &benchmark_configuration + stage: benchmark + artifacts: + paths: + - benchmarks/cl-bench/results + script: + - cd benchmarks/cl-bench + - mkdir tmp + - CMUCL=../../snapshot/bin/lisp ./run-cmucl.sh + - CMUCL=../../dist/bin/lisp ./run-cmucl.sh + - ../../snapshot/bin/lisp -load report + +stages: + - install + - build + - test + - ansi-test + - benchmark + - analyze + +cache: + +#### Linux jobs #### +linux:install: + <<: *install_configuration + tags: + - linux + variables: + osname: "linux" + CURL: "curl" + +linux:build: + <<: *build_configuration + tags: + - linux + needs: + - job: linux:install + artifacts: true linux:cross-build: stage: build @@ -84,31 +146,21 @@ linux:cross-build: - bin/make-dist.sh -I xdist xlinux-4 linux:test: - stage: test + <<: *unit_test_configuration tags: - linux - artifacts: - paths: - - ansi-test/test.out - - test.log needs: # Needs artifacts from build (dist/) - job: linux:build artifacts: true - script: - - bin/run-unit-tests.sh -l dist/bin/lisp 2>&1 | tee test.log linux:exec-test: - stage: test + <<: *exec_test_configuration tags: - linux needs: - job: linux:build artifacts: true - script: - # Create an executable and test it by printing the version. - - dist/bin/lisp -eval '(save-lisp "saved-lisp-executable" :executable t)' - - ./saved-lisp-executable --version linux:cross-test: stage: test @@ -126,141 +178,76 @@ linux:cross-test: - bin/run-unit-tests.sh -l xdist/bin/lisp 2>&1 | tee cross-test.log linux:ansi-test: - stage: ansi-test + <<: *ansi_test_configuration tags: - linux - artifacts: - paths: - - ansi-test/test.out needs: # Needs artifacts from build (dist/) - job: linux:build artifacts: true - script: - - bin/run-ansi-tests.sh -l dist/bin/lisp linux:benchmark: - stage: benchmark + <<: *benchmark_configuration tags: - linux - artifacts: - paths: - - benchmarks/cl-bench/results needs: # Needs artifacts from install (snapshot/) and build (dist/) - job: linux:install artifacts: true - job: linux:build - script: - - cd benchmarks/cl-bench - - mkdir tmp - - CMUCL=../../snapshot/bin/lisp ./run-cmucl.sh - - CMUCL=../../dist/bin/lisp ./run-cmucl.sh - - ../../snapshot/bin/lisp -load report +#### OSX (Mac) jobs #### osx:install: - stage: install + <<: *install_configuration tags: - macos-virtualbox - artifacts: - paths: - - snapshot/ - script: - - echo PATH = $PATH - - ls -F /usr/local/bin - - type -all gitlab-runner - - /opt/local/bin/curl -o cmucl-$version-darwin.tar.bz2 $download_url/cmucl-$version-darwin.tar.bz2 - - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2) + variables: + osname: "darwin" + CURL: "/opt/local/bin/curl" osx:build: - stage: build + <<: *build_configuration tags: - macos-virtualbox - artifacts: - paths: - - dist/ - - darwin-2/*.log - - darwin-3/*.log - - darwin-4/*.log needs: - job: osx:install artifacts: true - script: - # Do cross compile first - #- bin/create-target.sh xtarget x86_darwin - #- bin/create-target.sh xcross x86_darwin - #- bin/cross-build-world.sh -crl -B boot-2020-04-1 xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp - # Regular build using the cross-compiled result or snapshot. - # Need /opt/local/bin to get msgmerge and msgfmt programs. - - PATH=/opt/local/bin:$PATH bin/build.sh $bootstrap -R -C "" -o snapshot/bin/lisp - # If needed use -V to specify the version in case some tag makes git - # describe return something that make-dist.sh doesn't like. - - bin/make-dist.sh -I dist darwin-4 osx:test: - stage: test + <<: *unit_test_configuration tags: - macos-virtualbox - artifacts: - paths: - - ansi-test/test.out - - test.log needs: # Needs artifacts from build (dist/) - job: osx:build artifacts: true - script: - - echo LANG = $LANG - - bin/run-unit-tests.sh -l dist/bin/lisp 2>&1 | tee test.log osx:exec-test: - stage: test + <<: *exec_test_configuration tags: - macos-virtualbox needs: - job: osx:build artifacts: true - script: - # Create an executable and test it by printing the version. - - dist/bin/lisp -eval '(save-lisp "saved-lisp-executable" :executable t)' - - ./saved-lisp-executable --version osx:ansi-test: - stage: ansi-test + <<: *ansi_test_configuration tags: - macos-virtualbox - artifacts: - paths: - - ansi-test/test.out needs: # Needs artifacts from build (dist/) - job: osx:build artifacts: true - script: - # NB: sometimes we can't clone the ansi-test repo (bad cert!?!). - # Manually cloning it in the gitlab build dir helps with this - # issue until we can figure out what's going on. - - bin/run-ansi-tests.sh -l dist/bin/lisp osx:benchmark: - stage: benchmark + <<: *benchmark_configuration tags: - macos-virtualbox - artifacts: - paths: - - benchmarks/cl-bench/results needs: # Needs artifacts from install (snapshot/) and build (dist/) - job: osx:install artifacts: true - job: osx:build - script: - - cd benchmarks/cl-bench - - mkdir tmp - - CMUCL=../../snapshot/bin/lisp ./run-cmucl.sh - - CMUCL=../../dist/bin/lisp ./run-cmucl.sh - - ../../snapshot/bin/lisp -load report # Optional job that runs the static analyzer. It needs the files from # the linux-4 directory built in the linux:build job. @@ -280,75 +267,41 @@ linux:static-analyzer: # the results to the log file instead of also having it go to the # console. If someday there's less or no output, we can consider # having the logs go to the console too. - - make -C linux-4/lisp clean - - make -C linux-4/lisp CFLAGS=-fanalyzer > analyzer.log 2>&1 + - make -C build-4/lisp clean + - make -C build-4/lisp CFLAGS=-fanalyzer > analyzer.log 2>&1 +#### OpenSUSE jobs #### opensuse:install: - stage: install + <<: *install_configuration tags: - opensuse - artifacts: - paths: - - snapshot/ - script: - - wget -nv $download_url/cmucl-$version-linux.tar.bz2 - - wget -nv $download_url/cmucl-$version-linux.extra.tar.bz2 - - mkdir snapshot - - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2) + variables: + osname: "linux" + CURL: "curl" opensuse:build: - stage: build + <<: *build_configuration tags: - opensuse - artifacts: - paths: - - dist/ - - linux-2/*.log - - linux-3/*.log - - linux-4/ needs: - job: opensuse:install artifacts: true - script: - # Do cross compile first - #- bin/create-target.sh xtarget x86_linux_clang - #- bin/create-target.sh xcross x86_linux_clang - #- bin/cross-build-world.sh -crl -B boot-2020-04-1 xtarget xcross src/tools/cross-scripts/cross-x86-x86.lisp snapshot/bin/lisp - # Regular build using the cross-compiled result or snapshot. The - # analyzer job requires gcc, so make sure we build with gcc here - # instead of clang. - - bin/build.sh $bootstrap -R -C "x86_linux" -o snapshot/bin/lisp - # - bin/build.sh $bootstrap -R -C "x86_linux" -o snapshot/bin/lisp - # If needed use -V to specify the version in case some tag makes git - # describe return something that make-dist.sh doesn't like. - - bin/make-dist.sh -I dist linux-4 opensuse:test: - stage: test + <<: *unit_test_configuration tags: - - linux - artifacts: - paths: - - ansi-test/test.out - - test.log + - opensuse needs: # Needs artifacts from build (dist/) - job: opensuse:build artifacts: true - script: - - bin/run-unit-tests.sh -l dist/bin/lisp 2>&1 | tee test.log opensuse:ansi-test: - stage: ansi-test + <<: *ansi_test_configuration tags: - - linux - artifacts: - paths: - - ansi-test/test.out + - opensuse needs: # Needs artifacts from build (dist/) - job: opensuse:build artifacts: true - script: - - bin/run-ansi-tests.sh -l dist/bin/lisp ===================================== 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 "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)) @@ -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") ===================================== src/code/fd-stream.lisp ===================================== @@ -1764,7 +1764,8 @@ (progn (format t "in-buffer-length = ~D~%" in-buffer-length) (format t "in-length = ~D~%" (fd-stream-in-length stream)) - (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream))) + (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)) + (format t "posn = ~A~%" posn)) (decf posn (- (fd-stream-in-length stream) (fd-stream-in-index stream)))) #+nil @@ -1795,9 +1796,14 @@ (setf (fd-stream-unread stream) nil) ;;@@ #+unicode (progn + ;; Clear out any pending input from the string buffer (setf (fd-stream-last-char-read-size stream) 0) (setf (fd-stream-string-index stream) (fd-stream-string-buffer-len stream))) + ;; Mark the in-buffer as empty. + (setf (fd-stream-in-index stream) + (fd-stream-in-length stream)) + ;; Mark the ibuf as empty. (setf (fd-stream-ibuf-head stream) 0) (setf (fd-stream-ibuf-tail stream) 0) ;; Trash cached value for listen, so that we check next time. ===================================== src/code/pathname.lisp ===================================== @@ -269,7 +269,7 @@ #+darwin (defvar *enable-darwin-path-normalization* nil - "When non-NIL, pathnames are on Darwin are normalized when created. + _N"When non-NIL, pathnames are on Darwin are normalized when created. Otherwise, the pathnames are unchanged. This must be NIL during bootstrapping because Unicode is not yet ===================================== src/code/unix.lisp ===================================== @@ -2053,9 +2053,7 @@ _N"Returns a string describing the error number which was returned by a UNIX system call." (declare (type integer error-number)) - (if (array-in-bounds-p *unix-errors* error-number) - (svref *unix-errors* error-number) - (format nil _"Unknown error [~d]" error-number))) + (unix::unix-strerror error-number)) ;;;; Lisp types used by syscalls. @@ -2975,3 +2973,14 @@ (if (null-alien result) (values nil (unix-errno)) (%file->name (cast result c-call:c-string))))))) + +(defun unix-strerror (errno) + _N"Returns a string that describes the error code Errno" + (let ((result + (alien-funcall + (extern-alien "strerror" + (function (* char) int)) + errno))) + ;; Result from strerror can be localized so we need to decode + ;; those octets to get a proper Lisp string. + (string-decode (cast result c-string) :default))) ===================================== src/docs/cmu-user/unix.tex ===================================== @@ -244,9 +244,10 @@ for SAPs when possible, so the consing overhead is generally minimal. \begin{defun}{system:}{sap-ref-8}{\args{\var{sap} \var{offset}}} \defunx[system:]{sap-ref-16}{\args{\var{sap} \var{offset}}} - \defunx[system:]{sap-ref-32}{\args{\var{sap} \var{offset}}} - - These functions return the 8, 16 or 32 bit unsigned integer at + \defunx[system:]{sap-ref-32}{\args{\var{sap} \var{offset}} + \defunx[system:]{sap-ref-64}{\args{\var{sap} \var{offset}}} + + These functions return the 8, 16, 32 or 64 bit unsigned integer at \var{offset} from \var{sap}. The \var{offset} is always a byte offset, regardless of the number of bits accessed. \code{setf} may be used with the these functions to deposit values into virtual @@ -256,7 +257,8 @@ for SAPs when possible, so the consing overhead is generally minimal. \begin{defun}{system:}{signed-sap-ref-8}{\args{\var{sap} \var{offset}}} \defunx[system:]{signed-sap-ref-16}{\args{\var{sap} \var{offset}}} \defunx[system:]{signed-sap-ref-32}{\args{\var{sap} \var{offset}}} - + \defunx[system:]{signed-sap-ref-64}{\args{\var{sap} \var{offset}}} + These functions are the same as the above unsigned operations, except that they sign-extend, returning a negative number if the high bit is set. ===================================== src/general-info/release-21f.md ===================================== @@ -117,9 +117,12 @@ public domain. * ~~#363~~ Version numbers added to files and directories. The distribution layout has changed. * ~~#364~~ Add interface to `mkdtemp` and `mkstemp` - * ~~#367~~ Add stream:string-count-octets to count octets in a string + * ~~#367~~ Add `stream:string-count-octets` to count octets in a string * ~~#369~~ Improve docstring for `unix::unix-setlocale` + * ~~#375~~ `unix-mkstemp` and `unix-mkdtemp` actually returns the + file names now. * ~~#379~~ Support GNU-style command-line option names + * ~~#382~~ Command-line options are case-sensitive * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1284,10 +1284,6 @@ msgid "" " UNIX system call." msgstr "" -#: src/code/unix.lisp -msgid "Unknown error [~d]" -msgstr "" - #: src/code/unix.lisp msgid "" "Perform the UNIX select(2) system call.\n" @@ -1454,3 +1450,7 @@ msgid "" " returned." msgstr "" +#: src/code/unix.lisp +msgid "Returns a string that describes the error code Errno" +msgstr "" + ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9667,6 +9667,15 @@ msgid "" " an otherwise undefined logical host." msgstr "" +#: src/code/pathname.lisp +msgid "" +"When non-NIL, pathnames are on Darwin are normalized when created.\n" +" Otherwise, the pathnames are unchanged.\n" +"\n" +" This must be NIL during bootstrapping because Unicode is not yet\n" +" available." +msgstr "" + #: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" ===================================== src/lisp/Linux-os.c ===================================== @@ -476,7 +476,7 @@ sigsegv_handler(HANDLER_ARGS) #endif if (gc_write_barrier(code->si_addr)) return; - DPRINTF(0, (stderr, "sigsegv: PC: %p\n", SC_PC(os_context))); + DPRINTF(0, (stderr, "sigsegv: PC: %#lx\n", SC_PC(os_context))); #ifdef RED_ZONE_HIT { ===================================== src/lisp/elf.h ===================================== @@ -9,7 +9,7 @@ * interface to both elf and mach-o support. I (rtoy) was too lazy to * change the name to something more descriptive. */ -#if !defined(_ELF_H_INCLUDED_) +#if !defined(ELF_H_INCLUDED) #define ELF_H_INCLUDED ===================================== tests/fd-streams.lisp ===================================== @@ -36,19 +36,58 @@ (file-length s)) (delete-file *test-file*)))) -(define-test clear-output-1 - (:tag :trac) - (assert-eql - 0 - (ext:with-temporary-file (test-file) - (let ((s (open test-file - :direction :output - :if-exists :supersede))) - ;; Write a character to the (fully buffered) output - ;; stream. Clear the output and close the file. Nothing - ;; should have been written to the file. - (write-char #\a s) - (clear-output s) - (close s) - (setf s (open test-file)) - (file-length s))))) +(define-test file-position.1 + (:tag :issues) + ;; Create a short test file + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string "aaaaaa" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.2 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer length + ;; and the first line is more than 512 characters long. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string (make-string 512 :initial-element #\a) s) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.3 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer + ;; length. This tests the case where the in-buffer does not have + ;; enough octets to form a complete character. (See comment in + ;; fd-stream-file-position. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :external-format :utf-8 + :direction :output + :if-exists :supersede) + (write-char #\a s) + ;; STR is a string consisting of the single codepoint #x11000 + ;; which is 4 octets when encoded using utf-8. + (let ((str (lisp::codepoints-string '(#x11000)))) + (dotimes (k 128) + (write-string str s))) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file :external-format :utf-8) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/087eb17fc9bd72d49b43e5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/087eb17fc9bd72d49b43e5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-373-handle-temp-files] Fix a typo and use exported symbols
by Raymond Toy (＠rtoy) 10 May '25

10 May '25

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: 087eb17f by Raymond Toy at 2025-02-21T17:54:57-08:00 Fix a typo and use exported symbols Fix a typo in a comment in os_temp_path. `with-temporary-stream` is an exported symbol, so just use "ext:" insteadof "ext::". [SKIP-CI] - - - - - 2 changed files: - src/lisp/os-common.c - tests/trac.lisp Changes: ===================================== src/lisp/os-common.c ===================================== @@ -945,7 +945,7 @@ os_get_user_homedir(const char* name, int *status) * returned, such a location could not be found or some other error * happened. * - * Caller must call free(0 on the string returned. + * Caller must call free() on the string returned. */ char * os_temp_path() ===================================== tests/trac.lisp ===================================== @@ -127,9 +127,8 @@ (define-test trac.36 (:tag :trac) (flet ((bug (&optional (format :utf16)) - (ext::with-temporary-stream (s :direction :io :external-format format) + (ext:with-temporary-stream (s :direction :io :external-format format) (format s "Hello~%") - (format t "posn = ~A~%" (file-position s)) (file-position s 0) (let ((ch (read-char s))) (values ch (file-position s)))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/087eb17fc9bd72d49b43e53… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/087eb17fc9bd72d49b43e53… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #401: FILE-POSITION returns correct position after setting it
by Raymond Toy (＠rtoy) 09 May '25

09 May '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 78cb9dbd by Raymond Toy at 2025-05-09T06:55:39-07:00 Fix #401: FILE-POSITION returns correct position after setting it - - - - - 3e8a929d by Raymond Toy at 2025-05-09T06:55:39-07:00 Merge branch 'issue-401-file-position-setter-wrong' into 'master' Fix #401: FILE-POSITION returns correct position after setting it Closes #401 See merge request cmucl/cmucl!290 - - - - - 2 changed files: - src/code/fd-stream.lisp - tests/fd-streams.lisp Changes: ===================================== src/code/fd-stream.lisp ===================================== @@ -1764,7 +1764,8 @@ (progn (format t "in-buffer-length = ~D~%" in-buffer-length) (format t "in-length = ~D~%" (fd-stream-in-length stream)) - (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream))) + (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)) + (format t "posn = ~A~%" posn)) (decf posn (- (fd-stream-in-length stream) (fd-stream-in-index stream)))) #+nil @@ -1795,9 +1796,14 @@ (setf (fd-stream-unread stream) nil) ;;@@ #+unicode (progn + ;; Clear out any pending input from the string buffer (setf (fd-stream-last-char-read-size stream) 0) (setf (fd-stream-string-index stream) (fd-stream-string-buffer-len stream))) + ;; Mark the in-buffer as empty. + (setf (fd-stream-in-index stream) + (fd-stream-in-length stream)) + ;; Mark the ibuf as empty. (setf (fd-stream-ibuf-head stream) 0) (setf (fd-stream-ibuf-tail stream) 0) ;; Trash cached value for listen, so that we check next time. ===================================== tests/fd-streams.lisp ===================================== @@ -34,3 +34,59 @@ (setf s (open *test-file*)) (file-length s)) (delete-file *test-file*)))) + +(define-test file-position.1 + (:tag :issues) + ;; Create a short test file + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string "aaaaaa" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.2 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer length + ;; and the first line is more than 512 characters long. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string (make-string 512 :initial-element #\a) s) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.3 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer + ;; length. This tests the case where the in-buffer does not have + ;; enough octets to form a complete character. (See comment in + ;; fd-stream-file-position. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :external-format :utf-8 + :direction :output + :if-exists :supersede) + (write-char #\a s) + ;; STR is a string consisting of the single codepoint #x11000 + ;; which is 4 octets when encoded using utf-8. + (let ((str (lisp::codepoints-string '(#x11000)))) + (dotimes (k 128) + (write-string str s))) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file :external-format :utf-8) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e90fa5af893e3d5842b506… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e90fa5af893e3d5842b506… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-394-getcwd-retry-buffer-size] Just remove extraneous whitespace at the end of some lines.
by Raymond Toy (＠rtoy) 09 May '25

09 May '25

Raymond Toy pushed to branch issue-394-getcwd-retry-buffer-size at cmucl / cmucl Commits: b4da8b99 by Raymond Toy at 2025-05-09T06:53:50-07:00 Just remove extraneous whitespace at the end of some lines. - - - - - 1 changed file: - src/lisp/os-common.c Changes: ===================================== src/lisp/os-common.c ===================================== @@ -948,7 +948,7 @@ os_getcwd(void) char *result = NULL; result = getcwd(buffer, size); - + while (result == NULL && errno == ERANGE) { /* * Buffer is too small, double its size and try again. @@ -969,5 +969,3 @@ os_getcwd(void) return result; } - - View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b4da8b99855d0933e12c133… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b4da8b99855d0933e12c133… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-401-file-position-setter-wrong] Add another file-position test
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed to branch issue-401-file-position-setter-wrong at cmucl / cmucl Commits: a2c10e79 by Raymond Toy at 2025-05-08T08:18:42-07:00 Add another file-position test As mentioned in the comment for fd-stream-file-position, we have added a test for the case where the input buffer doesn't have enough octets to form a complete character. We create a file consisting of a single character followed by 128 characters that require 4 octets for utf-8 encoding. Hence the in-buffer (of length 512) only has a partial utf-8 character at the end. - - - - - 1 changed file: - tests/fd-streams.lisp Changes: ===================================== tests/fd-streams.lisp ===================================== @@ -65,3 +65,28 @@ (read-line s) (assert-true (file-position s 0)) (assert-equal (file-position s) 0)))) + +(define-test file-position.3 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer + ;; length. This tests the case where the in-buffer does not have + ;; enough octets to form a complete character. (See comment in + ;; fd-stream-file-position. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :external-format :utf-8 + :direction :output + :if-exists :supersede) + (write-char #\a s) + ;; STR is a string consisting of the single codepoint #x11000 + ;; which is 4 octets when encoded using utf-8. + (let ((str (lisp::codepoints-string '(#x11000)))) + (dotimes (k 128) + (write-string str s))) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file :external-format :utf-8) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a2c10e79c31425b24cdea49… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a2c10e79c31425b24cdea49… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-401-file-position-setter-wrong] Add tests for file-position
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed to branch issue-401-file-position-setter-wrong at cmucl / cmucl Commits: e7f7a9aa by Raymond Toy at 2025-05-08T07:57:10-07:00 Add tests for file-position - - - - - 1 changed file: - tests/fd-streams.lisp Changes: ===================================== tests/fd-streams.lisp ===================================== @@ -34,3 +34,34 @@ (setf s (open *test-file*)) (file-length s)) (delete-file *test-file*)))) + +(define-test file-position.1 + (:tag :issues) + ;; Create a short test file + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string "aaaaaa" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.2 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer length + ;; and the first line is more than 512 characters long. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string (make-string 512 :initial-element #\a) s) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e7f7a9aad8981e3baf90492… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e7f7a9aad8981e3baf90492… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-401-file-position-setter-wrong] 2 commits: Clean up debugging stuff
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed to branch issue-401-file-position-setter-wrong at cmucl / cmucl Commits: bb4b550f by Raymond Toy at 2025-05-08T07:27:54-07:00 Clean up debugging stuff Remove additional prints and turn off original debugging stuff by uncommenting the `#+nil` stuff. - - - - - 7b351a33 by Raymond Toy at 2025-05-08T07:41:22-07:00 Fix typos introduced in previous commits - - - - - 1 changed file: - src/code/fd-stream.lisp Changes: ===================================== src/code/fd-stream.lisp ===================================== @@ -1699,7 +1699,7 @@ (posn errno) (unix:unix-lseek (fd-stream-fd stream) 0 unix:l_incr) (declare (type (or (integer 0) null) posn)) - ;;#+nil + #+nil (format t "lseek returns ~D ~D~%" posn errno) (cond (posn ;; Adjust for buffered output: @@ -1720,7 +1720,7 @@ (decf posn (- (fd-stream-ibuf-tail stream) (fd-stream-ibuf-head stream))) - ;;#+nil + #+nil (format t "Updated posn = ~D~%" posn) #+unicode (when (fd-stream-string-buffer stream) @@ -1737,14 +1737,14 @@ ;; octet-count doesn't use that. Hence, ;; subtract one from string-index and ;; string-buffer-len. - ;;#+nil + #+nil (progn (format t "~&ocount = ~D~%" ocount) (format t "posn = ~D~%" posn)) (loop for k of-type fixnum from (1- (fd-stream-string-index stream)) below (1- (fd-stream-string-buffer-len stream)) do (decf posn (aref ocount k))) - ;;#+nil + #+nil (progn (format t "new posn = ~D~%" posn) (format t "in-buffer-length = ~D~%" in-buffer-length) @@ -1760,23 +1760,19 @@ ;; string-buffer and no in-buffer, then the ibuf ;; tail and head pointers contain all the ;; information needed. - ;;#+nil + #+nil (progn (format t "in-buffer-length = ~D~%" in-buffer-length) (format t "in-length = ~D~%" (fd-stream-in-length stream)) (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)) (format t "posn = ~A~%" posn)) (decf posn (- (fd-stream-in-length stream) - (fd-stream-in-index stream))) - (format t "After inbuffer update posn = ~A~%" posn)) - ;;#+nil + (fd-stream-in-index stream)))) + #+nil (format t "fd-stream-unread = ~S~%" (fd-stream-unread stream)) (when (fd-stream-unread stream) ;;@@ (decf posn)) ;; Divide bytes by element size. - (format t "posn = ~A, size = ~A, trunc = ~A~%" - posn (fd-stream-element-size stream) - (truncate posn (fd-stream-element-size stream))) (truncate posn (fd-stream-element-size stream))) ((eq errno unix:espipe) nil) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4b942f362924b4a6057480… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4b942f362924b4a6057480… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-401-file-position-setter-wrong
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed new branch issue-401-file-position-setter-wrong at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-401-file-position-s… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-400-unix-resolve-links] Add test for #400
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed to branch issue-400-unix-resolve-links at cmucl / cmucl Commits: 2293f000 by Raymond Toy at 2025-05-05T10:23:00-07:00 Add test for #400 Based on test code from Philip Fominykh. Instead of using "/tmp", we create a tmp directory from the current directory which should work for any OS running CI or locally. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -1153,3 +1153,16 @@ (assert-true (stream::find-external-format :646 nil)) (assert-true (eq (stream::find-external-format :646 nil) (stream::find-external-format :iso646-us nil)))) + +(define-test issue.400 + (:tag :issues) + (let* ((pl 50) + (nl 250) + (p (append (pathname-directory (ext:default-directory)) + (list "tmp") + (list (make-string pl :initial-element #\a)))) + (n (make-string nl :initial-element #\b)) + (pn (make-pathname :name n :directory p))) + (ensure-directories-exist pn) + (close (open pn :direction :output :if-exists :supersede)) + (assert-true (unix::unix-resolve-links (namestring pn))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-400-unix-resolve-links
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed new branch issue-400-unix-resolve-links at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-400-unix-resolve-li… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0