X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-posix%2Fconstants.lisp;h=bf0fe3bacf2436325ac3b811c808ecd3c10794ea;hb=66cff1e1319861c080d563359afea284614b3a7f;hp=f1d25ba5d1ad142f57a547338b3830d96c0f63f1;hpb=0d1056d441a1fa50b1fb9dfa2b8ea660bf179a3a;p=sbcl.git diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp index f1d25ba..bf0fe3b 100644 --- a/contrib/sb-posix/constants.lisp +++ b/contrib/sb-posix/constants.lisp @@ -77,7 +77,7 @@ (:integer SIGPROF "SIGPROF" #+sb-doc "profiling timer alarm (see setitimer(2))." t) (:integer SIGWINCH "SIGWINCH" #+sb-doc "Window size change." t) - (:integer SIGINFO "SIGINFO" #+sb-doc "status request from keyboard." t) + (:integer SIGPWR "SIGPWR" #+sb-doc "Power failure." t) (:integer SIGUSR1 "SIGUSR1" #+sb-doc "User defined signal 1." t) (:integer SIGUSR2 "SIGUSR2" #+sb-doc "User defined signal 2." t) (:integer SIGRTMIN "SIGRTMIN" #+sb-doc "Smallest real-time signal number." t) @@ -281,7 +281,6 @@ #+nil (:integer fields "int" "pw_fields"))) - #-darwin (:structure alien-stat ("struct stat" (mode-t mode "mode_t" "st_mode") @@ -304,28 +303,6 @@ ("struct timespec" (time-t tv-sec "time_t" "tv_sec") (long tv-nsec "long" "tv_nsec"))) - #+darwin - (:structure alien-stat - ("struct stat" - (mode-t mode "mode_t" "st_mode") - (ino-t ino "ino_t" "st_ino") - ;; Linux/MIPS uses unsigned long instead of dev_t here. - #-mips - (dev-t dev "dev_t" "st_dev") - #+mips - ((unsigned 32) dev "dev_t" "st_dev") - (nlink-t nlink "nlink_t" "st_nlink") - (uid-t uid "uid_t" "st_uid") - (gid-t gid "gid_t" "st_gid") - (off-t size "off_t" "st_size") - - (time-t atime "time_t" "st_atime") - (time-t mtime "time_t" "st_mtime") - (time-t ctime "time_t" "st_ctime") - - #+foo (alien-timespec atime "struct timespec" "st_atime") - #+foo (alien-timespec mtime "struct timespec" "st_mtime") - #+foo (alien-timespec ctime "struct timespec" "st_ctime"))) ;; open() (:integer o-rdonly "O_RDONLY" nil t) @@ -364,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") @@ -383,7 +366,9 @@ ;; utime(), utimes() #-win32 - (:type suseconds-t "suseconds_t") + (:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build + #+os-provides-suseconds-t "suseconds_t" + #-os-provides-suseconds-t "long") #-win32 (:structure alien-utimbuf