|
definition:
|
writePackageConfig :: Config -> String -> Package -> String -> ErrorLogger ()
writePackageConfig cfg pkgdir pkg loadpath =
maybe (return ())
(\configmod ->
if null configmod
then return ()
else do
let bins = map (\ (PackageExecutable n _ _) -> n)
(executableSpec pkg)
realbins <-
mapM (liftIOEL . getRealPath . (binInstallDir cfg </>)) bins
writeConfigFile configmod realbins)
(configModule pkg)
where
writeConfigFile configmod binnames = do
let configfile = pkgdir </> "src" </> foldr1 (</>) (split (=='.') configmod)
<.> ".curry"
liftIOEL $ do
createDirectoryIfMissing True (takeDirectory configfile)
abspkgdir <- getRealPath pkgdir
writeFile configfile $ unlines $
[ "module " ++ configmod ++ " where"
, ""
, "--- Package version as a string."
, "packageVersion :: String"
, "packageVersion = \"" ++ showVersion (version pkg) ++ "\""
, ""
, "--- Returns the location (installation directory) of the package."
, "getPackagePath :: IO String"
, "getPackagePath = return " ++ show abspkgdir
, ""
, "--- Package location (deprecated, use 'getPackagePath')."
, "packagePath :: String"
, "packagePath = " ++ show abspkgdir
, ""
, "--- Returns the load path for the package (if it is the main package)."
, "getPackageLoadPath :: IO [String]"
, "getPackageLoadPath = do" ] ++
(let (slpath,usepp) = showLoadPath abspkgdir
in if usepp then [ " pp <- getPackagePath"
, " return " ++ slpath ]
else [ " return " ++ slpath ]) ++
[ ""
, "--- Load path for the package (deprecated, use 'getPackageLoadPath')."
, "packageLoadPath :: String"
, "packageLoadPath = " ++ show loadpath
, "" ] ++
showExecutables binnames
logDebug $ "Config module '" ++ configfile ++ "' written."
showLoadPath pdir =
let (lppath,usepp) = unzip
(map replacePackagePath (splitSearchPath loadpath))
in ("[" ++ intercalate ", " lppath ++ "]", or usepp)
where
replacePackagePath d =
if pdir `isPrefixOf` d
then ("pp ++ " ++ show (drop (length pdir) d), True)
else (show d, False)
showExecutables bins = case length bins of
0 -> []
1 -> [ "--- Returns the location of the executable installed by this package."
, "getPackageExecutable :: IO String"
, "getPackageExecutable = return \"" ++ head bins ++ "\""
, ""
, "--- Location of the executable (deprecated, use 'getPackageExecutable')."
, "packageExecutable :: String"
, "packageExecutable = \"" ++ head bins ++ "\""
]
_ -> [ "--- Returns the locations of the executables installed by this package."
, "getPackageExecutables :: IO [String]"
, "getPackageExecutables = return [" ++
intercalate ", " (map (\s -> "\"" ++ s ++ "\"") bins) ++ "]"
, ""
, "--- Location of the executables (deprecated, use 'getPackageExecutables')."
, "packageExecutables :: [String]"
, "packageExecutables = [" ++
intercalate ", " (map (\s -> "\"" ++ s ++ "\"") bins) ++ "]"
]
|