ghc/interpreter/connect.c

   1 /* -*- mode: hugs-c; -*- */
   2 /* --------------------------------------------------------------------------
   3  * Send message to each component of 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.c,v $
  10  * $Revision: 1.2 $
  11  * $Date: 1998/12/02 13:22:02 $
  12  * ------------------------------------------------------------------------*/
  13
  14 #include "prelude.h"
  15 #include "storage.h"
  16 #include "connect.h"
  17
  18 Void everybody(what)            /* send command `what' to each component of*/
  19 Int what; {                     /* system to respond as appropriate ...    */
  20     machdep(what);              /* The order of calling each component is  */
  21     storage(what);              /* important for the INSTALL command       */
  22     substitution(what);
  23     input(what);
  24     linkControl(what);
  25     staticAnalysis(what);
  26     deriveControl(what);
  27     typeChecker(what);
  28     desugarControl(what);
  29     translateControl(what);
  30     compiler(what);
  31     codegen(what);
  32 }
  33
  34 /*-------------------------------------------------------------------------*/