OpenXM_contrib2/asir2000/parse/parse.h - diff

Return to parse.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/parse.h between version 1.3 and 1.14

-version 1.3, 2000/08/21 08:31:47
+version 1.14, 2001/09/05 09:01:28
 Line 23
 Line 23
 Line 23
   * shall be made on your publication or presentation in any form of the
   * results obtained by use of the SOFTWARE.
   * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
-  * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+  * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
   * for such modification or the source code of the modified part of the
   * SOFTWARE.
   *
 Line 45
 Line 45
 Line 45
   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
   *
-  * $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.2 2000/07/14 08:26:41 noro Exp $
+  * $OpenXM: OpenXM_contrib2/asir2000/parse/parse.h,v 1.13 2001/09/03 08:52:39 noro Exp $
  */
- # if defined(THINK_C) || defined(VISUAL)
+ # if defined(VISUAL)
  #include <time.h>
  #else
  #include <sys/time.h>
 Line 64
 Line 64
 Line 64
  typedef enum {
          I_BOP, I_COP, I_AND, I_OR, I_NOT, I_CE,
          I_PRESELF, I_POSTSELF,
-         I_FUNC, I_FUNC_OPT, I_IFUNC, I_MAP, I_PFDERIV,
+         I_FUNC, I_FUNC_OPT, I_IFUNC, I_MAP, I_RECMAP, I_PFDERIV,
          I_ANS, I_PVAR, I_ASSPVAR,
          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_LOP, I_OPT, I_GETOPT, I_POINT, I_QUOTE, I_PAREN, I_MINUS
  } fid;
  /* identifiers for statements */
 Line 287  switch ( id ) {\
 Line 287  switch ( id ) {\
 Line 287  switch ( id ) {\
  #define GETPV(i,p) \
  ((int)(i)>=0    ? (int)((p)=CPVS->va[(unsigned int)(i)].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) \
  ((int)(i)>=0    ? (int)(CPVS->va[(unsigned int)(i)].priv=(pointer)(p))\
                  : (int)(GPVS->va[(unsigned int)(i)&(~MSB)].priv=(pointer)(p)))
-Line 319  extern int Verbose;
+Line 322  extern int Verbose;
 Line 319  extern int Verbose;
 Line 322  extern int Verbose;
  #define fflush w_fflush
  #endif
- #if defined(THINK_C) || defined(VISUAL)
+ #if defined(VISUAL) || (defined(__MACH__) && defined(__ppc__))
  NODE mknode(int,...);
  FNODE mkfnode(int,fid,...);
  SNODE mksnode(int,sid,...);
-Line 333  void call_usrf();
+Line 336  void call_usrf();
 Line 333  void call_usrf();
 Line 336  void call_usrf();
  /* prototypes */
- #if 1 || defined(THINK_C) || defined(VISUAL)
+ void dp_ptozp2_d(DP,DP,DP *,DP *);
- void dp_ptozp2_d(NODE,int,DP,DP,DP *,DP *);
+ void dp_ptozp_d(DP,DP *);
- void dp_ptozp_d(NODE,int,DP,DP *);
- void dp_ptozp_d_old(NODE,int,DP,DP *);
  void dp_vtod(Q *,DP,DP *);
  void dp_idivv_hist(Q,DP *);
  void dp_igcdv_hist(DP,Q *);
-Line 544  void getmember(FNODE,Obj *);
+Line 545  void getmember(FNODE,Obj *);
 Line 544  void getmember(FNODE,Obj *);
 Line 545  void getmember(FNODE,Obj *);
  void getmemberp(FNODE,Obj **);
  void help(char *);
  void instov(PFINS ,V *);
- void memberofstruct(FNODE,char *,FNODE *);
+ Obj memberofstruct(COMP,char *);
  void mkpf(char *,Obj ,int ,V *,int (*)(),double (*)(),int (*)(),PF *);
  void mkpfins(PF ,V *,V *);
  void mkuf(char *,char *,NODE,SNODE,int,int,char *);
-Line 565  void showbps(void);
+Line 566  void showbps(void);
 Line 565  void showbps(void);
 Line 566  void showbps(void);
  void showpos(void);
  void simplify_ins(PFINS ,Obj *);
  void sprintvars(char *,VS);
- void structdef(char *,NODE);
+ int structdef(char *,NODE);
  void substfp(VL ,Obj ,PF ,PF ,Obj *);
  void substfr(VL ,Obj ,PF ,PF ,Obj *);
  void substfv(VL ,V ,PF ,PF ,Obj *);
-Line 582  void divcomp(VL,COMP,COMP,COMP *);
+Line 583  void divcomp(VL,COMP,COMP,COMP *);
 Line 582  void divcomp(VL,COMP,COMP,COMP *);
 Line 583  void divcomp(VL,COMP,COMP,COMP *);
  void chsgncomp(COMP,COMP *);
  void pwrcomp(VL,COMP,Obj,COMP *);
  int compcomp(VL,COMP,COMP);
- #else
- int arf_comp();
- int complist();
- int complist();
- int getcompsize();
- int getpvar();
- int getpvar();
- int gettype();
- int indextotype();
- int loadfile();
- int loadfiles();
- int makepvar();
- int membertoindex();
- int qcoefp();
- int qcoefr();
- int rangecheck();
- int structtoindex();
- pointer eval();
- pointer evalf();
- pointer evalif();
- pointer evalnode();
- pointer evalpf();
- pointer evalparif();
- pointer evalpv();
- pointer evalstat();
- void _mkpfins();
- void appendpfins();
- void appenduf();
- void arf_add();
- void arf_chsgn();
- void arf_div();
- void arf_init();
- void arf_mul();
- void arf_pwr();
- void arf_remain();
- void arf_sub();
- void bp();
- void clearbp();
- void debug();
- void debug_init();
- void delbp();
- void derivr();
- void derivvar();
- void duppfins();
- void error();
- void evalins();
- void evalnodebody();
- void evalp();
- void evalr();
- void evalv();
- void getarrayp();
- void getmember();
- void getmemberp();
- void help();
- void instov();
- void memberofstruct();
- void mkpf();
- void mkpfins();
- void mkuf();
- void newstruct();
- void optobj();
- void println();
- void printvars();
- void resetpvs();
- void searchc();
- void searchf();
- void searchpf();
- void searchsn();
- void setbp();
- void setf();
- void setstruct();
- void showbp();
- void showbps();
- void showpos();
- void simplify_ins();
- void sprintvars();
- void structdef();
- void substfp();
- void substfr();
- void substfv();
- void substpr();
- void substr();
- void appendtonode();
- void getarray();
- void putarray();
- void addcomp();
- void subcomp();
- void mulcomp();
- void divcomp();
- void chsgncomp();
- void pwrcomp();
- int compcomp();
- #endif

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