ghc/interpreter/connect.h

   1 /* -*- mode: hugs-c; -*- */
   2 /* --------------------------------------------------------------------------
   3  * Connections between components of the Hugs system
   4  *
   5  * Copyright (c) The University of Nottingham and Yale University, 1994-1997.
   6  * All rights reserved. See NOTICE for details and conditions of use etc...
   7  * Hugs version 1.4, December 1997
   8  *
   9  * $RCSfile: connect.h,v $
  10  * $Revision: 1.2 $
  11  * $Date: 1998/12/02 13:22:03 $
  12  * ------------------------------------------------------------------------*/
  13
  14 /* --------------------------------------------------------------------------
  15  * Standard data:
  16  * ------------------------------------------------------------------------*/
  17
  18 /* --------------------------------------------------------------------------
  19  * Function prototypes etc...
  20  * ------------------------------------------------------------------------*/
  21
  22 #define RESET   1               /* reset subsystem                         */
  23 #define MARK    2               /* mark parts of graph in use by subsystem */
  24 #define INSTALL 3               /* install subsystem (executed once only)  */
  25 #define EXIT    4               /* Take action immediately before exit()   */
  26 #define BREAK   5               /* Take action after program break         */
  27
  28 extern  Void   everybody        Args((Int));
  29 extern  Void   machdep          Args((Int));
  30 extern  Void   storage          Args((Int));
  31 extern  Void   linkControl      Args((Int));
  32 extern  Void   translateControl Args((Int));
  33 extern  Void   staticAnalysis   Args((Int));
  34 extern  Void   interface        Args((Int));
  35 extern  Void   deriveControl    Args((Int));
  36 extern  Void   input            Args((Int));
  37 extern  Void   typeChecker      Args((Int));
  38 extern  Void   desugarControl   Args((Int));
  39 extern  Void   codegen          Args((Int));
  40 extern  Void   compiler         Args((Int));
  41 extern  Void   substitution     Args((Int));
  42 extern  Void   stgTranslate     Args((Int));
  43 extern  Void   codegen          Args((Int));
  44
  45 /*-------------------------------------------------------------------------*/