ghc/compiler/main/DriverPhases.hs

   1 -----------------------------------------------------------------------------
   2 -- $Id: DriverPhases.hs,v 1.6 2001/02/27 15:25:18 simonmar Exp $
   3 --
   4 -- GHC Driver
   5 --
   6 -- (c) Simon Marlow 2000
   7 --
   8 -----------------------------------------------------------------------------
   9
  10 module DriverPhases (
  11    Phase(..),
  12    startPhase,          -- :: String -> Phase
  13    phaseInputExt,       -- :: Phase -> String
  14
  15    haskellish_file, haskellish_suffix,
  16    objish_file, objish_suffix,
  17    cish_file, cish_suffix
  18  ) where
  19
  20 import DriverUtil
  21
  22 -----------------------------------------------------------------------------
  23 -- Phases
  24
  25 {-
  26    Phase of the           | Suffix saying | Flag saying   | (suffix of)
  27    compilation system     | ``start here''| ``stop after''| output file
  28
  29    literate pre-processor | .lhs          | -             | -
  30    C pre-processor (opt.) | -             | -E            | -
  31    Haskell compiler       | .hs           | -C, -S        | .hc, .s
  32    C compiler (opt.)      | .hc or .c     | -S            | .s
  33    assembler              | .s  or .S     | -c            | .o
  34    linker                 | other         | -             | a.out
  35 -}
  36
  37 data Phase
  38         = MkDependHS    -- haskell dependency generation
  39         | Unlit
  40         | Cpp
  41         | Hsc
  42         | Cc
  43         | HCc           -- Haskellised C (as opposed to vanilla C) compilation
  44 #ifdef ILX
  45         | Ilx           -- .NET extended IL
  46 #endif
  47         | Mangle        -- assembly mangling, now done by a separate script.
  48         | SplitMangle   -- after mangler if splitting
  49         | SplitAs
  50         | As
  51         | Ln
  52   deriving (Eq, Show)
  53
  54 -- the first compilation phase for a given file is determined
  55 -- by its suffix.
  56 startPhase "lhs"   = Unlit
  57 startPhase "hs"    = Cpp
  58 startPhase "hspp"  = Hsc
  59 startPhase "hc"    = HCc
  60 startPhase "c"     = Cc
  61 startPhase "raw_s" = Mangle
  62 startPhase "s"     = As
  63 startPhase "S"     = As
  64 startPhase "o"     = Ln
  65 startPhase _       = Ln    -- all unknown file types
  66
  67 -- the output suffix for a given phase is uniquely determined by
  68 -- the input requirements of the next phase.
  69 phaseInputExt Unlit       = "lhs"
  70 phaseInputExt Cpp         = "lpp"       -- intermediate only
  71 phaseInputExt Hsc         = "hspp"
  72 phaseInputExt HCc         = "hc"
  73 phaseInputExt Cc          = "c"
  74 #ifdef ILX
  75 phaseInputExt Ilx         = "ilx"
  76 #endif
  77 phaseInputExt Mangle      = "raw_s"
  78 phaseInputExt SplitMangle = "split_s"   -- not really generated
  79 phaseInputExt As          = "s"
  80 phaseInputExt SplitAs     = "split_s"   -- not really generated
  81 phaseInputExt Ln          = "o"
  82 phaseInputExt MkDependHS  = "dep"
  83
  84 haskellish_suffix = (`elem` [ "hs", "hspp", "lhs", "hc" ])
  85 cish_suffix       = (`elem` [ "c", "s", "S" ])  -- maybe .cc et al.??
  86
  87 #if mingw32_TARGET_OS || cygwin32_TARGET_OS
  88 objish_suffix     = (`elem` [ "o", "O", "obj", "OBJ" ])
  89 #else
  90 objish_suffix     = (`elem` [ "o" ])
  91 #endif
  92
  93 haskellish_file f = haskellish_suffix suf where (_,suf) = splitFilename f
  94 cish_file       f = cish_suffix       suf where (_,suf) = splitFilename f
  95 objish_file     f = objish_suffix     suf where (_,suf) = splitFilename f