GitLab

at 2025-02-17T17:48:37-08:00

Add with-temporary-file to create a temporary file

Use mkstemp to create a file and return the file name.  On completion,
the file is deleted.

 	   (close ,s)

 	   (unix:unix-close ,fd))))))

+;;; WITH-TEMPORARY-FILE  -- Public

+(defmacro with-temporary-file ((filename)

+			       &parse-body (forms decls))

+  (let ((fd (gensym "FD-")))

+    `(let (,filename)

+       (unwind-protect

+	    (let (,fd)

+	      (multiple-value-setq (,fd ,filename)

+		(unix::unix-mkstemp "/tmp/cmucl-temp-file-XXXXXX"))

+	      (unix:unix-close ,fd)

+	      (locally ,@decls

+		,@forms))

+	 (delete-file ,filename)))))

+	

+

 ;;; WITH-TEMPORARY-DIRECTORY  -- Public

 (defmacro with-temporary-directory ((dirname template)

 				    &parse-body (forms decls))

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

Commits:

1 changed file:

Changes: