(: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)
;; mode_t
(:type mode-t "mode_t")
+ (:integer s-ifmt "S_IFMT" nil t)
+ (:integer s-ififo "S_IFIFO" nil t)
+ (:integer s-ifchr "S_IFCHR" nil t)
+ (:integer s-ifdir "S_IFDIR" nil t)
+ (:integer s-ifblk "S_IFBLK" nil t)
+ (:integer s-ifreg "S_IFREG" nil t)
+ (:integer s-iflnk "S_IFLNK" nil t)
+ (:integer s-ifsock "S_IFSOCK" nil t)
+ (:integer s-ifwht "S_IFWHT" nil t)
(:integer s-isuid "S_ISUID" nil t)
(:integer s-isgid "S_ISGID" nil t)
(:integer s-isvtx "S_ISVTX" nil t)
(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)
(: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
+ #+os-provides-suseconds-t "suseconds_t"
+ #-os-provides-suseconds-t "long")
+
+ #-win32
(:structure alien-utimbuf
("struct utimbuf"
(time-t actime "time_t" "actime")
#-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)
(:integer
log-warning "LOG_WARNING" "Log severity level denoting a warning." t)
#-win32
- (:integer
+ (:integer
log-notice "LOG_NOTICE" "Log severity level denoting non-errors that may require special handling." t)
#-win32
(:integer
#-win32
(:integer
log-debug "LOG_DEBUG" "Log severity level denoting debugging information ." t)
-
+
)