b9341fd4c0
Now oberon has some binaries and libraries that use rpath, so I had to put in this ugly hack to replace the @rapth/lib with the lib in the app. This was particularly tricky for libraries that use @rpath because I could not find a way to extract the rpath from the library. (Only from the executable, by running it.. ugh!) The hack I put in place may fail if multiple different libraries use rpath to refer to other libraries, and the "@rpath/lib" string is the same, but actually refers to different files.
80 lines
1.8 KiB
Haskell
80 lines
1.8 KiB
Haskell
{- Makes standalone bundle.
|
|
-
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module Main where
|
|
|
|
import Control.Applicative
|
|
import Control.Monad.IfElse
|
|
import System.Environment
|
|
import Data.Maybe
|
|
import System.FilePath
|
|
import System.Directory
|
|
import System.IO
|
|
import Control.Monad
|
|
import Data.List
|
|
import Build.SysConfig as SysConfig
|
|
|
|
import Utility.PartialPrelude
|
|
import Utility.Directory
|
|
import Utility.Process
|
|
import Utility.Monad
|
|
import Utility.SafeCommand
|
|
import Utility.Path
|
|
|
|
{- Programs that git-annex uses, to include in the bundle.
|
|
-
|
|
- These may be just the command name, or the full path to it. -}
|
|
thirdpartyProgs :: [FilePath]
|
|
thirdpartyProgs = catMaybes
|
|
[ Just "git"
|
|
, Just "cp"
|
|
, Just "xargs"
|
|
, Just "gpg"
|
|
, Just "rsync"
|
|
, Just "ssh"
|
|
, Just "sh"
|
|
, ifset SysConfig.curl "curl"
|
|
, ifset SysConfig.wget "wget"
|
|
, ifset SysConfig.bup "bup"
|
|
, SysConfig.lsof
|
|
, SysConfig.sha1
|
|
, SysConfig.sha256
|
|
, SysConfig.sha512
|
|
, SysConfig.sha224
|
|
, SysConfig.sha384
|
|
]
|
|
where
|
|
ifset True s = Just s
|
|
ifset False _ = Nothing
|
|
|
|
progDir :: FilePath -> FilePath
|
|
#ifdef darwin_HOST_OS
|
|
progDir topdir = topdir
|
|
#else
|
|
progDir topdir = topdir </> "bin"
|
|
#endif
|
|
|
|
installProg :: FilePath -> FilePath -> IO (FilePath, FilePath)
|
|
installProg dir prog = searchPath prog >>= go
|
|
where
|
|
go Nothing = error $ "cannot find " ++ prog ++ " in PATH"
|
|
go (Just f) = do
|
|
let dest = dir </> takeFileName f
|
|
unlessM (boolSystem "install" [File f, File dest]) $
|
|
error $ "install failed for " ++ prog
|
|
return (dest, f)
|
|
|
|
main = getArgs >>= go
|
|
where
|
|
go [] = error "specify topdir"
|
|
go (topdir:_) = do
|
|
let dir = progDir topdir
|
|
createDirectoryIfMissing True dir
|
|
installed <- forM thirdpartyProgs $ installProg dir
|
|
writeFile "tmp/standalone-installed" (show installed)
|