a simple example now works
authorD Herring <dherring@at.tentpost.dot.com>
Fri, 8 Apr 2011 04:11:35 +0000 (00:11 -0400)
committerD Herring <dherring@at.tentpost.dot.com>
Fri, 8 Apr 2011 04:11:35 +0000 (00:11 -0400)
packages.lisp
types.lisp

index 3de1b54..d0549ae 100644 (file)
@@ -37,5 +37,7 @@
    #:h5p-prp-close-func-t
    #:h5z-filter-t
    #:h5g-link-t
+   #:h5p-default
+   #:h5check
    ;; plus a lot of programmatic exports
    ))
index 9c9f092..14a4820 100644 (file)
@@ -70,6 +70,18 @@ typedef long ssize_t;
 
 (hdf5-functions)
 
+(defconstant h5-vers-major 1) ;; need to pull these from headers
+(defconstant h5-vers-minor 8)
+(defconstant h5-vers-release 6)
+(defconstant h5p-default 0)
+(defun h5check ()
+  (h5check-version h5-vers-major h5-vers-minor h5-vers-release))
+
+#| basic example
+(cffi:with-foreign-string (filename "test.h5")
+  (h5fcreate filename h5f-acc-trunc h5p-default h5p-default))
+|#
+
 #|
 On review, H5OPEN and H5CHECK define most of the intersting constants.
 HADDR_UNDEF is returned in a couple places; but knowing it is negative should suffice.