6f9a9c81f6Even in the Build system. This allows grepping to make sure that there are none left un-converted: git grep "writeFile" |grep -v F\\.| grep -v doc/|grep -v writeFileString | grep -v writeFileProtected |grep -v Utility/FileIO git grep "readFile" |grep -v F\\.| grep -v doc/|grep -v readFileString |grep -v Utility/FileIO git grep "appendFile" |grep -v F\\.| grep -v doc/|grep -v appendFileString |grep -v Utility/FileIO Might be nice to automate that to prevent future mistakes... Sponsored-by: the NIH-funded NICEMAN (ReproNim TR&D3) project
55 lines
1.3 KiB
Haskell
55 lines
1.3 KiB
Haskell
{- /bin/sh handling
|
|
-
|
|
- Copyright 2013 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module Utility.Shell (
|
|
shellPath,
|
|
shebang,
|
|
findShellCommand,
|
|
) where
|
|
|
|
import Utility.OsPath
|
|
import Utility.SafeCommand
|
|
#ifdef mingw32_HOST_OS
|
|
import Utility.Path
|
|
import Utility.Exception
|
|
import Utility.PartialPrelude
|
|
#endif
|
|
|
|
shellPath :: FilePath
|
|
shellPath = "/bin/sh"
|
|
|
|
shebang :: String
|
|
shebang = "#!" ++ shellPath
|
|
|
|
-- | On Windows, shebang is not handled by the kernel, so to support
|
|
-- shell scripts etc, have to look at the program being run and
|
|
-- parse it for shebang.
|
|
--
|
|
-- This has no effect on Unix.
|
|
findShellCommand :: OsPath -> IO (FilePath, [CommandParam])
|
|
findShellCommand f = do
|
|
#ifndef mingw32_HOST_OS
|
|
defcmd
|
|
#else
|
|
l <- catchDefaultIO Nothing $ headMaybe . lines <$> readFileString f
|
|
case l of
|
|
Just ('#':'!':rest) -> case words rest of
|
|
[] -> defcmd
|
|
(c:ps) -> do
|
|
let ps' = map Param ps ++ [File (fromOsPath f)]
|
|
-- If the command is not inSearchPath,
|
|
-- take the base of it, and run eg "sh"
|
|
-- which in some cases on windows will work
|
|
-- despite it not being inSearchPath.
|
|
ok <- inSearchPath c
|
|
return (if ok then c else fromOsPath (takeFileName (toOsPath c)), ps')
|
|
_ -> defcmd
|
|
#endif
|
|
where
|
|
defcmd = return (fromOsPath f, [])
|