GitLab

at 2025-02-19T19:10:27-08:00

Remove unused variable.

Update get-os-temp-path to call os_temp_path

Directly call os_temp_path in get-os-temp-path.  We take care to free
the string that was returned.  We also throw an error if NULL is
returned.

The path returned is made to end with a slash so that creating a
CL pathname from it only has directory components.

   course) change at arbitary times."

   `(lisp::pointer-hash ,x))

-(alien:def-alien-routine os-temp-path c-call:c-string)

 (defun get-os-temp-path ()

-  "Get a path to an appropriate temporary location from the OS"

-  "/tmp/")

+  "Get a path to an appropriate temporary location from the OS.  A string

+  is returned to that path.  The path ends with a \"/\" character."

+  (let ((path (alien:alien-funcall

+	       (alien:extern-alien "os_temp_path"

+				   (function (alien:* c-call:char))))))

+    (when (alien:null-alien path)

+      (error "Unable to find path to temporary directory"))

+

+    (unwind-protect

+	 (let* ((string (unix::%file->name (cast path c-call:c-string)))

+		(len (length string)))

+	   (if (char= #\/ (aref string (1- len)))

+	       string

+	       (concatenate 'string string "/")))

+      (unless (alien:null-alien path)

+	(alien:free-alien path)))))

 ;;; WITH-TEMPORARY-STREAM  -- Public

 ;;;

     // macosx has a secure per-user temporary directory.

     // Don't cache the result as this is only called once.

     char path[PATH_MAX];

-    char *result;

     int pathSize = confstr(_CS_DARWIN_USER_TEMP_DIR, path, PATH_MAX);

     if (pathSize == 0 || pathSize > PATH_MAX) {

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

Commits:

2 changed files:

Changes: