Displaying 3 results from an estimated 3 matches for "ext2fs_val".
2014 Jul 30
2
[PATCH 1/3] ext2: create a struct for the OCaml 't' type
...rnative. */
#include "fts_.h"
+struct ext2_data
+{
+ ext2_filsys fs;
+};
+
static void initialize (void) __attribute__((constructor));
static void
@@ -78,18 +83,18 @@ ext2_handle_closed (void)
caml_failwith ("ext2fs: function called on a closed handle");
}
-#define Ext2fs_val(v) (*((ext2_filsys *)Data_custom_val(v)))
+#define Ext2fs_val(v) (*((struct ext2_data *)Data_custom_val(v)))
static void
ext2_finalize (value fsv)
{
- ext2_filsys fs = Ext2fs_val (fsv);
+ struct ext2_data data = Ext2fs_val (fsv);
- if (fs) {
+ if (data.fs) {
#ifdef HAVE_EXT2FS_CLOSE2
-...
2015 Dec 02
4
[PATCH 0/3] supermin: add --include-packagelist
Hi,
to ease debugging issues with appliances (e.g. when used in libguestfs),
using --include-packagelist will add a file containing the list of all
the packages used.
Thanks,
Pino Toscano (3):
ext2: add ext2fs_chmod and ext2fs_chown
chroot: factor out file copy code
Add --include-packagelist
src/build.ml | 42 +++++++++++++++++++++++++------
src/chroot.ml | 29
2014 Feb 25
2
[PATCH supermin v4] Supermin 5 rewrite.
...intf (stderr, "supermin: %s: %s\n", fn, error_message (err));
+ caml_failwith (fn);
+}
+
+static void ext2_handle_closed (void) __attribute__((noreturn));
+
+static void
+ext2_handle_closed (void)
+{
+ caml_failwith ("ext2fs: function called on a closed handle");
+}
+
+#define Ext2fs_val(v) (*((ext2_filsys *)Data_custom_val(v)))
+
+static void
+ext2_finalize (value fsv)
+{
+ ext2_filsys fs = Ext2fs_val (fsv);
+
+ if (fs) {
+#ifdef HAVE_EXT2FS_CLOSE2
+ ext2fs_close2 (fs, EXT2_FLAG_FLUSH_NO_SYNC);
+#else
+ ext2fs_close (fs);
+#endif
+ }
+}
+
+static struct custom_operations...