version 1.11, 2001/08/21 01:39:39 |
version 1.13, 2001/09/03 08:52:39 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.10 2001/08/20 09:50:35 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.12 2001/09/03 07:01:10 noro Exp $ |
*/ |
*/ |
# if defined(VISUAL) |
# if defined(VISUAL) |
#include <time.h> |
#include <time.h> |
|
|
I_FUNC, I_FUNC_OPT, I_IFUNC, I_MAP, I_RECMAP, I_PFDERIV, |
I_FUNC, I_FUNC_OPT, I_IFUNC, I_MAP, I_RECMAP, I_PFDERIV, |
I_ANS, I_PVAR, I_ASSPVAR, |
I_ANS, I_PVAR, I_ASSPVAR, |
I_FORMULA, I_LIST, I_STR, I_NEWCOMP, I_CAR, I_CDR, I_CAST, |
I_FORMULA, I_LIST, I_STR, I_NEWCOMP, I_CAR, I_CDR, I_CAST, |
I_COM, I_PROC, I_INDEX, I_EV, I_TIMER, I_GF2NGEN, I_GFPNGEN, I_LOP, |
I_COM, I_PROC, I_INDEX, I_EV, I_TIMER, I_GF2NGEN, I_GFPNGEN, I_GFSNGEN, |
I_OPT, I_GETOPT, I_POINT, I_QUOTE, I_PAREN |
I_LOP, I_OPT, I_GETOPT, I_POINT, I_QUOTE, I_PAREN |
} fid; |
} fid; |
|
|
/* identifiers for statements */ |
/* identifiers for statements */ |
Line 287 switch ( id ) {\ |
|
Line 287 switch ( id ) {\ |
|
#define GETPV(i,p) \ |
#define GETPV(i,p) \ |
((int)(i)>=0 ? (int)((p)=CPVS->va[(unsigned int)(i)].priv)\ |
((int)(i)>=0 ? (int)((p)=CPVS->va[(unsigned int)(i)].priv)\ |
: (int)((p)=GPVS->va[(unsigned int)(i)&(~MSB)].priv)) |
: (int)((p)=GPVS->va[(unsigned int)(i)&(~MSB)].priv)) |
|
#define GETPVNAME(i,p) \ |
|
((int)(i)>=0 ? (int)((p)=CPVS->va[(unsigned int)(i)].name)\ |
|
: (int)((p)=GPVS->va[(unsigned int)(i)&(~MSB)].name)) |
#define ASSPV(i,p) \ |
#define ASSPV(i,p) \ |
((int)(i)>=0 ? (int)(CPVS->va[(unsigned int)(i)].priv=(pointer)(p))\ |
((int)(i)>=0 ? (int)(CPVS->va[(unsigned int)(i)].priv=(pointer)(p))\ |
: (int)(GPVS->va[(unsigned int)(i)&(~MSB)].priv=(pointer)(p))) |
: (int)(GPVS->va[(unsigned int)(i)&(~MSB)].priv=(pointer)(p))) |