version 1.64, 2006/03/16 10:08:21 |
version 1.74, 2009/01/05 01:47:30 |
|
|
* 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/include/ca.h,v 1.63 2006/02/08 02:11:19 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.73 2009/01/04 05:44:51 noro Exp $ |
*/ |
*/ |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 93 typedef void * pointer; |
|
Line 93 typedef void * pointer; |
|
#endif |
#endif |
#endif |
#endif |
|
|
|
#define TODO printf("%s: not implemented!\n", __func__) |
|
|
#define COPY(a,b) ((b)=(a)) |
#define COPY(a,b) ((b)=(a)) |
#define FREEN(p) |
#define FREEN(p) |
#define FREEQ(p) |
#define FREEQ(p) |
Line 455 typedef struct oNBP { |
|
Line 457 typedef struct oNBP { |
|
|
|
typedef struct oNBM { |
typedef struct oNBM { |
int d; |
int d; |
Q c; |
P c; |
unsigned int *b; |
unsigned int *b; |
} *NBM; |
} *NBM; |
|
|
Line 623 struct order_spec { |
|
Line 625 struct order_spec { |
|
int id; |
int id; |
Obj obj; |
Obj obj; |
int nv; |
int nv; |
|
int ispot; /* 1 means Position over Term (Pos then Term) */ |
union { |
union { |
int simple; |
int simple; |
struct { |
struct { |
Line 938 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
Line 941 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
#define MKReal(a,b) (!(a)?((b)=0):(NEWReal(b),BDY(b)=(a),(b))) |
#define MKReal(a,b) (!(a)?((b)=0):(NEWReal(b),BDY(b)=(a),(b))) |
#define MKAlg(b,r) \ |
#define MKAlg(b,r) \ |
(!(b)?((r)=0):NUM(b)?((r)=(Alg)(b)):(NEWAlg(r),BDY(r)=(Obj)(b),(r))) |
(!(b)?((r)=0):NUM(b)?((r)=(Alg)(b)):(NEWAlg(r),BDY(r)=(Obj)(b),(r))) |
#define MKDAlg(dp,den,r) (NEWDAlg(r),(r)->nm = (dp),(r)->dn=(den)) |
#define MKDAlg(dp,den,r) (!(dp)?(void *)((r)=0):(void *)(NEWDAlg(r),(r)->nm = (dp),(r)->dn=(den))) |
|
|
#define IMM_MAX 1073741823 |
#define IMM_MAX 1073741823 |
#define IMM_MIN -1073741823 |
#define IMM_MIN -1073741823 |
Line 956 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
Line 959 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
#define NUM(p) (OID(p)==O_N) |
#define NUM(p) (OID(p)==O_N) |
#define RAT(p) (OID(p)==O_R) |
#define RAT(p) (OID(p)==O_R) |
#define RATN(a) (NID(a)==N_Q) |
#define RATN(a) (NID(a)==N_Q) |
|
#define POLY(a) (!(a) ||(OID(a)<=O_P)) |
#define INT(q) (!(q)||(NUM(q)&&RATN((Num)q)&&!DN((Q)q))) |
#define INT(q) (!(q)||(NUM(q)&&RATN((Num)q)&&!DN((Q)q))) |
#define REAL(a) (NID(a)==N_R) |
#define REAL(a) (NID(a)==N_R) |
#define BIGFLOAT(a) (NID(a)==N_B) |
#define BIGFLOAT(a) (NID(a)==N_B) |
Line 2639 void addnbp(VL vl,NBP p1,NBP p2, NBP *rp); |
|
Line 2643 void addnbp(VL vl,NBP p1,NBP p2, NBP *rp); |
|
void mulnbp(VL vl,NBP p1,NBP p2, NBP *rp); |
void mulnbp(VL vl,NBP p1,NBP p2, NBP *rp); |
void pwrnbp(VL vl,NBP p1,Q n, NBP *rp); |
void pwrnbp(VL vl,NBP p1,Q n, NBP *rp); |
int compnbp(VL vl,NBP p1,NBP p2); |
int compnbp(VL vl,NBP p1,NBP p2); |
|
|
|
#if defined(PARI23) |
|
#define prec precreal |
|
#define mppgcd(a,b) (gcdii((a),(b))) |
|
#endif |