version 1.4, 2019/08/21 00:37:47 |
version 1.6, 2019/11/12 07:47: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/asir2018/parse/parse.h,v 1.3 2019/03/28 05:38:07 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/parse/parse.h,v 1.5 2019/09/04 01:12:02 noro Exp $ |
*/ |
*/ |
# if defined(VISUAL) || defined(__MINGW32__) |
# if defined(VISUAL) || defined(__MINGW32__) |
#include <time.h> |
#include <time.h> |
Line 223 typedef struct oPVI { |
|
Line 223 typedef struct oPVI { |
|
NODE index; |
NODE index; |
} *PVI; |
} *PVI; |
|
|
typedef struct oNODE2 { |
|
pointer body1,body2; |
|
struct oNODE2 *next; |
|
} *NODE2; |
|
|
|
struct ftab { |
struct ftab { |
char *name; |
char *name; |
void (*f)(); |
void (*f)(); |
Line 316 switch ( id ) {\ |
|
Line 311 switch ( id ) {\ |
|
:PVATTR(i)==2?(long)(MPVS->va[PVIND(i)].priv=(pointer)(p))\ |
:PVATTR(i)==2?(long)(MPVS->va[PVIND(i)].priv=(pointer)(p))\ |
:(long)(PPVS->va[PVIND(i)].priv=(pointer)(p))) |
:(long)(PPVS->va[PVIND(i)].priv=(pointer)(p))) |
|
|
#define NEWNODE2(a) ((a)=(NODE2)MALLOC(sizeof(struct oNODE2))) |
|
#define MKNODE2(a,b,c,d) \ |
|
(NEWNODE2(a),(a)->body1=(pointer)b,(a)->body2=(pointer)c,NEXT(a)=(NODE2)(d)) |
|
#define BDY1(a) ((a)->body1) |
|
#define BDY2(a) ((a)->body2) |
|
|
|
extern VS GPVS,CPVS,EPVS,APVS,MPVS,PPVS; |
extern VS GPVS,CPVS,EPVS,APVS,MPVS,PPVS; |
extern MODULE CUR_MODULE; |
extern MODULE CUR_MODULE; |
Line 379 void dp_dtov(DP,VECT *); |
|
Line 369 void dp_dtov(DP,VECT *); |
|
void dp_cont(DP,Z *); |
void dp_cont(DP,Z *); |
void dp_idiv(DP,Z,DP *); |
void dp_idiv(DP,Z,DP *); |
void dtodpm(DP d,int pos,DPM *dp); |
void dtodpm(DP d,int pos,DPM *dp); |
void dpm_nf_z(NODE b,DPM g,DPM *ps,int full,int multiple,DPM *rp); |
void dpm_nf_z(NODE b,DPM g,VECT ps,int full,int multiple,DPM *rp); |
void dpm_nf_f(NODE b,DPM g,DPM *ps,int full,DPM *rp); |
void dpm_nf_f(NODE b,DPM g,VECT ps,int full,DPM *rp); |
void weyl_actd(VL vl,DP p1,DP p2,DP *pr); |
void weyl_actd(VL vl,DP p1,DP p2,DP *pr); |
void dpm_sp(DPM p1,DPM p2,DPM *rp,DP *mul1,DP *mul2); |
void dpm_sp(DPM p1,DPM p2,DPM *rp,DP *mul1,DP *mul2); |
void initdpm(struct order_spec *spec,int type); |
void initdpm(struct order_spec *spec,int type); |