{-# LANGUAGE CPP #-}
{- |
   Module      :  System.Win32.HardLink
   Copyright   :  2013 shelarcy
   License     :  BSD-style

   Maintainer  :  shelarcy@gmail.com
   Stability   :  Provisional
   Portability :  Non-portable (Win32 API)

   Handling hard link using Win32 API. [NTFS only]

   Note: You should worry about file system type when use this module's function in your application:

     * NTFS only supprts this functionality.

     * ReFS doesn't support hard link currently.
-}
module System.Win32.WindowsString.HardLink
  ( createHardLink
  , createHardLink'
  ) where

import System.Win32.HardLink.Internal
import System.Win32.WindowsString.File   ( failIfFalseWithRetry_ )
import System.Win32.WindowsString.String ( withTString )
import System.Win32.WindowsString.Types  ( nullPtr )
import System.OsPath.Windows

#include "windows_cconv.h"

-- | NOTE: createHardLink is /flipped arguments/ to provide compatibility for Unix.

-- 

-- If you want to create hard link by Windows way, use 'createHardLink'' instead.

createHardLink :: WindowsPath -- ^ Target file path

               -> WindowsPath -- ^ Hard link name

               -> IO ()
createHardLink :: WindowsString -> WindowsString -> IO ()
createHardLink = (WindowsString -> WindowsString -> IO ())
-> WindowsString -> WindowsString -> IO ()
forall a b c. (a -> b -> c) -> b -> a -> c
flip WindowsString -> WindowsString -> IO ()
createHardLink'

createHardLink' :: WindowsPath -- ^ Hard link name

                -> WindowsPath -- ^ Target file path

                -> IO ()
createHardLink' :: WindowsString -> WindowsString -> IO ()
createHardLink' WindowsString
link WindowsString
target =
   WindowsString -> (LPTSTR -> IO ()) -> IO ()
forall a. WindowsString -> (LPTSTR -> IO a) -> IO a
withTString WindowsString
target ((LPTSTR -> IO ()) -> IO ()) -> (LPTSTR -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \LPTSTR
c_target ->
   WindowsString -> (LPTSTR -> IO ()) -> IO ()
forall a. WindowsString -> (LPTSTR -> IO a) -> IO a
withTString WindowsString
link   ((LPTSTR -> IO ()) -> IO ()) -> (LPTSTR -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \LPTSTR
c_link ->
        String -> IO Bool -> IO ()
failIfFalseWithRetry_ ([String] -> String
unwords [String
"CreateHardLinkW",WindowsString -> String
forall a. Show a => a -> String
show WindowsString
link,WindowsString -> String
forall a. Show a => a -> String
show WindowsString
target]) (IO Bool -> IO ()) -> IO Bool -> IO ()
forall a b. (a -> b) -> a -> b
$
          LPTSTR -> LPTSTR -> LPSECURITY_ATTRIBUTES -> IO Bool
c_CreateHardLink LPTSTR
c_link LPTSTR
c_target LPSECURITY_ATTRIBUTES
forall a. Ptr a
nullPtr