| 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); |