| version 1.36, 2005/08/25 18:59:11 |
version 1.38, 2005/09/21 23:39:32 |
|
|
| * 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.35 2005/07/27 04:35:11 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.37 2005/09/13 06:40:46 noro Exp $ |
| */ |
*/ |
| # if defined(VISUAL) |
# if defined(VISUAL) |
| #include <time.h> |
#include <time.h> |
|
|
| 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_INDEX, I_EV, I_TIMER, I_GF2NGEN, I_GFPNGEN, I_GFSNGEN, |
I_INDEX, I_EV, I_TIMER, I_GF2NGEN, I_GFPNGEN, I_GFSNGEN, |
| I_LOP, I_OPT, I_GETOPT, I_POINT, I_PAREN, I_MINUS, |
I_LOP, I_OPT, I_GETOPT, I_POINT, I_PAREN, I_MINUS, |
| I_NARYOP |
I_NARYOP, I_UNIFY |
| } fid; |
} fid; |
| |
|
| /* identifiers for statements */ |
/* identifiers for statements */ |
| Line 151 typedef struct oFUNC { |
|
| Line 151 typedef struct oFUNC { |
|
| int type; |
int type; |
| int secure; |
int secure; |
| aid id; |
aid id; |
| |
unsigned int quote; |
| union { |
union { |
| void (*binf)(); |
void (*binf)(); |
| struct oUSRF *usrf; |
struct oUSRF *usrf; |
|
|
| char *name; |
char *name; |
| void (*f)(); |
void (*f)(); |
| int argc; |
int argc; |
| |
unsigned int quote; |
| }; |
}; |
| |
|
| #define MKPVI(a,b,c)\ |
#define MKPVI(a,b,c)\ |
| Line 483 void closecurrentinput(void); |
|
| Line 485 void closecurrentinput(void); |
|
| void asir_terminate(int); |
void asir_terminate(int); |
| void searchasirpath(char *,char **); |
void searchasirpath(char *,char **); |
| void get_vars(Obj,VL *); |
void get_vars(Obj,VL *); |
| void appendbinf(NODE *,char *,void(*)(),int); |
void appendbinf(NODE *,char *,void(*)(),int,unsigned int); |
| void appendubinf(char *,void(*)(),int); |
void appendubinf(char *,void(*)(),int,unsigned int); |
| void parif_init(void); |
void parif_init(void); |
| void sysf_init(void); |
void sysf_init(void); |
| void makesrvar(FUNC, P *); |
void makesrvar(FUNC, P *); |
| Line 514 int qcoefp(Obj); |
|
| Line 516 int qcoefp(Obj); |
|
| int qcoefr(Obj); |
int qcoefr(Obj); |
| int rangecheck(Obj,int); |
int rangecheck(Obj,int); |
| int structtoindex(char *); |
int structtoindex(char *); |
| pointer eval(FNODE); |
|
| pointer evalf(FUNC,FNODE,FNODE); |
|
| pointer bevalf(FUNC,NODE); |
|
| pointer evalif(FNODE,FNODE); |
|
| pointer evalnode(NODE node); |
|
| pointer evalpf(PF,NODE); |
|
| pointer evalparif(FUNC,NODE); |
|
| pointer evalpv(int,FNODE,pointer); |
|
| pointer evalstat(SNODE f); |
|
| void _mkpfins(PF ,Obj *,V *); |
void _mkpfins(PF ,Obj *,V *); |
| void appendpfins(V ,V *); |
void appendpfins(V ,V *); |
| void appenduf(char *,FUNC *); |
void appenduf(char *,FUNC *); |
| Line 883 pointer eval(FNODE f); |
|
| Line 876 pointer eval(FNODE f); |
|
| pointer evalstat(SNODE f); |
pointer evalstat(SNODE f); |
| pointer evalnode(NODE node); |
pointer evalnode(NODE node); |
| pointer evalf(FUNC f,FNODE a,FNODE opt); |
pointer evalf(FUNC f,FNODE a,FNODE opt); |
| |
pointer evalparif(FUNC f,NODE a); |
| |
pointer evalf_deriv(FUNC f,FNODE a,FNODE deriv); |
| pointer evalmapf(FUNC f,FNODE a); |
pointer evalmapf(FUNC f,FNODE a); |
| pointer eval_rec_mapf(FUNC f,FNODE a); |
pointer eval_rec_mapf(FUNC f,FNODE a); |
| pointer beval_rec_mapf(FUNC f,NODE node); |
pointer beval_rec_mapf(FUNC f,NODE node); |
| pointer bevalf(FUNC f,NODE a); |
pointer bevalf(FUNC f,NODE a); |
| pointer evalif(FNODE f,FNODE a); |
pointer evalif(FNODE f,FNODE a); |
| pointer evalpf(PF pf,NODE args); |
pointer evalpf(PF pf,NODE args,NODE deriv); |
| void evalnodebody(NODE sn,NODE *dnp); |
void evalnodebody(NODE sn,NODE *dnp); |
| void gen_searchf(char *name,FUNC *r); |
void gen_searchf(char *name,FUNC *r); |
| void searchf(NODE fn,char *name,FUNC *r); |
void searchf(NODE fn,char *name,FUNC *r); |