mirror of
https://salsa.debian.org/dskoll/remind.git
synced 2026-04-16 22:38:37 +02:00
56 lines
1.6 KiB
C
56 lines
1.6 KiB
C
/***************************************************************/
|
|
/* */
|
|
/* EXPR.H */
|
|
/* */
|
|
/* Contains a few definitions used by expression evaluator. */
|
|
/* */
|
|
/* This file is part of REMIND. */
|
|
/* Copyright (C) 1992-1998 by David F. Skoll */
|
|
/* */
|
|
/***************************************************************/
|
|
|
|
/* $Id: expr.h,v 1.2 1998-02-10 03:15:49 dfs Exp $ */
|
|
|
|
/* Define the types of values */
|
|
#define ERR_TYPE 0
|
|
#define INT_TYPE 1
|
|
#define TIM_TYPE 2
|
|
#define DATE_TYPE 3
|
|
#define STR_TYPE 4
|
|
|
|
/* Define stuff for parsing expressions */
|
|
#define BEG_OF_EXPR '['
|
|
#define END_OF_EXPR ']'
|
|
#define COMMA ','
|
|
|
|
#define UN_OP 0 /* Unary operator */
|
|
#define BIN_OP 1 /* Binary Operator */
|
|
#define FUNC 2 /* Function */
|
|
|
|
/* Make the pushing and popping of values and operators in-line code
|
|
for speed. BEWARE: These macros invoke return if an error happens ! */
|
|
|
|
#define PushOpStack(op) \
|
|
if (OpStackPtr >= OP_STACK_SIZE) \
|
|
return E_OP_STK_OVER; \
|
|
else \
|
|
OpStack[OpStackPtr++] = (op)
|
|
|
|
#define PopOpStack(op) \
|
|
if (OpStackPtr <= 0) \
|
|
return E_OP_STK_UNDER; \
|
|
else \
|
|
(op) = OpStack[--OpStackPtr]
|
|
|
|
#define PushValStack(val) \
|
|
if (ValStackPtr >= VAL_STACK_SIZE) \
|
|
return E_VA_STK_OVER; \
|
|
else \
|
|
ValStack[ValStackPtr++] = (val)
|
|
|
|
#define PopValStack(val) \
|
|
if (ValStackPtr <= 0) \
|
|
return E_VA_STK_UNDER; \
|
|
else \
|
|
(val) = ValStack[--ValStackPtr]
|