inline-python/Setup.hs at master · Shimuuar/inline-python · GitHub

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
{-# LANGUAGE CPP #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# LANGUAGE OverloadedStrings #-}
importData.Either

importDistribution.Simple
importDistribution.Simple.Setup
importDistribution.Simple.LocalBuildInfo
importDistribution.PackageDescription
importDistribution.Types.BuildInfo
importDistribution.Types.PackageDescription
importDistribution.Types.CondTree
importDistribution.Types.ForeignLib
importDistribution.Types.UnqualComponentName
importDistribution.Utils.Path
importDistribution.Compat.Lens
importDistribution.Types.BuildInfo.LensqualifiedasL

importData.List (intercalate, nub)
importSystem.Process


main::IO()
main = defaultMainWithHooks $ simpleUserHooks
 { confHook = patchedConfHook }


patchedConfHook
:: (GenericPackageDescription, HookedBuildInfo)
->ConfigFlags
->IOLocalBuildInfo
patchedConfHook (gpd, hbi) flags
|JustTrue<- lookupFlagAssignment ("python3-config") $ configConfigurationsFlags flags
=do cflags_raw <- readProcess "python3-config" ["--cflags"] ""
 ldflags_raw <- readProcess "python3-config" ["--embed", "--ldflags"] ""
-- Split flags
let (inc_dirs,cflags) = partitionEithers
 [ case flag of
'-':'I':path ->Left path
 _ ->Right flag
| flag <- tokenizeArguments cflags_raw
 ]
 (ldflags, (libs, lib_dirs)) =fmap partitionEithers $ partitionEithers
 [ case flag of
'-':'l':path ->Right (Left path)
'-':'L':path ->Right (Right path)
 _ ->Left flag
| flag <- tokenizeArguments ldflags_raw
 ]
let tweakLib lib =case lib.libName of
LMainLibName-> lib &L.ccOptions %~ (++ cflags)
&L.includeDirs %~ (++ (toSymb <$> inc_dirs))
&L.ldOptions %~ (++ ldflags)
&L.extraLibs %~ (++ libs)
&L.extraLibDirs %~ (++ (toSymb <$> lib_dirs))
 _ -> lib
 confHook simpleUserHooks
 ( gpd { condLibrary = (fmap.fmap) tweakLib (condLibrary gpd) }
 , hbi
 ) flags
|otherwise=do
 confHook simpleUserHooks (gpd, hbi) flags

tokenizeArguments::String-> [String]
tokenizeArguments =words

----------------------------------------------------------------
-- Compatibility

#if MIN_VERSION_Cabal_syntax(3,14,0)
toSymb::String->SymbolicPathX 'AllowAbsolute fromto
toSymb = makeSymbolicPath
#else
toSymb::String->String
toSymb =id
#endif