Displaying 2 results from an estimated 2 matches for "val_ext2fs".
2014 Jul 30
2
[PATCH 1/3] ext2: create a struct for the OCaml 't' type
...VE_EXT2FS_CLOSE2
- ext2fs_close2 (fs, EXT2_FLAG_FLUSH_NO_SYNC);
+ ext2fs_close2 (data.fs, EXT2_FLAG_FLUSH_NO_SYNC);
#else
- ext2fs_close (fs);
+ ext2fs_close (data.fs);
#endif
}
}
@@ -104,14 +109,14 @@ static struct custom_operations ext2_custom_operations = {
};
static value
-Val_ext2fs (ext2_filsys fs)
+Val_ext2fs (struct ext2_data *data)
{
CAMLparam0 ();
CAMLlocal1 (fsv);
fsv = caml_alloc_custom (&ext2_custom_operations,
- sizeof (ext2_filsys), 0, 1);
- Ext2fs_val (fsv) = fs;
+ sizeof (struct ext2_data), 0, 1);...
2014 Feb 25
2
[PATCH supermin v4] Supermin 5 rewrite.
...ext2fs_close (fs);
+#endif
+ }
+}
+
+static struct custom_operations ext2_custom_operations = {
+ (char *) "ext2fs_custom_operations",
+ ext2_finalize,
+ custom_compare_default,
+ custom_hash_default,
+ custom_serialize_default,
+ custom_deserialize_default
+};
+
+static value
+Val_ext2fs (ext2_filsys fs)
+{
+ CAMLparam0 ();
+ CAMLlocal1 (fsv);
+
+ fsv = caml_alloc_custom (&ext2_custom_operations,
+ sizeof (ext2_filsys), 0, 1);
+ Ext2fs_val (fsv) = fs;
+ CAMLreturn (fsv);
+}
+
+value
+supermin_ext2fs_open (value filev)
+{
+ CAMLparam1 (filev);
+...