GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Mark platform-specific functions that need to be fixed.

Browse Source
This commit is contained in:
bringert
2005-05-20 12:12:33 +00:00
parent 548cb96699
commit a2bc6c8cba
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Infra/UseIO.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable) -- Stability : (stable)
-- Portability : (portable) -- Portability : (portable)
-- --
-- > CVS $Date: 2005/04/21 16:46:09 $ -- > CVS $Date: 2005/05/20 13:12:33 $
-- > CVS $Author: bringert $ -- > CVS $Author: bringert $
-- > CVS $Revision: 1.12 $ -- > CVS $Revision: 1.13 $
-- --
-- (Description of the module) -- (Description of the module)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@@ -107,11 +107,13 @@ extendPathEnv var ps = do
let fs = pFilePaths s let fs = pFilePaths s
return $ ps ++ fs return $ ps ++ fs
-- FIXME: unix-specific, : is ; on Windows
pFilePaths :: String -> [FilePath] pFilePaths :: String -> [FilePath]
pFilePaths s = case span (/=':') s of pFilePaths s = case span (/=':') s of
(f,_:cs) -> f : pFilePaths cs (f,_:cs) -> f : pFilePaths cs
(f,_) -> [f] (f,_) -> [f]
-- FIXME: unix-specific, / is \ on Windows
prefixPathName :: String -> FilePath -> FilePath prefixPathName :: String -> FilePath -> FilePath
prefixPathName p f = case f of prefixPathName p f = case f of
'/':_ -> f -- do not prefix [Unix style] absolute paths '/':_ -> f -- do not prefix [Unix style] absolute paths
@@ -119,9 +121,11 @@ prefixPathName p f = case f of
"" -> f "" -> f
_ -> p ++ "/" ++ f _ -> p ++ "/" ++ f
-- FIXME: unix-specific, / is \ on Windows
justInitPath :: FilePath -> FilePath justInitPath :: FilePath -> FilePath
justInitPath = reverse . drop 1 . dropWhile (/='/') . reverse justInitPath = reverse . drop 1 . dropWhile (/='/') . reverse
-- FIXME: unix-specific, / is \ on Windows
nameAndSuffix :: FilePath -> (String,String) nameAndSuffix :: FilePath -> (String,String)
nameAndSuffix file = case span (/='.') (reverse file) of nameAndSuffix file = case span (/='.') (reverse file) of
(_,[]) -> (file,[]) (_,[]) -> (file,[])
@@ -136,6 +140,7 @@ fileBody = unsuffixFile
fileSuffix :: FilePath -> String fileSuffix :: FilePath -> String
fileSuffix = snd . nameAndSuffix fileSuffix = snd . nameAndSuffix
-- FIXME: unix-specific, / is \ on Windows
justFileName :: FilePath -> String justFileName :: FilePath -> String
justFileName = reverse . takeWhile (/='/') . reverse justFileName = reverse . takeWhile (/='/') . reverse
@@ -271,6 +276,7 @@ readFileIOE f = ioe $ catch (readFile f >>= return . return)
-- intended semantics: if file is not found, try @\$GF_LIB_PATH\/file@ -- intended semantics: if file is not found, try @\$GF_LIB_PATH\/file@
-- (even if file is an absolute path, but this should always fail) -- (even if file is an absolute path, but this should always fail)
-- it returns not only contents of the file, but also the path used -- it returns not only contents of the file, but also the path used
-- FIXME: unix-specific, / is \ on Windows
readFileLibraryIOE :: String -> FilePath -> IOE (FilePath, String) readFileLibraryIOE :: String -> FilePath -> IOE (FilePath, String)
readFileLibraryIOE ini f = readFileLibraryIOE ini f =
ioe $ catch ((do {s <- readFile initPath; return (return (initPath,s))})) ioe $ catch ((do {s <- readFile initPath; return (return (initPath,s))}))