Displaying 2 results from an estimated 2 matches for "filesystem_is_remote".
2017 Oct 03
0
[PATCH v2 2/2] builder: Choose better weights in the planner.
...me infile in
+ let outfile =
+ if Sys.file_exists outfile then outfile else Filename.dirname outfile in
+
+ match task with
+ | `Virt_resize -> 100 (* virt-resize is a special case*)
+ | (`Copy|`Move|`Pxzcat|`Disk_resize|`Convert) as task ->
+ if StatVFS.filesystem_is_remote infile ||
+ StatVFS.filesystem_is_remote outfile
+ then 80 (* NFS etc. *)
+ else (
+ let inst = lstat infile in
+ let outst = lstat outfile in
+ let across = inst.st_dev <> outst.st_dev in
+ match task, across with
+...
2017 Oct 03
4
[PATCH v2 0/2] builder: Choose better weights in the planner.
v1 -> v2:
- Removed the f_type field from StatVFS.statvfs structure.
- New function StatVFS.filesystem_is_remote, written in C.
[Thinking about it, this should probably be called
?is_network_filesystem?, but I can change that before
pushing].
- Use statvfs instead of fstatvfs, and statfs instead of fstatfs.
- Rejigged the comments in builder/builder.ml to make them simpler
and clearer.
Rich.