X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=contrib%2Fsb-posix%2Fconstants.lisp;h=c65dc5cea532de3976a4f57cf2e0c0bc0e150439;hb=ad6345c0021507c8830c7c8541ed651a89792335;hp=63a04a53e45579781ead93fc49c72d469166f40b;hpb=89c9285a01e9ccb247198b77552d48f007d20e06;p=sbcl.git

diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp
index 63a04a5..c65dc5c 100644
--- a/contrib/sb-posix/constants.lisp
+++ b/contrib/sb-posix/constants.lisp
@@ -298,6 +298,12 @@
               (time-t mtime "time_t" "st_mtime")
               (time-t ctime "time_t" "st_ctime")))
 
+ #+darwin
+ (:structure alien-timespec
+             ("struct timespec"
+              (time-t tv-sec "time_t" "tv_sec")
+              (long tv-nsec "long" "tv_nsec")))
+
  ;; open()
  (:integer o-rdonly "O_RDONLY" nil t)
  (:integer o-wronly "O_WRONLY" nil t)
@@ -335,6 +341,12 @@
  (:integer f-getown "F_GETOWN" nil t)
  (:integer f-setown "F_SETOWN" nil t)
 
+ ;; lockf()
+ (:integer f-lock "F_LOCK" nil t)
+ (:integer f-tlock "F_TLOCK" nil t)
+ (:integer f-ulock "F_ULOCK" nil t)
+ (:integer f-test "F_TEST" nil t)
+
  ;; tcgetattr(), tcsetattr()
  #-win32
  (:type cc-t "cc_t")
@@ -354,6 +366,11 @@
 
  ;; utime(), utimes()
  #-win32
+ (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
+        #-(and darwin ppc) "suseconds_t"
+        #+(and darwin ppc) "int")
+
+ #-win32
  (:structure alien-utimbuf
              ("struct utimbuf"
               (time-t actime "time_t" "actime")
@@ -361,8 +378,8 @@
  #-win32
  (:structure alien-timeval
              ("struct timeval"
-              (long sec "long" "tv_sec")
-              (long usec "long" "tv_usec")))
+              (time-t sec "time_t" "tv_sec")
+              (suseconds-t usec "suseconds_t" "tv_usec")))
 
  (:integer veof "VEOF" nil t)
  (:integer veol "VEOL" nil t)