(:errno ecomm "ECOMM" nil t)
(:errno eproto "EPROTO" nil t)
(:errno emultihop "EMULTIHOP" nil t)
- (:errno edotdot "EDOTDOT" nil t)
+#-sunos (:errno edotdot "EDOTDOT" nil t)
(:errno ebadmsg "EBADMSG" nil t)
(:errno eoverflow "EOVERFLOW" nil t)
(:errno enotuniq "ENOTUNIQ" nil t)
(:errno ealready "EALREADY" nil t)
(:errno einprogress "EINPROGRESS" nil t)
(:errno estale "ESTALE" nil t)
- (:errno euclean "EUCLEAN" nil t)
- (:errno enotnam "ENOTNAM" nil t)
- (:errno enavail "ENAVAIL" nil t)
- (:errno eremoteio "EREMOTEIO" nil t)
- (:errno edquot "EDQUOT" nil t)
- (:errno enomedium "ENOMEDIUM" nil t)
- (:errno emediumtype "EMEDIUMTYPE" nil t)
+#-sunos (:errno euclean "EUCLEAN" nil t)
+#-sunos (:errno enotnam "ENOTNAM" nil t)
+#-sunos (:errno enavail "ENAVAIL" nil t)
+#-sunos (:errno eremoteio "EREMOTEIO" nil t)
+#-sunos (:errno edquot "EDQUOT" nil t)
+#-sunos (:errno enomedium "ENOMEDIUM" nil t)
+#-sunos (:errno emediumtype "EMEDIUMTYPE" nil t)
;; wait
- (:integer wnohang "WNOHANG")
- (:integer wuntraced "WUNTRACED")
+ (:integer wnohang "WNOHANG" nil t)
+ (:integer wuntraced "WUNTRACED" nil t)
;; mode_t
(:type mode-t "mode_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)
+#-sunos (: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)
(:integer map-shared "MAP_SHARED" "mmap: shared memory" t)
(:integer map-private "MAP_PRIVATE" "mmap: private mapping" t)
(:integer map-fixed "MAP_FIXED" "mmap: map at given location" t)
+ (:integer map-anon "MAP_ANON" "mmap: anonymous mapping not associated with any file" t)
;; msync()
(:integer ms-async "MS_ASYNC" "msync: return immediately" t)
#-(and linux largefile) "struct dirent"
#-win32 (:ino-t ino "ino_t" "d_ino")
(:c-string name "char *" "d_name"
- :distrust-length #+sunos t #-sunos nil)) t)
+ ;; FIXME: sunos should really have :distrust-length
+ ;; t, but this is currently broken. -- Jim Wise 2010-08-31
+ :distrust-length nil)) t)
;; password database
#-win32
((unsigned 32) dev "dev_t" "st_dev")
(nlink-t nlink "nlink_t" "st_nlink")
(uid-t uid "uid_t" "st_uid")
+ #-mips
+ (dev-t rdev "dev_t" "st_rdev")
(gid-t gid "gid_t" "st_gid")
(off-t size "off_t" "st_size")
(time-t atime "time_t" "st_atime")
(:integer o-ndelay "O_NDELAY" nil t)
(:integer o-sync "O_SYNC" nil t)
(:integer o-nofollow "O_NOFOLLOW" nil t)
- (:integer o-directory "O_DIRECTORY" nil t)
- (:integer o-direct "O_DIRECT" nil t)
- (:integer o-async "O_ASYNC" nil t)
+#-sunos (:integer o-directory "O_DIRECTORY" nil t)
+#-sunos (:integer o-direct "O_DIRECT" nil t)
+#-sunos (:integer o-async "O_ASYNC" nil t)
(:integer o-largefile "O_LARGEFILE" nil t) ; hmm...
(:integer o-dsync "O_DSYNC" nil t)
(:integer o-rsync "O_RSYNC" nil t)
;; Additional, non-standard openlog() facilities (most of which
;; probably won't be needed by Lisp programs, but here for
;; completeness).
- #-win32
+ #-(or win32 sunos)
(:integer
log-authpriv "LOG_AUTHPRIV" "openlog() facility for authorization messages" t)
#-win32
#-win32
(:integer
log-daemon "LOG_DAEMON" "openlog() facility for arbitrary daemons" t)
- #-win32
+ #-(or win32 sunos)
(:integer
log-ftp "LOG_FTP" "openlog() facility for FTP daemons" t)
#-win32
"If supplied to openlog(), do not wait for child processes created by calls to syslog()."
t)
;; Not in SUSv3, but at least Glibc and BSD libc have this
- #-win32
+ #-(or win32 sunos)
(:integer
log-perror "LOG_PERROR"
"If supplied to openlog(), write log messages to the process's standard error descriptor in addition to the logging facility."