2 module ParsePkgConf( loadPackageConfig ) where
4 import Packages ( PackageConfig(..), defaultPackageConfig )
10 import Panic ( GhcException(..) )
11 import Exception ( throwDyn )
13 #include "HsVersions.h"
26 STRING { ITstring $$ }
28 %monad { P } { thenP } { returnP }
29 %lexer { lexer } { ITeof }
34 pkgconf :: { [ PackageConfig ] }
35 : '[' pkgs ']' { reverse $2 }
37 pkgs :: { [ PackageConfig ] }
39 | pkgs ',' pkg { $3 : $1 }
41 pkg :: { PackageConfig }
42 : CONID '{' fields '}' { $3 defaultPackageConfig }
44 fields :: { PackageConfig -> PackageConfig }
45 : field { \p -> $1 p }
46 | fields ',' field { \p -> $1 ($3 p) }
48 field :: { PackageConfig -> PackageConfig }
50 {% case unpackFS $1 of {
51 "name" -> returnP (\ p -> p{name = unpackFS $3});
55 {\p -> case unpackFS $1 of
56 "import_dirs" -> p{import_dirs = $3}
57 "library_dirs" -> p{library_dirs = $3}
58 "hs_libraries" -> p{hs_libraries = $3}
59 "extra_libraries" -> p{extra_libraries = $3}
60 "include_dirs" -> p{include_dirs = $3}
61 "c_includes" -> p{c_includes = $3}
62 "package_deps" -> p{package_deps = $3}
63 "extra_ghc_opts" -> p{extra_ghc_opts = $3}
64 "extra_cc_opts" -> p{extra_cc_opts = $3}
65 "extra_ld_opts" -> p{extra_ld_opts = $3}
66 "framework_dirs" -> p{framework_dirs = $3}
67 "extra_frameworks"-> p{extra_frameworks= $3}
71 strlist :: { [String] }
73 | '[' strs ']' { reverse $2 }
76 : STRING { [ unpackFS $1 ] }
77 | strs ',' STRING { unpackFS $3 : $1 }
81 happyError buf PState{ loc = loc } = PFailed (srcParseErr buf loc)
83 loadPackageConfig :: FilePath -> IO [PackageConfig]
84 loadPackageConfig conf_filename = do
85 buf <- hGetStringBuffer conf_filename
86 let loc = mkSrcLoc (mkFastString conf_filename) 1
87 exts = ExtFlags {glasgowExtsEF = False,
91 case parse buf (mkPState loc exts) of
94 throwDyn (InstallationError (showSDoc err))
96 POk _ pkg_details -> do