/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.32 2003/08/19 04:38:09 noro Exp $ */
#include "ca.h"
#include "inline.h"
#if defined(__GNUC__)
#define INLINE inline
#elif defined(VISUAL)
#define INLINE __inline
#else
#define INLINE
#endif
#define USE_GEOBUCKET 1
#define REDTAB_LEN 32003
typedef struct oPGeoBucket {
int m;
struct oND *body[32];
} *PGeoBucket;
typedef struct oND {
struct oNM *body;
int nv;
int len;
int sugar;
} *ND;
typedef struct oNDV {
struct oNMV *body;
int nv;
int len;
int sugar;
} *NDV;
typedef struct oNM {
struct oNM *next;
union {
int m;
Q z;
} c;
int td;
unsigned int dl[1];
} *NM;
typedef struct oNMV {
union {
int m;
Q z;
} c;
int td;
unsigned int dl[1];
} *NMV;
typedef struct oRHist {
struct oRHist *next;
int index;
int td,sugar;
unsigned int dl[1];
} *RHist;
typedef struct oND_pairs {
struct oND_pairs *next;
int i1,i2;
int td,sugar;
unsigned int lcm[1];
} *ND_pairs;
int (*nm_compare_generic)(NM a,NM b);
int (*nmv_compare_generic)(NMV a,NMV b);
double nd_scale=2;
static unsigned int **nd_bound;
int nd_nvar;
int nd_isrlex;
int nd_epw,nd_bpe,nd_wpd;
unsigned int nd_mask[32];
unsigned int nd_mask0,nd_mask1;
NM _nm_free_list;
ND _nd_free_list;
ND_pairs _ndp_free_list;
static NDV *nd_ps;
static NDV *nd_psq;
int *nd_psl;
RHist *nd_psh;
int nd_psn,nd_pslen;
RHist *nd_red;
int nd_red_len;
int nd_found,nd_create,nd_notfirst;
int nm_adv;
int nmv_adv;
int nd_degcompat;
extern int Top,Reverse;
#define HTD(d) ((d)->body->td)
#define HDL(d) ((d)->body->dl)
#define HCM(d) ((d)->body->c.m)
#define HCQ(d) ((d)->body->c.z)
#define CM(a) ((a)->c.m)
#define CQ(a) ((a)->c.z)
#define DL(a) ((a)->dl)
#define TD(a) ((a)->td)
#define SG(a) ((a)->sugar)
#define LEN(a) ((a)->len)
#define NM_COMPARE(m1,m2)\
nd_degcompat?(TD(m1)>TD(m2)?1\
:(TD(m1)
next = _nm_free_list; _nm_free_list = p;
}
}
void _ND_alloc()
{
ND p;
int i;
for ( i = 0; i < 1024; i++ ) {
p = (ND)GC_malloc(sizeof(struct oND));
p->body = (NM)_nd_free_list; _nd_free_list = p;
}
}
void _NDP_alloc()
{
ND_pairs p;
int i;
for ( i = 0; i < 1024; i++ ) {
p = (ND_pairs)GC_malloc(sizeof(struct oND_pairs)
+(nd_wpd-1)*sizeof(unsigned int));
p->next = _ndp_free_list; _ndp_free_list = p;
}
}
INLINE int nd_length(ND p)
{
NM m;
int i;
if ( !p )
return 0;
else {
for ( i = 0, m = BDY(p); m; m = NEXT(m), i++ );
return i;
}
}
INLINE int ndl_reducible(unsigned int *d1,unsigned int *d2)
{
unsigned int u1,u2;
int i,j;
switch ( nd_bpe ) {
case 4:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( (u1&0xf0000000) < (u2&0xf0000000) ) return 0;
if ( (u1&0xf000000) < (u2&0xf000000) ) return 0;
if ( (u1&0xf00000) < (u2&0xf00000) ) return 0;
if ( (u1&0xf0000) < (u2&0xf0000) ) return 0;
if ( (u1&0xf000) < (u2&0xf000) ) return 0;
if ( (u1&0xf00) < (u2&0xf00) ) return 0;
if ( (u1&0xf0) < (u2&0xf0) ) return 0;
if ( (u1&0xf) < (u2&0xf) ) return 0;
}
return 1;
break;
case 6:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( (u1&0x3f000000) < (u2&0x3f000000) ) return 0;
if ( (u1&0xfc0000) < (u2&0xfc0000) ) return 0;
if ( (u1&0x3f000) < (u2&0x3f000) ) return 0;
if ( (u1&0xfc0) < (u2&0xfc0) ) return 0;
if ( (u1&0x3f) < (u2&0x3f) ) return 0;
}
return 1;
break;
case 8:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( (u1&0xff000000) < (u2&0xff000000) ) return 0;
if ( (u1&0xff0000) < (u2&0xff0000) ) return 0;
if ( (u1&0xff00) < (u2&0xff00) ) return 0;
if ( (u1&0xff) < (u2&0xff) ) return 0;
}
return 1;
break;
case 16:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( (u1&0xffff0000) < (u2&0xffff0000) ) return 0;
if ( (u1&0xffff) < (u2&0xffff) ) return 0;
}
return 1;
break;
case 32:
for ( i = 0; i < nd_wpd; i++ )
if ( d1[i] < d2[i] ) return 0;
return 1;
break;
default:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
for ( j = 0; j < nd_epw; j++ )
if ( (u1&nd_mask[j]) < (u2&nd_mask[j]) ) return 0;
}
return 1;
}
}
/* returns the exponent of homo variable */
int ndl_dehomogenize(unsigned int *d)
{
unsigned int mask;
unsigned int h;
int i,bits;
if ( nd_isrlex ) {
if ( nd_bpe == 32 ) {
h = d[0];
for ( i = 1; i < nd_wpd; i++ )
d[i-1] = d[i];
d[i-1] = 0;
return h;
} else {
bits = nd_epw*nd_bpe;
mask = bits==32?0xffffffff:((1<<(nd_epw*nd_bpe))-1);
h = (d[0]>>((nd_epw-1)*nd_bpe))&nd_mask0;
for ( i = 0; i < nd_wpd; i++ )
d[i] = ((d[i]<>((nd_epw-1)*nd_bpe))&nd_mask0):0);
return h;
}
} else {
/* do nothing */
return d[nd_wpd-1];
}
}
void ndl_lcm(unsigned int *d1,unsigned *d2,unsigned int *d)
{
unsigned int t1,t2,u,u1,u2;
int i,j;
switch ( nd_bpe ) {
case 4:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = (u1&0xf0000000); t2 = (u2&0xf0000000); u = t1>t2?t1:t2;
t1 = (u1&0xf000000); t2 = (u2&0xf000000); u |= t1>t2?t1:t2;
t1 = (u1&0xf00000); t2 = (u2&0xf00000); u |= t1>t2?t1:t2;
t1 = (u1&0xf0000); t2 = (u2&0xf0000); u |= t1>t2?t1:t2;
t1 = (u1&0xf000); t2 = (u2&0xf000); u |= t1>t2?t1:t2;
t1 = (u1&0xf00); t2 = (u2&0xf00); u |= t1>t2?t1:t2;
t1 = (u1&0xf0); t2 = (u2&0xf0); u |= t1>t2?t1:t2;
t1 = (u1&0xf); t2 = (u2&0xf); u |= t1>t2?t1:t2;
d[i] = u;
}
break;
case 6:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = (u1&0x3f000000); t2 = (u2&0x3f000000); u = t1>t2?t1:t2;
t1 = (u1&0xfc0000); t2 = (u2&0xfc0000); u |= t1>t2?t1:t2;
t1 = (u1&0x3f000); t2 = (u2&0x3f000); u |= t1>t2?t1:t2;
t1 = (u1&0xfc0); t2 = (u2&0xfc0); u |= t1>t2?t1:t2;
t1 = (u1&0x3f); t2 = (u2&0x3f); u |= t1>t2?t1:t2;
d[i] = u;
}
break;
case 8:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = (u1&0xff000000); t2 = (u2&0xff000000); u = t1>t2?t1:t2;
t1 = (u1&0xff0000); t2 = (u2&0xff0000); u |= t1>t2?t1:t2;
t1 = (u1&0xff00); t2 = (u2&0xff00); u |= t1>t2?t1:t2;
t1 = (u1&0xff); t2 = (u2&0xff); u |= t1>t2?t1:t2;
d[i] = u;
}
break;
case 16:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = (u1&0xffff0000); t2 = (u2&0xffff0000); u = t1>t2?t1:t2;
t1 = (u1&0xffff); t2 = (u2&0xffff); u |= t1>t2?t1:t2;
d[i] = u;
}
break;
case 32:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
d[i] = u1>u2?u1:u2;
}
break;
default:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
for ( j = 0, u = 0; j < nd_epw; j++ ) {
t1 = (u1&nd_mask[j]); t2 = (u2&nd_mask[j]); u |= t1>t2?t1:t2;
}
d[i] = u;
}
break;
}
}
int ndl_td(unsigned int *d)
{
unsigned int t,u;
int i,j;
for ( t = 0, i = 0; i < nd_wpd; i++ ) {
u = d[i];
for ( j = 0; j < nd_epw; j++, u>>=nd_bpe )
t += (u&nd_mask0);
}
return t;
}
INLINE int ndl_compare(unsigned int *d1,unsigned int *d2)
{
int i;
for ( i = 0; i < nd_wpd; i++, d1++, d2++ )
if ( *d1 > *d2 )
return nd_isrlex ? -1 : 1;
else if ( *d1 < *d2 )
return nd_isrlex ? 1 : -1;
return 0;
}
INLINE int ndl_equal(unsigned int *d1,unsigned int *d2)
{
int i;
for ( i = 0; i < nd_wpd; i++ )
if ( d1[i] != d2[i] )
return 0;
return 1;
}
INLINE void ndl_copy(unsigned int *d1,unsigned int *d2)
{
int i;
switch ( nd_wpd ) {
case 1:
d2[0] = d1[0];
break;
case 2:
d2[0] = d1[0];
d2[1] = d1[1];
break;
default:
for ( i = 0; i < nd_wpd; i++ )
d2[i] = d1[i];
break;
}
}
INLINE void ndl_add(unsigned int *d1,unsigned int *d2,unsigned int *d)
{
int i;
switch ( nd_wpd ) {
case 1:
d[0] = d1[0]+d2[0];
break;
case 2:
d[0] = d1[0]+d2[0];
d[1] = d1[1]+d2[1];
break;
default:
for ( i = 0; i < nd_wpd; i++ )
d[i] = d1[i]+d2[i];
break;
}
}
INLINE void ndl_add2(unsigned int *d1,unsigned int *d2)
{
int i;
switch ( nd_wpd ) {
case 1:
d2[0] += d1[0];
break;
case 2:
d2[0] += d1[0];
d2[1] += d1[1];
break;
default:
for ( i = 0; i < nd_wpd; i++ )
d2[i] += d1[i];
break;
}
}
void ndl_sub(unsigned int *d1,unsigned int *d2,unsigned int *d)
{
int i;
for ( i = 0; i < nd_wpd; i++ )
d[i] = d1[i]-d2[i];
}
int ndl_disjoint(unsigned int *d1,unsigned int *d2)
{
unsigned int t1,t2,u,u1,u2;
int i,j;
switch ( nd_bpe ) {
case 4:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = u1&0xf0000000; t2 = u2&0xf0000000; if ( t1&&t2 ) return 0;
t1 = u1&0xf000000; t2 = u2&0xf000000; if ( t1&&t2 ) return 0;
t1 = u1&0xf00000; t2 = u2&0xf00000; if ( t1&&t2 ) return 0;
t1 = u1&0xf0000; t2 = u2&0xf0000; if ( t1&&t2 ) return 0;
t1 = u1&0xf000; t2 = u2&0xf000; if ( t1&&t2 ) return 0;
t1 = u1&0xf00; t2 = u2&0xf00; if ( t1&&t2 ) return 0;
t1 = u1&0xf0; t2 = u2&0xf0; if ( t1&&t2 ) return 0;
t1 = u1&0xf; t2 = u2&0xf; if ( t1&&t2 ) return 0;
}
return 1;
break;
case 6:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = u1&0x3f000000; t2 = u2&0x3f000000; if ( t1&&t2 ) return 0;
t1 = u1&0xfc0000; t2 = u2&0xfc0000; if ( t1&&t2 ) return 0;
t1 = u1&0x3f000; t2 = u2&0x3f000; if ( t1&&t2 ) return 0;
t1 = u1&0xfc0; t2 = u2&0xfc0; if ( t1&&t2 ) return 0;
t1 = u1&0x3f; t2 = u2&0x3f; if ( t1&&t2 ) return 0;
}
return 1;
break;
case 8:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = u1&0xff000000; t2 = u2&0xff000000; if ( t1&&t2 ) return 0;
t1 = u1&0xff0000; t2 = u2&0xff0000; if ( t1&&t2 ) return 0;
t1 = u1&0xff00; t2 = u2&0xff00; if ( t1&&t2 ) return 0;
t1 = u1&0xff; t2 = u2&0xff; if ( t1&&t2 ) return 0;
}
return 1;
break;
case 16:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
t1 = u1&0xffff0000; t2 = u2&0xffff0000; if ( t1&&t2 ) return 0;
t1 = u1&0xffff; t2 = u2&0xffff; if ( t1&&t2 ) return 0;
}
return 1;
break;
case 32:
for ( i = 0; i < nd_wpd; i++ )
if ( d1[i] && d2[i] ) return 0;
return 1;
break;
default:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
for ( j = 0; j < nd_epw; j++ ) {
if ( (u1&nd_mask0) && (u2&nd_mask0) ) return 0;
u1 >>= nd_bpe; u2 >>= nd_bpe;
}
}
return 1;
break;
}
}
int ndl_check_bound2(int index,unsigned int *d2)
{
unsigned int u2;
unsigned int *d1;
int i,j,ind,k;
d1 = nd_bound[index];
ind = 0;
switch ( nd_bpe ) {
case 4:
for ( i = 0; i < nd_wpd; i++ ) {
u2 = d2[i];
if ( d1[ind++]+((u2>>28)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>24)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>20)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>16)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>12)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>8)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+((u2>>4)&0xf) >= 0x10 ) return 1;
if ( d1[ind++]+(u2&0xf) >= 0x10 ) return 1;
}
return 0;
break;
case 6:
for ( i = 0; i < nd_wpd; i++ ) {
u2 = d2[i];
if ( d1[ind++]+((u2>>24)&0x3f) >= 0x40 ) return 1;
if ( d1[ind++]+((u2>>18)&0x3f) >= 0x40 ) return 1;
if ( d1[ind++]+((u2>>12)&0x3f) >= 0x40 ) return 1;
if ( d1[ind++]+((u2>>6)&0x3f) >= 0x40 ) return 1;
if ( d1[ind++]+(u2&0x3f) >= 0x40 ) return 1;
}
return 0;
break;
case 8:
for ( i = 0; i < nd_wpd; i++ ) {
u2 = d2[i];
if ( d1[ind++]+((u2>>24)&0xff) >= 0x100 ) return 1;
if ( d1[ind++]+((u2>>16)&0xff) >= 0x100 ) return 1;
if ( d1[ind++]+((u2>>8)&0xff) >= 0x100 ) return 1;
if ( d1[ind++]+(u2&0xff) >= 0x100 ) return 1;
}
return 0;
break;
case 16:
for ( i = 0; i < nd_wpd; i++ ) {
u2 = d2[i];
if ( d1[ind++]+((u2>>16)&0xffff) > 0x10000 ) return 1;
if ( d1[ind++]+(u2&0xffff) > 0x10000 ) return 1;
}
return 0;
break;
case 32:
for ( i = 0; i < nd_wpd; i++ )
if ( d1[i]+d2[i]>k)&nd_mask0) > nd_mask0 ) return 1;
}
return 0;
break;
}
}
int ndl_check_bound2_direct(unsigned int *d1,unsigned int *d2)
{
unsigned int u1,u2;
int i,j,k;
switch ( nd_bpe ) {
case 4:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( ((u1>>28)&0xf)+((u2>>28)&0xf) >= 0x10 ) return 1;
if ( ((u1>>24)&0xf)+((u2>>24)&0xf) >= 0x10 ) return 1;
if ( ((u1>>20)&0xf)+((u2>>20)&0xf) >= 0x10 ) return 1;
if ( ((u1>>16)&0xf)+((u2>>16)&0xf) >= 0x10 ) return 1;
if ( ((u1>>12)&0xf)+((u2>>12)&0xf) >= 0x10 ) return 1;
if ( ((u1>>8)&0xf)+((u2>>8)&0xf) >= 0x10 ) return 1;
if ( ((u1>>4)&0xf)+((u2>>4)&0xf) >= 0x10 ) return 1;
if ( (u1&0xf)+(u2&0xf) >= 0x10 ) return 1;
}
return 0;
break;
case 6:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( ((u1>>24)&0x3f)+((u2>>24)&0x3f) >= 0x40 ) return 1;
if ( ((u1>>18)&0x3f)+((u2>>18)&0x3f) >= 0x40 ) return 1;
if ( ((u1>>12)&0x3f)+((u2>>12)&0x3f) >= 0x40 ) return 1;
if ( ((u1>>6)&0x3f)+((u2>>6)&0x3f) >= 0x40 ) return 1;
if ( (u1&0x3f)+(u2&0x3f) >= 0x40 ) return 1;
}
return 0;
break;
case 8:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( ((u1>>24)&0xff)+((u2>>24)&0xff) >= 0x100 ) return 1;
if ( ((u1>>16)&0xff)+((u2>>16)&0xff) >= 0x100 ) return 1;
if ( ((u1>>8)&0xff)+((u2>>8)&0xff) >= 0x100 ) return 1;
if ( (u1&0xff)+(u2&0xff) >= 0x100 ) return 1;
}
return 0;
break;
case 16:
for ( i = 0; i < nd_wpd; i++ ) {
u1 = d1[i]; u2 = d2[i];
if ( ((u1>>16)&0xffff)+((u2>>16)&0xffff) > 0x10000 ) return 1;
if ( (u2&0xffff)+(u2&0xffff) > 0x10000 ) return 1;
}
return 0;
break;
case 32:
for ( i = 0; i < nd_wpd; i++ )
if ( d1[i]+d2[i]>k)&nd_mask0)+((u2>>k)&nd_mask0) > nd_mask0 )
return 1;
}
return 0;
break;
}
}
INLINE int ndl_hash_value(int td,unsigned int *d)
{
int i;
int r;
r = td;
for ( i = 0; i < nd_wpd; i++ )
r = ((r<<16)+d[i])%REDTAB_LEN;
return r;
}
INLINE int nd_find_reducer(ND g)
{
RHist r;
int d,k,i;
d = ndl_hash_value(HTD(g),HDL(g));
for ( r = nd_red[d], k = 0; r; r = NEXT(r), k++ ) {
if ( HTD(g) == TD(r) && ndl_equal(HDL(g),DL(r)) ) {
if ( k > 0 ) nd_notfirst++;
nd_found++;
return r->index;
}
}
if ( Reverse )
for ( i = nd_psn-1; i >= 0; i-- ) {
r = nd_psh[i];
if ( HTD(g) >= TD(r) && ndl_reducible(HDL(g),DL(r)) ) {
nd_create++;
nd_append_red(HDL(g),HTD(g),i);
return i;
}
}
else
for ( i = 0; i < nd_psn; i++ ) {
r = nd_psh[i];
if ( HTD(g) >= TD(r) && ndl_reducible(HDL(g),DL(r)) ) {
nd_create++;
nd_append_red(HDL(g),HTD(g),i);
return i;
}
}
return -1;
}
INLINE int nd_find_reducer_direct(ND g,NDV *ps,int len)
{
NDV r;
RHist s;
int d,k,i;
if ( Reverse )
for ( i = len-1; i >= 0; i-- ) {
r = ps[i];
if ( HTD(g) >= HTD(r) && ndl_reducible(HDL(g),HDL(r)) ) {
nd_append_red(HDL(g),HTD(g),i);
return i;
}
}
else
for ( i = 0; i < len; i++ ) {
r = ps[i];
if ( HTD(g) >= HTD(r) && ndl_reducible(HDL(g),HDL(r)) ) {
nd_append_red(HDL(g),HTD(g),i);
return i;
}
}
return -1;
}
ND nd_add(int mod,ND p1,ND p2)
{
int n,c;
int t,can;
ND r;
NM m1,m2,mr0,mr,s;
if ( !p1 )
return p2;
else if ( !p2 )
return p1;
else if ( !mod )
return nd_add_q(p1,p2);
else {
can = 0;
for ( n = NV(p1), m1 = BDY(p1), m2 = BDY(p2), mr0 = 0; m1 && m2; ) {
c = NM_COMPARE(m1,m2);
switch ( c ) {
case 0:
t = ((CM(m1))+(CM(m2))) - mod;
if ( t < 0 )
t += mod;
s = m1; m1 = NEXT(m1);
if ( t ) {
can++;
NEXTNM2(mr0,mr,s); CM(mr) = (t);
} else {
can += 2;
FREENM(s);
}
s = m2; m2 = NEXT(m2); FREENM(s);
break;
case 1:
s = m1; m1 = NEXT(m1); NEXTNM2(mr0,mr,s);
break;
case -1:
s = m2; m2 = NEXT(m2); NEXTNM2(mr0,mr,s);
break;
}
}
if ( !mr0 )
if ( m1 )
mr0 = m1;
else if ( m2 )
mr0 = m2;
else
return 0;
else if ( m1 )
NEXT(mr) = m1;
else if ( m2 )
NEXT(mr) = m2;
else
NEXT(mr) = 0;
BDY(p1) = mr0;
SG(p1) = MAX(SG(p1),SG(p2));
LEN(p1) = LEN(p1)+LEN(p2)-can;
FREEND(p2);
return p1;
}
}
ND nd_add_q(ND p1,ND p2)
{
int n,c,can;
ND r;
NM m1,m2,mr0,mr,s;
Q t;
if ( !p1 )
return p2;
else if ( !p2 )
return p1;
else {
can = 0;
for ( n = NV(p1), m1 = BDY(p1), m2 = BDY(p2), mr0 = 0; m1 && m2; ) {
c = NM_COMPARE(m1,m2);
switch ( c ) {
case 0:
addq(CQ(m1),CQ(m2),&t);
s = m1; m1 = NEXT(m1);
if ( t ) {
can++;
NEXTNM2(mr0,mr,s); CQ(mr) = (t);
} else {
can += 2;
FREENM(s);
}
s = m2; m2 = NEXT(m2); FREENM(s);
break;
case 1:
s = m1; m1 = NEXT(m1); NEXTNM2(mr0,mr,s);
break;
case -1:
s = m2; m2 = NEXT(m2); NEXTNM2(mr0,mr,s);
break;
}
}
if ( !mr0 )
if ( m1 )
mr0 = m1;
else if ( m2 )
mr0 = m2;
else
return 0;
else if ( m1 )
NEXT(mr) = m1;
else if ( m2 )
NEXT(mr) = m2;
else
NEXT(mr) = 0;
BDY(p1) = mr0;
SG(p1) = MAX(SG(p1),SG(p2));
LEN(p1) = LEN(p1)+LEN(p2)-can;
FREEND(p2);
return p1;
}
}
/* ret=1 : success, ret=0 : overflow */
int nd_nf(int mod,ND g,int full,ND *rp)
{
ND d;
NM m,mrd,tail;
NM mul;
int n,sugar,psugar,sugar0,stat,index;
int c,c1,c2,dummy;
RHist h;
NDV p,red;
Q cg,cred,gcd;
double hmag;
if ( !g ) {
*rp = 0;
return 1;
}
if ( !mod )
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
sugar0 = sugar = SG(g);
n = NV(g);
mul = (NM)ALLOCA(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
for ( d = 0; g; ) {
index = nd_find_reducer(g);
if ( index >= 0 ) {
h = nd_psh[index];
ndl_sub(HDL(g),DL(h),DL(mul));
TD(mul) = HTD(g)-TD(h);
#if 0
if ( d && (SG(p)+TD(mul)) > sugar ) {
goto afo;
}
#endif
if ( ndl_check_bound2(index,DL(mul)) ) {
nd_free(g); nd_free(d);
return 0;
}
if ( mod ) {
p = nd_ps[index];
c1 = invm(HCM(p),mod); c2 = mod-HCM(g);
DMAR(c1,c2,0,mod,c); CM(mul) = c;
} else {
p = nd_psq[index];
igcd_cofactor(HCQ(g),HCQ(p),&gcd,&cg,&cred);
chsgnq(cg,&CQ(mul));
nd_mul_c_q(d,cred); nd_mul_c_q(g,cred);
}
g = nd_add(mod,g,ndv_mul_nm(mod,p,mul));
sugar = MAX(sugar,SG(p)+TD(mul));
if ( !mod && hmag && g && ((double)(p_mag((P)HCQ(g))) > hmag) ) {
nd_removecont2(d,g);
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
}
} else if ( !full ) {
*rp = g;
return 1;
} else {
afo:
m = BDY(g);
if ( NEXT(m) ) {
BDY(g) = NEXT(m); NEXT(m) = 0;
LEN(g)--;
} else {
FREEND(g); g = 0;
}
if ( d ) {
NEXT(tail)=m;
tail=m;
LEN(d)++;
} else {
MKND(n,m,1,d);
tail = BDY(d);
}
}
}
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
int nd_nf_pbucket(int mod,ND g,int full,ND *rp)
{
int hindex,index;
NDV p;
ND u,d,red;
NODE l;
NM mul,m,mrd,tail;
int sugar,psugar,n,h_reducible;
PGeoBucket bucket;
int c,c1,c2;
Q cg,cred,gcd,zzz;
RHist h;
double hmag,gmag;
if ( !g ) {
*rp = 0;
return 1;
}
sugar = SG(g);
n = NV(g);
if ( !mod )
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
bucket = create_pbucket();
add_pbucket(mod,bucket,g);
d = 0;
mul = (NM)ALLOCA(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
while ( 1 ) {
hindex = mod?head_pbucket(mod,bucket):head_pbucket_q(bucket);
if ( hindex < 0 ) {
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
g = bucket->body[hindex];
index = nd_find_reducer(g);
if ( index >= 0 ) {
h = nd_psh[index];
ndl_sub(HDL(g),DL(h),DL(mul));
TD(mul) = HTD(g)-TD(h);
if ( ndl_check_bound2(index,DL(mul)) ) {
nd_free(d);
free_pbucket(bucket);
*rp = 0;
return 0;
}
if ( mod ) {
p = nd_ps[index];
c1 = invm(HCM(p),mod); c2 = mod-HCM(g);
DMAR(c1,c2,0,mod,c); CM(mul) = c;
} else {
p = nd_psq[index];
igcd_cofactor(HCQ(g),HCQ(p),&gcd,&cg,&cred);
chsgnq(cg,&CQ(mul));
nd_mul_c_q(d,cred);
mulq_pbucket(bucket,cred);
g = bucket->body[hindex];
gmag = (double)p_mag((P)HCQ(g));
}
red = ndv_mul_nm(mod,p,mul);
bucket->body[hindex] = nd_remove_head(g);
red = nd_remove_head(red);
add_pbucket(mod,bucket,red);
sugar = MAX(sugar,SG(p)+TD(mul));
if ( !mod && hmag && (gmag > hmag) ) {
g = normalize_pbucket(mod,bucket);
if ( !g ) {
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
nd_removecont2(d,g);
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
add_pbucket(mod,bucket,g);
}
} else if ( !full ) {
g = normalize_pbucket(mod,bucket);
if ( g )
SG(g) = sugar;
*rp = g;
return 1;
} else {
m = BDY(g);
if ( NEXT(m) ) {
BDY(g) = NEXT(m); NEXT(m) = 0;
LEN(g)--;
} else {
FREEND(g); g = 0;
}
bucket->body[hindex] = g;
NEXT(m) = 0;
if ( d ) {
NEXT(tail)=m;
tail=m;
LEN(d)++;
} else {
MKND(n,m,1,d);
tail = BDY(d);
}
}
}
}
int nd_nf_direct(int mod,ND g,NDV *ps,int len,int full,ND *rp)
{
ND d;
NM m,mrd,tail;
NM mul;
int n,sugar,psugar,sugar0,stat,index;
int c,c1,c2;
RHist h;
NDV p,red;
Q cg,cred,gcd;
double hmag;
if ( !g ) {
*rp = 0;
return 1;
}
#if 0
if ( !mod )
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
#else
/* XXX */
hmag = 0;
#endif
sugar0 = sugar = SG(g);
n = NV(g);
mul = (NM)ALLOCA(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
for ( d = 0; g; ) {
index = nd_find_reducer_direct(g,ps,len);
if ( index >= 0 ) {
p = ps[index];
ndl_sub(HDL(g),HDL(p),DL(mul));
TD(mul) = HTD(g)-HTD(p);
if ( ndl_check_bound2_direct(HDL(p),DL(mul)) ) {
nd_free(g); nd_free(d);
return 0;
}
if ( mod ) {
c1 = invm(HCM(p),mod); c2 = mod-HCM(g);
DMAR(c1,c2,0,mod,c); CM(mul) = c;
} else {
igcd_cofactor(HCQ(g),HCQ(p),&gcd,&cg,&cred);
chsgnq(cg,&CQ(mul));
nd_mul_c_q(d,cred); nd_mul_c_q(g,cred);
}
g = nd_add(mod,g,ndv_mul_nm(mod,p,mul));
sugar = MAX(sugar,SG(p)+TD(mul));
if ( !mod && hmag && g && ((double)(p_mag((P)HCQ(g))) > hmag) ) {
nd_removecont2(d,g);
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
}
} else if ( !full ) {
*rp = g;
return 1;
} else {
m = BDY(g);
if ( NEXT(m) ) {
BDY(g) = NEXT(m); NEXT(m) = 0;
LEN(g)--;
} else {
FREEND(g); g = 0;
}
if ( d ) {
NEXT(tail)=m;
tail=m;
LEN(d)++;
} else {
MKND(n,m,1,d);
tail = BDY(d);
}
}
}
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
int nd_nf_direct_pbucket(int mod,ND g,NDV *ps,int len,int full,ND *rp)
{
int hindex,index;
NDV p;
ND u,d,red;
NODE l;
NM mul,m,mrd,tail;
int sugar,psugar,n,h_reducible;
PGeoBucket bucket;
int c,c1,c2;
Q cg,cred,gcd,zzz;
RHist h;
double hmag,gmag;
if ( !g ) {
*rp = 0;
return 1;
}
sugar = SG(g);
n = NV(g);
#if 0
if ( !mod )
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
#else
/* XXX */
hmag = 0;
#endif
bucket = create_pbucket();
add_pbucket(mod,bucket,g);
d = 0;
mul = (NM)ALLOCA(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
while ( 1 ) {
hindex = mod?head_pbucket(mod,bucket):head_pbucket_q(bucket);
if ( hindex < 0 ) {
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
g = bucket->body[hindex];
index = nd_find_reducer_direct(g,ps,len);
if ( index >= 0 ) {
p = ps[index];
ndl_sub(HDL(g),HDL(p),DL(mul));
TD(mul) = HTD(g)-HTD(p);
if ( ndl_check_bound2_direct(HDL(p),DL(mul)) ) {
nd_free(d);
free_pbucket(bucket);
*rp = 0;
return 0;
}
if ( mod ) {
c1 = invm(HCM(p),mod); c2 = mod-HCM(g);
DMAR(c1,c2,0,mod,c); CM(mul) = c;
} else {
igcd_cofactor(HCQ(g),HCQ(p),&gcd,&cg,&cred);
chsgnq(cg,&CQ(mul));
nd_mul_c_q(d,cred);
mulq_pbucket(bucket,cred);
g = bucket->body[hindex];
gmag = (double)p_mag((P)HCQ(g));
}
red = ndv_mul_nm(mod,p,mul);
bucket->body[hindex] = nd_remove_head(g);
red = nd_remove_head(red);
add_pbucket(mod,bucket,red);
sugar = MAX(sugar,SG(p)+TD(mul));
if ( !mod && hmag && (gmag > hmag) ) {
g = normalize_pbucket(mod,bucket);
if ( !g ) {
if ( d )
SG(d) = sugar;
*rp = d;
return 1;
}
nd_removecont2(d,g);
hmag = ((double)p_mag((P)HCQ(g)))*nd_scale;
add_pbucket(mod,bucket,g);
}
} else if ( !full ) {
g = normalize_pbucket(mod,bucket);
if ( g )
SG(g) = sugar;
*rp = g;
return 1;
} else {
m = BDY(g);
if ( NEXT(m) ) {
BDY(g) = NEXT(m); NEXT(m) = 0;
LEN(g)--;
} else {
FREEND(g); g = 0;
}
bucket->body[hindex] = g;
NEXT(m) = 0;
if ( d ) {
NEXT(tail)=m;
tail=m;
LEN(d)++;
} else {
MKND(n,m,1,d);
tail = BDY(d);
}
}
}
}
/* input : list of DP, cand : list of DP */
int nd_check_candidate(NODE input,NODE cand)
{
int n,i,stat;
ND nf,d;
NODE t;
nd_setup(0,cand);
n = length(cand);
/* membercheck : list is a subset of Id(cand) ? */
for ( t = input; t; t = NEXT(t) ) {
d = dptond(0,(DP)BDY(t));
stat = nd_nf_direct(0,d,nd_psq,n,0,&nf);
if ( !stat )
nd_reconstruct_direct(0,nd_psq,n);
else if ( nf )
return 0;
}
/* gbcheck : cand is a GB of Id(cand) ? */
if ( !nd_gb(0,1) )
return 0;
/* XXX */
return 1;
}
ND nd_remove_head(ND p)
{
NM m;
m = BDY(p);
if ( !NEXT(m) ) {
FREEND(p);
p = 0;
} else {
BDY(p) = NEXT(m);
LEN(p)--;
}
FREENM(m);
return p;
}
PGeoBucket create_pbucket()
{
PGeoBucket g;
g = CALLOC(1,sizeof(struct oPGeoBucket));
g->m = -1;
return g;
}
void free_pbucket(PGeoBucket b) {
int i;
for ( i = 0; i <= b->m; i++ )
if ( b->body[i] ) {
nd_free(b->body[i]);
b->body[i] = 0;
}
GC_free(b);
}
void add_pbucket(int mod,PGeoBucket g,ND d)
{
int l,i,k,m;
if ( !d )
return;
l = LEN(d);
for ( k = 0, m = 1; l > m; k++, m <<= 1 );
/* 2^(k-1) < l <= 2^k (=m) */
d = nd_add(mod,g->body[k],d);
for ( ; d && LEN(d) > m; k++, m <<= 1 ) {
g->body[k] = 0;
d = nd_add(mod,g->body[k+1],d);
}
g->body[k] = d;
g->m = MAX(g->m,k);
}
void mulq_pbucket(PGeoBucket g,Q c)
{
int k;
for ( k = 0; k <= g->m; k++ )
nd_mul_c_q(g->body[k],c);
}
/* XXX not completed */
int head_pbucket(int mod,PGeoBucket g)
{
int j,i,c,k,nv,sum;
unsigned int *di,*dj;
ND gi,gj;
k = g->m;
while ( 1 ) {
j = -1;
for ( i = 0; i <= k; i++ ) {
if ( !(gi = g->body[i]) )
continue;
if ( j < 0 ) {
j = i;
gj = g->body[j];
dj = HDL(gj);
sum = HCM(gj);
} else {
di = HDL(gi);
nv = NV(gi);
c = NM_COMPARE(BDY(gi),BDY(gj));
if ( c > 0 ) {
if ( sum )
HCM(gj) = sum;
else
g->body[j] = nd_remove_head(gj);
j = i;
gj = g->body[j];
dj = HDL(gj);
sum = HCM(gj);
} else if ( c == 0 ) {
sum = sum+HCM(gi)-mod;
if ( sum < 0 )
sum += mod;
g->body[i] = nd_remove_head(gi);
}
}
}
if ( j < 0 )
return -1;
else if ( sum ) {
HCM(gj) = sum;
return j;
} else
g->body[j] = nd_remove_head(gj);
}
}
int head_pbucket_q(PGeoBucket g)
{
int j,i,c,k,nv;
Q sum,t;
unsigned int *di,*dj;
ND gi,gj;
k = g->m;
while ( 1 ) {
j = -1;
for ( i = 0; i <= k; i++ ) {
if ( !(gi = g->body[i]) )
continue;
if ( j < 0 ) {
j = i;
gj = g->body[j];
dj = HDL(gj);
sum = HCQ(gj);
} else {
di = HDL(gi);
nv = NV(gi);
c = NM_COMPARE(BDY(gi),BDY(gj));
if ( c > 0 ) {
if ( sum )
HCQ(gj) = sum;
else
g->body[j] = nd_remove_head(gj);
j = i;
gj = g->body[j];
dj = HDL(gj);
sum = HCQ(gj);
} else if ( c == 0 ) {
addq(sum,HCQ(gi),&t);
sum = t;
g->body[i] = nd_remove_head(gi);
}
}
}
if ( j < 0 )
return -1;
else if ( sum ) {
HCQ(gj) = sum;
return j;
} else
g->body[j] = nd_remove_head(gj);
}
}
ND normalize_pbucket(int mod,PGeoBucket g)
{
int i;
ND r,t;
r = 0;
for ( i = 0; i <= g->m; i++ ) {
r = nd_add(mod,r,g->body[i]);
g->body[i] = 0;
}
g->m = -1;
return r;
}
/* return value = 0 => input is not a GB */
NODE nd_gb(int m,int checkonly)
{
int i,nh,sugar,stat;
NODE r,g,t;
ND_pairs d;
ND_pairs l;
ND h,nf;
g = 0; d = 0;
for ( i = 0; i < nd_psn; i++ ) {
d = update_pairs(d,g,i);
g = update_base(g,i);
}
sugar = 0;
while ( d ) {
again:
l = nd_minp(d,&d);
if ( SG(l) != sugar ) {
sugar = SG(l);
fprintf(asir_out,"%d",sugar);
}
stat = nd_sp(m,l,&h);
if ( !stat ) {
NEXT(l) = d; d = l;
d = nd_reconstruct(m,0,d);
goto again;
}
stat = m?nd_nf_pbucket(m,h,!Top,&nf):nd_nf(m,h,!Top,&nf);
if ( !stat ) {
NEXT(l) = d; d = l;
d = nd_reconstruct(m,0,d);
goto again;
} else if ( nf ) {
if ( checkonly ) return 0;
printf("+"); fflush(stdout);
nh = nd_newps(m,nf);
d = update_pairs(d,g,nh);
g = update_base(g,nh);
FREENDP(l);
} else {
printf("."); fflush(stdout);
FREENDP(l);
}
}
if ( m )
for ( t = g; t; t = NEXT(t) )
BDY(t) = (pointer)nd_ps[(int)BDY(t)];
else
for ( t = g; t; t = NEXT(t) )
BDY(t) = (pointer)nd_psq[(int)BDY(t)];
return g;
}
NODE nd_gb_trace(int m)
{
int i,nh,sugar,stat;
NODE r,g,t;
ND_pairs d;
ND_pairs l;
ND h,nf,nfq;
g = 0; d = 0;
for ( i = 0; i < nd_psn; i++ ) {
d = update_pairs(d,g,i);
g = update_base(g,i);
}
sugar = 0;
while ( d ) {
again:
l = nd_minp(d,&d);
if ( SG(l) != sugar ) {
sugar = SG(l);
fprintf(asir_out,"%d",sugar);
}
stat = nd_sp(m,l,&h);
if ( !stat ) {
NEXT(l) = d; d = l;
d = nd_reconstruct(m,1,d);
goto again;
}
stat = nd_nf_pbucket(m,h,!Top,&nf);
if ( !stat ) {
NEXT(l) = d; d = l;
d = nd_reconstruct(m,1,d);
goto again;
} else if ( nf ) {
/* overflow does not occur */
nd_sp(0,l,&h);
nd_nf(0,h,!Top,&nfq);
if ( nfq ) {
printf("+"); fflush(stdout);
nh = nd_newps_trace(m,nf,nfq);
/* failure; m|HC(nfq) */
if ( nf < 0 ) return 0;
d = update_pairs(d,g,nh);
g = update_base(g,nh);
} else {
printf("*"); fflush(stdout);
}
} else {
printf("."); fflush(stdout);
}
FREENDP(l);
}
for ( t = g; t; t = NEXT(t) )
BDY(t) = (pointer)nd_psq[(int)BDY(t)];
return g;
}
int ndv_compare(NDV *p1,NDV *p2)
{
int td1,td2;
if ( nd_degcompat ) {
td1 = HTD(*p1); td2 = HTD(*p2);
if ( td1 > td2 ) return 1;
else if ( td1 < td2 ) return -1;
else return ndl_compare(HDL(*p1),HDL(*p2));
} else
return (*nmv_compare_generic)(BDY(*p1),BDY(*p2));
}
int ndv_compare_rev(NDV *p1,NDV *p2)
{
return -ndv_compare(p1,p2);
}
NODE nd_reduceall(int m,NODE f)
{
int i,j,n,stat;
NDV *w,*ps;
ND nf,g;
NODE t,a0,a;
for ( n = 0, t = f; t; t = NEXT(t), n++ );
ps = (NDV *)ALLOCA(n*sizeof(NDV));
for ( i = 0, t = f; i < n; i++, t = NEXT(t) )
ps[i] = (NDV)BDY(t);
qsort(ps,n,sizeof(NDV),(int (*)(const void *,const void *))ndv_compare);
w = (NDV *)ALLOCA((n-1)*sizeof(NDV));
for ( i = 0; i < n; i++ ) {
for ( j = 0; j < i; j++ )
w[j] = (NDV)ps[j];
for ( j = i+1; j < n; j++ )
w[j-1] = ps[j];
g = ndvtond(m,ps[i]);
stat = nd_nf_direct(m,g,w,n-1,1,&nf);
if ( !stat )
nd_reconstruct_direct(m,ps,n);
else if ( !nf ) {
printf("."); fflush(stdout);
ndv_free(ps[i]);
for ( j = i+1; j < n; j++ )
ps[j-1] = ps[j];
n--;
} else {
printf("."); fflush(stdout);
ndv_free(ps[i]);
nd_removecont(m,nf);
ps[i] = ndtondv(m,nf);
nd_free(nf);
}
}
for ( a0 = 0, i = 0; i < n; i++ ) {
NEXTNODE(a0,a);
BDY(a) = (pointer)ps[i];
}
NEXT(a) = 0;
return a0;
}
ND_pairs update_pairs( ND_pairs d, NODE /* of index */ g, int t)
{
ND_pairs d1,nd,cur,head,prev,remove;
if ( !g ) return d;
d = crit_B(d,t);
d1 = nd_newpairs(g,t);
d1 = crit_M(d1);
d1 = crit_F(d1);
prev = 0; cur = head = d1;
while ( cur ) {
if ( crit_2( cur->i1,cur->i2 ) ) {
remove = cur;
if ( !prev ) {
head = cur = NEXT(cur);
} else {
cur = NEXT(prev) = NEXT(cur);
}
FREENDP(remove);
} else {
prev = cur;
cur = NEXT(cur);
}
}
if ( !d )
return head;
else {
nd = d;
while ( NEXT(nd) )
nd = NEXT(nd);
NEXT(nd) = head;
return d;
}
}
ND_pairs nd_newpairs( NODE g, int t )
{
NODE h;
unsigned int *dl;
int td,ts,s;
ND_pairs r,r0;
dl = DL(nd_psh[t]);
td = TD(nd_psh[t]);
ts = SG(nd_psh[t]) - td;
for ( r0 = 0, h = g; h; h = NEXT(h) ) {
NEXTND_pairs(r0,r);
r->i1 = (int)BDY(h);
r->i2 = t;
ndl_lcm(DL(nd_psh[r->i1]),dl,r->lcm);
TD(r) = ndl_td(r->lcm);
s = SG(nd_psh[r->i1])-TD(nd_psh[r->i1]);
SG(r) = MAX(s,ts) + TD(r);
}
NEXT(r) = 0;
return r0;
}
ND_pairs crit_B( ND_pairs d, int s )
{
ND_pairs cur,head,prev,remove;
unsigned int *t,*tl,*lcm;
int td,tdl;
if ( !d ) return 0;
t = DL(nd_psh[s]);
prev = 0;
head = cur = d;
lcm = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
while ( cur ) {
tl = cur->lcm;
if ( ndl_reducible(tl,t)
&& (ndl_lcm(DL(nd_psh[cur->i1]),t,lcm),!ndl_equal(lcm,tl))
&& (ndl_lcm(DL(nd_psh[cur->i2]),t,lcm),!ndl_equal(lcm,tl)) ) {
remove = cur;
if ( !prev ) {
head = cur = NEXT(cur);
} else {
cur = NEXT(prev) = NEXT(cur);
}
FREENDP(remove);
} else {
prev = cur;
cur = NEXT(cur);
}
}
return head;
}
ND_pairs crit_M( ND_pairs d1 )
{
ND_pairs e,d2,d3,dd,p;
unsigned int *id,*jd;
int itd,jtd;
for ( dd = 0, e = d1; e; e = d3 ) {
if ( !(d2 = NEXT(e)) ) {
NEXT(e) = dd;
return e;
}
id = e->lcm;
itd = TD(e);
for ( d3 = 0; d2; d2 = p ) {
p = NEXT(d2),
jd = d2->lcm;
jtd = TD(d2);
if ( jtd == itd )
if ( id == jd );
else if ( ndl_reducible(jd,id) ) continue;
else if ( ndl_reducible(id,jd) ) goto delit;
else ;
else if ( jtd > itd )
if ( ndl_reducible(jd,id) ) continue;
else ;
else if ( ndl_reducible(id,jd ) ) goto delit;
NEXT(d2) = d3;
d3 = d2;
}
NEXT(e) = dd;
dd = e;
continue;
/**/
delit: NEXT(d2) = d3;
d3 = d2;
for ( ; p; p = d2 ) {
d2 = NEXT(p);
NEXT(p) = d3;
d3 = p;
}
FREENDP(e);
}
return dd;
}
ND_pairs crit_F( ND_pairs d1 )
{
ND_pairs rest, head,remove;
ND_pairs last, p, r, w;
int s;
for ( head = last = 0, p = d1; NEXT(p); ) {
r = w = equivalent_pairs(p,&rest);
s = SG(r);
w = NEXT(w);
while ( w ) {
if ( crit_2(w->i1,w->i2) ) {
r = w;
w = NEXT(w);
while ( w ) {
remove = w;
w = NEXT(w);
FREENDP(remove);
}
break;
} else if ( SG(w) < s ) {
FREENDP(r);
r = w;
s = SG(r);
w = NEXT(w);
} else {
remove = w;
w = NEXT(w);
FREENDP(remove);
}
}
if ( last ) NEXT(last) = r;
else head = r;
NEXT(last = r) = 0;
p = rest;
if ( !p ) return head;
}
if ( !last ) return p;
NEXT(last) = p;
return head;
}
int crit_2( int dp1, int dp2 )
{
return ndl_disjoint(DL(nd_psh[dp1]),DL(nd_psh[dp2]));
}
static ND_pairs equivalent_pairs( ND_pairs d1, ND_pairs *prest )
{
ND_pairs w,p,r,s;
unsigned int *d;
int td;
w = d1;
d = w->lcm;
td = TD(w);
s = NEXT(w);
NEXT(w) = 0;
for ( r = 0; s; s = p ) {
p = NEXT(s);
if ( td == TD(s) && ndl_equal(d,s->lcm) ) {
NEXT(s) = w;
w = s;
} else {
NEXT(s) = r;
r = s;
}
}
*prest = r;
return w;
}
NODE update_base(NODE nd,int ndp)
{
unsigned int *dl, *dln;
NODE last, p, head;
int td,tdn;
dl = DL(nd_psh[ndp]);
td = TD(nd_psh[ndp]);
for ( head = last = 0, p = nd; p; ) {
dln = DL(nd_psh[(int)BDY(p)]);
tdn = TD(nd_psh[(int)BDY(p)]);
if ( tdn >= td && ndl_reducible( dln, dl ) ) {
p = NEXT(p);
if ( last ) NEXT(last) = p;
} else {
if ( !last ) head = p;
p = NEXT(last = p);
}
}
head = append_one(head,ndp);
return head;
}
ND_pairs nd_minp( ND_pairs d, ND_pairs *prest )
{
ND_pairs m,ml,p,l;
unsigned int *lcm;
int s,td,len,tlen,c;
if ( !(p = NEXT(m = d)) ) {
*prest = p;
NEXT(m) = 0;
return m;
}
lcm = m->lcm;
s = SG(m);
td = TD(m);
len = nd_psl[m->i1]+nd_psl[m->i2];
for ( ml = 0, l = m; p; p = NEXT(l = p) ) {
if (SG(p) < s)
goto find;
else if ( SG(p) == s ) {
if ( TD(p) < td )
goto find;
else if ( TD(p) == td ) {
c = ndl_compare(p->lcm,lcm);
if ( c < 0 )
goto find;
}
}
continue;
find:
ml = l;
m = p;
lcm = m->lcm;
s = SG(m);
td = TD(m);
len = tlen;
}
if ( !ml ) *prest = NEXT(m);
else {
NEXT(ml) = NEXT(m);
*prest = d;
}
NEXT(m) = 0;
return m;
}
int nd_newps(int mod,ND a)
{
int len;
RHist r;
NDV b;
if ( nd_psn == nd_pslen ) {
nd_pslen *= 2;
nd_psl = (int *)REALLOC((char *)nd_psl,nd_pslen*sizeof(int));
nd_ps = (NDV *)REALLOC((char *)nd_ps,nd_pslen*sizeof(NDV));
nd_psq = (NDV *)REALLOC((char *)nd_psq,nd_pslen*sizeof(NDV));
nd_psh = (RHist *)REALLOC((char *)nd_psh,nd_pslen*sizeof(RHist));
nd_bound = (unsigned int **)
REALLOC((char *)nd_bound,nd_pslen*sizeof(unsigned int *));
}
nd_removecont(mod,a);
nd_bound[nd_psn] = nd_compute_bound(a);
NEWRHist(r); SG(r) = SG(a); TD(r) = HTD(a); ndl_copy(HDL(a),DL(r));
nd_psh[nd_psn] = r;
b = ndtondv(mod,a);
len = LEN(b);
if ( mod )
nd_ps[nd_psn] = b;
else
nd_psq[nd_psn] = b;
nd_psl[nd_psn] = len;
nd_free(a);
return nd_psn++;
}
int nd_newps_trace(int mod,ND nf,ND nfq)
{
int len;
RHist r;
NDV b;
if ( nd_psn == nd_pslen ) {
nd_pslen *= 2;
nd_psl = (int *)REALLOC((char *)nd_psl,nd_pslen*sizeof(int));
nd_ps = (NDV *)REALLOC((char *)nd_ps,nd_pslen*sizeof(NDV));
nd_psq = (NDV *)REALLOC((char *)nd_psq,nd_pslen*sizeof(NDV));
nd_psh = (RHist *)REALLOC((char *)nd_psh,nd_pslen*sizeof(RHist));
nd_bound = (unsigned int **)
REALLOC((char *)nd_bound,nd_pslen*sizeof(unsigned int *));
}
if ( !rem(NM(HCQ(nfq)),mod) ) return -1;
nd_removecont(mod,nf);
nd_ps[nd_psn] = ndtondv(mod,nf);
nd_removecont(0,nfq);
nd_psq[nd_psn] = ndtondv(0,nfq);
nd_bound[nd_psn] = nd_compute_bound(nfq);
NEWRHist(r); SG(r) = SG(nf); TD(r) = HTD(nf); ndl_copy(HDL(nf),DL(r));
nd_psh[nd_psn] = r;
len = LEN(nd_psq[nd_psn]);
nd_psl[nd_psn] = len;
nd_free(nf); nd_free(nfq);
return nd_psn++;
}
void nd_setup(int mod,NODE f)
{
int i,j,td,len,max;
NODE s,s0,f0;
unsigned int *d;
RHist r;
NDV a;
nd_found = 0; nd_notfirst = 0; nd_create = 0;
nd_psn = length(f); nd_pslen = 2*nd_psn;
nd_psl = (int *)MALLOC(nd_pslen*sizeof(int));
nd_ps = (NDV *)MALLOC(nd_pslen*sizeof(NDV));
nd_psq = (NDV *)MALLOC(nd_pslen*sizeof(NDV));
nd_psh = (RHist *)MALLOC(nd_pslen*sizeof(RHist));
nd_bound = (unsigned int **)MALLOC(nd_pslen*sizeof(unsigned int *));
for ( max = 0, i = 0, s = f; i < nd_psn; i++, s = NEXT(s) ) {
nd_bound[i] = d = dp_compute_bound((DP)BDY(s));
for ( j = 0; j < nd_nvar; j++ )
max = MAX(d[j],max);
}
if ( !nd_red )
nd_red = (RHist *)MALLOC(REDTAB_LEN*sizeof(RHist));
bzero(nd_red,REDTAB_LEN*sizeof(RHist));
if ( max < 2 )
nd_bpe = 2;
else if ( max < 4 )
nd_bpe = 4;
else if ( max < 64 )
nd_bpe = 6;
else if ( max < 256 )
nd_bpe = 8;
else if ( max < 65536 )
nd_bpe = 16;
else
nd_bpe = 32;
nd_setup_parameters();
nd_free_private_storage();
len = 0;
for ( i = 0; i < nd_psn; i++, f = NEXT(f) ) {
NEWRHist(r);
a = dptondv(mod,(DP)BDY(f));
ndv_removecont(mod,a);
len = MAX(len,LEN(a));
SG(r) = HTD(a); TD(r) = HTD(a); ndl_copy(HDL(a),DL(r));
if ( mod )
nd_ps[i] = a;
else
nd_psq[i] = a;
nd_psh[i] = r;
}
}
void nd_setup_trace(int mod,NODE f)
{
int i,j,td,len,max;
NODE s,s0,f0;
unsigned int *d;
RHist r;
NDV a;
nd_found = 0; nd_notfirst = 0; nd_create = 0;
nd_psn = length(f); nd_pslen = 2*nd_psn;
nd_psl = (int *)MALLOC(nd_pslen*sizeof(int));
nd_ps = (NDV *)MALLOC(nd_pslen*sizeof(NDV));
nd_psq = (NDV *)MALLOC(nd_pslen*sizeof(NDV));
nd_psh = (RHist *)MALLOC(nd_pslen*sizeof(RHist));
nd_bound = (unsigned int **)MALLOC(nd_pslen*sizeof(unsigned int *));
for ( max = 0, i = 0, s = f; i < nd_psn; i++, s = NEXT(s) ) {
nd_bound[i] = d = dp_compute_bound((DP)BDY(s));
for ( j = 0; j < nd_nvar; j++ )
max = MAX(d[j],max);
}
if ( !nd_red )
nd_red = (RHist *)MALLOC(REDTAB_LEN*sizeof(RHist));
bzero(nd_red,REDTAB_LEN*sizeof(RHist));
if ( max < 2 )
nd_bpe = 2;
else if ( max < 4 )
nd_bpe = 4;
else if ( max < 64 )
nd_bpe = 6;
else if ( max < 256 )
nd_bpe = 8;
else if ( max < 65536 )
nd_bpe = 16;
else
nd_bpe = 32;
nd_setup_parameters();
nd_free_private_storage();
len = 0;
for ( i = 0; i < nd_psn; i++, f = NEXT(f) ) {
a = dptondv(mod,(DP)BDY(f)); ndv_removecont(mod,a); nd_ps[i] = a;
a = dptondv(0,(DP)BDY(f)); ndv_removecont(0,a); nd_psq[i] = a;
NEWRHist(r);
len = MAX(len,LEN(a));
SG(r) = HTD(a); TD(r) = HTD(a); ndl_copy(HDL(a),DL(r));
nd_psh[i] = r;
}
}
void nd_gr(LIST f,LIST v,int m,struct order_spec *ord,LIST *rp)
{
struct order_spec ord1;
VL fv,vv,vc;
NODE fd,fd0,r,r0,t,x,s,xx;
DP a,b,c;
get_vars((Obj)f,&fv); pltovl(v,&vv);
nd_nvar = length(vv);
nd_init_ord(ord);
/* XXX for DP */
initd(ord);
for ( fd0 = 0, t = BDY(f); t; t = NEXT(t) ) {
ptod(CO,vv,(P)BDY(t),&b);
NEXTNODE(fd0,fd); BDY(fd) = (pointer)b;
}
if ( fd0 ) NEXT(fd) = 0;
nd_setup(m,fd0);
x = nd_gb(m,0);
fprintf(asir_out,"found=%d,notfirst=%d,create=%d\n",
nd_found,nd_notfirst,nd_create);
x = nd_reduceall(m,x);
for ( r0 = 0, t = x; t; t = NEXT(t) ) {
NEXTNODE(r0,r);
if ( m ) {
a = ndvtodp(m,BDY(t));
_dtop_mod(CO,vv,a,(P *)&BDY(r));
} else {
a = ndvtodp(m,BDY(t));
dtop(CO,vv,a,(P *)&BDY(r));
}
}
if ( r0 ) NEXT(r) = 0;
MKLIST(*rp,r0);
}
void nd_gr_trace(LIST f,LIST v,int m,int homo,struct order_spec *ord,LIST *rp)
{
struct order_spec ord1;
VL fv,vv,vc;
NODE fd,fd0,in0,in,r,r0,t,s,cand;
DP a,b,c,h;
P p;
get_vars((Obj)f,&fv); pltovl(v,&vv);
nd_nvar = length(vv);
initd(ord);
if ( homo ) {
homogenize_order(ord,nd_nvar,&ord1);
for ( fd0 = 0, in0 = 0, t = BDY(f); t; t = NEXT(t) ) {
ptod(CO,vv,(P)BDY(t),&c);
if ( c ) {
dp_homo(c,&h); NEXTNODE(fd0,fd); BDY(fd) = (pointer)h;
NEXTNODE(in0,in); BDY(in) = (pointer)c;
}
}
if ( fd0 ) NEXT(fd) = 0;
if ( in0 ) NEXT(in) = 0;
nd_init_ord(&ord1);
initd(&ord1);
nd_nvar++;
} else {
switch ( ord->ord.simple ) {
case 0: nd_isrlex = 1; nd_degcompat = 1; break;
case 1: nd_isrlex = 0; nd_degcompat = 1; break;
default: error("nd_gr : unsupported order");
}
for ( fd0 = 0, t = BDY(f); t; t = NEXT(t) ) {
ptod(CO,vv,(P)BDY(t),&c);
if ( c ) {
NEXTNODE(fd0,fd); BDY(fd) = (pointer)c;
}
}
if ( fd0 ) NEXT(fd) = 0;
in0 = fd0;
}
do {
nd_setup_trace(m,fd0);
cand = nd_gb_trace(m);
if ( !cand ) continue;
if ( homo ) {
/* dehomogenization */
for ( t = cand; t; t = NEXT(t) )
ndv_dehomogenize((NDV)BDY(t));
nd_nvar--;
nd_setup_parameters();
initd(ord);
cand = nd_reducebase(cand);
}
fprintf(asir_out,"found=%d,notfirst=%d,create=%d\n",
nd_found,nd_notfirst,nd_create);
cand = nd_reduceall(0,cand);
initd(ord);
for ( r0 = 0; cand; cand = NEXT(cand) ) {
NEXTNODE(r0,r);
BDY(r) = (pointer)ndvtodp(0,(NDV)BDY(cand));
}
if ( r0 ) NEXT(r) = 0;
cand = r0;
} while ( !nd_check_candidate(in0,cand) );
/* dp->p */
for ( r = cand; r; r = NEXT(r) ) {
dtop(CO,vv,BDY(r),&p);
BDY(r) = (pointer)p;
}
MKLIST(*rp,cand);
}
void dltondl(int n,DL dl,unsigned int *r)
{
unsigned int *d;
int i;
d = dl->d;
bzero(r,nd_wpd*sizeof(unsigned int));
if ( nd_isrlex )
for ( i = 0; i < n; i++ )
r[(n-1-i)/nd_epw] |= (d[i]<<((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe));
else
for ( i = 0; i < n; i++ )
r[i/nd_epw] |= d[i]<<((nd_epw-(i%nd_epw)-1)*nd_bpe);
}
DL ndltodl(int n,int td,unsigned int *ndl)
{
DL dl;
int *d;
int i;
NEWDL(dl,n);
TD(dl) = td;
d = dl->d;
if ( nd_isrlex )
for ( i = 0; i < n; i++ )
d[i] = (ndl[(n-1-i)/nd_epw]>>((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe))
&((1<>((nd_epw-(i%nd_epw)-1)*nd_bpe))
&((1<>((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe))
&((1<>((nd_epw-(i%nd_epw)-1)*nd_bpe))
&((1<>");
}
void nd_print(ND p)
{
NM m;
if ( !p )
printf("0\n");
else {
for ( m = BDY(p); m; m = NEXT(m) ) {
printf("+%d*",CM(m));
ndl_print(DL(m));
}
printf("\n");
}
}
void nd_print_q(ND p)
{
NM m;
if ( !p )
printf("0\n");
else {
for ( m = BDY(p); m; m = NEXT(m) ) {
printf("+");
printexpr(CO,CQ(m));
printf("*");
ndl_print(DL(m));
}
printf("\n");
}
}
void ndp_print(ND_pairs d)
{
ND_pairs t;
for ( t = d; t; t = NEXT(t) ) {
printf("%d,%d ",t->i1,t->i2);
}
printf("\n");
}
void nd_removecont(int mod,ND p)
{
int i,n;
Q *w;
Q dvr,t;
NM m;
struct oVECT v;
N q,r;
if ( mod )
nd_mul_c(mod,p,invm(HCM(p),mod));
else {
for ( m = BDY(p), n = 0; m; m = NEXT(m), n++ );
w = (Q *)ALLOCA(n*sizeof(Q));
v.len = n;
v.body = (pointer *)w;
for ( m = BDY(p), i = 0; i < n; m = NEXT(m), i++ )
w[i] = CQ(m);
removecont_array(w,n);
for ( m = BDY(p), i = 0; i < n; m = NEXT(m), i++ ) CQ(m) = w[i];
}
}
void nd_removecont2(ND p1,ND p2)
{
int i,n1,n2,n;
Q *w;
Q dvr,t;
NM m;
struct oVECT v;
N q,r;
if ( !p1 ) {
nd_removecont(0,p2); return;
} else if ( !p2 ) {
nd_removecont(0,p1); return;
}
n1 = nd_length(p1);
n2 = nd_length(p2);
n = n1+n2;
w = (Q *)ALLOCA(n*sizeof(Q));
v.len = n;
v.body = (pointer *)w;
for ( m = BDY(p1), i = 0; i < n1; m = NEXT(m), i++ )
w[i] = CQ(m);
for ( m = BDY(p2); i < n; m = NEXT(m), i++ )
w[i] = CQ(m);
removecont_array(w,n);
for ( m = BDY(p1), i = 0; i < n1; m = NEXT(m), i++ ) CQ(m) = w[i];
for ( m = BDY(p2); i < n; m = NEXT(m), i++ ) CQ(m) = w[i];
}
void ndv_removecont(int mod,NDV p)
{
int i,len;
Q *w;
Q dvr,t;
NMV m;
if ( mod )
ndv_mul_c(mod,p,invm(HCM(p),mod));
else {
len = p->len;
w = (Q *)ALLOCA(len*sizeof(Q));
for ( m = BDY(p), i = 0; i < len; NMV_ADV(m), i++ )
w[i] = CQ(m);
sortbynm(w,len);
qltozl(w,len,&dvr);
for ( m = BDY(p), i = 0; i < len; NMV_ADV(m), i++ ) {
divq(CQ(m),dvr,&t); CQ(m) = t;
}
}
}
void ndv_dehomogenize(NDV p)
{
int i,len,newnvar,newwpd,newadv;
Q *w;
Q dvr,t;
NMV m,r;
unsigned int *d;
#define NEWADV(m) (m = (NMV)(((char *)m)+newadv))
len = p->len;
newnvar = nd_nvar-1;
newwpd = newnvar/nd_epw+(newnvar%nd_epw?1:0);
for ( m = BDY(p), i = 0; i < len; NMV_ADV(m), i++ )
TD(m) -= ndl_dehomogenize(DL(m));
if ( newwpd != nd_wpd ) {
d = (unsigned int *)ALLOCA(newwpd*sizeof(unsigned int));
newadv = sizeof(struct oNMV)+(newwpd-1)*sizeof(unsigned int);
for ( m = r = BDY(p), i = 0; i < len; NMV_ADV(m), NEWADV(r), i++ ) {
CQ(r) = CQ(m); TD(r) = TD(m); ndl_copy(DL(m),d); ndl_copy(d,DL(r));
}
}
NV(p)--;
}
void removecont_array(Q *c,int n)
{
struct oVECT v;
Q d0,d1,a,u,u1,gcd;
int i;
N qn,rn,gn;
Q *q,*r;
q = (Q *)ALLOCA(n*sizeof(Q));
r = (Q *)ALLOCA(n*sizeof(Q));
v.id = O_VECT; v.len = n; v.body = (pointer *)c;
igcdv_estimate(&v,&d0);
for ( i = 0; i < n; i++ ) {
divn(NM(c[i]),NM(d0),&qn,&rn);
NTOQ(qn,SGN(c[i])*SGN(d0),q[i]);
NTOQ(rn,SGN(c[i]),r[i]);
}
for ( i = 0; i < n; i++ )
if ( r[i] )
break;
if ( i < n ) {
v.id = O_VECT; v.len = n; v.body = (pointer *)r;
igcdv(&v,&d1);
gcdn(NM(d0),NM(d1),&gn); NTOQ(gn,1,gcd);
divsn(NM(d0),gn,&qn); NTOQ(qn,1,a);
for ( i = 0; i < n; i++ ) {
mulq(a,q[i],&u);
if ( r[i] ) {
divsn(NM(r[i]),gn,&qn); NTOQ(qn,SGN(r[i]),u1);
addq(u,u1,&q[i]);
} else
q[i] = u;
}
}
for ( i = 0; i < n; i++ )
c[i] = q[i];
}
void nd_mul_c(int mod,ND p,int mul)
{
NM m;
int c,c1;
if ( !p )
return;
for ( m = BDY(p); m; m = NEXT(m) ) {
c1 = CM(m);
DMAR(c1,mul,0,mod,c);
CM(m) = c;
}
}
void nd_mul_c_q(ND p,Q mul)
{
NM m;
Q c;
if ( !p )
return;
for ( m = BDY(p); m; m = NEXT(m) ) {
mulq(CQ(m),mul,&c); CQ(m) = c;
}
}
void nd_free(ND p)
{
NM t,s;
if ( !p )
return;
t = BDY(p);
while ( t ) {
s = NEXT(t);
FREENM(t);
t = s;
}
FREEND(p);
}
void ndv_free(NDV p)
{
GC_free(BDY(p));
}
void nd_append_red(unsigned int *d,int td,int i)
{
RHist m,m0;
int h;
NEWRHist(m);
h = ndl_hash_value(td,d);
m->index = i;
TD(m) = td;
ndl_copy(d,DL(m));
NEXT(m) = nd_red[h];
nd_red[h] = m;
}
unsigned int *dp_compute_bound(DP p)
{
unsigned int *d,*d1,*d2,*t;
MP m;
int i,l;
if ( !p )
return 0;
d1 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int));
d2 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int));
m = BDY(p);
bcopy(DL(m)->d,d1,nd_nvar*sizeof(unsigned int));
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) {
d = DL(m)->d;
for ( i = 0; i < nd_nvar; i++ )
d2[i] = d[i] > d1[i] ? d[i] : d1[i];
t = d1; d1 = d2; d2 = t;
}
l = (nd_nvar+31);
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int));
bzero(t,l*sizeof(unsigned int));
bcopy(d1,t,nd_nvar*sizeof(unsigned int));
return t;
}
unsigned int *nd_compute_bound(ND p)
{
unsigned int *d1,*d2,*t;
int i,l;
NM m;
if ( !p )
return 0;
d1 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
d2 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
bcopy(HDL(p),d1,nd_wpd*sizeof(unsigned int));
for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) {
ndl_lcm(DL(m),d1,d2);
t = d1; d1 = d2; d2 = t;
}
l = nd_nvar+31;
t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int));
bzero(t,l*sizeof(unsigned int));
for ( i = 0; i < nd_nvar; i++ )
t[i] = (d1[i/nd_epw]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))&nd_mask0;
return t;
}
void nd_setup_parameters() {
int i;
nd_epw = (sizeof(unsigned int)*8)/nd_bpe;
nd_wpd = nd_nvar/nd_epw+(nd_nvar%nd_epw?1:0);
if ( nd_bpe < 32 ) {
nd_mask0 = (1< realloc nd_ps and pd_psq */
ND_pairs nd_reconstruct(int mod,int trace,ND_pairs d)
{
int i,obpe,oadv;
NM prev_nm_free_list;
RHist mr0,mr;
RHist r;
ND_pairs s0,s,t,prev_ndp_free_list;
obpe = nd_bpe;
oadv = nmv_adv;
if ( obpe < 4 )
nd_bpe = 4;
else if ( obpe < 6 )
nd_bpe = 6;
else if ( obpe < 8 )
nd_bpe = 8;
else if ( obpe < 16 )
nd_bpe = 16;
else if ( obpe < 32 )
nd_bpe = 32;
else
error("nd_reconstruct : exponent too large");
nd_setup_parameters();
prev_nm_free_list = _nm_free_list;
prev_ndp_free_list = _ndp_free_list;
_nm_free_list = 0;
_ndp_free_list = 0;
if ( mod != 0 )
for ( i = nd_psn-1; i >= 0; i-- )
ndv_realloc(nd_ps[i],obpe,oadv);
if ( !mod || trace )
for ( i = nd_psn-1; i >= 0; i-- )
ndv_realloc(nd_psq[i],obpe,oadv);
s0 = 0;
for ( t = d; t; t = NEXT(t) ) {
NEXTND_pairs(s0,s);
s->i1 = t->i1;
s->i2 = t->i2;
TD(s) = TD(t);
SG(s) = SG(t);
ndl_dup(obpe,t->lcm,s->lcm);
}
for ( i = 0; i < REDTAB_LEN; i++ ) {
for ( mr0 = 0, r = nd_red[i]; r; r = NEXT(r) ) {
NEXTRHist(mr0,mr);
mr->index = r->index;
SG(mr) = SG(r);
TD(mr) = TD(r);
ndl_dup(obpe,DL(r),DL(mr));
}
if ( mr0 ) NEXT(mr) = 0;
nd_red[i] = mr0;
}
for ( i = 0; i < nd_psn; i++ ) {
NEWRHist(r); SG(r) = SG(nd_psh[i]);
TD(r) = TD(nd_psh[i]); ndl_dup(obpe,DL(nd_psh[i]),DL(r));
nd_psh[i] = r;
}
if ( s0 ) NEXT(s) = 0;
prev_nm_free_list = 0;
prev_ndp_free_list = 0;
GC_gcollect();
return s0;
}
void nd_reconstruct_direct(int mod,NDV *ps,int len)
{
int i,obpe,oadv;
NM prev_nm_free_list;
RHist mr0,mr;
RHist r;
ND_pairs s0,s,t,prev_ndp_free_list;
obpe = nd_bpe;
oadv = nmv_adv;
if ( obpe < 4 )
nd_bpe = 4;
else if ( obpe < 6 )
nd_bpe = 6;
else if ( obpe < 8 )
nd_bpe = 8;
else if ( obpe < 16 )
nd_bpe = 16;
else if ( obpe < 32 )
nd_bpe = 32;
else
error("nd_reconstruct_direct : exponent too large");
nd_setup_parameters();
prev_nm_free_list = _nm_free_list;
prev_ndp_free_list = _ndp_free_list;
_nm_free_list = 0;
_ndp_free_list = 0;
if ( mod != 0 )
for ( i = len-1; i >= 0; i-- )
ndv_realloc(ps[i],obpe,oadv);
for ( i = 0; i < REDTAB_LEN; i++ ) {
for ( mr0 = 0, r = nd_red[i]; r; r = NEXT(r) ) {
NEXTRHist(mr0,mr);
mr->index = r->index;
SG(mr) = SG(r);
TD(mr) = TD(r);
ndl_dup(obpe,DL(r),DL(mr));
}
if ( mr0 ) NEXT(mr) = 0;
nd_red[i] = mr0;
}
prev_nm_free_list = 0;
prev_ndp_free_list = 0;
GC_gcollect();
}
void ndl_dup(int obpe,unsigned int *d,unsigned int *r)
{
int n,i,ei,oepw,cepw,cbpe;
n = nd_nvar;
oepw = (sizeof(unsigned int)*8)/obpe;
cepw = nd_epw;
cbpe = nd_bpe;
for ( i = 0; i < nd_wpd; i++ )
r[i] = 0;
if ( nd_isrlex )
for ( i = 0; i < n; i++ ) {
ei = (d[(n-1-i)/oepw]>>((oepw-((n-1-i)%oepw)-1)*obpe))
&((1<>((oepw-(i%oepw)-1)*obpe))
&((1<i1]; p2 = nd_ps[p->i2];
} else {
p1 = nd_psq[p->i1]; p2 = nd_psq[p->i2];
}
lcm = p->lcm;
td = TD(p);
NEWNM(m);
CQ(m) = HCQ(p2);
TD(m) = td-HTD(p1); ndl_sub(lcm,HDL(p1),DL(m));
if ( ndl_check_bound2(p->i1,DL(m)) )
return 0;
t1 = ndv_mul_nm(mod,p1,m);
if ( mod )
CM(m) = mod-HCM(p1);
else
chsgnq(HCQ(p1),&CQ(m));
TD(m) = td-HTD(p2); ndl_sub(lcm,HDL(p2),DL(m));
if ( ndl_check_bound2(p->i2,DL(m)) ) {
nd_free(t1);
return 0;
}
t2 = ndv_mul_nm(mod,p2,m);
*rp = nd_add(mod,t1,t2);
FREENM(m);
return 1;
}
void ndv_mul_c(int mod,NDV p,int mul)
{
NMV m;
int c,c1,len,i;
if ( !p )
return;
len = LEN(p);
for ( m = BDY(p), i = 0; i < len; i++, NMV_ADV(m) ) {
c1 = CM(m);
DMAR(c1,mul,0,mod,c);
CM(m) = c;
}
}
void ndv_mul_c_q(NDV p,Q mul)
{
NMV m;
Q c;
int len,i;
if ( !p )
return;
len = LEN(p);
for ( m = BDY(p), i = 0; i < len; i++, NMV_ADV(m) ) {
mulq(CQ(m),mul,&c); CQ(m) = c;
}
}
ND ndv_mul_nm(int mod,NDV p,NM m0)
{
NM mr,mr0;
NMV m;
unsigned int *d,*dt,*dm;
int c,n,td,i,c1,c2,len;
Q q;
ND r;
if ( !p )
return 0;
else {
n = NV(p); m = BDY(p);
d = DL(m0); td = TD(m0);
len = LEN(p);
mr0 = 0;
if ( mod ) {
c = CM(m0);
for ( i = 0; i < len; i++, NMV_ADV(m) ) {
NEXTNM(mr0,mr);
c1 = CM(m);
DMAR(c1,c,0,mod,c2);
CM(mr) = c2;
TD(mr) = TD(m)+td;
ndl_add(DL(m),d,DL(mr));
}
} else {
q = CQ(m0);
for ( i = 0; i < len; i++, NMV_ADV(m) ) {
NEXTNM(mr0,mr);
mulq(CQ(m),q,&CQ(mr));
TD(mr) = TD(m)+td;
ndl_add(DL(m),d,DL(mr));
}
}
NEXT(mr) = 0;
MKND(NV(p),mr0,len,r);
SG(r) = SG(p) + td;
return r;
}
}
void ndv_realloc(NDV p,int obpe,int oadv)
{
NMV m,mr,mr0,t;
int len,i,k;
#define NMV_OPREV(m) (m = (NMV)(((char *)m)-oadv))
#define NMV_PREV(m) (m = (NMV)(((char *)m)-nmv_adv))
if ( p ) {
m = BDY(p); len = LEN(p);
if ( nmv_adv > oadv )
mr0 = (NMV)REALLOC(BDY(p),len*nmv_adv);
else
mr0 = BDY(p);
m = (NMV)((char *)mr0+(len-1)*oadv);
mr = (NMV)((char *)mr0+(len-1)*nmv_adv);
t = (NMV)ALLOCA(nmv_adv);
for ( i = 0; i < len; i++, NMV_OPREV(m), NMV_PREV(mr) ) {
CQ(t) = CQ(m);
TD(t) = TD(m);
for ( k = 0; k < nd_wpd; k++ ) DL(t)[k] = 0;
ndl_dup(obpe,DL(m),DL(t));
CQ(mr) = CQ(t);
TD(mr) = TD(t);
ndl_copy(DL(t),DL(mr));
}
BDY(p) = mr0;
}
}
NDV ndtondv(int mod,ND p)
{
NDV d;
NMV m,m0;
NM t;
int i,len;
if ( !p )
return 0;
len = LEN(p);
if ( mod )
m0 = m = (NMV)MALLOC_ATOMIC(len*nmv_adv);
else
m0 = m = (NMV)MALLOC(len*nmv_adv);
for ( t = BDY(p), i = 0; t; t = NEXT(t), i++, NMV_ADV(m) ) {
TD(m) = TD(t);
ndl_copy(DL(t),DL(m));
CQ(m) = CQ(t);
}
MKNDV(NV(p),m0,len,d);
SG(d) = SG(p);
return d;
}
ND ndvtond(int mod,NDV p)
{
ND d;
NM m,m0;
NMV t;
int i,len;
if ( !p )
return 0;
m0 = 0;
len = p->len;
for ( t = BDY(p), i = 0; i < len; NMV_ADV(t), i++ ) {
NEXTNM(m0,m);
TD(m) = TD(t);
ndl_copy(DL(t),DL(m));
CQ(m) = CQ(t);
}
NEXT(m) = 0;
MKND(NV(p),m0,len,d);
SG(d) = SG(p);
return d;
}
NDV dptondv(int mod,DP p)
{
NDV d;
NMV m0,m;
MP t;
DP q;
int l,i,n;
if ( !p )
return 0;
for ( t = BDY(p), l = 0; t; t = NEXT(t), l++ );
if ( mod ) {
_dp_mod(p,mod,0,&q); p = q;
m0 = m = (NMV)MALLOC_ATOMIC(l*nmv_adv);
} else
m0 = m = (NMV)MALLOC(l*nmv_adv);
n = NV(p);
for ( t = BDY(p), i = 0; i < l; i++, t = NEXT(t), NMV_ADV(m) ) {
if ( mod )
CM(m) = ITOS(C(t));
else
CQ(m) = (Q)C(t);
TD(m) = TD(DL(t));
dltondl(n,DL(t),DL(m));
}
MKNDV(n,m0,l,d);
SG(d) = SG(p);
return d;
}
DP ndvtodp(int mod,NDV p)
{
DP d;
MP m0,m;
NMV t;
int len,i,n;
if ( !p )
return 0;
m0 = 0;
len = LEN(p);
n = NV(p);
for ( t = BDY(p), i = 0; i < len; i++, NMV_ADV(t) ) {
NEXTMP(m0,m);
if ( mod )
C(m) = STOI(CM(t));
else
C(m) = (P)CQ(t);
DL(m) = ndltodl(n,TD(t),DL(t));
}
NEXT(m) = 0;
MKDP(NV(p),m0,d);
SG(d) = SG(p);
return d;
}
void ndv_print(NDV p)
{
NMV m;
int i,len;
if ( !p )
printf("0\n");
else {
len = LEN(p);
for ( m = BDY(p), i = 0; i < len; i++, NMV_ADV(m) ) {
printf("+%d*",CM(m));
ndl_print(DL(m));
}
printf("\n");
}
}
void ndv_print_q(NDV p)
{
NMV m;
int i,len;
if ( !p )
printf("0\n");
else {
len = LEN(p);
for ( m = BDY(p), i = 0; i < len; i++, NMV_ADV(m) ) {
printf("+");
printexpr(CO,CQ(m));
printf("*");
ndl_print(DL(m));
}
printf("\n");
}
}
int nd_equal(ND a,ND b)
{
NM ma,mb;
if ( (!a && b)||(a&& !b)||(NV(a) != NV(b))||(SG(a) != SG(b)) ) return 0;
for ( ma = BDY(a), mb = BDY(b); ma && mb; ma = NEXT(ma), mb = NEXT(mb) ) {
if ( (TD(ma) != TD(mb)) || !ndl_equal(DL(ma),DL(mb)) ) return 0;
}
if ( !ma && !mb ) return 1;
else return 0;
}
NODE nd_reducebase(NODE x)
{
int len,i,j;
NDV *w;
NODE t,t0;
len = length(x);
w = (NDV *)ALLOCA(len*sizeof(NDV));
for ( i = 0, t = x; i < len; i++, t = NEXT(t) ) w[i] = BDY(t);
for ( i = 0; i < len; i++ ) {
for ( j = 0; j < i; j++ ) {
if ( w[i] && w[j] )
if ( ndl_reducible(HDL(w[i]),HDL(w[j])) ) w[i] = 0;
else if ( ndl_reducible(HDL(w[j]),HDL(w[i])) ) w[j] = 0;
}
}
for ( i = len-1, t0 = 0; i >= 0; i-- ) {
if ( w[i] ) { NEXTNODE(t0,t); BDY(t) = (pointer)w[i]; }
}
NEXT(t) = 0; x = t0;
return x;
}
void nd_init_ord(struct order_spec *ord)
{
if ( ord->id )
error("nd_gr : unsupported order");
nd_degcompat = 0;
switch ( ord->ord.simple ) {
case 0:
nd_degcompat = 1;
nd_isrlex = 1;
break;
case 1:
nd_degcompat = 1;
nd_isrlex = 0;
break;
default:
error("nd_gr : unsupported order");
}
}
|