| version 1.33, 2002/01/28 00:54:43 |
version 1.38, 2003/10/20 07:18:42 |
|
|
| * 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.32 2001/12/25 02:39:03 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.37 2003/07/09 07:11:09 noro Exp $ |
| */ |
*/ |
| #include <stdio.h> |
#include <stdio.h> |
| |
#include <stdlib.h> |
| |
|
| #if defined(hpux) |
#if defined(hpux) |
| #include <netinet/in.h> |
#include <netinet/in.h> |
| # define setbuffer(FP,buf,siz) setvbuf(FP,buf,_IOFBF,siz) |
# define setbuffer(FP,buf,siz) setvbuf(FP,buf,_IOFBF,siz) |
| #endif |
#endif |
| |
|
| #if defined(VISUAL) |
#if !defined(VISUAL) |
| #include <stdlib.h> |
#include <unistd.h> |
| #endif |
#endif |
| |
|
| #if !defined(VISUAL) |
#if !defined(VISUAL) |
| Line 81 typedef caddr_t pointer; |
|
| Line 82 typedef caddr_t pointer; |
|
| |
|
| typedef void * pointer; |
typedef void * pointer; |
| |
|
| #if defined(VISUAL) |
#if defined(sun) |
| |
#include <strings.h> |
| |
#else |
| #include <string.h> |
#include <string.h> |
| |
#if defined(VISUAL) |
| #define index(s,c) strchr(s,c) |
#define index(s,c) strchr(s,c) |
| #define bzero(s,len) memset(s,0,len) |
#define bzero(s,len) memset(s,0,len) |
| #define bcopy(x,y,len) memcpy(y,x,len) |
#define bcopy(x,y,len) memcpy(y,x,len) |
| #endif |
#endif |
| |
#endif |
| |
|
| #define COPY(a,b) ((b)=(a)) |
#define COPY(a,b) ((b)=(a)) |
| #define FREEN(p) |
#define FREEN(p) |
| Line 131 typedef void * pointer; |
|
| Line 136 typedef void * pointer; |
|
| #define ORD_GRADLEX 1 |
#define ORD_GRADLEX 1 |
| #define ORD_LEX 2 |
#define ORD_LEX 2 |
| |
|
| #if LONG_IS_32BIT |
#if defined(LONG_IS_32BIT) |
| #if defined(VISUAL) |
#if defined(VISUAL) |
| typedef _int64 L; |
typedef _int64 L; |
| typedef unsigned _int64 UL; |
typedef unsigned _int64 UL; |
| Line 414 typedef struct oDLBUCKET { |
|
| Line 419 typedef struct oDLBUCKET { |
|
| struct oDLBUCKET *next; |
struct oDLBUCKET *next; |
| } *DLBUCKET; |
} *DLBUCKET; |
| |
|
| |
typedef struct oGeoBucket { |
| |
int m; |
| |
struct oNODE *body[32]; |
| |
} *GeoBucket; |
| |
|
| typedef struct oVL { |
typedef struct oVL { |
| V v; |
V v; |
| struct oVL *next; |
struct oVL *next; |
|
|
| |
|
| #define INDEX 100 |
#define INDEX 100 |
| |
|
| #if USE_FLOAT |
#if defined(USE_FLOAT) |
| typedef float ModNum; |
typedef float ModNum; |
| #define NPrimes 536 |
#define NPrimes 536 |
| #else |
#else |
| Line 756 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
| Line 766 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q) |
|
| #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))) |
| |
|
| #if PARI |
#if defined(PARI) |
| #define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):BIGFLOAT(a)?rtodbl(BDY((BF)a)):0) |
#define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):BIGFLOAT(a)?rtodbl(BDY((BF)a)):0) |
| #else |
#else |
| #define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):0.0) |
#define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):0.0) |
| Line 845 extern VL CO,ALG; |
|
| Line 855 extern VL CO,ALG; |
|
| extern VL PVL; |
extern VL PVL; |
| extern R ONER; |
extern R ONER; |
| extern Q ONE; |
extern Q ONE; |
| |
extern Q TWO; |
| extern MQ ONEM; |
extern MQ ONEM; |
| extern LM ONELM; |
extern LM ONELM; |
| extern N ONEN; |
extern N ONEN; |
| Line 1867 int berlekampsf(UM p,int df,UM *tab,UM *r); |
|
| Line 1878 int berlekampsf(UM p,int df,UM *tab,UM *r); |
|
| void minipolysf(UM f,UM p,UM mp); |
void minipolysf(UM f,UM p,UM mp); |
| int find_rootsf(UM p,int *root); |
int find_rootsf(UM p,int *root); |
| void canzassf(UM f,int d,UM *r); |
void canzassf(UM f,int d,UM *r); |
| void sfhensel(int count,P f,V x,int degbound,GFS *evp,P *sfp,ML *listp); |
void sfhensel(int count,P f,V x,V y,int degbound,GFS *evp,P *sfp,ML *listp); |
| int sfberle(VL vl,P f,int count,GFS *ev,DCP *dcp); |
int sfberle(V x,V y,P f,int count,GFS *ev,DCP *dcp); |
| void sfgcdgen(P f,ML blist,ML *clistp); |
void sfgcdgen(P f,ML blist,ML *clistp); |
| void sfhenmain2(BM f,UM g0,UM h0,int dy,BM *gp); |
void sfhenmain2(BM f,UM g0,UM h0,int dy,BM *gp); |
| void ptosfbm(int dy,P f,BM fl); |
void ptosfbm(int dy,P f,BM fl); |