ghc/compiler/prelude/PrelMods.lhs

   1 %
   2 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
   3 %
   4 \section[PrelMods]{Definitions of prelude modules}
   5
   6 The strings identify built-in prelude modules.  They are
   7 defined here so as to avod
   8
   9 [oh dear, looks like the recursive module monster caught up with
  10  and gobbled whoever was writing the above :-) -- SOF ]
  11
  12 \begin{code}
  13 module PrelMods
  14         (
  15         mkTupNameStr, mkUbxTupNameStr,
  16
  17         pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR,
  18         pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ,
  19         pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN,
  20         pREL_STABLE,
  21
  22         iNT, wORD
  23         ) where
  24
  25 #include "HsVersions.h"
  26
  27 import OccName  ( Module, mkModule )
  28 import Util     ( nOfThem )
  29 import Panic    ( panic )
  30 \end{code}
  31
  32 \begin{code}
  33 pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR      :: Module
  34 pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ      :: Module
  35 pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR               :: Module
  36 pREL_FOREIGN, pREL_STABLE                                           :: Module
  37
  38
  39 pRELUDE      = mkModule "Prelude"
  40 pREL_GHC     = mkModule "PrelGHC"          -- Primitive types and values
  41 pREL_BASE    = mkModule "PrelBase"
  42 pREL_READ    = mkModule "PrelRead"
  43 pREL_NUM     = mkModule "PrelNum"
  44 pREL_LIST    = mkModule "PrelList"
  45 pREL_TUP     = mkModule "PrelTup"
  46 pREL_PACK    = mkModule "PrelPack"
  47 pREL_CONC    = mkModule "PrelConc"
  48 pREL_IO_BASE = mkModule "PrelIOBase"
  49 pREL_ST      = mkModule "PrelST"
  50 pREL_ARR     = mkModule "PrelArr"
  51 pREL_FOREIGN = mkModule "PrelForeign"
  52 pREL_STABLE  = mkModule "PrelStable"
  53 pREL_ADDR    = mkModule "PrelAddr"
  54 pREL_ERR     = mkModule "PrelErr"
  55
  56 mONAD        = mkModule "Monad"
  57 rATIO        = mkModule "Ratio"
  58 iX           = mkModule "Ix"
  59
  60 pREL_MAIN    = mkModule "PrelMain"
  61 mAIN         = mkModule "Main"
  62
  63 iNT, wORD   :: Module
  64
  65 iNT          = mkModule "Int"
  66 wORD         = mkModule "Word"
  67
  68 \end{code}
  69
  70 %************************************************************************
  71 %*                                                                      *
  72 \subsection{Constructing the names of tuples
  73 %*                                                                      *
  74 %************************************************************************
  75
  76 \begin{code}
  77 mkTupNameStr, mkUbxTupNameStr :: Int -> (Module, FAST_STRING)
  78
  79 mkTupNameStr 0 = (pREL_BASE, SLIT("()"))
  80 mkTupNameStr 1 = panic "Name.mkTupNameStr: 1 ???"
  81 mkTupNameStr 2 = (pREL_TUP, _PK_ "(,)")   -- not strictly necessary
  82 mkTupNameStr 3 = (pREL_TUP, _PK_ "(,,)")  -- ditto
  83 mkTupNameStr 4 = (pREL_TUP, _PK_ "(,,,)") -- ditto
  84 mkTupNameStr n = (pREL_TUP, _PK_ ("(" ++ nOfThem (n-1) ',' ++ ")"))
  85
  86 mkUbxTupNameStr 0 = panic "Name.mkUbxTupNameStr: 0 ???"
  87 mkUbxTupNameStr 1 = (pREL_GHC, _PK_ "(# #)") -- 1 and 0 both make sense!!!
  88 mkUbxTupNameStr 2 = (pREL_GHC, _PK_ "(#,#)")
  89 mkUbxTupNameStr 3 = (pREL_GHC, _PK_ "(#,,#)")
  90 mkUbxTupNameStr 4 = (pREL_GHC, _PK_ "(#,,,#)")
  91 mkUbxTupNameStr n = (pREL_GHC, _PK_ ("(#" ++ nOfThem (n-1) ',' ++ "#)"))
  92 \end{code}
  93
  94