ghc/compiler/main/Interpreter.hs

   1 -----------------------------------------------------------------------------
   2 -- $Id: Interpreter.hs,v 1.12 2002/09/13 15:02:35 simonpj Exp $
   3 --
   4 -- Interpreter subsystem wrapper
   5 --
   6 -- (c) The University of Glasgow 2000
   7 --
   8 -----------------------------------------------------------------------------
   9
  10 module Interpreter (
  11 #ifdef GHCI
  12         module ByteCodeGen,
  13         module Linker
  14 #else
  15
  16 #endif
  17   ) where
  18
  19 #ifdef GHCI
  20
  21 -- ------------------------------------------------------------
  22 -- YES!  We have an interpreter
  23 -- ------------------------------------------------------------
  24
  25 import ByteCodeGen
  26 import Linker
  27
  28 #else
  29
  30 import Outputable
  31
  32 -- ------------------------------------------------------------
  33 -- NO!  No interpreter; generate stubs for all the bits
  34 -- ------------------------------------------------------------
  35
  36 extendLinkEnv xs = return ()
  37
  38 type ItblEnv = ()
  39 emptyItblEnv = ()
  40
  41 type HValue          = ()
  42 data UnlinkedBCO     = UnlinkedBCO
  43 data UnlinkedBCOExpr = UnlinkedBCOExpr
  44
  45 instance Outputable UnlinkedBCO where
  46   ppr x = text "Can't output UnlinkedBCO"
  47
  48 byteCodeGen    = error "byteCodeGen"
  49 loadObjs       = error "loadObjs"
  50 resolveObjs    = error "resolveObjs"
  51 interactiveUI  = error "interactiveUI"
  52 #endif