1 -----------------------------------------------------------------------------
2 -- $Id: DriverPhases.hs,v 1.7 2001/03/13 12:50:31 simonmar Exp $
6 -- (c) Simon Marlow 2000
8 -----------------------------------------------------------------------------
12 startPhase, -- :: String -> Phase
13 phaseInputExt, -- :: Phase -> String
15 haskellish_file, haskellish_suffix,
16 objish_file, objish_suffix,
17 cish_file, cish_suffix
22 -----------------------------------------------------------------------------
26 Phase of the | Suffix saying | Flag saying | (suffix of)
27 compilation system | ``start here''| ``stop after''| output file
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
38 = MkDependHS -- haskell dependency generation
41 | Hsc -- ToDo: HscTargetLang
43 | HCc -- Haskellised C (as opposed to vanilla C) compilation
44 | Mangle -- assembly mangling, now done by a separate script.
45 | SplitMangle -- after mangler if splitting
51 -- the first compilation phase for a given file is determined
53 startPhase "lhs" = Unlit
55 startPhase "hspp" = Hsc
58 startPhase "raw_s" = Mangle
62 startPhase _ = Ln -- all unknown file types
64 -- the output suffix for a given phase is uniquely determined by
65 -- the input requirements of the next phase.
66 phaseInputExt Unlit = "lhs"
67 phaseInputExt Cpp = "lpp" -- intermediate only
68 phaseInputExt Hsc = "hspp"
69 phaseInputExt HCc = "hc"
70 phaseInputExt Cc = "c"
71 phaseInputExt Mangle = "raw_s"
72 phaseInputExt SplitMangle = "split_s" -- not really generated
73 phaseInputExt As = "s"
74 phaseInputExt SplitAs = "split_s" -- not really generated
75 phaseInputExt Ln = "o"
76 phaseInputExt MkDependHS = "dep"
78 haskellish_suffix = (`elem` [ "hs", "hspp", "lhs", "hc" ])
79 cish_suffix = (`elem` [ "c", "s", "S" ]) -- maybe .cc et al.??
81 #if mingw32_TARGET_OS || cygwin32_TARGET_OS
82 objish_suffix = (`elem` [ "o", "O", "obj", "OBJ" ])
84 objish_suffix = (`elem` [ "o" ])
87 haskellish_file f = haskellish_suffix suf where (_,suf) = splitFilename f
88 cish_file f = cish_suffix suf where (_,suf) = splitFilename f
89 objish_file f = objish_suffix suf where (_,suf) = splitFilename f