ghc/interpreter/command.h

   1 /* --------------------------------------------------------------------------
   2  * Interpreter command structure
   3  *
   4  * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
   5  * Yale Haskell Group, and the Oregon Graduate Institute of Science and
   6  * Technology, 1994-1999, All rights reserved.  It is distributed as
   7  * free software under the license in the file "License", which is
   8  * included in the distribution.
   9  *
  10  * $RCSfile: command.h,v $
  11  * $Revision: 1.6 $
  12  * $Date: 1999/10/15 22:35:05 $
  13  * ------------------------------------------------------------------------*/
  14
  15 typedef Int Command;
  16
  17 struct cmd {
  18     String cmdString;
  19     Command cmdCode;
  20 };
  21
  22 extern Command readCommand Args((struct cmd *, Char, Char));
  23
  24 #define EDIT    0
  25 #define FIND    1
  26 #define LOAD    2
  27 #define ALSO    3
  28 #define PROJECT 4
  29 #define RELOAD  5
  30 #define EVAL    6
  31 #define TYPEOF  7
  32 #define HELP    8
  33 #define NAMES   9
  34 #define BADCMD  10
  35 #define SET     11
  36 #define QUIT    12
  37 #define SYSTEM  13
  38 #define CHGDIR  14
  39 #define INFO    15
  40 #define COLLECT 16
  41 #define SETMODULE 17
  42 #define DUMP    18
  43 #define STATS   19
  44 #define BROWSE  20
  45 #define XPLAIN  21
  46 #define PNTVER  22
  47 #define NOCMD   23
  48
  49 /*-------------------------------------------------------------------------*/