+{-# OPTIONS -fno-implicit-prelude #-}
+
-----------------------------------------------------------------------------
-- |
-- Module : System.FilePath
, changeFileExt
, isRootedPath
, isAbsolutePath
+ , dropAbsolutePrefix
, pathParents
, commonParent
, dllExtension
) where
+#ifdef __GLASGOW_HASKELL__
+import GHC.Base
+import GHC.IOBase(FilePath)
+import GHC.Num
+#else
import Prelude -- necessary to get dependencies right
-
-import Data.List(intersperse)
+#endif
+import Data.Maybe
+import Data.List
--------------------------------------------------------------
-- * FilePath
#endif
isAbsolutePath _ = False
+-- | If the function is applied to an absolute path then it returns a
+-- local path obtained by dropping the absolute prefix from the path.
+-- Under Windows the prefix is @\"\\\"@, @\"c:\"@ or @\"c:\\\"@.
+-- Under Unix the prefix is always @\"\/\"@.
+dropAbsolutePrefix :: FilePath -> FilePath
+dropAbsolutePrefix (c:cs) | isPathSeparator c = cs
+#ifdef mingw32_TARGET_OS
+dropAbsolutePrefix (_:':':c:cs) | isPathSeparator c = cs -- path with drive letter
+dropAbsolutePrefix (_:':':cs) = cs
+#endif
+dropAbsolutePrefix cs = cs
+
-- | Gets this path and all its parents.
-- The function is useful in case if you want to create
-- some file but you aren\'t sure whether all directories
-- ToDo: This should be determined via autoconf (AC_EXEEXT)
-- | Extension for executable files
--- (typically @\"\"@ on Unix and @\".exe\"@ on Windows or OS\/2)
+-- (typically @\"\"@ on Unix and @\"exe\"@ on Windows or OS\/2)
exeExtension :: String
#ifdef mingw32_TARGET_OS
-exeExtension = ".exe"
+exeExtension = "exe"
#else
exeExtension = ""
#endif
-- ToDo: This should be determined via autoconf (AC_OBJEXT)
-- | Extension for object files
--- (typically @\".o\"@ on Unix and @\".obj\"@ on Windows)
+-- (typically @\"o\"@ on Unix and @\"obj\"@ on Windows)
objExtension :: String
#ifdef mingw32_TARGET_OS
-objExtension = ".obj"
+objExtension = "obj"
#else
-objExtension = ".o"
+objExtension = "o"
#endif
-- | Extension for dynamically linked (or shared) libraries
--- (typically @\".so\"@ on Unix and @\".dll\"@ on Windows)
+-- (typically @\"so\"@ on Unix and @\"dll\"@ on Windows)
dllExtension :: String
#ifdef mingw32_TARGET_OS
-dllExtension = ".dll"
+dllExtension = "dll"
#else
-dllExtension = ".so"
+dllExtension = "so"
#endif