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 the 'mkswap*' commands.

Browse Source
This commit is contained in:
Richard W.M. Jones
2009-06-29 20:24:47 +01:00
parent 662617ae72
commit da8ddb2745
24 changed files with 1235 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
haskell/Guestfs.hs
View File

@@ -121,7 +121,10 @@ module Guestfs (
wc_w,
wc_c,
du,
mount_loop
mount_loop,
mkswap,
mkswap_L,
mkswap_U
) where
import Foreign
import Foreign.C
@@ -1348,3 +1351,39 @@ mount_loop h file mountpoint = do
fail err
else return ()
foreign import ccall unsafe "guestfs_mkswap" c_mkswap
:: GuestfsP -> CString -> IO (CInt)
mkswap :: GuestfsH -> String -> IO ()
mkswap h device = do
r <- withCString device $ \device -> withForeignPtr h (\p -> c_mkswap p device)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_mkswap_L" c_mkswap_L
:: GuestfsP -> CString -> CString -> IO (CInt)
mkswap_L :: GuestfsH -> String -> String -> IO ()
mkswap_L h label device = do
r <- withCString label $ \label -> withCString device $ \device -> withForeignPtr h (\p -> c_mkswap_L p label device)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_mkswap_U" c_mkswap_U
:: GuestfsP -> CString -> CString -> IO (CInt)
mkswap_U :: GuestfsH -> String -> String -> IO ()
mkswap_U h uuid device = do
r <- withCString uuid $ \uuid -> withCString device $ \device -> withForeignPtr h (\p -> c_mkswap_U p uuid device)
if (r == -1)
then do
err <- last_error h
fail err
else return ()