/* errmacro.h 	Copyright 1983, 1984		STSC Inc.  Property of STSC */

     /* Include file for error return codes by apl primitives */

/*  Note that errfns.c and errmacro.h are used in conjunction
 *  with each other.  Changes should be reflected in both places.
 */

#define ERRMSGL 256

	/*  Errors covered by ISO APL standard  */
#define AXIS_ERROR	1
#define DOMAIN_ERROR	2
#define IMPLICIT_ERROR	3
#define INDEX_ERROR	4
#define LENGTH_ERROR	5
#define LIMIT_ERROR	6
#define RANK_ERROR	7
#define SYNTAX_ERROR	8
#define VALUE_ERROR	9


	/*  Other commonplace errors */
#define WS_FULL		10
#define NONCE_ERROR	11
#define INTERRUPT	12
#define PT_FULL		13	/*  in mjb, parse tree full  */
#define TB_FULL		14	/*  in mjb, token buffer full  */
#define PC_FULL		15	/*  in mjb, pcode output area full  */
#define VS_FULL		16	/*  value stack full  */
#define INTALX		17	/*  just to indicate we need to execute alx  */
#define STOP_ERROR	18	/*  stopping due to quad stop  */
#define ST_FULL		19	/*  symbol table full */
#define QUAD_RETRY	20	/*  indicates quad input retry  */
#define FP_LIMIT	21	/*  floating point limit error */
#define DB_FULL		22	/*  definer fnblk full  */
#define SI_DAMAGE	23	/*  si damage  */

#define ILL_CMD		24	/*  Incorrect Command */
#define INSUFF_MEM	25	/*  Insufficient Memory */
#define DEFN_ERROR	26
#define QERR_ERROR	27	/*  errors generated by quad-error  */
#define QELXERR_ERROR	28	/*  errors generated by quad-error  */
				/*  when called from quad elx  */

	/* File system errors */
#define FTIE_ERROR	30
#define FACC_ERROR	31
#define FNAME_ERROR	32
#define FTQE_ERROR	33	/* file tie quota exceeded */
#define FNTF_ERROR	34	/* file name table full */
#define DISK_ERROR	35
#define FRES_ERROR	36	/* file reservation */
#define FINDEX_ERROR	37
#define FFULL_ERROR	38
#define FTIED_ERROR	39
#define FARG_ERROR	40
#define FNFND_ERROR	41	/* file not found */
#define FSNA_ERROR	42	/* file system not available */
#define FDATA_ERROR	43	/* file component damaged */
#define DFULL_ERROR	44	/* disk full */

#define LNF_ERROR	50	/* library not found error */
#define	LQE_ERROR	51	/* lib quota exceeded */
#define	LNTF_ERROR	52	/* lib name table full */
#define	LNAME_ERROR	53	/* lib name error */
#define	LNUM_ERROR	54	/* lib number error */

#define HACC_ERROR	60	/* unix host access error */
#define QXPI_ERROR	61	/* Quad XP interrupt */
#define QXP_ERROR	62	/* Quad XP external error */
#define QXP_NPROS	63	/* No Process running */
#define QXP_DAMAGE	64	/* Quad XP result damaged */

#define FORMAT_ERROR	70

#define WARG_ERROR	80	/*  ws argument error */
#define WNAME_ERROR	81	/*  ws name error */
#define WS_TOOL		82	/*  ws too large */
#define WS_DAMAGE	83      /*  ws damaged */
#define WS_NFND		84      /*  ws not found */
#define WS_CTERR	85	/*  error building temporary copy file */
#define LIB_ACCES	86	/*  library access error */

#define ERR_END		87	/*  End of Error Codes */
	/*  User Defined External Process Error Codes  */
/*  The user of the Quad-XP interface can generate error codes other
 *  than those defined here.  If newerror() receives an error code not
 *  contained here it is reflected as a Quad-XP error n.  LLG Oct 84
 */

	/*  System error:  all generic for now; make better later */
#define SYSTEM_ERROR	-1