| version 1.62, 2005/11/27 00:07:05 |
version 1.67, 2007/01/30 03:25:52 |
|
|
| * 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.61 2005/11/16 23:42:54 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.66 2006/11/29 05:08:14 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 885 DEG(DC(p))=ONE,COEF(DC(p))=(P)ONEM,NEXT(DC(p))=0) |
|
| Line 887 DEG(DC(p))=ONE,COEF(DC(p))=(P)ONEM,NEXT(DC(p))=0) |
|
| #define MKERR(e,b) (NEWERR(e),(e)->body=(Obj)(b)) |
#define MKERR(e,b) (NEWERR(e),(e)->body=(Obj)(b)) |
| #define MKMATHCAP(e,b) (NEWMATHCAP(e),(e)->body=(LIST)(b)) |
#define MKMATHCAP(e,b) (NEWMATHCAP(e),(e)->body=(LIST)(b)) |
| #define MKBYTEARRAY(m,l) \ |
#define MKBYTEARRAY(m,l) \ |
| (NEWBYTEARRAY(m),(m)->len=(l),(m)->body=(char *)MALLOC_ATOMIC((l)),bzero((m)->body,(l))) |
(NEWBYTEARRAY(m),(m)->len=(l),(m)->body=(unsigned char *)MALLOC_ATOMIC((l)),bzero((m)->body,(l))) |
| #define MKQUOTE(q,b) (NEWQUOTE(q),(q)->body=(pointer)(b)) |
#define MKQUOTE(q,b) (NEWQUOTE(q),(q)->body=(pointer)(b)) |
| #define MKQUOTEARG(q,t,b) (NEWQUOTEARG(q),(q)->type=(t),(q)->body=(pointer)(b)) |
#define MKQUOTEARG(q,t,b) (NEWQUOTEARG(q),(q)->type=(t),(q)->body=(pointer)(b)) |
| |
|
| Line 938 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
| Line 940 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)?((r)=0):(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 958 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 2472 void resume_timer() ; |
|
| Line 2475 void resume_timer() ; |
|
| void reset_engine() ; |
void reset_engine() ; |
| unsigned int get_asir_version() ; |
unsigned int get_asir_version() ; |
| char *get_asir_distribution(); |
char *get_asir_distribution(); |
| void create_error(ERR *err,unsigned int serial,char *msg); |
void create_error(ERR *err,unsigned int serial,char *msg,LIST trace); |
| void init_lprime(); |
void init_lprime(); |
| int get_lprime(int index); |
int get_lprime(int index); |
| void create_new_lprimes(int index); |
void create_new_lprimes(int index); |