GitLab

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.

Fix #384:  Use correct header guard in elf.h

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
Fix #385:  Fix compiler warning about type mismatch between %p and the arg in Linux-os.c

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
Fix #365:  Add Unix interface to strerror and use in get-unix-error-msg

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
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]

Add recently closed issues to release notes

Don't need CI for this change
[SKIP-CI]

Fix #388:  Analyzer stage needs cmucl-version.h

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
Address #386:  Group all errno symbols by OS feature

Merge branch 'issue-386-group-errno-syms' into 'master'

Address #386:  Group all errno symbols by OS feature

See merge request cmucl/cmucl!274
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.

Fix #389:  Reduce duplication in CI rules

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
Address #381:  Handle OS-specific docstring in pathname.lisp

Merge branch 'issue-381-darwin-pathname-docstring' into 'master'

Address #381:  Handle OS-specific docstring in pathname.lisp

See merge request cmucl/cmucl!280
Update cmucl.pot

This was updated in !280 landed and I forgot to update it there, so
we're doing it now.

Fix #401:  FILE-POSITION returns correct position after setting it

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
Merge branch 'master' into issue-373-handle-temp-files

   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

     # 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

     - 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

     - 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.

     # 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

 (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))

 	   "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"

 	   ;; 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"

   (:export "TCHARS"

 	   "LTCHARS"

 	   "D-NAMLEN"

-

 	   ;; run-program.lisp

 	   "SGTTYB"

 	   "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"

   (: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"

 	   "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")

 		   (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

 	(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.

 #+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

   _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.

 	(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)))

 \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

 \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.

     * ~~#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:

 "  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"

 "  returned."

 msgstr ""

+#: src/code/unix.lisp

+msgid "Returns a string that describes the error code Errno"

+msgstr ""

+
 "   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 ""

 #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

     {

  * 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

 	  (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))))

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl

Commits:

12 changed files:

Changes: