ghc/driver/PackageSrc.hs

   1 module Main (main) where
   2
   3 import IO
   4 import System
   5 import Config
   6 import Package
   7
   8 main :: IO ()
   9 main = do
  10   args <- getArgs
  11   case args of
  12         [ "install"  ] -> do { putStr (dumpPackages (package_details True)) }
  13         [ "in-place" ] -> do { putStr (dumpPackages (package_details False)) }
  14         _ -> do hPutStr stderr "usage: pkgconf (install | in-place)\n"
  15                 exitWith (ExitFailure 1)
  16
  17 package_details :: Bool -> [(String,Package)]
  18 package_details installing =
  19  [
  20       ( "gmp",  -- GMP is at the bottom of the heap
  21         Package {
  22         import_dirs    = [],
  23         library_dirs   = if cHaveLibGmp == "YES"
  24                             then []
  25                             else if installing
  26                                     then [ clibdir ]
  27                                     else [ ghc_src_dir cGHC_RUNTIME_DIR ++ "/gmp" ],
  28         libraries      = [ "gmp" ],
  29         include_dirs   = [],
  30         c_includes     = [],
  31         package_deps   = [],
  32         extra_ghc_opts = [],
  33         extra_cc_opts  = [],
  34         extra_ld_opts  = []
  35         }
  36        ),
  37
  38       ( "rts",  -- The RTS is just another package!
  39         Package {
  40         import_dirs    = [],
  41         library_dirs   = if installing
  42                             then [ clibdir ]
  43                             else [ ghc_src_dir cGHC_RUNTIME_DIR ],
  44         libraries      = [ "HSrts" ],
  45         include_dirs   = if installing
  46                             then [ clibdir ++ "/includes" ]
  47                             else [ ghc_src_dir cGHC_INCLUDE_DIR ],
  48         c_includes     = [ "Stg.h" ],           -- ha!
  49         package_deps   = [ "gmp" ],
  50         extra_ghc_opts = [],
  51         extra_cc_opts  = [],
  52                 -- the RTS forward-references to a bunch of stuff in the prelude,
  53                 -- so we force it to be included with special options to ld.
  54         extra_ld_opts  = [
  55            "-u PrelMain_mainIO_closure"
  56          , "-u PrelBase_Izh_static_info"
  57          , "-u PrelBase_Czh_static_info"
  58          , "-u PrelFloat_Fzh_static_info"
  59          , "-u PrelFloat_Dzh_static_info"
  60          , "-u PrelAddr_Azh_static_info"
  61          , "-u PrelAddr_Wzh_static_info"
  62          , "-u PrelAddr_I64zh_static_info"
  63          , "-u PrelAddr_W64zh_static_info"
  64          , "-u PrelStable_StablePtr_static_info"
  65          , "-u PrelBase_Izh_con_info"
  66          , "-u PrelBase_Czh_con_info"
  67          , "-u PrelFloat_Fzh_con_info"
  68          , "-u PrelFloat_Dzh_con_info"
  69          , "-u PrelAddr_Azh_con_info"
  70          , "-u PrelAddr_Wzh_con_info"
  71          , "-u PrelAddr_I64zh_con_info"
  72          , "-u PrelAddr_W64zh_con_info"
  73          , "-u PrelStable_StablePtr_con_info"
  74          , "-u PrelBase_False_closure"
  75          , "-u PrelBase_True_closure"
  76          , "-u PrelPack_unpackCString_closure"
  77          , "-u PrelIOBase_stackOverflow_closure"
  78          , "-u PrelIOBase_heapOverflow_closure"
  79          , "-u PrelIOBase_NonTermination_closure"
  80          , "-u PrelIOBase_PutFullMVar_closure"
  81          , "-u PrelIOBase_BlockedOnDeadMVar_closure"
  82          , "-u PrelWeak_runFinalizzerBatch_closure"
  83          , "-u __init_Prelude"
  84          , "-u __init_PrelMain"
  85          ]
  86         }
  87       ),
  88
  89       ( "std",  -- The Prelude & Standard Libraries
  90         Package {
  91         import_dirs    = if installing
  92                             then [ clibdir ++ "/imports/std" ]
  93                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std" ],
  94         library_dirs   = if installing
  95                             then [ clibdir ]
  96                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std"
  97                                  , ghc_src_dir cGHC_LIB_DIR ++ "/std/cbits" ],
  98         libraries      = [ "HSstd", "HSstd_cbits" ],
  99         include_dirs   = if installing
 100                             then []
 101                             else [ ghc_src_dir cGHC_LIB_DIR ++ "/std/cbits" ],
 102         c_includes     = [ "HsStd.h" ],
 103         package_deps   = [ "rts" ],
 104         extra_ghc_opts = [],
 105         extra_cc_opts  = [],
 106         extra_ld_opts  = [ "-lm" ]
 107         }
 108        ),
 109
 110        ( "lang",
 111          Package {
 112          import_dirs    = if installing
 113                              then [ clibdir ++ "/imports/lang" ]
 114                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/lang"
 115                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/lang/monads" ],
 116          library_dirs   = if installing
 117                              then [ clibdir ]
 118                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/lang"
 119                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/lang/cbits" ],
 120          libraries      = [ "HSlang", "HSlang_cbits" ],
 121          include_dirs   = if installing
 122                              then []
 123                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/lang/cbits" ],
 124          c_includes     = [ "HsLang.h" ],
 125          package_deps   = [],
 126          extra_ghc_opts = [],
 127          extra_cc_opts  = [],
 128          extra_ld_opts  = []
 129         }
 130        ),
 131
 132        ( "concurrent",
 133          Package {
 134          import_dirs    = if installing
 135                              then [ clibdir ++ "/imports/concurrent" ]
 136                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/concurrent" ],
 137          library_dirs   = if installing
 138                              then [ clibdir ]
 139                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/concurrent" ],
 140          libraries      = [ "HSconcurrent" ],
 141          include_dirs   = if installing
 142                              then []
 143                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/concurrent/cbits" ],
 144          c_includes     = [ "HsConcurrent.h" ],
 145          package_deps   = [ "lang" ],
 146          extra_ghc_opts = [],
 147          extra_cc_opts  = [],
 148          extra_ld_opts  = []
 149         }
 150        ),
 151
 152        ( "data",
 153          Package {
 154          import_dirs    = if installing
 155                              then [ clibdir ++ "/imports/data" ]
 156                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/data"
 157                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/data/edison"
 158                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/data/edison/Assoc"
 159                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/data/edison/Coll"
 160                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/data/edison/Seq" ],
 161          library_dirs   = if installing
 162                              then [clibdir ]
 163                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/data" ],
 164          libraries      = [ "HSdata" ],
 165          include_dirs   = if installing
 166                              then []
 167                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/data/cbits" ],
 168          c_includes     = [ "HsData.h" ],
 169          package_deps   = [ "lang" ],
 170          extra_ghc_opts = [],
 171          extra_cc_opts  = [],
 172          extra_ld_opts  = []
 173         }
 174        ),
 175
 176        ( "net",
 177          Package {
 178          import_dirs    = if installing
 179                              then [ clibdir ++ "/imports/net" ]
 180                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/net" ],
 181          library_dirs   = if installing
 182                              then [ clibdir ]
 183                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/net"
 184                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/net/cbits" ],
 185          libraries      = [ "HSnet", "HSnet_cbits" ],
 186          include_dirs   = if installing
 187                              then []
 188                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/net/cbits" ],
 189          c_includes     = [ "HsNet.h" ],
 190          package_deps   = [ "lang", "text" ],
 191          extra_ghc_opts = [],
 192          extra_cc_opts  = [],
 193          extra_ld_opts  = if postfixMatch "solaris2" cTARGETPLATFORM
 194                              then [ "-lnsl",  "-lsocket" ]
 195                              else []
 196         }
 197        ),
 198
 199        ( "posix",
 200          Package {
 201          import_dirs    = if installing
 202                              then [ clibdir ++ "/imports/posix" ]
 203                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/posix" ],
 204          library_dirs   = if installing
 205                              then [ clibdir ]
 206                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/posix"
 207                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/posix/cbits" ],
 208          libraries      = [ "HSposix", "HSposix_cbits" ],
 209          include_dirs   = if installing
 210                              then []
 211                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/posix/cbits" ],
 212          c_includes     = [ "HsPosix.h" ],
 213          package_deps   = [ "lang" ],
 214          extra_ghc_opts = [],
 215          extra_cc_opts  = [],
 216          extra_ld_opts  = []
 217         }
 218        ),
 219
 220        ( "text",
 221          Package {
 222          import_dirs    = if installing
 223                              then [ clibdir ++ "/imports/text" ]
 224                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/text"
 225                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/text/html"
 226                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/text/haxml/lib"
 227                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/text/parsec" ],
 228          library_dirs   = if installing
 229                              then [ clibdir ]
 230                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/text"
 231                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/text/cbits" ],
 232          libraries      = [ "HStext", "HStext_cbits" ],
 233          include_dirs   = if installing
 234                              then []
 235                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/text/cbits" ],
 236          c_includes     = [ "HsText.h" ],
 237          package_deps   = [ "lang", "data" ],
 238          extra_ghc_opts = [],
 239          extra_cc_opts  = [],
 240          extra_ld_opts  = []
 241         }
 242        ),
 243
 244        ( "util",
 245          Package {
 246          import_dirs    = if installing
 247                              then [ clibdir ++ "/imports/util" ]
 248                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/util"
 249                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/util/check" ],
 250          library_dirs   = if installing
 251                              then [ clibdir ]
 252                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/util"
 253                                   , cFPTOOLS_TOP_ABS ++ "/hslibs/util/cbits" ],
 254          libraries      = [ "HSutil", "HSutil_cbits" ],
 255          include_dirs   = if installing
 256                              then []
 257                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/util/cbits" ],
 258          c_includes     = [ "HsUtil.h" ],
 259          package_deps   = [ "lang", "concurrent", "posix" ],
 260          extra_ghc_opts = [],
 261          extra_cc_opts  = [],
 262          extra_ld_opts  = []
 263         }
 264        ),
 265
 266         -- no cbits at the moment, we'll need to add one if this library
 267         -- ever calls out to any C libs.
 268        ( "hssource",
 269          Package {
 270          import_dirs    = if installing
 271                              then [ clibdir ++ "/imports/hssource" ]
 272                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/hssource" ],
 273          library_dirs   = if installing
 274                              then [ clibdir ]
 275                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/hssource" ],
 276          libraries      = [ "HShssource" ],
 277          include_dirs   = [],
 278          c_includes     = [],
 279          package_deps   = [ "text" ],
 280          extra_ghc_opts = [],
 281          extra_cc_opts  = [],
 282          extra_ld_opts  = []
 283         }
 284        ),
 285
 286        ( "win32",
 287          Package {
 288          import_dirs    = if installing
 289                              then [ clibdir ++ "/imports/win32" ]
 290                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/win32/src" ],
 291          library_dirs   = if installing
 292                              then [ clibdir ]
 293                              else [ cFPTOOLS_TOP_ABS ++ "/hslibs/win32/src" ],
 294          libraries      = [ "HSwin32" ],
 295          include_dirs   = [],
 296          c_includes     = [],           -- ???
 297          package_deps   = [ "lang" ],
 298          extra_ghc_opts = [],
 299          extra_cc_opts  = [],
 300          extra_ld_opts  = [ "-luser32",  "-lgdi32" ]
 301         }
 302        ),
 303
 304        ( "com",
 305          Package {
 306          import_dirs    = if installing
 307                              then [ clibdir ++ "/imports/com" ]
 308                              else [ cFPTOOLS_TOP_ABS ++ "/hdirect/lib" ],
 309          library_dirs   = if installing
 310                              then [ clibdir ]
 311                              else [ cFPTOOLS_TOP_ABS ++ "/hdirect/lib" ],
 312          libraries      = [ "HScom" ],
 313          include_dirs   = [],
 314          c_includes     = [],           -- ???
 315          package_deps   = [ "lang" ],
 316          extra_ghc_opts = [],
 317          extra_cc_opts  = [],
 318          extra_ld_opts  = [ "-luser32",  "-lole32",  "-loleaut32", "-ladvapi32" ]
 319         }
 320        )
 321    ]
 322
 323 ghc_src_dir :: String -> String
 324 ghc_src_dir path = cFPTOOLS_TOP_ABS ++ '/':cCURRENT_DIR ++ '/':path
 325
 326 prefixMatch :: Eq a => [a] -> [a] -> Bool
 327 prefixMatch [] _str = True
 328 prefixMatch _pat [] = False
 329 prefixMatch (p:ps) (s:ss) | p == s    = prefixMatch ps ss
 330                           | otherwise = False
 331
 332 postfixMatch :: String -> String -> Bool
 333 postfixMatch pat str = prefixMatch (reverse pat) (reverse str)