| version 1.60, 2005/11/12 08:10:56 |
version 1.64, 2006/03/16 10:08:21 |
|
|
| * 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.59 2005/11/06 01:27:28 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.63 2006/02/08 02:11:19 noro Exp $ |
| */ |
*/ |
| #include <stdio.h> |
#include <stdio.h> |
| #include <stdlib.h> |
#include <stdlib.h> |
| Line 128 typedef void * pointer; |
|
| Line 128 typedef void * pointer; |
|
| /* IMAT */ |
/* IMAT */ |
| #define O_IMAT 24 |
#define O_IMAT 24 |
| /* IMAT */ |
/* IMAT */ |
| |
#define O_NBP 25 |
| |
|
| #define N_Q 0 |
#define N_Q 0 |
| #define N_R 1 |
#define N_R 1 |
| Line 444 typedef struct oTB { |
|
| Line 445 typedef struct oTB { |
|
| char **body; |
char **body; |
| } *TB; |
} *TB; |
| |
|
| |
typedef struct oNBP { |
| |
short id; |
| |
short pad; |
| |
struct oNODE *body; |
| |
} *NBP; |
| |
|
| |
/* non-commutative bivariate monomial */ |
| |
|
| |
typedef struct oNBM { |
| |
int d; |
| |
Q c; |
| |
unsigned int *b; |
| |
} *NBM; |
| |
|
| |
#define NEWNBM(p) ((p)=(NBM)MALLOC(sizeof(struct oNBM))) |
| |
#define NEWNBMBDY(p,d) \ |
| |
((p)->b=(unsigned int *)MALLOC((((d)+31)/32)*sizeof(unsigned int))) |
| |
#define NEWNBP(p) ((p)=(NBP)MALLOC(sizeof(struct oNBP)),OID(p)=O_NBP) |
| |
#define MKNBP(p,b) (NEWNBP(p),BDY(p)=(b)) |
| |
|
| |
#define NBM_GET(a,j) (((a)[(j)>>5]&(1<<((j)&31)))?1:0) |
| |
#define NBM_SET(a,j) ((a)[(j)>>5]|=(1<<((j)&31))) |
| |
#define NBM_CLR(a,j) ((a)[(j)>>5]&=(~(1<<((j)&31)))) |
| |
|
| typedef struct oObj { |
typedef struct oObj { |
| short id; |
short id; |
| short pad; |
short pad; |
| Line 860 DEG(DC(p))=ONE,COEF(DC(p))=(P)ONEM,NEXT(DC(p))=0) |
|
| Line 885 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 2447 void resume_timer() ; |
|
| Line 2472 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); |
| Line 2607 void bzero(const void *,int); |
|
| Line 2632 void bzero(const void *,int); |
|
| void bcopy(const void *,void *,int); |
void bcopy(const void *,void *,int); |
| char *index(char *,int); |
char *index(char *,int); |
| #endif |
#endif |
| |
|
| |
void chsgnnbp(NBP p,NBP *rp); |
| |
void subnbp(VL vl,NBP p1,NBP p2, NBP *rp); |
| |
void addnbp(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); |
| |
int compnbp(VL vl,NBP p1,NBP p2); |