ghc/interpreter/command.h

   1 /* --------------------------------------------------------------------------
   2  * Interpreter command structure
   3  *
   4  * Hugs 98 is Copyright (c) Mark P Jones, Alastair Reid and the Yale
   5  * Haskell Group 1994-99, and is distributed as Open Source software
   6  * under the Artistic License; see the file "Artistic" that is included
   7  * in the distribution for details.
   8  *
   9  * $RCSfile: command.h,v $
  10  * $Revision: 1.3 $
  11  * $Date: 1999/02/03 17:08:26 $
  12  * ------------------------------------------------------------------------*/
  13
  14 typedef Int Command;
  15
  16 struct cmd {
  17     String cmdString;
  18     Command cmdCode;
  19 };
  20
  21 extern Command readCommand Args((struct cmd *, Char, Char));
  22
  23 #define EDIT    0
  24 #define FIND    1
  25 #define LOAD    2
  26 #define ALSO    3
  27 #define PROJECT 4
  28 #define RELOAD  5
  29 #define EVAL    6
  30 #define TYPEOF  7
  31 #define HELP    8
  32 #define NAMES   9
  33 #define BADCMD  10
  34 #define SET     11
  35 #define QUIT    12
  36 #define SYSTEM  13
  37 #define CHGDIR  14
  38 #define INFO    15
  39 #define COLLECT 16
  40 #define SETMODULE 17
  41 #define NOCMD   18
  42
  43 /*-------------------------------------------------------------------------*/