1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env runhaskell
import Distribution.PackageDescription
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Program
import qualified Distribution.Verbosity as Verbosity
import Data.List
main = defaultMainWithHooks defaultUserHooks {
hookedPrograms = [pyConfigProgram],
postConf=configure
}
pyConfigProgram = (simpleProgram "python")
configure _ _ _ lbi = do
mb_bi <- pyConfigBuildInfo Verbosity.normal lbi
writeHookedBuildInfo "MissingPy.buildinfo" (mb_bi,[])
-- Populate BuildInfo using python tool.
pyConfigBuildInfo verbosity lbi = do
(pyConfigProg, _) <- requireProgram verbosity pyConfigProgram
-- (orLaterVersion $ Version [2] []) (withPrograms lbi)
(AnyVersion) (withPrograms lbi)
let python = rawSystemProgramStdout verbosity pyConfigProg
libDir <- python ["-c", "from distutils.sysconfig import *; print get_python_lib()"]
incDir <- python ["-c", "from distutils.sysconfig import *; print get_python_inc()"]
confLibDir <- python ["-c", "from distutils.sysconfig import *; print get_config_var('LIBDIR')"]
libName <- python ["-c", "import sys; print \"python%d.%d\" % (sys.version_info[0], sys.version_info[1])"]
return $ Just emptyBuildInfo {
extraLibDirs = lines confLibDir ++ lines libDir,
includeDirs = lines incDir ++ ["glue"],
extraLibs = lines libName
}
|
