/* --------------------------------------------------------------------------
 * Interpreter command structure
 *
 * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
 * Yale Haskell Group, and the OGI School of Science & Engineering at OHSU,
 * 1994-2002, All rights reserved.  It is distributed as free software under
 * the license in the file "License", which is included in the distribution.
 *
 * $RCSfile: command.h,v $
 * $Revision: 1.11 $
 * $Date: 2002/04/11 23:20:18 $
 * ------------------------------------------------------------------------*/

typedef Int Command;

struct cmd {
    String cmdString;
    Command cmdCode;
};

extern Command readCommand Args((struct cmd *, Char, Char));

#define EDIT    0
#define FIND    1
#define LOAD    2
#define ALSO    3
#define PROJECT 4
#define RELOAD  5
#define EVAL    6
#define TYPEOF  7
#define HELP    8
#define NAMES   9
#define BADCMD  10
#define SET     11
#define QUIT    12
#define SYSTEM  13
#define CHGDIR  14
#define INFO    15
#define COLLECT 16
#define SETMODULE 17
#define BROWSE  18
#define XPLAIN  19
#define PNTVER  20
#define NOCMD   21
#ifdef __SYMBIAN32__
#define PRNDIR 22
#endif

#if OBSERVATIONS
/*-------------------------------------------------------------------------*
 * Commands available after breakpoint                                     *
 *-------------------------------------------------------------------------*/
#define BRK_DISPLAY     0
#define BRK_CONTINUE    1
#define BRK_SET         2
#define BRK_RESET       3
#endif

/*-------------------------------------------------------------------------*/
