ghc/driver/PackageSrc.hs

   1 #include "../includes/config.h"
   2 #include "../includes/Derived.h"
   3
   4 module Main (main) where
   5
   6 import Utils
   7
   8 import IO
   9 import System
  10 import Package
  11
  12 main :: IO ()
  13 main = do
  14   args <- getArgs
  15   case args of
  16      ("install":rest)  -> do { putStrLn (dumpPackages (package_details True rest)) }
  17      ("in-place":rest) -> do { putStrLn (dumpPackages (package_details False rest)) }
  18      _ -> do hPutStr stderr "usage: pkgconf (install | in-place) ...\n"
  19              exitWith (ExitFailure 1)
  20
  21 -- The compiler automatically replaces the string "$libdir" at the
  22 -- beginning of a path with the directory passed to the compiler via
  23 -- the -B<dir> flag.  Absolute path names will be unchanged.
  24 --
  25 -- This is how we make package.conf independent of GHC's installation
  26 -- location.
  27
  28 package_details :: Bool -> [String] -> [PackageConfig]
  29 package_details installing
  30  [ cTARGETPLATFORM
  31  , cCURRENT_DIR
  32  , cHaveLibGmp
  33  , cLibsReadline
  34  , cGHC_LIB_DIR
  35  , cGHC_RUNTIME_DIR
  36  , cGHC_UTILS_DIR
  37  , cGHC_INCLUDE_DIR
  38  , cX_CFLAGS
  39  , cX_LIBS
  40  ] =
  41
  42  [
  43         Package {
  44         name           = "gmp",  -- GMP is at the bottom of the heap
  45         import_dirs    = [],
  46         source_dirs    = [],
  47         library_dirs   = if cHaveLibGmp == "YES"
  48                             then []
  49                             else if installing
  50                                     then [ "$libdir" ]
  51                                     else [ ghc_src_dir cGHC_RUNTIME_DIR ++ "/gmp" ],
  52         hs_libraries   = [],
  53         extra_libraries = [ "gmp" ],
  54         include_dirs   = [],
  55         c_includes     = [],
  56         package_deps   = [],
  57         extra_ghc_opts = [],
  58         extra_cc_opts  = [],
  59         extra_ld_opts  = []
  60         },
  61
  62         Package {
  63         name           = "rts",  -- The RTS is just another package!
  64         import_dirs    = [],
  65         source_dirs    = [],
  66         library_dirs   = if installing
  67                             then
  68 #ifdef mingw32_TARGET_OS
  69                                 -- force the dist-provided gcc-lib/ into scope.
  70                                  [ "$libdir", "$libdir/gcc-lib" ]
  71 #else
  72                                  [ "$libdir" ]
  73 #endif
  74                             else [ ghc_src_dir cGHC_RUNTIME_DIR ],
  75         hs_libraries      = [ "HSrts" ],
  76         extra_libraries   =
  77                               "m":              -- for ldexp()
  78 #ifdef mingw32_TARGET_OS
  79                               "winmm":          -- for the threadDelay timer
  80                               "wsock32":        -- for the linker
  81 #endif
  82 #ifdef USING_LIBBFD
  83                               "bfd": "iberty":  -- for debugging
  84 #endif
  85                             [],
  86         include_dirs   = if installing
  87                             then [ "$libdir/include"
  88 #ifdef mingw32_TARGET_OS
  89                                  , "$libdir/include/mingw"
  90 #endif
  91                                  ]
  92                             else [ ghc_src_dir cGHC_INCLUDE_DIR ],
  93         c_includes     = [ "Stg.h" ],           -- ha!
  94         package_deps   = [ "gmp" ],
  95         extra_ghc_opts = [],
  96         extra_cc_opts  = [],
  97                 -- the RTS forward-references to a bunch of stuff in the prelude,
  98                 -- so we force it to be included with special options to ld.
  99         extra_ld_opts  =
 100            foldr (\ x xs -> "-u" : x : xs) []
 101                  (map (
 102 #ifndef LEADING_UNDERSCORE
 103                           ""
 104 #else
 105                           "_"
 106 #endif
 107                           ++ ) [
 108            "PrelBase_Izh_static_info"
 109          , "PrelBase_Czh_static_info"
 110          , "PrelFloat_Fzh_static_info"
 111          , "PrelFloat_Dzh_static_info"
 112          , "PrelPtr_Ptr_static_info"
 113          , "PrelWord_Wzh_static_info"
 114          , "PrelInt_I8zh_static_info"
 115          , "PrelInt_I16zh_static_info"
 116          , "PrelInt_I32zh_static_info"
 117          , "PrelInt_I64zh_static_info"
 118          , "PrelWord_W8zh_static_info"
 119          , "PrelWord_W16zh_static_info"
 120          , "PrelWord_W32zh_static_info"
 121          , "PrelWord_W64zh_static_info"
 122          , "PrelStable_StablePtr_static_info"
 123          , "PrelBase_Izh_con_info"
 124          , "PrelBase_Czh_con_info"
 125          , "PrelFloat_Fzh_con_info"
 126          , "PrelFloat_Dzh_con_info"
 127          , "PrelPtr_Ptr_con_info"
 128          , "PrelStable_StablePtr_con_info"
 129          , "PrelBase_False_closure"
 130          , "PrelBase_True_closure"
 131          , "PrelPack_unpackCString_closure"
 132          , "PrelIOBase_stackOverflow_closure"
 133          , "PrelIOBase_heapOverflow_closure"
 134          , "PrelIOBase_NonTermination_closure"
 135          , "PrelIOBase_BlockedOnDeadMVar_closure"
 136          , "PrelWeak_runFinalizzerBatch_closure"
 137          , "__stginit_Prelude"
 138          ])
 139         },
 140
 141         Package {
 142         name           = "std",  -- The Prelude & Standard Hs_libraries
 143         import_dirs    = if installing
 144                             then [ "$libdir/imports/std" ]
 145                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std" ],
 146         source_dirs    = [],
 147         library_dirs   = if installing
 148                             then [ "$libdir" ]
 149                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std"
 150                                  , ghc_src_dir cGHC_LIB_DIR ++ "/std/cbits" ],
 151
 152         hs_libraries      =
 153 #                           ifndef mingw32_TARGET_OS
 154                             [ "HSstd" ]
 155 #                           else
 156                             -- This splitting is the subject of a totally
 157                             -- horrible hack, which glues HSstd1 and HSstd2
 158                             -- back into HSstd for the purposes of static linking.
 159                             -- See DriverState.getPackageLibraries for details.
 160                             [ "HSstd1", "HSstd2" ]
 161 #                           endif
 162                             ,
 163         extra_libraries   = [ "HSstd_cbits" ] ++
 164 #                           ifdef mingw32_TARGET_OS
 165                             [ "wsock32", "msvcrt", "kernel32" ]
 166 #                           else
 167                             [ ]
 168 #                           endif
 169                             ,
 170         include_dirs   = if installing
 171                             then []
 172                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std/cbits" ],
 173         c_includes     = [ "HsStd.h" ],
 174         package_deps   = [ "rts" ],
 175         extra_ghc_opts = [],
 176         extra_cc_opts  = [],
 177         extra_ld_opts  = []
 178         },
 179
 180          Package {
 181          name           = "lang",
 182          import_dirs    = if installing
 183                              then [ "$libdir/imports/lang" ]
 184                              else [ "$libdir/hslibs/lang"
 185                                   , "$libdir/hslibs/lang/monads" ],
 186          source_dirs    = [],
 187          library_dirs   = if installing
 188                              then [ "$libdir" ]
 189                              else [ "$libdir/hslibs/lang"
 190                                   , "$libdir/hslibs/lang/cbits" ],
 191          hs_libraries      = [ "HSlang" ],
 192          extra_libraries   = [ "HSlang_cbits" ],
 193          include_dirs   = if installing
 194                              then []
 195                              else [ "$libdir/hslibs/lang/cbits" ],
 196          c_includes     = [ "HsLang.h" ],
 197          package_deps   = [],
 198          extra_ghc_opts = [],
 199          extra_cc_opts  = [],
 200          extra_ld_opts  = [
 201 #ifndef LEADING_UNDERSCORE
 202                           "-u", "Addr_Azh_static_info"
 203 #else
 204                           "-u", "_Addr_Azh_static_info"
 205 #endif
 206                         ]
 207         },
 208
 209          Package {
 210          name           = "concurrent",
 211          import_dirs    = if installing
 212                              then [ "$libdir/imports/concurrent" ]
 213                              else [ "$libdir/hslibs/concurrent" ],
 214          source_dirs    = [],
 215          library_dirs   = if installing
 216                              then [ "$libdir" ]
 217                              else [ "$libdir/hslibs/concurrent" ],
 218          hs_libraries      = [ "HSconcurrent" ],
 219          extra_libraries   = [],
 220          include_dirs   = if installing
 221                              then []
 222                              else [ "$libdir/hslibs/concurrent/cbits" ],
 223          c_includes     = [],
 224          package_deps   = [ "lang" ],
 225          extra_ghc_opts = [],
 226          extra_cc_opts  = [],
 227          extra_ld_opts  = []
 228         },
 229
 230          Package {
 231          name           = "data",
 232          import_dirs    = if installing
 233                              then [ "$libdir/imports/data" ]
 234                              else [ "$libdir/hslibs/data"
 235                                   , "$libdir/hslibs/data/edison"
 236                                   , "$libdir/hslibs/data/edison/Assoc"
 237                                   , "$libdir/hslibs/data/edison/Coll"
 238                                   , "$libdir/hslibs/data/edison/Seq" ],
 239          source_dirs    = [],
 240          library_dirs   = if installing
 241                              then [ "$libdir" ]
 242                              else [ "$libdir/hslibs/data" ],
 243          hs_libraries      = [ "HSdata" ],
 244          extra_libraries   = [],
 245          include_dirs   = if installing
 246                              then []
 247                              else [ "$libdir/hslibs/data/cbits" ],
 248          c_includes     = [],
 249          package_deps   = [ "lang", "util" ],
 250          extra_ghc_opts = [],
 251          extra_cc_opts  = [],
 252          extra_ld_opts  = []
 253         },
 254
 255          Package {
 256          name           = "net",
 257          import_dirs    = if installing
 258                              then [ "$libdir/imports/net" ]
 259                              else [ "$libdir/hslibs/net" ],
 260          source_dirs    = [],
 261          library_dirs   = if installing
 262                              then [ "$libdir" ]
 263                              else [ "$libdir/hslibs/net"
 264                                   , "$libdir/hslibs/net/cbits" ],
 265          hs_libraries      = [ "HSnet" ],
 266          extra_libraries   = if suffixMatch "solaris2" cTARGETPLATFORM
 267                                 then [ "nsl",  "socket" ]
 268                                 else []
 269                              ,
 270          include_dirs   = if installing
 271                              then []
 272                              else [ "$libdir/hslibs/net/cbits" ],
 273          c_includes     = [ "HsNet.h" ],
 274          package_deps   = [ "lang", "text", "concurrent" ],
 275          extra_ghc_opts = [],
 276          extra_cc_opts  = [],
 277          extra_ld_opts  = []
 278         },
 279
 280          Package {
 281          name           = "posix",
 282          import_dirs    = if installing
 283                              then [ "$libdir/imports/posix" ]
 284                              else [ "$libdir/hslibs/posix" ],
 285          source_dirs    = [],
 286          library_dirs   = if installing
 287                              then [ "$libdir" ]
 288                              else [ "$libdir/hslibs/posix"
 289                                   , "$libdir/hslibs/posix/cbits" ],
 290          hs_libraries      = [ "HSposix" ],
 291          extra_libraries   = [ "HSposix_cbits" ],
 292          include_dirs   = if installing
 293                              then []
 294                              else [ "$libdir/hslibs/posix/cbits" ],
 295          c_includes     = [ "HsPosix.h" ],
 296          package_deps   = [ "lang" ],
 297          extra_ghc_opts = [],
 298          extra_cc_opts  = [],
 299          extra_ld_opts  = []
 300         },
 301
 302          Package {
 303          name           = "text",
 304          import_dirs    = if installing
 305                              then [ "$libdir/imports/text" ]
 306                              else [ "$libdir/hslibs/text"
 307                                   , "$libdir/hslibs/text/html"
 308                                   , "$libdir/hslibs/text/HaXml/lib"
 309                                   , "$libdir/hslibs/text/parsec" ],
 310          source_dirs    = [],
 311          library_dirs   = if installing
 312                              then [ "$libdir" ]
 313                              else [ "$libdir/hslibs/text"
 314                                   , "$libdir/hslibs/text/cbits" ],
 315          hs_libraries      = [ "HStext" ],
 316          extra_libraries   = [ "HStext_cbits" ],
 317          include_dirs   = if installing
 318                              then []
 319                              else [ "$libdir/hslibs/text/cbits" ],
 320          c_includes     = [ "HsText.h" ],
 321          package_deps   = [ "lang" ],
 322          extra_ghc_opts = [],
 323          extra_cc_opts  = [],
 324          extra_ld_opts  = []
 325         },
 326
 327          Package {
 328          name           = "util",
 329          import_dirs    = if installing
 330                              then [ "$libdir/imports/util" ]
 331                              else [ "$libdir/hslibs/util"
 332                                   , "$libdir/hslibs/util/check" ],
 333          source_dirs    = [],
 334          library_dirs   = if installing
 335                              then [ "$libdir" ]
 336                              else [ "$libdir/hslibs/util"
 337                                   , "$libdir/hslibs/util/cbits" ],
 338          hs_libraries      = [ "HSutil" ],
 339          extra_libraries   = [ "HSutil_cbits" ]
 340 #ifndef mingw32_TARGET_OS
 341                              ++ words cLibsReadline
 342 #endif
 343                              ,
 344          include_dirs   = if installing
 345                              then []
 346                              else [ "$libdir/hslibs/util/cbits" ],
 347          c_includes     = [ "HsUtil.h" ],
 348          package_deps   = [ "lang", "concurrent"
 349 #ifndef mingw32_TARGET_OS
 350                             , "posix"
 351 #endif
 352                           ],
 353          extra_ghc_opts = [],
 354          extra_cc_opts  = [],
 355          extra_ld_opts  = []
 356         },
 357
 358         -- no cbits at the moment, we'll need to add one if this library
 359         -- ever calls out to any C libs.
 360          Package {
 361          name           = "hssource",
 362          import_dirs    = if installing
 363                              then [ "$libdir/imports/hssource" ]
 364                              else [ "$libdir/hslibs/hssource" ],
 365          source_dirs    = [],
 366          library_dirs   = if installing
 367                              then [ "$libdir" ]
 368                              else [ "$libdir/hslibs/hssource" ],
 369          hs_libraries      = [ "HShssource" ],
 370          extra_libraries   = [],
 371          include_dirs   = [],
 372          c_includes     = [],
 373          package_deps   = [ "text" ],
 374          extra_ghc_opts = [],
 375          extra_cc_opts  = [],
 376          extra_ld_opts  = []
 377         },
 378
 379          Package {
 380          name         = "greencard",
 381          import_dirs    = if installing
 382                              then [ "$libdir/imports/greencard" ]
 383                              else [ "$libdir/green-card/lib/ghc" ],
 384          source_dirs    = [],
 385          library_dirs   = if installing
 386                              then [ "$libdir" ]
 387                              else [ "$libdir/green-card/lib/ghc" ],
 388          hs_libraries      = [ "HSgreencard" ],
 389          extra_libraries   = [],
 390          include_dirs   = [],
 391          c_includes     = [],
 392          package_deps   = [ "lang" ],
 393          extra_ghc_opts = [],
 394          extra_cc_opts  = [],
 395          extra_ld_opts  = [],
 396         }
 397
 398 #if defined(mingw32_TARGET_OS) || defined(cygwin32_TARGET_OS)
 399          ,Package {
 400          name         = "win32",
 401          import_dirs    = if installing
 402                              then [ "$libdir/imports/win32" ]
 403                              else [ "$libdir/hslibs/win32" ],
 404          source_dirs    = [],
 405          library_dirs   = if installing
 406                              then [ "$libdir" ]
 407                              else [ "$libdir/hslibs/win32" ],
 408          hs_libraries      = [ "HSwin321", "HSwin322" ],
 409          extra_libraries   = [ "user32",  "gdi32", "winmm",
 410                                "kernel32", "advapi32" ],
 411          include_dirs   = [],
 412          c_includes     = [],           -- ???
 413          package_deps   = [ "lang" ], -- greencard now built in
 414          extra_ghc_opts = [],
 415          extra_cc_opts  = [],
 416          extra_ld_opts  = []
 417         }
 418 #endif
 419
 420          ,Package {
 421          name           = "xlib",
 422          import_dirs    = if installing
 423                              then [ "$libdir/imports/xlib" ]
 424                              else [ "$libdir/hslibs/xlib" ],
 425          source_dirs    = [],
 426          library_dirs   = if installing
 427                              then [ "$libdir" ]
 428                              else [ "$libdir/hslibs/xlib"
 429                                   , "$libdir/hslibs/xlib/cbits" ],
 430          hs_libraries      = [ "HSxlib" ],
 431          extra_libraries   = [ "HSxlib_cbits", "X11" ],
 432          include_dirs   = if installing
 433                              then []
 434                              else [ "$libdir/hslibs/xlib/cbits" ],
 435          c_includes     = [ "HsXlib.h" ],
 436          package_deps   = [ "greencard" ],
 437          extra_ghc_opts = [],
 438          extra_cc_opts  = [ cX_CFLAGS ],
 439          extra_ld_opts  = [ cX_LIBS ]
 440         }
 441
 442          ,Package {
 443          name           = "HGL",
 444          import_dirs    = if installing
 445                              then [ "$libdir/imports/HGL" ]
 446                              else [ "$libdir/hslibs/graphics/lib/x11" ],
 447          source_dirs    = [],
 448          library_dirs   = if installing
 449                              then [ "$libdir" ]
 450                              else [ "$libdir/hslibs/graphics/lib/x11"],
 451          hs_libraries   = [ "HSHGL" ],
 452          extra_libraries= [],
 453          include_dirs   = [],
 454          c_includes     = [],
 455          package_deps   = [ "xlib", "concurrent" ],
 456          extra_ghc_opts = [],
 457          extra_cc_opts  = [],
 458          extra_ld_opts  = []
 459         }
 460
 461    ]
 462   where
 463         ghc_src_dir :: String -> String
 464         ghc_src_dir path = "$libdir/" ++ cCURRENT_DIR ++ '/':path