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 mknod, mkfifo, mknod_b, mknod_c, umask.

Browse Source
This commit is contained in:
Richard W.M. Jones
2009-06-30 13:09:44 +01:00
parent f850e1f065
commit 0884d8bbae
25 changed files with 2572 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
haskell/Guestfs.hs
View File

@@ -126,7 +126,12 @@ module Guestfs (
mount_loop,
mkswap,
mkswap_L,
mkswap_U
mkswap_U,
mknod,
mkfifo,
mknod_b,
mknod_c,
umask
) where
import Foreign
import Foreign.C
@@ -1413,3 +1418,63 @@ mkswap_U h uuid device = do
fail err
else return ()
foreign import ccall unsafe "guestfs_mknod" c_mknod
:: GuestfsP -> CInt -> CInt -> CInt -> CString -> IO (CInt)
mknod :: GuestfsH -> Int -> Int -> Int -> String -> IO ()
mknod h mode devmajor devminor path = do
r <- withCString path $ \path -> withForeignPtr h (\p -> c_mknod p (fromIntegral mode) (fromIntegral devmajor) (fromIntegral devminor) path)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_mkfifo" c_mkfifo
:: GuestfsP -> CInt -> CString -> IO (CInt)
mkfifo :: GuestfsH -> Int -> String -> IO ()
mkfifo h mode path = do
r <- withCString path $ \path -> withForeignPtr h (\p -> c_mkfifo p (fromIntegral mode) path)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_mknod_b" c_mknod_b
:: GuestfsP -> CInt -> CInt -> CInt -> CString -> IO (CInt)
mknod_b :: GuestfsH -> Int -> Int -> Int -> String -> IO ()
mknod_b h mode devmajor devminor path = do
r <- withCString path $ \path -> withForeignPtr h (\p -> c_mknod_b p (fromIntegral mode) (fromIntegral devmajor) (fromIntegral devminor) path)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_mknod_c" c_mknod_c
:: GuestfsP -> CInt -> CInt -> CInt -> CString -> IO (CInt)
mknod_c :: GuestfsH -> Int -> Int -> Int -> String -> IO ()
mknod_c h mode devmajor devminor path = do
r <- withCString path $ \path -> withForeignPtr h (\p -> c_mknod_c p (fromIntegral mode) (fromIntegral devmajor) (fromIntegral devminor) path)
if (r == -1)
then do
err <- last_error h
fail err
else return ()
foreign import ccall unsafe "guestfs_umask" c_umask
:: GuestfsP -> CInt -> IO (CInt)
umask :: GuestfsH -> Int -> IO (Int)
umask h mask = do
r <- withForeignPtr h (\p -> c_umask p (fromIntegral mask))
if (r == -1)
then do
err <- last_error h
fail err
else return (fromIntegral r)