+static CAMLprim value
+copy_dirent (const struct guestfs_dirent *dirent)
+{
+ CAMLparam0 ();
+ CAMLlocal2 (rv, v);
+
+ rv = caml_alloc (3, 0);
+ v = caml_copy_int64 (dirent->ino);
+ Store_field (rv, 0, v);
+ v = Val_int (dirent->ftyp);
+ Store_field (rv, 1, v);
+ v = caml_copy_string (dirent->name);
+ Store_field (rv, 2, v);
+ CAMLreturn (rv);
+}
+
+static CAMLprim value
+copy_dirent_list (const struct guestfs_dirent_list *dirents)
+{
+ CAMLparam0 ();
+ CAMLlocal2 (rv, v);
+ int i;
+
+ if (dirents->len == 0)
+ CAMLreturn (Atom (0));
+ else {
+ rv = caml_alloc (dirents->len, 0);
+ for (i = 0; i < dirents->len; ++i) {
+ v = copy_dirent (&dirents->val[i]);
+ caml_modify (&Field (rv, i), v);
+ }
+ CAMLreturn (rv);
+ }
+}
+