cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-01 09:47:46 +01:00
Code Issues

- used 'mkstemps' intead of 'mkstemp' as the latter does not supports

Browse Source 
suffix and the temporary keeps the same names.
This commit is contained in:
cage 2021-04-23 21:25:28 +02:00
parent df74b5b3a3
commit a2e9016bf7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/filesystem-utils.lisp
View File

@ -267,12 +267,12 @@
(text-utils:strcat home *directory-sep*)
home)))
(cffi:defcfun (ffi-mkstemp "mkstemp") :int (template :pointer))
(cffi:defcfun (ffi-mkstemp "mkstemps") :int (template :pointer) (suffix-length :int))
(defun %mkstemp (prefix suffix)
(let ((template (text-utils:strcat prefix "XXXXXX" suffix)))
(cffi:with-foreign-string (ptr-template template)
(ffi-mkstemp ptr-template)
(ffi-mkstemp ptr-template (length suffix))
(cffi:foreign-string-to-lisp ptr-template))))
(defparameter *temporary-files-created* ())