Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl

Commits: f4d7036b by Raymond Toy at 2015-05-16T13:50:01Z Add stat and friends for solaris.

- - - - -

1 changed file:

- src/code/unix.lisp

Changes:

===================================== src/code/unix.lisp ===================================== --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -1241,6 +1241,8 @@ (slot ,buf 'st-blksize) (slot ,buf 'st-blocks)))

+#-solaris +(progn (defun unix-stat (name) _N"Unix-stat retrieves information about the specified file returning them in the form of multiple values. @@ -1272,6 +1274,43 @@ (syscall (#-netbsd "fstat" #+netbsd "__fstat50" int (* (struct stat))) (extract-stat-results buf) fd (addr buf)))) +) + +;;; 64-bit versions of stat and friends +#+solaris +(progn +(defun unix-stat (name) + _N"Unix-stat retrieves information about the specified + file returning them in the form of multiple values. + See the UNIX Programmer's Manual for a description + of the values returned. If the call fails, then NIL + and an error number is returned instead." + (declare (type unix-pathname name)) + (when (string= name "") + (setf name ".")) + (with-alien ((buf (struct stat64))) + (syscall ("stat64" c-string (* (struct stat64))) + (extract-stat-results buf) + (%name->file name) (addr buf)))) + +(defun unix-lstat (name) + _N"Unix-lstat is similar to unix-stat except the specified + file must be a symbolic link." + (declare (type unix-pathname name)) + (with-alien ((buf (struct stat64))) + (syscall ("lstat64" c-string (* (struct stat64))) + (extract-stat-results buf) + (%name->file name) (addr buf)))) + +(defun unix-fstat (fd) + _N"Unix-fstat is similar to unix-stat except the file is specified + by the file descriptor fd." + (declare (type unix-fd fd)) + (with-alien ((buf (struct stat64))) + (syscall ("fstat64" int (* (struct stat64))) + (extract-stat-results buf) + fd (addr buf)))) +)

(def-alien-type nil (struct rusage

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/f4d7036b4f8b68c513f51cd383...