{-# INCLUDE <CoreFoundation/CoreFoundation.h> #-}
module CoreFoundation.CFURL 
    ( CFURLRef,
      createFromFileSystemRepresentation 
    ) where
import Foreign.C.String
import Foreign.Ptr
import Foreign.C.Types

data CFAllocator 
type CFAllocatorRef = Ptr CFAllocator

data CFURL
type CFURLRef = Ptr CFURL

createFromFileSystemRepresentation :: String -> Bool -> IO CFURLRef
createFromFileSystemRepresentation file_path is_directory = do
    withCStringLen file_path $ \(c_file_path, path_len) -> do
        foreignCreateFromFileSystemRepresentation 
            nullPtr
            c_file_path
            (fromIntegral path_len)
            is_directory

foreign import ccall "CFURLCreateFromFileSystemRepresentation"
    foreignCreateFromFileSystemRepresentation ::
        CFAllocatorRef -> CString -> CInt -> Bool -> IO CFURLRef