[H5r-commits] r36 - R src

[noreply at r-forge.r-project.org]

Author: extemporaneousb
Date: 2010-08-23 21:34:34 +0200 (Mon, 23 Aug 2010)
New Revision: 36

Modified:
   R/h5R.R
   src/h5_wrap.c
Log:


Modified: R/h5R.R
===================================================================
--- R/h5R.R	2010-07-16 18:34:57 UTC (rev 35)
+++ R/h5R.R	2010-08-23 19:34:34 UTC (rev 36)
@@ -474,6 +474,14 @@
   return(lst)
 }
 
+h5DatasetExists <- function(h5Obj, name) {
+  .Call("h5R_attribute_exists", .ePtr(h5Obj), name) == 1
+}
+
+h5AttributeExists <- function(h5Obj, name) {
+  
+}
+
 ##
 ## Does the name exist directly below the h5Obj.
 ##

Modified: src/h5_wrap.c
===================================================================
--- src/h5_wrap.c	2010-07-16 18:34:57 UTC (rev 35)
+++ src/h5_wrap.c	2010-08-23 19:34:34 UTC (rev 36)
@@ -368,8 +368,16 @@
 }
 
 /**
- * File content iteration.
+ * File content inspection and iteration.
  */
+
+/** Inspection **/
+SEXP h5R_attribute_exists(SEXP h5_obj, const char* name) {
+    return ScalarInteger(H5Aexists(HID(h5_obj), name));
+}
+
+
+/** Iteration **/
 typedef struct __index_and_SEXP__ {
     int  i;
     SEXP s;