Update of /project/cparse/cvsroot/cparse In directory clnet:/tmp/cvs-serv2059/cparse
Modified Files: uffi-alien.lisp cparse.system ChangeLog 00debug.lisp Added Files: test4.lisp test3.lisp Log Message: 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.
--- /project/cparse/cvsroot/cparse/uffi-alien.lisp 2004/11/24 20:23:58 1.1 +++ /project/cparse/cvsroot/cparse/uffi-alien.lisp 2006/08/29 20:31:54 1.2 @@ -2,7 +2,7 @@ ;;; Copyright (c) 2001 Timothy Moore ;;; 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 @@ -32,10 +32,16 @@ (defvar *cpp-args-defaults* '("-D__restrict=" "-D__extension__=" "-D__attribute__(x)=" - "-D__const=" - ;;CMUCL does not support long long and - ;;the pthreadtypes header file uses it - #+cmu "-D_BITS_PTHREADTYPES_H")) + "-D__const=") + "Default arguments given to 'cpp' when preprocessing the supplied file. +Can be used both to define specific features that are relevant to the file +being processed and to get rid of stuff that CPARSE does not know how +to handle such as GCC extensions like __restrict. + +Implementation note: 'long long' is not supported by UFFI, so we use backend +specific translations when they are known. +One particular troublesome Linux header file is "pthreadtypes" which may +be turned off by adding "-D_BITS_PTHREADTYPES_H" to the cpp argument list.")
(defmacro with-temp-file ((file-name &optional @@ -94,8 +100,9 @@ :CPP-ARGS is a list of command-line arguments for the C preprocessor (for example, '("-I/usr/X11R6/include")).
-The value of :CPP-ARGS will be added to the value of -*cpp-args-defaults* unless :NO-CPP-DEFAULTS is non-true. +:CPP-ARGS is a list of arguments to be given as arguments to the +CPP call. Also added as arguments are those of *cpp-args-defaults* +unless :NO-CPP-DEFAULTS is non-nil.
:EXTRA-CPP-LINES are added to the file passed to the C preprocessor and can be used for extra macro definitions, #includes, etc." --- /project/cparse/cvsroot/cparse/cparse.system 2004/11/24 20:23:58 1.2 +++ /project/cparse/cvsroot/cparse/cparse.system 2006/08/29 20:31:54 1.3 @@ -1,7 +1,7 @@ ;;; 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 --- /project/cparse/cvsroot/cparse/ChangeLog 2004/11/29 20:26:05 1.6 +++ /project/cparse/cvsroot/cparse/ChangeLog 2006/08/29 20:31:54 1.7 @@ -1,3 +1,19 @@ +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. --- /project/cparse/cvsroot/cparse/00debug.lisp 2004/11/24 20:29:32 1.1 +++ /project/cparse/cvsroot/cparse/00debug.lisp 2006/08/29 20:31:54 1.2 @@ -1,6 +1,6 @@ ;;;; 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)))
--- /project/cparse/cvsroot/cparse/test4.lisp 2006/08/29 20:31:55 NONE +++ /project/cparse/cvsroot/cparse/test4.lisp 2006/08/29 20:31:55 1.1 (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))) --- /project/cparse/cvsroot/cparse/test3.lisp 2006/08/29 20:31:55 NONE +++ /project/cparse/cvsroot/cparse/test3.lisp 2006/08/29 20:31:55 1.1 (UNLESS (FIND-PACKAGE :OBEX) (DEFPACKAGE :OBEX (:SHADOW T)))
(IN-PACKAGE :OBEX)
(PROGN (UFFI:DEF-FOREIGN-TYPE INT8-T :CHAR) (UFFI:DEF-FOREIGN-TYPE INT16-T :SHORT) (UFFI:DEF-FOREIGN-TYPE INT32-T :INT) (UFFI:DEF-FOREIGN-TYPE INT64-T :LONG) (UFFI:DEF-FOREIGN-TYPE UINT8-T :UNSIGNED-CHAR) (UFFI:DEF-FOREIGN-TYPE UINT16-T :UNSIGNED-SHORT) (UFFI:DEF-FOREIGN-TYPE UINT32-T :UNSIGNED-INT) (UFFI:DEF-FOREIGN-TYPE UINT64-T :UNSIGNED-LONG) (UFFI:DEF-FOREIGN-TYPE INT-LEAST8-T :CHAR) (UFFI:DEF-FOREIGN-TYPE INT-LEAST16-T :SHORT) (UFFI:DEF-FOREIGN-TYPE INT-LEAST32-T :INT) (UFFI:DEF-FOREIGN-TYPE INT-LEAST64-T :LONG) (UFFI:DEF-FOREIGN-TYPE UINT-LEAST8-T :UNSIGNED-CHAR) (UFFI:DEF-FOREIGN-TYPE UINT-LEAST16-T :UNSIGNED-SHORT) (UFFI:DEF-FOREIGN-TYPE UINT-LEAST32-T :UNSIGNED-INT) (UFFI:DEF-FOREIGN-TYPE UINT-LEAST64-T :UNSIGNED-LONG) (UFFI:DEF-FOREIGN-TYPE INT-FAST8-T :CHAR) (UFFI:DEF-FOREIGN-TYPE INT-FAST16-T :INT) (UFFI:DEF-FOREIGN-TYPE INT-FAST32-T :INT) (UFFI:DEF-FOREIGN-TYPE INT-FAST64-T :LONG) (UFFI:DEF-FOREIGN-TYPE UINT-FAST8-T :UNSIGNED-CHAR) (UFFI:DEF-FOREIGN-TYPE UINT-FAST16-T :UNSIGNED-INT) (UFFI:DEF-FOREIGN-TYPE UINT-FAST32-T :UNSIGNED-INT) (UFFI:DEF-FOREIGN-TYPE UINT-FAST64-T :UNSIGNED-LONG) (UFFI:DEF-FOREIGN-TYPE INTPTR-T :INT) (UFFI:DEF-FOREIGN-TYPE UINTPTR-T :UNSIGNED-INT) (UFFI:DEF-FOREIGN-TYPE INTMAX-T :LONG) (UFFI:DEF-FOREIGN-TYPE UINTMAX-T :UNSIGNED-LONG) (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))
[660 lines skipped]
-
clynbech