Fetch an implementation of the dirent API for CLISP (using the LINUX package).
[***SEE***: Find a better name!]
(DEFTYPE BOUND-STRING (MIN MAX) "A TYPE REPRESENTING STRINGS OF MINIMUM SIZE MIN AND MAXIMUM SIZE MAX." (IF (= (EVAL MIN) (EVAL MAX)) `(STRING ,(EVAL MIN)) `STRING) ;; TODO: (OR (STRING MIN) (STRING (1+ MIN)) ... (STRING MAX)) );;BOUND-STRING
(DEFINE-CONDITION SYSCALL-ERROR () ( (ERRNO :INITARG :ERRNO :ACCESSOR SYSCALL-ERRNO :TYPE (SIGNED-BYTE 32)) ));;SYSCALL-ERROR
(DEFTYPE SUSV3:BLKCNT-T () "Used for file block counts." ;; implementation dependent );;SUSV3:BLKCNT-T (ASSERT (SUBTYPEP 'SUSV3:BLKCNT-T 'INTEGER)
(DEFTYPE SUSV3:BLKSIZE-T () "Used for block sizes." ;; implementation dependent );;SUSV3:BLKSIZE-T (ASSERT (SUBTYPEP 'SUSV3:BLKSIZE-T 'INTEGER)
(DEFTYPE SUSV3-XSI:CLOCK-T () "Used for system times in clock ticks or CLOCKS_PER_SEC; see." ;; implementation dependent );;SUSV3-XSI:CLOCK-T (ASSERT (SUBTYPEP 'SUSV3-XSI:CLOCK-T '(OR INTEGER FLOAT))
(DEFTYPE SUSV3-TMR:CLOCKID-T () "Used for clock ID type in the clock and timer functions." ;; implementation dependent );;SUSV3-TMR:CLOCKID-T
(DEFTYPE SUSV3:DEV-T () "Used for device IDs." ;; implementation dependent );;SUSV3:DEV-T
(DEFTYPE SUSV3-XSI:FSBLKCNT-T () "Used for file system block counts." ;; implementation dependent );;SUSV3-XSI:FSBLKCNT-T (ASSERT (SUBTYPEP 'SUSV3-XSI:FSBLKCNT-T '(INTEGER 0))
(DEFTYPE SUSV3-XSI:FSFILCNT-T () "Used for file system file counts." ;; implementation dependent );;SUSV3-XSI:FSFILCNT-T (ASSERT (SUBTYPEP 'SUSV3-XSI:FSFILCNT-T '(INTEGER 0))
(DEFTYPE SUSV3:GID-T () "Used for group IDs." ;; implementation dependent );;SUSV3:GID-T (ASSERT (SUBTYPEP 'SUSV3:GID-T 'INTEGER)
(DEFTYPE SUSV3-XSI:ID-T () "Used as a general identifier; can be used to contain at least a pid_t, uid_t, or gid_t." ;; implementation dependent );;SUSV3-XSI:ID-T (ASSERT (AND (SUBTYPEP 'SUSV3-XSI:ID-T 'INTEGER) (SUBTYPEP 'SUSV3-XSI:ID-T 'SUSV3:PID-T) (SUBTYPEP 'SUSV3-XSI:ID-T 'SUSV3:UID-T) (SUBTYPEP 'SUSV3-XSI:ID-T 'SUSV3:GID-T))) )
(DEFTYPE SUSV3:INO-T () "Used for file serial numbers." ;; implementation dependent );;SUSV3:INO-T (ASSERT (SUBTYPEP 'SUSV3:INO-T '(INTEGER 0))
(DEFTYPE SUSV3-XSI:KEY-T () "Used for XSI interprocess communication." ;; implementation dependent );;SUSV3-XSI:KEY-T
(DEFTYPE SUSV3:MODE-T () "Used for some file attributes." ;; implementation dependent );;SUSV3:MODE-T (ASSERT (SUBTYPEP 'SUSV3:MODE-T 'INTEGER)
(DEFTYPE SUSV3:NLINK-T () "Used for link counts." ;; implementation dependent );;SUSV3:NLINK-T (ASSERT (SUBTYPEP 'SUSV3:NLINK-T 'INTEGER)
(DEFTYPE SUSV3:OFF-T () "Used for file sizes." ;; implementation dependent );;SUSV3:OFF-T (ASSERT (SUBTYPEP 'SUSV3:OFF-T 'INTEGER)
(DEFTYPE SUSV3:PID-T () "Used for process IDs and process group IDs." ;; implementation dependent );;SUSV3:PID-T (ASSERT (SUBTYPEP 'SUSV3:PID-T 'INTEGER)
(DEFTYPE SUSV3-THR:PTHREAD-ATTR-T () "Used to identify a thread attribute object." ;; implementation dependent );;SUSV3-THR:PTHREAD-ATTR-T
(DEFTYPE SUSV3-BAR:PTHREAD-BARRIER-T () "Used to identify a barrier." ;; implementation dependent );;SUSV3-BAR:PTHREAD-BARRIER-T
(DEFTYPE SUSV3-BAR:PTHREAD-BARRIERATTR-T () "Used to define a barrier attributes object." ;; implementation dependent );;SUSV3-BAR:PTHREAD-BARRIERATTR-T
(DEFTYPE SUSV3-THR:PTHREAD-COND-T () "Used for condition variables." ;; implementation dependent );;SUSV3-THR:PTHREAD-COND-T
(DEFTYPE SUSV3-THR:PTHREAD-CONDATTR-T () "Used to identify a condition attribute object." ;; implementation dependent );;SUSV3-THR:PTHREAD-CONDATTR-T
(DEFTYPE SUSV3-THR:PTHREAD-KEY-T () "Used for thread-specific data keys." ;; implementation dependent );;SUSV3-THR:PTHREAD-KEY-T
(DEFTYPE SUSV3-THR:PTHREAD-MUTEX-T () "Used for mutexes." ;; implementation dependent );;SUSV3-THR:PTHREAD-MUTEX-T
(DEFTYPE SUSV3-THR:PTHREAD-MUTEXATTR-T () "Used to identify a mutex attribute object." ;; implementation dependent );;SUSV3-THR:PTHREAD-MUTEXATTR-T
(DEFTYPE SUSV3-THR:PTHREAD-ONCE-T () "Used for dynamic package initialization." ;; implementation dependent );;SUSV3-THR:PTHREAD-ONCE-T
(DEFTYPE SUSV3-THR:PTHREAD-RWLOCK-T () "Used for read-write locks." ;; implementation dependent );;SUSV3-THR:PTHREAD-RWLOCK-T
(DEFTYPE SUSV3-THR:PTHREAD-RWLOCKATTR-T () "Used for read-write lock attributes." ;; implementation dependent );;SUSV3-THR:PTHREAD-RWLOCKATTR-T
(DEFTYPE SUSV3-SPI:PTHREAD-SPINLOCK-T () "Used to identify a spin lock." ;; implementation dependent );;SUSV3-SPI:PTHREAD-SPINLOCK-T
(DEFTYPE SUSV3-THR:PTHREAD-T () "Used to identify a thread." ;; implementation dependent );;SUSV3-THR:PTHREAD-T
(DEFTYPE SUSV3:SIZE-T () "Used for sizes of objects." ;; implementation dependent );;SUSV3:SIZE-T (ASSERT (SUBTYPEP 'SUSV3:SIZE-T '(INTEGER 0))
(DEFTYPE SUSV3:SSIZE-T () "Used for a count of bytes or an error indication." ;; implementation dependent );;SUSV3:SSIZE-T (ASSERT (AND (SUBTYPEP 'SUSV3:SSIZE-T 'INTEGER) (SUBTYPEP (INTEGER -1 SUSV3:SSIZE-MAX) SUSV3:SSIZE-T))) )
(DEFTYPE SUSV3-XSI:SUSECONDS-T () "Used for time in microseconds." ;; implementation dependent );;SUSV3-XSI:SUSECONDS-T
(DEFTYPE SUSV3:TIME-T () "Used for time in seconds." ;; implementation dependent );;SUSV3:TIME-T (ASSERT (SUBTYPEP 'SUSV3:TIME-T '(OR INTEGER FLOAT))
(DEFTYPE SUSV3-TMR:TIMER-T () "Used for timer ID returned by timer_create()." ;; implementation dependent );;SUSV3-TMR:TIMER-T
(DEFTYPE SUSV3-TRC:TRACE-ATTR-T () "Used to identify a trace stream attributes object." ;; implementation dependent );;SUSV3-TRC:TRACE-ATTR-T
(DEFTYPE SUSV3-TRC:TRACE-EVENT-ID-T () "Used to identify a trace event type." ;; implementation dependent );;SUSV3-TRC:TRACE-EVENT-ID-T
(DEFTYPE SUSV3-TRC-TEF:TRACE-EVENT-SET-T () "Used to identify a trace event type set." ;; implementation dependent );;SUSV3-TRC-TEF:TRACE-EVENT-SET-T
(DEFTYPE SUSV3-TRC:TRACE-ID-T () "Used to identify a trace stream." ;; implementation dependent );;SUSV3-TRC:TRACE-ID-T
(DEFTYPE SUSV3:UID-T () "Used for user IDs." ;; implementation dependent );;SUSV3:UID-T (ASSERT (SUBTYPEP 'SUSV3:UID-T 'INTEGER)
(DEFTYPE SUSV3-XSI:USECONDS-T () "Used for time in microseconds." ;; implementation dependent );;SUSV3-XSI:USECONDS-T
(DEFCONSTANT SUSV3:+NAME-MAX+ "Maximum number of bytes in a filename (not including terminating null)." ;; implementation dependent. ) (ASSERT (<= SUSV3:+POSIX-NAME-MAX+ SUSV3:+NAME-MAX+)) ;; [XSI]: (ASSERT (<= SUSV3:+XOPEN-NAME-MAX+ SUSV3:+NAME-MAX+))
(DEFTYPE SUSV3:DIR () "A type representing a directory stream. Note: this is NOT a Common-Lisp stream." ;; opaque );;SUSV3:DIR
(DEFSTRUCT SUSV3:DIRENT (INO 0 :TYPE SUSV3:INO-T) ;; [XSI] File serial number (NAME "" :TYPE (SUSV3:BOUND-STRING 0 SUSV3:+NAME-MAX+)) ;; Name of entry );;SUSV3:DIRENT
(DECLAIM (FTYPE (FUNCTION (STRING) (OR NULL DIR)) SUSV3:OPENDIR)) (DEFUN SUSV3:OPENDIR (PATH) ;; implementation dependent )
(DECLAIM (FTYPE (FUNCTION (DIR) (OR NULL DIRENT)) SUSV3:READDIR)) (DEFUN READDIR (DIR-STREAM) ;; implementation dependent )
(DECLAIM (FTYPE (FUNCTION (DIR) NIL) SUSV3:REWINDDIR)) (DEFUN REWINDDIR (DIR-STREAM) ;; implementation dependent (VALUES) )
(DECLAIM (FTYPE (FUNCTION (DIR) NIL) SUSV3:CLOSEDIR)) (DEFUN CLOSEDIR (DIR-STREAM) ;; implementation dependent (VALUES) )
[***SEE***: Must we implement this function? Or is it C-specific API?
(DECLAIM (FTYPE (FUNCTION (DIR INTEGER) NIL) SYSV3-XSI:SEEKDIR)) (DEFUN SEEKDIR (DIR-STREAM POSITION) ;; implementation dependent (VALUES) )
(DECLAIM (FTYPE (FUNCTION (DIR) INTEGER) SYSV3-XSI:TELLDIR)) (DEFUN TELLDIR (DIR-STREAM) ;; implementation dependent )