[BACK]Return to parse.h CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/parse.h between version 1.33 and 1.39

version 1.33, 2004/10/27 08:21:47 version 1.39, 2005/09/30 01:35:25
Line 45 
Line 45 
  * 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.32 2004/07/13 07:59:54 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.38 2005/09/21 23:39:32 noro Exp $
 */  */
 # if defined(VISUAL)  # if defined(VISUAL)
 #include <time.h>  #include <time.h>
Line 69  typedef enum {
Line 69  typedef enum {
         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_CONS
 } fid;  } fid;
   
 /* identifiers for statements */  /* identifiers for statements */
Line 78  typedef enum {
Line 78  typedef enum {
         S_BP, S_PFDEF,          S_BP, S_PFDEF,
         S_SINGLE, S_CPLX,          S_SINGLE, S_CPLX,
         S_IFELSE, S_FOR, S_DO,          S_IFELSE, S_FOR, S_DO,
         S_BREAK, S_RETURN, S_CONTINUE          S_BREAK, S_RETURN, S_CONTINUE,
           S_MODULE
 } sid;  } sid;
   
 /* identifiers for comparison operators */  /* identifiers for comparison operators */
Line 150  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;
Line 222  struct ftab {
Line 224  struct ftab {
         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 344  void dp_ptozp_d(DP,DP *);
Line 347  void dp_ptozp_d(DP,DP *);
 void dp_vtod(Q *,DP,DP *);  void dp_vtod(Q *,DP,DP *);
 void dp_idivv_hist(Q,DP *);  void dp_idivv_hist(Q,DP *);
 void dp_igcdv_hist(DP,Q *);  void dp_igcdv_hist(DP,Q *);
   void dp_ptozp3(DP,Q *,DP *);
 void dp_ptozp2(DP,DP,DP *,DP *);  void dp_ptozp2(DP,DP,DP *,DP *);
 void dp_ptozp(DP,DP *);  void dp_ptozp(DP,DP *);
 void dp_nf_tab_mod(DP,LIST *,int,DP *);  void dp_nf_tab_mod(DP,LIST *,int,DP *);
Line 481  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 512  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 755  int generic_gauss_elim_mod(int **mat0,int row,int col,
Line 750  int generic_gauss_elim_mod(int **mat0,int row,int col,
 int lu_gfmmat(GFMMAT mat,unsigned int md,int *perm);  int lu_gfmmat(GFMMAT mat,unsigned int md,int *perm);
 int find_lhs_and_lu_mod(unsigned int **a,int row,int col,  int find_lhs_and_lu_mod(unsigned int **a,int row,int col,
         unsigned int md,int **rinfo,int **cinfo);          unsigned int md,int **rinfo,int **cinfo);
 void solve_by_lu_mod(int **a,int n,int md,int **b,int l);  void solve_by_lu_mod(int **a,int n,int md,int **b,int l,int normalize);
 int gauss_elim_mod1(int **mat,int row,int col,int md);  int gauss_elim_mod1(int **mat,int row,int col,int md);
 int gauss_elim_geninv_mod(unsigned int **mat,int row,int col,int md);  int gauss_elim_geninv_mod(unsigned int **mat,int row,int col,int md);
 void solve_by_lu_gfmmat(GFMMAT lu,unsigned int md,unsigned int *b,unsigned int *x);  void solve_by_lu_gfmmat(GFMMAT lu,unsigned int md,unsigned int *b,unsigned int *x);
Line 881  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);

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.39

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>