/*************************************************************************\
* Copyright (c) 2002 The University of Chicago, as Operator of Argonne
*     National Laboratory.
* Copyright (c) 2002 The Regents of the University of California, as
*     Operator of Los Alamos National Laboratory.
* EPICS BASE Versions 3.13.7
* and higher are distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution. 
\*************************************************************************/
/* postfix.h
 *      Author:          Bob Dalesio
 *      Date:            9-21-88
 */

#ifndef INCpostfixh
#define INCpostfixh

#if defined(TRUE)
#undef TRUE
#endif
#define TRUE 1

#if defined(FALSE)
#undef FALSE
#endif
#define FALSE 0

/* number of elements in an array */
#define NELEMENTS(array) \
  (sizeof (array) / sizeof ((array) [0]))

#define CALCPERFORM_NARGS 12
#define CALCPERFORM_STACK 255

#define INFIX_TO_POSTFIX_SIZE(n) (((n-2)>>2)*21 + ((n-2)&2)*5 + 10)
/* The above is calculated from the following expression fragments:
 *  1?1:  4 chars expand to 21 chars
 *  1+    2 chars expand to 10 chars
 *  1     1 char expands to 9 chars
 * All other infix operators convert by a factor of 1:1 or less.
 * Allow 1 char each for the infix and postfix terminators,
 * and the infix must be a complete expression
 */

/* These are not hard limits, just default sizes for the database */
#define MAX_INFIX_SIZE 255+1
#define MAX_POSTFIX_SIZE INFIX_TO_POSTFIX_SIZE(MAX_INFIX_SIZE)


/* Error numbers from postfix */

#define CALC_ERR_NONE            0 /* No error */
#define CALC_ERR_TOOMANY         1 /* Too many results returned */
#define CALC_ERR_BAD_LITERAL     2 /* Bad numeric literal */
#define CALC_ERR_BAD_ASSIGNMENT  3 /* Bad assignment target */
#define CALC_ERR_BAD_SEPERATOR   4 /* Comma without parentheses */
#define CALC_ERR_PAREN_NOT_OPEN  5 /* Close parenthesis without open */
#define CALC_ERR_PAREN_OPEN      6 /* Open parenthesis at end of expression */
#define CALC_ERR_CONDITIONAL     7 /* Unbalanced conditional ?: operators */
#define CALC_ERR_INCOMPLETE      8 /* Incomplete expression, operand missing */
#define CALC_ERR_UNDERFLOW       9 /* Runtime stack would underflow */
#define CALC_ERR_OVERFLOW       10 /* Runtime stack would overflow */
#define CALC_ERR_SYNTAX         11 /* Syntax error */
#define CALC_ERR_NULL_ARG       12 /* NULL or empty input argument */
#define CALC_ERR_INTERNAL       13 /* Internal error, bad element type */
/* Changes in the above errors must also be made in calcErrorStr() */


#ifdef __cplusplus
extern "C" {
#endif

long edm_postfix(const char *pinfix, char *ppostfix, short *perror);

long edm_calcPerform(double *parg, double *presult, const char *ppostfix);

long edm_calcArgUsage(const char *ppostfix, unsigned long *pinputs, unsigned long *pstores);

const char *edm_calcErrorStr(short error);

void edm_calcExprDump(const char *pinst);

#ifdef __cplusplus
}
#endif

#endif /* INCpostfixh */