#ifndef	h_basic
#define	h_basic
/******************************************************************************
*
*	Declarations for basic compiler
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intented
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	03/15/99 24695 JSM Added dolcomments for $* comments text.
*	10/14/98 23801 SAP Change copyrights. 
*	09/13/96 18374 FTW Increase the MAX number of nested includes to 100.
*	05/12/94 13836 RM  Add TOK_MAX for yydisp and tokgen
*	03/08/94 12297 JSW Add LEX_ROL for $DEFINE processing
*	02/10/93 10389 DPB Remove memory leaks when compiling many programs.
*	06/21/93 11417 CSM Increase word text length for ODBC keywords
*	05/11/93 11417 JWT Allow functions to require lvalues for arguments
*	11/14/89 6183  JWT Longer variable name support
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*****************************************************************************/

#include	"compiler.h"
#define		INCL_MAX	101
#define		TOK_MAX		600
/************************************************************************
*									*
*	Reserved Word table format					*
*									*
************************************************************************/

#define	WORDDEF	struct worddef
struct	worddef
{
	char	text[20];	/* The word				*/
	uchar	lexcmd;		/* Lexical flag (see above)		*/
	short	lexeme;		/* Lexeme to return to the parser	*/
	uchar	disable;	/* Word has been disabled by the parser	*/
	uchar	minarg;		/* Minimum arguments (functions only)	*/
	uchar	maxarg;		/* Maximum arguments (functions only)	*/
	uchar	optarg;		/* Optional arguemnt flag (functs only)	*/
	int	lvalargs;	/* flags to identify arguments which
					must be lvalues			*/
	int	opcode;		/* Opcode
				   * Opcode number for functions
				   * Keyword flag for keywords
									*/
};
extern	WORDDEF	word[];		/* The reserved word table		*/

/************************************************************************
*									*
*	Lexical flags							*
*									*
************************************************************************/
#define	LEX_AT		0x0001	/* Don't look for @ or $ Variables	*/
#define	LEX_DOT		0x0002	/* Trim off trailing '.' from tokens	*/
#define	LEX_RW		0x0004	/* Don't scan the reserved word table	*/
#define	LEX_STR		0x0008	/* Return token as a string		*/
#define	LEX_PAREN	0x0010	/* Don't look for '(' after NEWVERIABLE	*/
#define	LEX_LABEL	0x0020	/* Don't scan for labels		*/
#define LEX_ROL 	0x0040  /* return up to EOL as string		*/
/************************************************************************
*									*
*	Flags to be passed to *GET to control what it does		*
*									*
************************************************************************/
#define	ugINIT	1
#define	ugGET	2
#define ugSEEK	3
#define ugEOF	4
/************************************************************************
*									*
*	External variable declarations					*
*									*
************************************************************************/
extern	int	strc,
		subrmark,
		leof;
extern	int	srcln;

extern	char	yytext[];
extern	int	yyerrflag;
extern	STRING	copyright;
extern	STRING	dolcomments;
extern	SYMDEF	*symbol,	/* The symbol table			*/
		init_symbol[];	/* The initial pre-defined symbol table	*/

extern	void	lex_reject(),
		lex_state(),
		lex_flush(),
		lex_nlstate();

#endif	/* end of basic.h */