X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=src%2Fgenerator.ml;h=4e056e2987cf38a4080b14bdfa03f3f3eb5915ee;hp=f634cc8e2529233943c461d7328be4a784346b5c;hb=d609130cb65fe7795b168a796426e39d64ceda97;hpb=aa7ca27e4be1fd38a1eff4d24974f053080a9704

diff --git a/src/generator.ml b/src/generator.ml
index f634cc8..4e056e2 100755
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -3703,6 +3703,18 @@ This function does not handle drive names, backslashes etc.
 
 See also C<guestfs_realpath>.");
 
+  ("vfs_type", (RString "fstype", [Device "device"]), 198, [],
+   [InitBasicFS, Always, TestOutput (
+      [["vfs_type"; "/dev/sda1"]], "ext2")],
+   "get the Linux VFS type corresponding to a mounted device",
+   "\
+This command gets the block device type corresponding to
+a mounted device called C<device>.
+
+Usually the result is the name of the Linux VFS module that
+is used to mount this device (probably determined automatically
+if you used the C<guestfs_mount> call).");
+
 ]
 
 let all_functions = non_daemon_functions @ daemon_functions