[Git][cmucl/cmucl][issue-125-unix-stat-wrong] Remove solaris versions of stat and friends

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-125-unix-stat-wrong at cmucl / cmucl


Commits:
750c109a by Raymond Toy at 2022-08-04T07:36:39-07:00
Remove solaris versions of stat and friends

This has been replaced by unix_stat and friends.

- - - - -


1 changed file:

- src/code/unix.lisp


Changes:

=====================================
src/code/unix.lisp
=====================================
@@ -1467,42 +1467,6 @@
     (declare (type unix-fd fd))
     (call-stat "unix_fstat" int fd)))
 
-;;; 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
     (ru-utime (struct timeval))		; user time used



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

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/750c109add317988cdb319e641ff640318518648
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220804/0432f543/attachment-0001.html>