/* --------------------------------------------------------------------------
 * 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-2003, 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.1 $
 * $Date: 2008/11/30 09:11:35 $
 * ------------------------------------------------------------------------*/
#ifndef __COMMAND_H__
#define __COMMAND_H__

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 RELOAD  4
#define EVAL    5
#define TYPEOF  6
#define HELP    7
#define NAMES   8
#define BADCMD  9
#define SET     10
#define QUIT    11
#define SYSTEM  12
#define CHGDIR  13
#define INFO    14
#define COLLECT 15
#define SETMODULE 16
#define BROWSE  17
#define XPLAIN  18
#define PNTVER  19
#define NOCMD   20
#define MAIN    22

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

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

#endif /* __COMMAND_H__ */
