(: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)
#+nil
(:integer fields "int" "pw_fields")))
- #-darwin
(:structure alien-stat
("struct stat"
(mode-t mode "mode_t" "st_mode")
("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)
(: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")
;; utime(), utimes()
#-win32
(:type suseconds-t ; OAOOM warning: similar kludge in tools-for-build
- #-(and darwin ppc) "suseconds_t"
- #+(and darwin ppc) "int")
+ #+os-provides-suseconds-t "suseconds_t"
+ #-os-provides-suseconds-t "long")
#-win32
(:structure alien-utimbuf