Raymond Toy pushed to branch issue-394-getcwd-retry-buffer-size at cmucl / cmucl Commits: cee8ce72 by Raymond Toy at 2025-03-31T14:40:40-07:00 Remove old code and add docstring; update cmucl-unix.pot Remove the old version of `unix-current-directory` and add a docstring for it as well. This means cmucl-unix.pot needs to be updated. - - - - - 3 changed files: - src/code/unix.lisp - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/unix.lisp ===================================== @@ -370,26 +370,10 @@ nil) -;; Use getcwd instead of getwd. But what should we do if the path -;; won't fit? Try again with a larger size? We don't do that right -;; now. -#+nil -(defun unix-current-directory () - ;; 5120 is some randomly selected maximum size for the buffer for getcwd. - (with-alien ((buf (array c-call:char 5120))) - (let ((result - (alien-funcall - (extern-alien "getcwd" - (function (* c-call:char) - (* c-call:char) c-call:int)) - (cast buf (* c-call:char)) - 5120))) - - (values (not (zerop - (sap-int (alien-sap result)))) - (%file->name (cast buf c-call:c-string)))))) - (defun unix-current-directory () + "Get the current working directory. If the directory could be + determined, T and the directory name as a string are returned. + Otherwise, both values are NIL." (let (result) (unwind-protect (progn ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -28,6 +28,13 @@ msgstr "" msgid "Syscall ~A failed: ~A" msgstr "" +#: src/code/unix.lisp +msgid "" +"Get the current working directory. If the directory could be\n" +" determined, T and the directory name as a string are returned.\n" +" Otherwise, both values are NIL." +msgstr "" + #: src/code/unix.lisp msgid "Test for read permission" 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 "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cee8ce72ba333510f7b6d35d... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cee8ce72ba333510f7b6d35d... You're receiving this email because of your account on gitlab.common-lisp.net.