2006-08-29 Christian Lynbech <christian@defun.dk> (c1e86aad) · Commits · cparse / cparse

00debug.lisp

+9 −2

Changes for 00debug.lisp: 9 added lines, 2 removed lines.
Original line number	Diff line number	Diff line
		;;;; debug.lisp --- various forms usefull when doing debugging.

		(defparameter uffi '\|1.4.30\|)
		(defparameter uffi (nth 2 '(dist \|1.5.5\| \|1.5.15\| cl-home)))

		(case uffi
		(cl-home (load "../../cl-home/cl-uffi/uffi.asd")
		@@ -9,18 +9,25 @@
		(asdf:operate 'asdf:load-op :uffi))
		(\|1.4.30\| (load "../cl-uffi-1.4.30/uffi.asd")
		(asdf:operate 'asdf:load-op :uffi))
		(\|1.5.5\| (load "../cl-uffi-1.5.5/uffi.asd")
		(asdf:operate 'asdf:load-op :uffi))
		(\|1.5.15\| (load "../cl-uffi-1.5.15/uffi.asd")
		(asdf:operate 'asdf:load-op :uffi))
		(dist (clc:clc-require :uffi)))

		(load "/usr/share/common-lisp/source/defsystem/defsystem.lisp")
		;(load "/usr/share/common-lisp/source/defsystem/defsystem.lisp")

		(load "cparse.system")

		#+nil
		(mk:clean-system :cparse)

		#+nil
		(progn
		(mk:compile-system :cparse) (mk:load-system :cparse))

		(asdf:operate 'asdf:load-op :cparse)

		(defun dotest (&rest files)
		(flet ((test-1 (file)
		(let ((ffi (uffi-alien:make-alien-defs file)))

ChangeLog

+16 −0

Changes for ChangeLog: 16 added lines, 0 removed lines.
Original line number	Diff line number	Diff line
		2006-08-29 Christian Lynbech <christian@defun.dk>

		* test3.lisp: New file.
		* test4.lisp: New file.

		* uffi-alien.lisp (cpp-args-defaults): Removed "-D_BITS_PTHREADTYPES_H"
		and docstring instead.
		(make-alien-defs): Updated docstring.

		* cparse.system: Added CLC require for UFFI. Changed from defsystem to
		asdf. Added warning for the CMUCL hash fill bug.

		* 00debug.lisp: Added case for uffi-1.5.5 and uffi-1.5.15.
		Changed from defsystem to asdf.
		(uffi): changed to allow quicker switching.

		2004-11-29 Christian Lynbech <christian.lynbech@ericsson.com>

		* 02debug.lisp: New file.

cparse.system

+12 −2

Changes for cparse.system: 12 added lines, 2 removed lines.
Original line number	Diff line number	Diff line
		;;; Copyright (c) 2001 Timothy Moore -- lisp --
		;;; All rights reserved.
		;;;
		;;; Modified 2004 by Christian Lynbech
		;;; Modified 2004, 2006 by Christian Lynbech
		;;;
		;;; Redistribution and use in source and binary forms, with or without
		;;; modification, are permitted provided that the following conditions
		@@ -29,6 +29,8 @@
		;;;
		;;; CPARSE - library for parsing C header files.

		(clc:clc-require :uffi)

		;; Choose one of the supported backends
		(defvar cparse-backend (nth 0 '("uffi-alien" "cmu-alien" "acl-alien")))

		@@ -37,12 +39,15 @@

		#+CMU
		;;; CMUCL 18c and earlier doesn't hash strings with fill pointers correctly.
		;;; The code below checks for the problem and adds 'hash-fill-bug' to features
		;;; in case the implementation has the problem.
		(let ((string-with-fill (make-array 32
		:element-type 'base-char
		:adjustable t
		:fill-pointer 7)))
		(setf (subseq string-with-fill 0) "typedef")
		(unless (= (sxhash string-with-fill) (sxhash "typedef"))
		(warn "This CMUCL has the 'hash-fill-bug' feature.")
		(pushnew :hash-fill-bug features)))


		@@ -51,7 +56,12 @@
		;;; with whatever kind of system his is most comfortable with.

		#+ASDF
		'(to-be-done asdf:defsystem cparse)
		(asdf:defsystem :cparse
		:serial t
		:components ((:file "package")
		(:file "ctype")
		(:file "cparse")
		(:file #.cparse-backend)))

		#+MK-DEFSYSTEM
		(mk:defsystem cparse

test3.lisp

0 → 100644

+742 −0

File added.

Preview size limit exceeded, changes collapsed.

test4.lisp

0 → 100644

+281 −0

Changes for test4.lisp: 281 added lines, 0 removed lines.
Original line number	Diff line number	Diff line
		(UNLESS (FIND-PACKAGE :DIR-TEST) (DEFPACKAGE :DIR-TEST (:SHADOW T)))

		(IN-PACKAGE :DIR-TEST)

		(PROGN
		(UFFI:DEF-FOREIGN-TYPE SIZE-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --U-CHAR :UNSIGNED-CHAR)
		(UFFI:DEF-FOREIGN-TYPE --U-SHORT :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE --U-INT :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --U-LONG :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --INT8-T :CHAR)
		(UFFI:DEF-FOREIGN-TYPE --UINT8-T :UNSIGNED-CHAR)
		(UFFI:DEF-FOREIGN-TYPE --INT16-T :SHORT)
		(UFFI:DEF-FOREIGN-TYPE --UINT16-T :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE --INT32-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --UINT32-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --INT64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --UINT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --QUAD-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --U-QUAD-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --DEV-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --UID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --GID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --INO-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --INO64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --MODE-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --NLINK-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --OFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --OFF64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --PID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --FSID-T (:STRUCT NIL (--VAL (:ARRAY :INT 2))))
		(UFFI:DEF-FOREIGN-TYPE --CLOCK-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --RLIM-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --RLIM64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --ID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --TIME-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --USECONDS-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --SUSECONDS-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --DADDR-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SWBLK-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --KEY-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --CLOCKID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --TIMER-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --BLKSIZE-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --BLKCNT-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --BLKCNT64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSBLKCNT-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSBLKCNT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSFILCNT-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSFILCNT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --SSIZE-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --LOFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --QADDR-T (* :LONG))
		(UFFI:DEF-FOREIGN-TYPE --CADDR-T (* :CHAR))
		(UFFI:DEF-FOREIGN-TYPE --INTPTR-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SOCKLEN-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE U-CHAR :UNSIGNED-CHAR)
		(UFFI:DEF-FOREIGN-TYPE U-SHORT :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE U-INT :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE U-LONG :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE QUAD-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE U-QUAD-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE FSID-T (:STRUCT NIL (--VAL (:ARRAY :INT 2))))
		(UFFI:DEF-FOREIGN-TYPE LOFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE INO-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE DEV-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE GID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE MODE-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE NLINK-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE UID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE OFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE PID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE ID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE SSIZE-T :INT)
		(UFFI:DEF-FOREIGN-TYPE DADDR-T :INT)
		(UFFI:DEF-FOREIGN-TYPE CADDR-T (* :CHAR))
		(UFFI:DEF-FOREIGN-TYPE KEY-T :INT)
		(UFFI:DEF-FOREIGN-TYPE TIME-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE CLOCKID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE TIMER-T :INT)
		(UFFI:DEF-FOREIGN-TYPE ULONG :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE USHORT :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE UINT :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE INT8-T :INT)
		(UFFI:DEF-FOREIGN-TYPE INT16-T :INT)
		(UFFI:DEF-FOREIGN-TYPE INT32-T :INT)
		(UFFI:DEF-FOREIGN-TYPE INT64-T :INT)
		(UFFI:DEF-FOREIGN-TYPE U-INT8-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE U-INT16-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE U-INT32-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE U-INT64-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE REGISTER-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SIG-ATOMIC-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SIGSET-T
		(:STRUCT NIL (--VAL (:ARRAY :UNSIGNED-LONG 32))))
		(UFFI:DEF-FOREIGN-TYPE SIGSET-T
		(:STRUCT NIL (--VAL (:ARRAY :UNSIGNED-LONG 32))))
		(UFFI:DEF-FOREIGN-TYPE NIL (:STRUCT TIMESPEC (TV-SEC :LONG) (TV-NSEC :LONG)))
		(UFFI:DEF-FOREIGN-TYPE NIL (:STRUCT TIMEVAL (TV-SEC :LONG) (TV-USEC :LONG)))
		(UFFI:DEF-FOREIGN-TYPE SUSECONDS-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --FD-MASK :LONG)
		(UFFI:DEF-FOREIGN-TYPE FD-SET (:STRUCT NIL (--FDS-BITS (:ARRAY :LONG 32))))
		(UFFI:DEF-FOREIGN-TYPE FD-MASK :LONG)
		(PROGN
		(DECLAIM (INLINE SELECT))
		(UFFI:DEF-FUNCTION "select"
		((--NFDS :INT)
		(--READFDS
		(* (:STRUCT NIL (--FDS-BITS (:ARRAY :LONG 32)))))
		(--WRITEFDS
		(* (:STRUCT NIL (--FDS-BITS (:ARRAY :LONG 32)))))
		(--EXCEPTFDS
		(* (:STRUCT NIL (--FDS-BITS (:ARRAY :LONG 32)))))
		(--TIMEOUT
		(* (:STRUCT TIMEVAL (TV-SEC :LONG) (TV-USEC :LONG)))))
		:RETURNING
		:INT))
		(UFFI:DEF-FOREIGN-TYPE BLKCNT-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE FSBLKCNT-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE FSFILCNT-T :UNSIGNED-LONG))
		(PROGN
		(UFFI:DEF-FOREIGN-TYPE SIZE-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --U-CHAR :UNSIGNED-CHAR)
		(UFFI:DEF-FOREIGN-TYPE --U-SHORT :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE --U-INT :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --U-LONG :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --INT8-T :CHAR)
		(UFFI:DEF-FOREIGN-TYPE --UINT8-T :UNSIGNED-CHAR)
		(UFFI:DEF-FOREIGN-TYPE --INT16-T :SHORT)
		(UFFI:DEF-FOREIGN-TYPE --UINT16-T :UNSIGNED-SHORT)
		(UFFI:DEF-FOREIGN-TYPE --INT32-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --UINT32-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --INT64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --UINT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --QUAD-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --U-QUAD-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --DEV-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --UID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --GID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --INO-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --INO64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --MODE-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --NLINK-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --OFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --OFF64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --PID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --FSID-T (:STRUCT NIL (--VAL (:ARRAY :INT 2))))
		(UFFI:DEF-FOREIGN-TYPE --CLOCK-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --RLIM-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --RLIM64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --ID-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --TIME-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --USECONDS-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE --SUSECONDS-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --DADDR-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SWBLK-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --KEY-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --CLOCKID-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --TIMER-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --BLKSIZE-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --BLKCNT-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --BLKCNT64-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSBLKCNT-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSBLKCNT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSFILCNT-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --FSFILCNT64-T :UNSIGNED-LONG)
		(UFFI:DEF-FOREIGN-TYPE --SSIZE-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --LOFF-T :LONG)
		(UFFI:DEF-FOREIGN-TYPE --QADDR-T (* :LONG))
		(UFFI:DEF-FOREIGN-TYPE --CADDR-T (* :CHAR))
		(UFFI:DEF-FOREIGN-TYPE --INTPTR-T :INT)
		(UFFI:DEF-FOREIGN-TYPE --SOCKLEN-T :UNSIGNED-INT)
		(UFFI:DEF-FOREIGN-TYPE dirent
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256))))
		(UFFI:DEF-ENUM UFFI-ALIEN::ENUM
		((:DT-UNKNOWN 0) (:DT-FIFO 1) (:DT-CHR 2) (:DT-DIR 4)
		(:DT-BLK 6) (:DT-REG 8) (:DT-LNK 10) (:DT-SOCK 12)
		(:DT-WHT 14)))
		(UFFI:DEF-FOREIGN-TYPE DIR (:STRUCT --DIRSTREAM))
		(PROGN
		(DECLAIM (INLINE OPENDIR))
		(UFFI:DEF-FUNCTION "opendir"
		((--NAME (* :CHAR)))
		:RETURNING
		(* (:STRUCT --DIRSTREAM))))
		(PROGN
		(DECLAIM (INLINE CLOSEDIR))
		(UFFI:DEF-FUNCTION "closedir"
		((--DIRP (* (:STRUCT --DIRSTREAM))))
		:RETURNING
		:INT))
		(PROGN
		(DECLAIM (INLINE READDIR))
		(UFFI:DEF-FUNCTION "readdir"
		((--DIRP (* (:STRUCT --DIRSTREAM))))
		:RETURNING
		(*
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256))))))
		(PROGN
		(DECLAIM (INLINE READDIR-R))
		(UFFI:DEF-FUNCTION "readdir_r"
		((--DIRP (* (:STRUCT --DIRSTREAM)))
		(--ENTRY
		(*
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256)))))
		(--RESULT
		(*
		(*
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256)))))))
		:RETURNING
		:INT))
		(PROGN
		(DECLAIM (INLINE REWINDDIR))
		(UFFI:DEF-FUNCTION "rewinddir"
		((--DIRP (* (:STRUCT --DIRSTREAM))))
		:RETURNING
		:VOID))
		(PROGN
		(DECLAIM (INLINE SEEKDIR))
		(UFFI:DEF-FUNCTION "seekdir"
		((--DIRP (* (:STRUCT --DIRSTREAM))) (--POS :LONG))
		:RETURNING
		:VOID))
		(PROGN
		(DECLAIM (INLINE TELLDIR))
		(UFFI:DEF-FUNCTION "telldir"
		((--DIRP (* (:STRUCT --DIRSTREAM))))
		:RETURNING
		:LONG))
		(PROGN
		(DECLAIM (INLINE DIRFD))
		(UFFI:DEF-FUNCTION "dirfd"
		((--DIRP (* (:STRUCT --DIRSTREAM))))
		:RETURNING
		:INT))
		(PROGN
		(DECLAIM (INLINE SCANDIR))
		(UFFI:DEF-FUNCTION "scandir"
		((--DIR (* :CHAR))
		(--NAMELIST
		(*
		(*
		(*
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256)))))))
		(--SELECTOR
		(*
		(FUNCTION :INT
		(NIL
		(*
		(:STRUCT DIRENT (D-INO :UNSIGNED-LONG) (D-OFF :LONG)
		(D-RECLEN :UNSIGNED-SHORT) (D-TYPE :UNSIGNED-CHAR)
		(D-NAME (:ARRAY :CHAR 256))))))))
		(--CMP
		(*
		(FUNCTION :INT (NIL :POINTER-VOID)
		(NIL :POINTER-VOID)))))
		:RETURNING
		:INT))
		(PROGN
		(DECLAIM (INLINE ALPHASORT))
		(UFFI:DEF-FUNCTION "alphasort"
		((\|--E1\| :POINTER-VOID) (\|--E2\| :POINTER-VOID))
		:RETURNING
		:INT))
		(PROGN
		(DECLAIM (INLINE GETDIRENTRIES))
		(UFFI:DEF-FUNCTION "getdirentries"
		((--FD :INT) (--BUF (* :CHAR)) (--NBYTES :UNSIGNED-INT)
		(--BASEP (* :LONG)))
		:RETURNING
		:INT)))