GitLab

at 2025-02-15T07:34:51-08:00

Update cmucl.pot file

Apply external format to string returned by strerror

`strerror` returns a string of octets.  We need to convert that set of
octets to a Lisp string using the appropriate external format.

I tested this using:
```
LANG=de_DE.utf-8 dist-linux/bin/lisp -quiet
* (unix:get-unix-error-msg 14)

"Ungültige Adresse"
```
Google translate says that's "Invalid address".  Makes sense EFAULT,
"Bad address".

 (defun unix-strerror (errno)

   _N"Returns a string that describes the error code Errno"

-  (cast

-      (alien-funcall

-       (extern-alien "strerror"

-		     (function (* char) int))

-       errno)

-    c-string))
+  (let ((result

+	  (alien-funcall

+	   (extern-alien "strerror"

+			 (function (* unsigned-char) int))

+	   errno)))

+    ;; We need to convert the set of octets to a Lisp string according

+    ;; to the appropriate external format.  Copy the C string out to

+    ;; an array which we can then convert to a string.

+    (let* ((octets (make-array 100 :element-type '(unsigned-byte 8) :fill-pointer 0)))

+      (loop for k from 0

+	    for byte = (deref result k)

+	    until (zerop byte)

+	    do

+	       (vector-push-extend byte octets))

+      (lisp::with-array-data ((data octets) (start) (end))

+	(declare (ignore start end))

+	(values (stream:octets-to-string data :end (length octets)))))))
 msgstr ""

 #: src/code/commandline.lisp

-msgid "Prints the cmucl version and exits"

+msgid "Prints the cmucl version and exits, without loading the lisp core."

 msgstr ""

 #: src/code/commandline.lisp

Raymond Toy pushed to branch issue-365-add-strerror at cmucl / cmucl

Commits:

2 changed files:

Changes: