version 1.54, 2004/12/10 07:36:34 |
version 1.60, 2005/11/12 08:10:56 |
|
|
* 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.53 2004/12/02 13:48:43 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.59 2005/11/06 01:27:28 noro Exp $ |
*/ |
*/ |
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
Line 125 typedef void * pointer; |
|
Line 125 typedef void * pointer; |
|
#define O_DPV 22 |
#define O_DPV 22 |
#define O_QUOTEARG 23 |
#define O_QUOTEARG 23 |
#define O_VOID -1 |
#define O_VOID -1 |
|
/* IMAT */ |
|
#define O_IMAT 24 |
|
/* IMAT */ |
|
|
#define N_Q 0 |
#define N_Q 0 |
#define N_R 1 |
#define N_R 1 |
Line 323 typedef struct oGF2MAT { |
|
Line 326 typedef struct oGF2MAT { |
|
unsigned int **body; |
unsigned int **body; |
} *GF2MAT, *GFMMAT; |
} *GF2MAT, *GFMMAT; |
|
|
|
/* IMAT */ |
|
#define IMATCH 64 |
|
|
|
typedef struct oIENT { |
|
int cr; |
|
int row, col; |
|
pointer *body; |
|
} IENT; |
|
|
|
typedef struct oIMATC { |
|
pointer *fore; |
|
pointer *next; |
|
IENT ient[IMATCH]; |
|
} *IMATC; |
|
|
|
typedef struct oIMAT { |
|
short id; |
|
int row, col, clen; |
|
pointer *root; |
|
pointer *toor; |
|
} *IMAT; |
|
/* IMAT */ |
typedef struct oLIST { |
typedef struct oLIST { |
short id; |
short id; |
short pad; |
short pad; |
Line 600 struct modorder_spec { |
|
Line 625 struct modorder_spec { |
|
|
|
typedef struct oNumberField { |
typedef struct oNumberField { |
int n; |
int n; |
|
int psn; |
int dim; |
int dim; |
VL vl; |
VL vl; |
P *defpoly; |
P *defpoly; |
Line 788 bzero((char *)(q)->b,(w)*sizeof(unsigned int))) |
|
Line 814 bzero((char *)(q)->b,(w)*sizeof(unsigned int))) |
|
#define NEWMAT(l) ((l)=(MAT)MALLOC(sizeof(struct oMAT)),OID(l)=O_MAT) |
#define NEWMAT(l) ((l)=(MAT)MALLOC(sizeof(struct oMAT)),OID(l)=O_MAT) |
#define NEWGF2MAT(l) ((l)=(GF2MAT)MALLOC(sizeof(struct oGF2MAT)),OID(l)=O_GF2MAT) |
#define NEWGF2MAT(l) ((l)=(GF2MAT)MALLOC(sizeof(struct oGF2MAT)),OID(l)=O_GF2MAT) |
#define NEWGFMMAT(l) ((l)=(GFMMAT)MALLOC(sizeof(struct oGF2MAT)),OID(l)=O_GFMMAT) |
#define NEWGFMMAT(l) ((l)=(GFMMAT)MALLOC(sizeof(struct oGF2MAT)),OID(l)=O_GFMMAT) |
|
/* IMAT */ |
|
#define NEWIMAT(l) ((l)=(IMAT)MALLOC(sizeof(struct oIMAT)),OID(l)=O_IMAT,l->clen=0,l->root=0,l->toor=0) |
|
#define NEWIENT(l) ((l)=(IMATC)MALLOC(sizeof(struct oIMATC)),l->fore=0,l->next=0) |
|
/* IMAT */ |
#define NEWReal(q) ((q)=(Real)MALLOC_ATOMIC(sizeof(struct oReal)),OID(q)=O_N,NID(q)=N_R) |
#define NEWReal(q) ((q)=(Real)MALLOC_ATOMIC(sizeof(struct oReal)),OID(q)=O_N,NID(q)=N_R) |
#define NEWAlg(r) ((r)=(Alg)MALLOC(sizeof(struct oAlg)),OID(r)=O_N,NID(r)=N_A) |
#define NEWAlg(r) ((r)=(Alg)MALLOC(sizeof(struct oAlg)),OID(r)=O_N,NID(r)=N_A) |
#define NEWDAlg(r) ((r)=(DAlg)MALLOC(sizeof(struct oDAlg)),OID(r)=O_N,NID(r)=N_DA) |
#define NEWDAlg(r) ((r)=(DAlg)MALLOC(sizeof(struct oDAlg)),OID(r)=O_N,NID(r)=N_DA) |
Line 993 extern const int sprime[]; |
|
Line 1023 extern const int sprime[]; |
|
extern int sprime[]; |
extern int sprime[]; |
#endif |
#endif |
|
|
extern int lprime_size; |
|
extern int *lprime; |
|
|
|
extern void (*addnumt[])(); |
extern void (*addnumt[])(); |
extern void (*subnumt[])(); |
extern void (*subnumt[])(); |
extern void (*mulnumt[])(); |
extern void (*mulnumt[])(); |
Line 1266 void copyn(N,int,int *); |
|
Line 1293 void copyn(N,int,int *); |
|
void kmulnmain(N,N,N *); |
void kmulnmain(N,N,N *); |
int qcoefp(Obj); |
int qcoefp(Obj); |
int qcoefr(Obj); |
int qcoefr(Obj); |
int get_allocwords(void); |
long get_allocwords(void); |
double get_clock(void); |
double get_clock(void); |
void get_eg(struct oEGT *); |
void get_eg(struct oEGT *); |
void printtime(struct oEGT *,struct oEGT *,double); |
void printtime(struct oEGT *,struct oEGT *,double); |
Line 2531 void afctrmain(VL vl,P p0,P p,int init,DCP *dcp); |
|
Line 2558 void afctrmain(VL vl,P p0,P p,int init,DCP *dcp); |
|
int divtmp(VL vl,int mod,P p1,P p2,P *q); |
int divtmp(VL vl,int mod,P p1,P p2,P *q); |
int divtdcmp(VL vl,int mod,P p1,P p2,P *q); |
int divtdcmp(VL vl,int mod,P p1,P p2,P *q); |
void GC_gcollect(); |
void GC_gcollect(); |
|
|
|
/* IMAT */ |
|
void Pnewimat(NODE, IMAT *); |
|
void PChsgnI(NODE, IMAT *); |
|
void Pm2Im(NODE, IMAT *); |
|
void PIm2m(NODE, MAT *); |
|
|
|
void AddMatI(VL, IMAT, IMAT, IMAT *); |
|
void MulMatI(VL, IMAT, IMAT, IMAT *); |
|
void MulMatG(VL, Obj, Obj, Obj *); |
|
void MulrMatI(VL, Obj, Obj, Obj *); |
|
void MulMatS(VL, IMAT, IMAT, IMAT *); |
|
void PutIent(IMAT, int, int, Obj); |
|
void GetIent(IMAT, int, int, Obj); |
|
void GetIbody(IMAT, int, int, Obj *); |
|
void ChsgnI(IMAT, IMAT *c); |
|
void AppendIent(IMAT, int, int, Obj); |
|
void MEnt(int, int, int, Obj, IENT *); |
|
void GetForeIent(IMATC *, IENT *, int *); |
|
void GetNextIent(IMATC *, IENT *, int *); |
|
void SubMatI(VL, IMAT, IMAT, IMAT *); |
|
/* IMAT */ |
|
|
Z stoz(int c); |
Z stoz(int c); |
Z utoz(unsigned int c); |
Z utoz(unsigned int c); |