mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

Generated code for mount-loop command.

Browse Source
This commit is contained in:
Richard W.M. Jones
2009-06-29 16:05:22 +01:00
parent a548d51b70
commit 5d6b6a3fbb
24 changed files with 356 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
haskell/Guestfs.hs
View File

@@ -120,7 +120,8 @@ module Guestfs (
wc_l,
wc_w,
wc_c,
du
du,
mount_loop
) where
import Foreign
import Foreign.C
@@ -1335,3 +1336,15 @@ du h path = do
fail err
else return (fromIntegral r)
foreign import ccall unsafe "guestfs_mount_loop" c_mount_loop
:: GuestfsP -> CString -> CString -> IO (CInt)
mount_loop :: GuestfsH -> String -> String -> IO ()
mount_loop h file mountpoint = do
r <- withCString file $ \file -> withCString mountpoint $ \mountpoint -> withForeignPtr h (\p -> c_mount_loop p file mountpoint)
if (r == -1)
then do
err <- last_error h
fail err
else return ()