Annotation of OpenXM_contrib2/asir2000/engine/nd.c, Revision 1.10
1.10 ! noro 1: /* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.9 2003/07/25 09:04:47 noro Exp $ */
1.2 noro 2:
1.1 noro 3: #include "ca.h"
4: #include "inline.h"
5:
1.6 noro 6: #define USE_NDV 1
1.4 noro 7:
1.1 noro 8: #if defined(__GNUC__)
9: #define INLINE inline
10: #elif defined(VISUAL)
11: #define INLINE __inline
12: #else
13: #define INLINE
14: #endif
15:
16: #define REDTAB_LEN 32003
17:
18: typedef struct oPGeoBucket {
19: int m;
20: struct oND *body[32];
21: } *PGeoBucket;
22:
23: typedef struct oND {
24: struct oNM *body;
25: int nv;
26: int sugar;
27: } *ND;
28:
1.3 noro 29: typedef struct oNDV {
30: struct oNMV *body;
31: int nv;
32: int sugar;
33: int len;
34: } *NDV;
35:
1.1 noro 36: typedef struct oNM {
37: struct oNM *next;
38: int td;
39: int c;
40: unsigned int dl[1];
41: } *NM;
42:
1.3 noro 43: typedef struct oNMV {
44: int td;
45: int c;
46: unsigned int dl[1];
47: } *NMV;
48:
1.1 noro 49: typedef struct oND_pairs {
50: struct oND_pairs *next;
51: int i1,i2;
52: int td,sugar;
53: unsigned int lcm[1];
54: } *ND_pairs;
55:
56: static ND *nd_ps;
1.3 noro 57: static NDV *nd_psv;
1.1 noro 58: static unsigned int **nd_bound;
59: int nd_mod,nd_nvar;
60: int is_rlex;
61: int nd_epw,nd_bpe,nd_wpd;
62: unsigned int nd_mask[32];
63: unsigned int nd_mask0,nd_mask1;
64: NM _nm_free_list;
65: ND _nd_free_list;
66: ND_pairs _ndp_free_list;
67: NM *nd_red;
68: int nd_red_len;
69:
70: extern int Top,Reverse;
71: int nd_psn,nd_pslen;
72: int nd_found,nd_create,nd_notfirst;
1.6 noro 73: int *nd_psl;
1.1 noro 74:
75: void GC_gcollect();
76: NODE append_one(NODE,int);
77:
78: #define HTD(d) ((d)->body->td)
79: #define HDL(d) ((d)->body->dl)
80: #define HC(d) ((d)->body->c)
81:
82: #define NEWND_pairs(m) if(!_ndp_free_list)_NDP_alloc(); (m)=_ndp_free_list; _ndp_free_list = NEXT(_ndp_free_list)
83: #define NEWNM(m) if(!_nm_free_list)_NM_alloc(); (m)=_nm_free_list; _nm_free_list = NEXT(_nm_free_list)
84: #define MKND(n,m,d) if(!_nd_free_list)_ND_alloc(); (d)=_nd_free_list; _nd_free_list = (ND)BDY(_nd_free_list); (d)->nv=(n); BDY(d)=(m)
85:
86: #define NEXTNM(r,c) \
87: if(!(r)){NEWNM(r);(c)=(r);}else{NEWNM(NEXT(c));(c)=NEXT(c);}
88: #define NEXTNM2(r,c,s) \
89: if(!(r)){(c)=(r)=(s);}else{NEXT(c)=(s);(c)=(s);}
90: #define FREENM(m) NEXT(m)=_nm_free_list; _nm_free_list=(m)
91: #define FREENDP(m) NEXT(m)=_ndp_free_list; _ndp_free_list=(m)
92: #define FREEND(m) BDY(m)=(NM)_nd_free_list; _nd_free_list=(m)
93:
94: #define NEXTND_pairs(r,c) \
95: if(!(r)){NEWND_pairs(r);(c)=(r);}else{NEWND_pairs(NEXT(c));(c)=NEXT(c);}
96:
97: ND_pairs crit_B( ND_pairs d, int s );
98: void nd_gr(LIST f,LIST v,int m,struct order_spec *ord,LIST *rp);
99: NODE nd_setup(NODE f);
100: int nd_newps(ND a);
101: ND_pairs nd_minp( ND_pairs d, ND_pairs *prest );
102: NODE update_base(NODE nd,int ndp);
103: static ND_pairs equivalent_pairs( ND_pairs d1, ND_pairs *prest );
104: int crit_2( int dp1, int dp2 );
105: ND_pairs crit_F( ND_pairs d1 );
106: ND_pairs crit_M( ND_pairs d1 );
107: ND_pairs nd_newpairs( NODE g, int t );
108: ND_pairs update_pairs( ND_pairs d, NODE /* of index */ g, int t);
109: NODE nd_gb(NODE f);
110: void nd_free_private_storage();
111: void _NM_alloc();
112: void _ND_alloc();
113: int ndl_td(unsigned int *d);
114: ND nd_add(ND p1,ND p2);
115: ND nd_mul_nm(ND p,NM m0);
1.6 noro 116: ND nd_mul_ind_nm(int index,NM m0);
1.1 noro 117: ND nd_mul_term(ND p,int td,unsigned int *d);
118: int nd_sp(ND_pairs p,ND *nf);
1.6 noro 119: int nd_find_reducer(ND g);
1.1 noro 120: int nd_nf(ND g,int full,ND *nf);
121: ND nd_reduce(ND p1,ND p2);
122: ND nd_reduce_special(ND p1,ND p2);
123: void nd_free(ND p);
124: void ndl_print(unsigned int *dl);
125: void nd_print(ND p);
126: void ndp_print(ND_pairs d);
127: int nd_length(ND p);
128: void nd_monic(ND p);
129: void nd_mul_c(ND p,int mul);
130: void nd_free_redlist();
131: void nd_append_red(unsigned int *d,int td,int i);
132: unsigned int *nd_compute_bound(ND p);
1.5 noro 133: unsigned int *dp_compute_bound(DP p);
1.1 noro 134: ND_pairs nd_reconstruct(ND_pairs);
135: void nd_setup_parameters();
136: ND nd_dup(ND p,int obpe);
1.6 noro 137: ND nd_copy(ND p);
1.1 noro 138: void ndl_dup(int obpe,unsigned int *d,unsigned int *r);
1.4 noro 139:
140: #if USE_NDV
141: #define NMV_ADV(m) (m = (NMV)(((char *)m)+nmv_adv))
142: #define NEWNDV(d) ((d)=(NDV)MALLOC(sizeof(struct oNDV)))
143: #define MKNDV(n,m,l,d) NEWNDV(d); (d)->nv=(n); BDY(d)=(m); (d)->len = l;
144:
145: int nmv_adv;
146: int nmv_len;
147: NDV ndv_red;
148:
149: ND ndv_add(ND p1,NDV p2);
1.3 noro 150: NDV ndtondv(ND p);
151: void ndv_mul_nm(NDV pv,NM m,NDV r);
1.9 noro 152: ND ndv_mul_nm_create(NDV p,NM m0);
1.4 noro 153: #endif
1.1 noro 154:
155: void nd_free_private_storage()
156: {
157: _nd_free_list = 0;
158: _nm_free_list = 0;
1.5 noro 159: _ndp_free_list = 0;
1.1 noro 160: nd_red = 0;
161: GC_gcollect();
162: }
163:
164: void _NM_alloc()
165: {
166: NM p;
167: int i;
168:
169: for ( i = 0; i < 16; i++ ) {
170: p = (NM)GC_malloc(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
171: p->next = _nm_free_list; _nm_free_list = p;
172: }
173: }
174:
175: void _ND_alloc()
176: {
177: ND p;
178: int i;
179:
180: for ( i = 0; i < 1024; i++ ) {
181: p = (ND)GC_malloc(sizeof(struct oND));
182: p->body = (NM)_nd_free_list; _nd_free_list = p;
183: }
184: }
185:
186: void _NDP_alloc()
187: {
188: ND_pairs p;
189: int i;
190:
191: for ( i = 0; i < 10240; i++ ) {
192: p = (ND_pairs)GC_malloc(sizeof(struct oND_pairs)
193: +(nd_wpd-1)*sizeof(unsigned int));
194: p->next = _ndp_free_list; _ndp_free_list = p;
195: }
196: }
197:
198: INLINE nd_length(ND p)
199: {
200: NM m;
201: int i;
202:
203: if ( !p )
204: return 0;
205: else {
206: for ( i = 0, m = BDY(p); m; m = NEXT(m), i++ );
207: return i;
208: }
209: }
210:
211: INLINE int ndl_reducible(unsigned int *d1,unsigned int *d2)
212: {
213: unsigned int u1,u2;
214: int i,j;
215:
216: switch ( nd_bpe ) {
217: case 4:
218: for ( i = 0; i < nd_wpd; i++ ) {
219: u1 = d1[i]; u2 = d2[i];
220: if ( (u1&0xf0000000) < (u2&0xf0000000) ) return 0;
221: if ( (u1&0xf000000) < (u2&0xf000000) ) return 0;
222: if ( (u1&0xf00000) < (u2&0xf00000) ) return 0;
223: if ( (u1&0xf0000) < (u2&0xf0000) ) return 0;
224: if ( (u1&0xf000) < (u2&0xf000) ) return 0;
225: if ( (u1&0xf00) < (u2&0xf00) ) return 0;
226: if ( (u1&0xf0) < (u2&0xf0) ) return 0;
227: if ( (u1&0xf) < (u2&0xf) ) return 0;
228: }
229: return 1;
230: break;
231: case 6:
232: for ( i = 0; i < nd_wpd; i++ ) {
233: u1 = d1[i]; u2 = d2[i];
234: if ( (u1&0x3f000000) < (u2&0x3f000000) ) return 0;
235: if ( (u1&0xfc0000) < (u2&0xfc0000) ) return 0;
236: if ( (u1&0x3f000) < (u2&0x3f000) ) return 0;
237: if ( (u1&0xfc0) < (u2&0xfc0) ) return 0;
238: if ( (u1&0x3f) < (u2&0x3f) ) return 0;
239: }
240: return 1;
241: break;
242: case 8:
243: for ( i = 0; i < nd_wpd; i++ ) {
244: u1 = d1[i]; u2 = d2[i];
245: if ( (u1&0xff000000) < (u2&0xff000000) ) return 0;
246: if ( (u1&0xff0000) < (u2&0xff0000) ) return 0;
247: if ( (u1&0xff00) < (u2&0xff00) ) return 0;
248: if ( (u1&0xff) < (u2&0xff) ) return 0;
249: }
250: return 1;
251: break;
252: case 16:
253: for ( i = 0; i < nd_wpd; i++ ) {
254: u1 = d1[i]; u2 = d2[i];
255: if ( (u1&0xffff0000) < (u2&0xffff0000) ) return 0;
256: if ( (u1&0xffff) < (u2&0xffff) ) return 0;
257: }
258: return 1;
259: break;
260: case 32:
261: for ( i = 0; i < nd_wpd; i++ )
262: if ( d1[i] < d2[i] ) return 0;
263: return 1;
264: break;
265: default:
266: for ( i = 0; i < nd_wpd; i++ ) {
267: u1 = d1[i]; u2 = d2[i];
268: for ( j = 0; j < nd_epw; j++ )
269: if ( (u1&nd_mask[j]) < (u2&nd_mask[j]) ) return 0;
270: }
271: return 1;
272: }
273: }
274:
275: void ndl_lcm(unsigned int *d1,unsigned *d2,unsigned int *d)
276: {
277: unsigned int t1,t2,u,u1,u2;
278: int i,j;
279:
280: switch ( nd_bpe ) {
281: case 4:
282: for ( i = 0; i < nd_wpd; i++ ) {
283: u1 = d1[i]; u2 = d2[i];
284: t1 = (u1&0xf0000000); t2 = (u2&0xf0000000); u = t1>t2?t1:t2;
285: t1 = (u1&0xf000000); t2 = (u2&0xf000000); u |= t1>t2?t1:t2;
286: t1 = (u1&0xf00000); t2 = (u2&0xf00000); u |= t1>t2?t1:t2;
287: t1 = (u1&0xf0000); t2 = (u2&0xf0000); u |= t1>t2?t1:t2;
288: t1 = (u1&0xf000); t2 = (u2&0xf000); u |= t1>t2?t1:t2;
289: t1 = (u1&0xf00); t2 = (u2&0xf00); u |= t1>t2?t1:t2;
290: t1 = (u1&0xf0); t2 = (u2&0xf0); u |= t1>t2?t1:t2;
291: t1 = (u1&0xf); t2 = (u2&0xf); u |= t1>t2?t1:t2;
292: d[i] = u;
293: }
294: break;
295: case 6:
296: for ( i = 0; i < nd_wpd; i++ ) {
297: u1 = d1[i]; u2 = d2[i];
298: t1 = (u1&0x3f000000); t2 = (u2&0x3f000000); u = t1>t2?t1:t2;
299: t1 = (u1&0xfc0000); t2 = (u2&0xfc0000); u |= t1>t2?t1:t2;
300: t1 = (u1&0x3f000); t2 = (u2&0x3f000); u |= t1>t2?t1:t2;
301: t1 = (u1&0xfc0); t2 = (u2&0xfc0); u |= t1>t2?t1:t2;
302: t1 = (u1&0x3f); t2 = (u2&0x3f); u |= t1>t2?t1:t2;
303: d[i] = u;
304: }
305: break;
306: case 8:
307: for ( i = 0; i < nd_wpd; i++ ) {
308: u1 = d1[i]; u2 = d2[i];
309: t1 = (u1&0xff000000); t2 = (u2&0xff000000); u = t1>t2?t1:t2;
310: t1 = (u1&0xff0000); t2 = (u2&0xff0000); u |= t1>t2?t1:t2;
311: t1 = (u1&0xff00); t2 = (u2&0xff00); u |= t1>t2?t1:t2;
312: t1 = (u1&0xff); t2 = (u2&0xff); u |= t1>t2?t1:t2;
313: d[i] = u;
314: }
315: break;
316: case 16:
317: for ( i = 0; i < nd_wpd; i++ ) {
318: u1 = d1[i]; u2 = d2[i];
319: t1 = (u1&0xffff0000); t2 = (u2&0xffff0000); u = t1>t2?t1:t2;
320: t1 = (u1&0xffff); t2 = (u2&0xffff); u |= t1>t2?t1:t2;
321: d[i] = u;
322: }
323: break;
324: case 32:
325: for ( i = 0; i < nd_wpd; i++ ) {
326: u1 = d1[i]; u2 = d2[i];
327: d[i] = u1>u2?u1:u2;
328: }
329: break;
330: default:
331: for ( i = 0; i < nd_wpd; i++ ) {
332: u1 = d1[i]; u2 = d2[i];
333: for ( j = 0, u = 0; j < nd_epw; j++ ) {
334: t1 = (u1&nd_mask[j]); t2 = (u2&nd_mask[j]); u |= t1>t2?t1:t2;
335: }
336: d[i] = u;
337: }
338: break;
339: }
340: }
341:
342: int ndl_td(unsigned int *d)
343: {
344: unsigned int t,u;
345: int i,j;
346:
347: for ( t = 0, i = 0; i < nd_wpd; i++ ) {
348: u = d[i];
349: for ( j = 0; j < nd_epw; j++, u>>=nd_bpe )
350: t += (u&nd_mask0);
351: }
352: return t;
353: }
354:
355: INLINE int ndl_compare(unsigned int *d1,unsigned int *d2)
356: {
357: int i;
358:
359: for ( i = 0; i < nd_wpd; i++, d1++, d2++ )
360: if ( *d1 > *d2 )
361: return is_rlex ? -1 : 1;
362: else if ( *d1 < *d2 )
363: return is_rlex ? 1 : -1;
364: return 0;
365: }
366:
367: INLINE int ndl_equal(unsigned int *d1,unsigned int *d2)
368: {
369: int i;
370:
371: for ( i = 0; i < nd_wpd; i++ )
372: if ( d1[i] != d2[i] )
373: return 0;
374: return 1;
375: }
376:
1.6 noro 377: INLINE void ndl_copy(unsigned int *d1,unsigned int *d2)
378: {
379: int i;
380:
381: switch ( nd_wpd ) {
382: case 1:
383: d2[0] = d1[0];
384: break;
385: case 2:
386: d2[0] = d1[0];
387: d2[1] = d1[1];
388: break;
389: default:
390: for ( i = 0; i < nd_wpd; i++ )
391: d2[i] = d1[i];
392: break;
393: }
394: }
395:
1.1 noro 396: INLINE void ndl_add(unsigned int *d1,unsigned int *d2,unsigned int *d)
397: {
398: int i;
399:
1.6 noro 400: switch ( nd_wpd ) {
401: case 1:
402: d[0] = d1[0]+d2[0];
403: break;
404: case 2:
405: d[0] = d1[0]+d2[0];
406: d[1] = d1[1]+d2[1];
407: break;
408: default:
409: for ( i = 0; i < nd_wpd; i++ )
410: d[i] = d1[i]+d2[i];
411: break;
412: }
413: }
414:
415: INLINE void ndl_add2(unsigned int *d1,unsigned int *d2)
416: {
417: int i;
418:
419: switch ( nd_wpd ) {
420: case 1:
421: d2[0] += d1[0];
422: break;
423: case 2:
424: d2[0] += d1[0];
425: d2[1] += d1[1];
426: break;
427: default:
428: for ( i = 0; i < nd_wpd; i++ )
429: d2[i] += d1[i];
430: break;
1.1 noro 431: }
432: }
433:
434: void ndl_sub(unsigned int *d1,unsigned int *d2,unsigned int *d)
435: {
436: int i;
437:
438: for ( i = 0; i < nd_wpd; i++ )
439: d[i] = d1[i]-d2[i];
440: }
441:
442: int ndl_disjoint(unsigned int *d1,unsigned int *d2)
443: {
444: unsigned int t1,t2,u,u1,u2;
445: int i,j;
446:
447: switch ( nd_bpe ) {
448: case 4:
449: for ( i = 0; i < nd_wpd; i++ ) {
450: u1 = d1[i]; u2 = d2[i];
451: t1 = u1&0xf0000000; t2 = u2&0xf0000000; if ( t1&&t2 ) return 0;
452: t1 = u1&0xf000000; t2 = u2&0xf000000; if ( t1&&t2 ) return 0;
453: t1 = u1&0xf00000; t2 = u2&0xf00000; if ( t1&&t2 ) return 0;
454: t1 = u1&0xf0000; t2 = u2&0xf0000; if ( t1&&t2 ) return 0;
455: t1 = u1&0xf000; t2 = u2&0xf000; if ( t1&&t2 ) return 0;
456: t1 = u1&0xf00; t2 = u2&0xf00; if ( t1&&t2 ) return 0;
457: t1 = u1&0xf0; t2 = u2&0xf0; if ( t1&&t2 ) return 0;
458: t1 = u1&0xf; t2 = u2&0xf; if ( t1&&t2 ) return 0;
459: }
460: return 1;
461: break;
462: case 6:
463: for ( i = 0; i < nd_wpd; i++ ) {
464: u1 = d1[i]; u2 = d2[i];
465: t1 = u1&0x3f000000; t2 = u2&0x3f000000; if ( t1&&t2 ) return 0;
466: t1 = u1&0xfc0000; t2 = u2&0xfc0000; if ( t1&&t2 ) return 0;
467: t1 = u1&0x3f000; t2 = u2&0x3f000; if ( t1&&t2 ) return 0;
468: t1 = u1&0xfc0; t2 = u2&0xfc0; if ( t1&&t2 ) return 0;
469: t1 = u1&0x3f; t2 = u2&0x3f; if ( t1&&t2 ) return 0;
470: }
471: return 1;
472: break;
473: case 8:
474: for ( i = 0; i < nd_wpd; i++ ) {
475: u1 = d1[i]; u2 = d2[i];
476: t1 = u1&0xff000000; t2 = u2&0xff000000; if ( t1&&t2 ) return 0;
477: t1 = u1&0xff0000; t2 = u2&0xff0000; if ( t1&&t2 ) return 0;
478: t1 = u1&0xff00; t2 = u2&0xff00; if ( t1&&t2 ) return 0;
479: t1 = u1&0xff; t2 = u2&0xff; if ( t1&&t2 ) return 0;
480: }
481: return 1;
482: break;
483: case 16:
484: for ( i = 0; i < nd_wpd; i++ ) {
485: u1 = d1[i]; u2 = d2[i];
486: t1 = u1&0xffff0000; t2 = u2&0xffff0000; if ( t1&&t2 ) return 0;
487: t1 = u1&0xffff; t2 = u2&0xffff; if ( t1&&t2 ) return 0;
488: }
489: return 1;
490: break;
491: case 32:
492: for ( i = 0; i < nd_wpd; i++ )
493: if ( d1[i] && d2[i] ) return 0;
494: return 1;
495: break;
496: default:
497: for ( i = 0; i < nd_wpd; i++ ) {
498: u1 = d1[i]; u2 = d2[i];
499: for ( j = 0; j < nd_epw; j++ ) {
500: if ( (u1&nd_mask0) && (u2&nd_mask0) ) return 0;
501: u1 >>= nd_bpe; u2 >>= nd_bpe;
502: }
503: }
504: return 1;
505: break;
506: }
507: }
508:
509: ND nd_reduce(ND p1,ND p2)
510: {
511: int c,c1,c2,t,td,td2,mul;
512: NM m2,prev,head,cur,new;
513: unsigned int *d;
514:
515: if ( !p1 )
516: return 0;
517: else {
518: c2 = invm(HC(p2),nd_mod);
519: c1 = nd_mod-HC(p1);
520: DMAR(c1,c2,0,nd_mod,mul);
521: td = HTD(p1)-HTD(p2);
522: d = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
523: ndl_sub(HDL(p1),HDL(p2),d);
524: prev = 0; head = cur = BDY(p1);
525: NEWNM(new);
526: for ( m2 = BDY(p2); m2; ) {
527: td2 = new->td = m2->td+td;
528: ndl_add(m2->dl,d,new->dl);
529: if ( !cur ) {
530: c1 = C(m2);
531: DMAR(c1,mul,0,nd_mod,c2);
532: C(new) = c2;
533: if ( !prev ) {
534: prev = new;
535: NEXT(prev) = 0;
536: head = prev;
537: } else {
538: NEXT(prev) = new;
539: NEXT(new) = 0;
540: prev = new;
541: }
542: m2 = NEXT(m2);
543: NEWNM(new);
544: continue;
545: }
546: if ( cur->td > td2 )
547: c = 1;
548: else if ( cur->td < td2 )
549: c = -1;
550: else
551: c = ndl_compare(cur->dl,new->dl);
552: switch ( c ) {
553: case 0:
554: c2 = C(m2);
555: c1 = C(cur);
556: DMAR(c2,mul,c1,nd_mod,t);
557: if ( t )
558: C(cur) = t;
559: else if ( !prev ) {
560: head = NEXT(cur);
561: FREENM(cur);
562: cur = head;
563: } else {
564: NEXT(prev) = NEXT(cur);
565: FREENM(cur);
566: cur = NEXT(prev);
567: }
568: m2 = NEXT(m2);
569: break;
570: case 1:
571: prev = cur;
572: cur = NEXT(cur);
573: break;
574: case -1:
575: if ( !prev ) {
576: /* cur = head */
577: prev = new;
578: c2 = C(m2);
579: DMAR(c2,mul,0,nd_mod,c1);
580: C(prev) = c1;
581: NEXT(prev) = head;
582: head = prev;
583: } else {
584: c2 = C(m2);
585: DMAR(c2,mul,0,nd_mod,c1);
586: C(new) = c1;
587: NEXT(prev) = new;
588: NEXT(new) = cur;
589: prev = new;
590: }
591: NEWNM(new);
592: m2 = NEXT(m2);
593: break;
594: }
595: }
596: FREENM(new);
597: if ( head ) {
598: BDY(p1) = head;
599: p1->sugar = MAX(p1->sugar,p2->sugar+td);
600: return p1;
601: } else {
602: FREEND(p1);
603: return 0;
604: }
605:
606: }
607: }
608:
609: /* HDL(p1) = HDL(p2) */
610:
611: ND nd_reduce_special(ND p1,ND p2)
612: {
613: int c,c1,c2,t,td,td2,mul;
614: NM m2,prev,head,cur,new;
615:
616: if ( !p1 )
617: return 0;
618: else {
619: c2 = invm(HC(p2),nd_mod);
620: c1 = nd_mod-HC(p1);
621: DMAR(c1,c2,0,nd_mod,mul);
622: prev = 0; head = cur = BDY(p1);
623: NEWNM(new);
624: for ( m2 = BDY(p2); m2; ) {
625: td2 = new->td = m2->td;
626: if ( !cur ) {
627: c1 = C(m2);
628: DMAR(c1,mul,0,nd_mod,c2);
629: C(new) = c2;
630: bcopy(m2->dl,new->dl,nd_wpd*sizeof(unsigned int));
631: if ( !prev ) {
632: prev = new;
633: NEXT(prev) = 0;
634: head = prev;
635: } else {
636: NEXT(prev) = new;
637: NEXT(new) = 0;
638: prev = new;
639: }
640: m2 = NEXT(m2);
641: NEWNM(new);
642: continue;
643: }
644: if ( cur->td > td2 )
645: c = 1;
646: else if ( cur->td < td2 )
647: c = -1;
648: else
649: c = ndl_compare(cur->dl,m2->dl);
650: switch ( c ) {
651: case 0:
652: c2 = C(m2);
653: c1 = C(cur);
654: DMAR(c2,mul,c1,nd_mod,t);
655: if ( t )
656: C(cur) = t;
657: else if ( !prev ) {
658: head = NEXT(cur);
659: FREENM(cur);
660: cur = head;
661: } else {
662: NEXT(prev) = NEXT(cur);
663: FREENM(cur);
664: cur = NEXT(prev);
665: }
666: m2 = NEXT(m2);
667: break;
668: case 1:
669: prev = cur;
670: cur = NEXT(cur);
671: break;
672: case -1:
673: bcopy(m2->dl,new->dl,nd_wpd*sizeof(unsigned int));
674: if ( !prev ) {
675: /* cur = head */
676: prev = new;
677: c2 = C(m2);
678: DMAR(c2,mul,0,nd_mod,c1);
679: C(prev) = c1;
680: NEXT(prev) = head;
681: head = prev;
682: } else {
683: c2 = C(m2);
684: DMAR(c2,mul,0,nd_mod,c1);
685: C(new) = c1;
686: NEXT(prev) = new;
687: NEXT(new) = cur;
688: prev = new;
689: }
690: NEWNM(new);
691: m2 = NEXT(m2);
692: break;
693: }
694: }
695: FREENM(new);
696: if ( head ) {
697: BDY(p1) = head;
698: p1->sugar = MAX(p1->sugar,p2->sugar+td);
699: return p1;
700: } else {
701: FREEND(p1);
702: return 0;
703: }
704:
705: }
706: }
707:
1.5 noro 708: int ndl_check_bound2(int index,unsigned int *d2)
1.1 noro 709: {
1.5 noro 710: unsigned int u2;
711: unsigned int *d1;
712: int i,j,ind,k;
1.1 noro 713:
1.5 noro 714: d1 = nd_bound[index];
715: ind = 0;
716: switch ( nd_bpe ) {
717: case 4:
718: for ( i = 0; i < nd_wpd; i++ ) {
719: u2 = d2[i];
720: if ( d1[ind++]+((u2>>28)&0xf) >= 0x10 ) return 1;
721: if ( d1[ind++]+((u2>>24)&0xf) >= 0x10 ) return 1;
722: if ( d1[ind++]+((u2>>20)&0xf) >= 0x10 ) return 1;
723: if ( d1[ind++]+((u2>>16)&0xf) >= 0x10 ) return 1;
724: if ( d1[ind++]+((u2>>12)&0xf) >= 0x10 ) return 1;
725: if ( d1[ind++]+((u2>>8)&0xf) >= 0x10 ) return 1;
726: if ( d1[ind++]+((u2>>4)&0xf) >= 0x10 ) return 1;
727: if ( d1[ind++]+(u2&0xf) >= 0x10 ) return 1;
728: }
729: return 0;
730: break;
731: case 6:
732: for ( i = 0; i < nd_wpd; i++ ) {
733: u2 = d2[i];
734: if ( d1[ind++]+((u2>>24)&0x3f) >= 0x40 ) return 1;
735: if ( d1[ind++]+((u2>>18)&0x3f) >= 0x40 ) return 1;
736: if ( d1[ind++]+((u2>>12)&0x3f) >= 0x40 ) return 1;
737: if ( d1[ind++]+((u2>>6)&0x3f) >= 0x40 ) return 1;
738: if ( d1[ind++]+(u2&0x3f) >= 0x40 ) return 1;
739: }
740: return 0;
741: break;
742: case 8:
743: for ( i = 0; i < nd_wpd; i++ ) {
744: u2 = d2[i];
745: if ( d1[ind++]+((u2>>24)&0xff) >= 0x100 ) return 1;
746: if ( d1[ind++]+((u2>>16)&0xff) >= 0x100 ) return 1;
747: if ( d1[ind++]+((u2>>8)&0xff) >= 0x100 ) return 1;
748: if ( d1[ind++]+(u2&0xff) >= 0x100 ) return 1;
749: }
750: return 0;
751: break;
752: case 16:
753: for ( i = 0; i < nd_wpd; i++ ) {
754: u2 = d2[i];
755: if ( d1[ind++]+((u2>>16)&0xffff) > 0x10000 ) return 1;
756: if ( d1[ind++]+(u2&0xffff) > 0x10000 ) return 1;
757: }
758: return 0;
759: break;
760: case 32:
761: for ( i = 0; i < nd_wpd; i++ )
762: if ( d1[i]+d2[i]<d1[i] ) return 1;
763: return 0;
764: break;
765: default:
766: for ( i = 0; i < nd_wpd; i++ ) {
767: u2 = d2[i];
768: k = (nd_epw-1)*nd_bpe;
769: for ( j = 0; j < nd_epw; j++, k -= nd_bpe )
770: if ( d1[ind++]+((u2>>k)&nd_mask0) > nd_mask0 ) return 1;
771: }
772: return 0;
773: break;
774: }
1.1 noro 775: }
776:
1.9 noro 777: #if USE_NDV
1.1 noro 778: int nd_sp(ND_pairs p,ND *rp)
779: {
780: NM m;
1.9 noro 781: NDV p1,p2;
782: ND t1,t2;
783: unsigned int *lcm;
784: int td;
785:
786: p1 = nd_psv[p->i1];
787: p2 = nd_psv[p->i2];
788: lcm = p->lcm;
789: td = p->td;
790: NEWNM(m);
791: C(m) = HC(p2); m->td = td-HTD(p1); ndl_sub(lcm,HDL(p1),m->dl);
792: if ( ndl_check_bound2(p->i1,m->dl) )
793: return 0;
794: t1 = ndv_mul_nm_create(p1,m);
795: C(m) = nd_mod-HC(p1); m->td = td-HTD(p2); ndl_sub(lcm,HDL(p2),m->dl);
796: if ( ndl_check_bound2(p->i2,m->dl) ) {
797: nd_free(t1);
798: return 0;
799: }
800: ndv_mul_nm(p2,m,ndv_red);
801: FREENM(m);
802: *rp = ndv_add(t1,ndv_red);
803: return 1;
804: }
805: #else
806: int nd_sp(ND_pairs p,ND *rp)
807: {
808: NM m;
809: ND p1,p2;
810: ND t1,t2;
1.5 noro 811: unsigned int *lcm;
1.1 noro 812: int td;
813:
814: p1 = nd_ps[p->i1];
815: p2 = nd_ps[p->i2];
816: lcm = p->lcm;
817: td = p->td;
818: NEWNM(m);
1.9 noro 819: C(m) = HC(p2); m->td = td-HTD(p1); ndl_sub(lcm,HDL(p1),m->dl);
1.5 noro 820: if ( ndl_check_bound2(p->i1,m->dl) )
1.1 noro 821: return 0;
1.9 noro 822: t1 = nd_mul_ind_nm(p->i1,m);
1.1 noro 823: C(m) = nd_mod-HC(p1); m->td = td-HTD(p2); ndl_sub(lcm,HDL(p2),m->dl);
1.5 noro 824: if ( ndl_check_bound2(p->i2,m->dl) ) {
1.1 noro 825: nd_free(t1);
826: return 0;
827: }
1.9 noro 828: t2 = nd_mul_ind_nm(p->i2,m);
1.1 noro 829: FREENM(m);
830: *rp = nd_add(t1,t2);
831: return 1;
832: }
1.9 noro 833: #endif
1.1 noro 834:
1.6 noro 835: INLINE int ndl_hash_value(int td,unsigned int *d)
1.1 noro 836: {
837: int i;
838: int r;
839:
840: r = td;
841: for ( i = 0; i < nd_wpd; i++ )
842: r = ((r<<16)+d[i])%REDTAB_LEN;
843: return r;
844: }
845:
1.9 noro 846: INLINE int nd_find_reducer(ND g)
1.1 noro 847: {
848: NM m;
1.6 noro 849: ND p;
850: int d,k,i;
1.1 noro 851:
852: d = ndl_hash_value(HTD(g),HDL(g));
853: for ( m = nd_red[d], k = 0; m; m = NEXT(m), k++ ) {
854: if ( HTD(g) == m->td && ndl_equal(HDL(g),m->dl) ) {
855: if ( k > 0 ) nd_notfirst++;
856: nd_found++;
1.6 noro 857: return m->c;
1.1 noro 858: }
859: }
860:
861: for ( i = 0; i < nd_psn; i++ ) {
862: p = nd_ps[i];
863: if ( HTD(g) >= HTD(p) && ndl_reducible(HDL(g),HDL(p)) ) {
864: nd_create++;
1.6 noro 865: nd_append_red(HDL(g),HTD(g),i);
866: return i;
1.1 noro 867: }
868: }
1.6 noro 869: return -1;
1.1 noro 870: }
871:
872: ND nd_add(ND p1,ND p2)
873: {
874: int n,c;
875: int t;
876: ND r;
877: NM m1,m2,mr0,mr,s;
878:
879: if ( !p1 )
880: return p2;
881: else if ( !p2 )
882: return p1;
883: else {
884: for ( n = NV(p1), m1 = BDY(p1), m2 = BDY(p2), mr0 = 0; m1 && m2; ) {
885: if ( m1->td > m2->td )
886: c = 1;
887: else if ( m1->td < m2->td )
888: c = -1;
889: else
890: c = ndl_compare(m1->dl,m2->dl);
891: switch ( c ) {
892: case 0:
893: t = ((C(m1))+(C(m2))) - nd_mod;
894: if ( t < 0 )
895: t += nd_mod;
896: s = m1; m1 = NEXT(m1);
897: if ( t ) {
898: NEXTNM2(mr0,mr,s); C(mr) = (t);
899: } else {
900: FREENM(s);
901: }
902: s = m2; m2 = NEXT(m2); FREENM(s);
903: break;
904: case 1:
905: s = m1; m1 = NEXT(m1); NEXTNM2(mr0,mr,s);
906: break;
907: case -1:
908: s = m2; m2 = NEXT(m2); NEXTNM2(mr0,mr,s);
909: break;
910: }
911: }
912: if ( !mr0 )
913: if ( m1 )
914: mr0 = m1;
915: else if ( m2 )
916: mr0 = m2;
917: else
918: return 0;
919: else if ( m1 )
920: NEXT(mr) = m1;
921: else if ( m2 )
922: NEXT(mr) = m2;
923: else
924: NEXT(mr) = 0;
925: BDY(p1) = mr0;
926: p1->sugar = MAX(p1->sugar,p2->sugar);
927: FREEND(p2);
928: return p1;
929: }
930: }
931:
932: ND nd_mul_nm(ND p,NM m0)
933: {
934: NM m,mr,mr0;
935: unsigned int *d,*dt,*dm;
936: int c,n,td,i,c1,c2;
937: int *pt,*p1,*p2;
938: ND r;
939:
940: if ( !p )
941: return 0;
942: else {
943: n = NV(p); m = BDY(p);
944: d = m0->dl; td = m0->td; c = C(m0);
945: mr0 = 0;
946: for ( ; m; m = NEXT(m) ) {
947: NEXTNM(mr0,mr);
948: c1 = C(m);
949: DMAR(c1,c,0,nd_mod,c2);
950: C(mr) = c2;
951: mr->td = m->td+td;
952: ndl_add(m->dl,d,mr->dl);
953: }
954: NEXT(mr) = 0;
955: MKND(NV(p),mr0,r);
956: r->sugar = p->sugar + td;
957: return r;
958: }
959: }
960:
1.6 noro 961: ND nd_mul_ind_nm(int index,NM m0)
962: {
963: register int c1,c2,c;
964: register NM m,new,prev;
965: NM mr0;
966: unsigned int *d;
967: int n,td,i,len,d0,d1;
968: ND p,r;
969:
970: p = nd_ps[index];
971: len = nd_psl[index];
972: n = NV(p); m = BDY(p);
973: d = m0->dl; td = m0->td; c = C(m0);
974:
975: NEWNM(mr0);
976: c1 = C(m); DMAR(c1,c,0,nd_mod,c2); C(mr0) = c2;
977: mr0->td = m->td+td; ndl_add(m->dl,d,mr0->dl);
978: prev = mr0; m = NEXT(m);
979: len--;
980:
981: switch ( nd_wpd ) {
982: case 1:
983: d0 = d[0];
984: while ( len-- ) {
985: c1 = C(m); DMAR(c1,c,0,nd_mod,c2);
986: NEWNM(new); C(new) = c2;
987: new->td = m->td+td; new->dl[0] = m->dl[0]+d0;
988: m = NEXT(m); NEXT(prev) = new; prev = new;
989: }
990: break;
991: case 2:
992: d0 = d[0]; d1 = d[1];
993: while ( len-- ) {
994: c1 = C(m); DMAR(c1,c,0,nd_mod,c2);
995: NEWNM(new); C(new) = c2;
996: new->td = m->td+td;
997: new->dl[0] = m->dl[0]+d0;
998: new->dl[1] = m->dl[1]+d1;
999: m = NEXT(m); NEXT(prev) = new; prev = new;
1000: }
1001: break;
1002: default:
1003: while ( len-- ) {
1004: c1 = C(m); DMAR(c1,c,0,nd_mod,c2);
1005: NEWNM(new); C(new) = c2;
1006: new->td = m->td+td; ndl_add(m->dl,d,new->dl);
1007: m = NEXT(m); NEXT(prev) = new; prev = new;
1008: }
1009: break;
1010: }
1011:
1012: NEXT(prev) = 0;
1013: MKND(NV(p),mr0,r);
1014: r->sugar = p->sugar + td;
1015: return r;
1016: }
1017:
1.1 noro 1018: #if 1
1019: /* ret=1 : success, ret=0 : overflow */
1020: int nd_nf(ND g,int full,ND *rp)
1021: {
1.3 noro 1022: ND p,d;
1.1 noro 1023: NM m,mrd,tail;
1.7 noro 1024: NM mul;
1.10 ! noro 1025: int n,sugar,psugar,sugar0,stat,index;
1.6 noro 1026: int c,c1,c2;
1.4 noro 1027: #if USE_NDV
1.3 noro 1028: NDV red;
1.4 noro 1029: #else
1030: ND red;
1031: #endif
1.1 noro 1032:
1033: if ( !g ) {
1034: *rp = 0;
1035: return 1;
1036: }
1.10 ! noro 1037: sugar0 = sugar = g->sugar;
1.1 noro 1038: n = NV(g);
1.7 noro 1039: mul = (NM)ALLOCA(sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int));
1.1 noro 1040: for ( d = 0; g; ) {
1.6 noro 1041: index = nd_find_reducer(g);
1042: if ( index >= 0 ) {
1043: p = nd_ps[index];
1.7 noro 1044: ndl_sub(HDL(g),HDL(p),mul->dl);
1045: mul->td = HTD(g)-HTD(p);
1.10 ! noro 1046: #if 0
! 1047: if ( d && (p->sugar+mul->td) > sugar ) {
! 1048: goto afo;
! 1049: }
! 1050: #endif
1.7 noro 1051: if ( ndl_check_bound2(index,mul->dl) ) {
1.6 noro 1052: nd_free(g); nd_free(d);
1053: return 0;
1054: }
1055: c1 = invm(HC(p),nd_mod); c2 = nd_mod-HC(g);
1.7 noro 1056: DMAR(c1,c2,0,nd_mod,c); C(mul) = c;
1.4 noro 1057: #if USE_NDV
1.7 noro 1058: ndv_mul_nm(nd_psv[index],mul,ndv_red);
1.4 noro 1059: g = ndv_add(g,ndv_red);
1060: sugar = MAX(sugar,ndv_red->sugar);
1061: #else
1.7 noro 1062: red = nd_mul_ind_nm(index,mul);
1.1 noro 1063: g = nd_add(g,red);
1.4 noro 1064: sugar = MAX(sugar,red->sugar);
1.1 noro 1065: #endif
1066: } else if ( !full ) {
1067: *rp = g;
1068: return 1;
1069: } else {
1.10 ! noro 1070: afo:
1.1 noro 1071: m = BDY(g);
1072: if ( NEXT(m) ) {
1073: BDY(g) = NEXT(m); NEXT(m) = 0;
1074: } else {
1075: FREEND(g); g = 0;
1076: }
1077: if ( d ) {
1078: NEXT(tail)=m;
1079: tail=m;
1080: } else {
1081: MKND(n,m,d);
1082: tail = BDY(d);
1083: }
1084: }
1085: }
1086: if ( d )
1087: d->sugar = sugar;
1088: *rp = d;
1089: return 1;
1090: }
1091: #else
1092:
1093: ND nd_remove_head(ND p)
1094: {
1095: NM m;
1096:
1097: m = BDY(p);
1098: if ( !NEXT(m) ) {
1099: FREEND(p);
1100: p = 0;
1101: } else
1102: BDY(p) = NEXT(m);
1103: FREENM(m);
1104: return p;
1105: }
1106:
1107: PGeoBucket create_pbucket()
1108: {
1109: PGeoBucket g;
1110:
1111: g = CALLOC(1,sizeof(struct oPGeoBucket));
1112: g->m = -1;
1113: return g;
1114: }
1115:
1116: void add_pbucket(PGeoBucket g,ND d)
1117: {
1118: int l,k,m;
1119:
1120: l = nd_length(d);
1121: for ( k = 0, m = 1; l > m; k++, m <<= 2 );
1122: /* 4^(k-1) < l <= 4^k */
1123: d = nd_add(g->body[k],d);
1124: for ( ; d && nd_length(d) > 1<<(2*k); k++ ) {
1125: g->body[k] = 0;
1126: d = nd_add(g->body[k+1],d);
1127: }
1128: g->body[k] = d;
1129: g->m = MAX(g->m,k);
1130: }
1131:
1132: int head_pbucket(PGeoBucket g)
1133: {
1134: int j,i,c,k,nv,sum;
1135: unsigned int *di,*dj;
1136: ND gi,gj;
1137:
1138: k = g->m;
1139: while ( 1 ) {
1140: j = -1;
1141: for ( i = 0; i <= k; i++ ) {
1142: if ( !(gi = g->body[i]) )
1143: continue;
1144: if ( j < 0 ) {
1145: j = i;
1146: gj = g->body[j];
1147: dj = HDL(gj);
1148: sum = HC(gj);
1149: } else {
1150: di = HDL(gi);
1151: nv = NV(gi);
1152: if ( HTD(gi) > HTD(gj) )
1153: c = 1;
1154: else if ( HTD(gi) < HTD(gj) )
1155: c = -1;
1156: else
1157: c = ndl_compare(di,dj);
1158: if ( c > 0 ) {
1159: if ( sum )
1160: HC(gj) = sum;
1161: else
1162: g->body[j] = nd_remove_head(gj);
1163: j = i;
1164: gj = g->body[j];
1165: dj = HDL(gj);
1166: sum = HC(gj);
1167: } else if ( c == 0 ) {
1168: sum = sum+HC(gi)-nd_mod;
1169: if ( sum < 0 )
1170: sum += nd_mod;
1171: g->body[i] = nd_remove_head(gi);
1172: }
1173: }
1174: }
1175: if ( j < 0 )
1176: return -1;
1177: else if ( sum ) {
1178: HC(gj) = sum;
1179: return j;
1180: } else
1181: g->body[j] = nd_remove_head(gj);
1182: }
1183: }
1184:
1185: ND normalize_pbucket(PGeoBucket g)
1186: {
1187: int i;
1188: ND r,t;
1189:
1190: r = 0;
1191: for ( i = 0; i <= g->m; i++ )
1192: r = nd_add(r,g->body[i]);
1193: return r;
1194: }
1195:
1196: ND nd_nf(ND g,int full)
1197: {
1198: ND u,p,d,red;
1199: NODE l;
1200: NM m,mrd;
1201: int sugar,psugar,n,h_reducible,h;
1202: PGeoBucket bucket;
1203:
1204: if ( !g ) {
1205: return 0;
1206: }
1207: sugar = g->sugar;
1208: n = g->nv;
1209: bucket = create_pbucket();
1210: add_pbucket(bucket,g);
1211: d = 0;
1212: while ( 1 ) {
1213: h = head_pbucket(bucket);
1214: if ( h < 0 ) {
1215: if ( d )
1216: d->sugar = sugar;
1217: return d;
1218: }
1219: g = bucket->body[h];
1220: red = nd_find_reducer(g);
1221: if ( red ) {
1222: bucket->body[h] = nd_remove_head(g);
1223: red = nd_remove_head(red);
1224: add_pbucket(bucket,red);
1225: sugar = MAX(sugar,red->sugar);
1226: } else if ( !full ) {
1227: g = normalize_pbucket(bucket);
1228: if ( g )
1229: g->sugar = sugar;
1230: return g;
1231: } else {
1232: m = BDY(g);
1233: if ( NEXT(m) ) {
1234: BDY(g) = NEXT(m); NEXT(m) = 0;
1235: } else {
1236: FREEND(g); g = 0;
1237: }
1238: bucket->body[h] = g;
1239: NEXT(m) = 0;
1240: if ( d ) {
1241: for ( mrd = BDY(d); NEXT(mrd); mrd = NEXT(mrd) );
1242: NEXT(mrd) = m;
1243: } else {
1244: MKND(n,m,d);
1245: }
1246: }
1247: }
1248: }
1249: #endif
1250:
1251: NODE nd_gb(NODE f)
1252: {
1253: int i,nh,sugar,stat;
1254: NODE r,g,gall;
1255: ND_pairs d;
1256: ND_pairs l;
1257: ND h,nf;
1258:
1259: for ( gall = g = 0, d = 0, r = f; r; r = NEXT(r) ) {
1260: i = (int)BDY(r);
1261: d = update_pairs(d,g,i);
1262: g = update_base(g,i);
1263: gall = append_one(gall,i);
1264: }
1265: sugar = 0;
1266: while ( d ) {
1267: again:
1268: l = nd_minp(d,&d);
1269: if ( l->sugar != sugar ) {
1270: sugar = l->sugar;
1271: fprintf(asir_out,"%d",sugar);
1272: }
1273: stat = nd_sp(l,&h);
1274: if ( !stat ) {
1275: NEXT(l) = d; d = l;
1276: d = nd_reconstruct(d);
1277: goto again;
1278: }
1279: stat = nd_nf(h,!Top,&nf);
1280: if ( !stat ) {
1281: NEXT(l) = d; d = l;
1282: d = nd_reconstruct(d);
1283: goto again;
1284: } else if ( nf ) {
1285: printf("+"); fflush(stdout);
1286: nh = nd_newps(nf);
1287: d = update_pairs(d,g,nh);
1288: g = update_base(g,nh);
1289: gall = append_one(gall,nh);
1290: FREENDP(l);
1291: } else {
1292: printf("."); fflush(stdout);
1293: FREENDP(l);
1294: }
1295: }
1296: return g;
1297: }
1298:
1299: ND_pairs update_pairs( ND_pairs d, NODE /* of index */ g, int t)
1300: {
1301: ND_pairs d1,nd,cur,head,prev,remove;
1302:
1303: if ( !g ) return d;
1304: d = crit_B(d,t);
1305: d1 = nd_newpairs(g,t);
1306: d1 = crit_M(d1);
1307: d1 = crit_F(d1);
1308: prev = 0; cur = head = d1;
1309: while ( cur ) {
1310: if ( crit_2( cur->i1,cur->i2 ) ) {
1311: remove = cur;
1312: if ( !prev ) {
1313: head = cur = NEXT(cur);
1314: } else {
1315: cur = NEXT(prev) = NEXT(cur);
1316: }
1317: FREENDP(remove);
1318: } else {
1319: prev = cur;
1320: cur = NEXT(cur);
1321: }
1322: }
1323: if ( !d )
1324: return head;
1325: else {
1326: nd = d;
1327: while ( NEXT(nd) )
1328: nd = NEXT(nd);
1329: NEXT(nd) = head;
1330: return d;
1331: }
1332: }
1333:
1334: ND_pairs nd_newpairs( NODE g, int t )
1335: {
1336: NODE h;
1337: unsigned int *dl;
1338: int td,ts,s;
1339: ND_pairs r,r0;
1340:
1341: dl = HDL(nd_ps[t]);
1342: td = HTD(nd_ps[t]);
1343: ts = nd_ps[t]->sugar - td;
1344: for ( r0 = 0, h = g; h; h = NEXT(h) ) {
1345: NEXTND_pairs(r0,r);
1346: r->i1 = (int)BDY(h);
1347: r->i2 = t;
1348: ndl_lcm(HDL(nd_ps[r->i1]),dl,r->lcm);
1349: r->td = ndl_td(r->lcm);
1350: s = nd_ps[r->i1]->sugar-HTD(nd_ps[r->i1]);
1351: r->sugar = MAX(s,ts) + r->td;
1352: }
1353: NEXT(r) = 0;
1354: return r0;
1355: }
1356:
1357: ND_pairs crit_B( ND_pairs d, int s )
1358: {
1359: ND_pairs cur,head,prev,remove;
1360: unsigned int *t,*tl,*lcm;
1361: int td,tdl;
1362:
1363: if ( !d ) return 0;
1364: t = HDL(nd_ps[s]);
1365: prev = 0;
1366: head = cur = d;
1367: lcm = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
1368: while ( cur ) {
1369: tl = cur->lcm;
1370: if ( ndl_reducible(tl,t)
1371: && (ndl_lcm(HDL(nd_ps[cur->i1]),t,lcm),!ndl_equal(lcm,tl))
1372: && (ndl_lcm(HDL(nd_ps[cur->i2]),t,lcm),!ndl_equal(lcm,tl)) ) {
1373: remove = cur;
1374: if ( !prev ) {
1375: head = cur = NEXT(cur);
1376: } else {
1377: cur = NEXT(prev) = NEXT(cur);
1378: }
1379: FREENDP(remove);
1380: } else {
1381: prev = cur;
1382: cur = NEXT(cur);
1383: }
1384: }
1385: return head;
1386: }
1387:
1388: ND_pairs crit_M( ND_pairs d1 )
1389: {
1390: ND_pairs e,d2,d3,dd,p;
1391: unsigned int *id,*jd;
1392: int itd,jtd;
1393:
1394: for ( dd = 0, e = d1; e; e = d3 ) {
1395: if ( !(d2 = NEXT(e)) ) {
1396: NEXT(e) = dd;
1397: return e;
1398: }
1399: id = e->lcm;
1400: itd = e->td;
1401: for ( d3 = 0; d2; d2 = p ) {
1402: p = NEXT(d2),
1403: jd = d2->lcm;
1404: jtd = d2->td;
1405: if ( jtd == itd )
1406: if ( id == jd );
1407: else if ( ndl_reducible(jd,id) ) continue;
1408: else if ( ndl_reducible(id,jd) ) goto delit;
1409: else ;
1410: else if ( jtd > itd )
1411: if ( ndl_reducible(jd,id) ) continue;
1412: else ;
1413: else if ( ndl_reducible(id,jd ) ) goto delit;
1414: NEXT(d2) = d3;
1415: d3 = d2;
1416: }
1417: NEXT(e) = dd;
1418: dd = e;
1419: continue;
1420: /**/
1421: delit: NEXT(d2) = d3;
1422: d3 = d2;
1423: for ( ; p; p = d2 ) {
1424: d2 = NEXT(p);
1425: NEXT(p) = d3;
1426: d3 = p;
1427: }
1428: FREENDP(e);
1429: }
1430: return dd;
1431: }
1432:
1433: ND_pairs crit_F( ND_pairs d1 )
1434: {
1435: ND_pairs rest, head,remove;
1436: ND_pairs last, p, r, w;
1437: int s;
1438:
1439: for ( head = last = 0, p = d1; NEXT(p); ) {
1440: r = w = equivalent_pairs(p,&rest);
1441: s = r->sugar;
1442: w = NEXT(w);
1443: while ( w ) {
1444: if ( crit_2(w->i1,w->i2) ) {
1445: r = w;
1446: w = NEXT(w);
1447: while ( w ) {
1448: remove = w;
1449: w = NEXT(w);
1450: FREENDP(remove);
1451: }
1452: break;
1453: } else if ( w->sugar < s ) {
1454: FREENDP(r);
1455: r = w;
1456: s = r->sugar;
1457: w = NEXT(w);
1458: } else {
1459: remove = w;
1460: w = NEXT(w);
1461: FREENDP(remove);
1462: }
1463: }
1464: if ( last ) NEXT(last) = r;
1465: else head = r;
1466: NEXT(last = r) = 0;
1467: p = rest;
1468: if ( !p ) return head;
1469: }
1470: if ( !last ) return p;
1471: NEXT(last) = p;
1472: return head;
1473: }
1474:
1475: int crit_2( int dp1, int dp2 )
1476: {
1477: return ndl_disjoint(HDL(nd_ps[dp1]),HDL(nd_ps[dp2]));
1478: }
1479:
1480: static ND_pairs equivalent_pairs( ND_pairs d1, ND_pairs *prest )
1481: {
1482: ND_pairs w,p,r,s;
1483: unsigned int *d;
1484: int td;
1485:
1486: w = d1;
1487: d = w->lcm;
1488: td = w->td;
1489: s = NEXT(w);
1490: NEXT(w) = 0;
1491: for ( r = 0; s; s = p ) {
1492: p = NEXT(s);
1493: if ( td == s->td && ndl_equal(d,s->lcm) ) {
1494: NEXT(s) = w;
1495: w = s;
1496: } else {
1497: NEXT(s) = r;
1498: r = s;
1499: }
1500: }
1501: *prest = r;
1502: return w;
1503: }
1504:
1505: NODE update_base(NODE nd,int ndp)
1506: {
1507: unsigned int *dl, *dln;
1508: NODE last, p, head;
1509: int td,tdn;
1510:
1511: dl = HDL(nd_ps[ndp]);
1512: td = HTD(nd_ps[ndp]);
1513: for ( head = last = 0, p = nd; p; ) {
1514: dln = HDL(nd_ps[(int)BDY(p)]);
1515: tdn = HTD(nd_ps[(int)BDY(p)]);
1516: if ( tdn >= td && ndl_reducible( dln, dl ) ) {
1517: p = NEXT(p);
1518: if ( last ) NEXT(last) = p;
1519: } else {
1520: if ( !last ) head = p;
1521: p = NEXT(last = p);
1522: }
1523: }
1524: head = append_one(head,ndp);
1525: return head;
1526: }
1527:
1528: ND_pairs nd_minp( ND_pairs d, ND_pairs *prest )
1529: {
1530: ND_pairs m,ml,p,l;
1531: unsigned int *lcm;
1532: int s,td,len,tlen,c;
1533:
1534: if ( !(p = NEXT(m = d)) ) {
1535: *prest = p;
1536: NEXT(m) = 0;
1537: return m;
1538: }
1539: lcm = m->lcm;
1540: s = m->sugar;
1541: td = m->td;
1.6 noro 1542: len = nd_psl[m->i1]+nd_psl[m->i2];
1.1 noro 1543: for ( ml = 0, l = m; p; p = NEXT(l = p) ) {
1544: if (p->sugar < s)
1545: goto find;
1546: else if ( p->sugar == s ) {
1547: if ( p->td < td )
1548: goto find;
1549: else if ( p->td == td ) {
1550: c = ndl_compare(p->lcm,lcm);
1551: if ( c < 0 )
1552: goto find;
1.10 ! noro 1553: #if 0
1.1 noro 1554: else if ( c == 0 ) {
1.6 noro 1555: tlen = nd_psl[p->i1]+nd_psl[p->i2];
1.1 noro 1556: if ( tlen < len )
1557: goto find;
1558: }
1.10 ! noro 1559: #endif
1.1 noro 1560: }
1561: }
1562: continue;
1563: find:
1564: ml = l;
1565: m = p;
1566: lcm = m->lcm;
1567: s = m->sugar;
1568: td = m->td;
1569: len = tlen;
1570: }
1571: if ( !ml ) *prest = NEXT(m);
1572: else {
1573: NEXT(ml) = NEXT(m);
1574: *prest = d;
1575: }
1576: NEXT(m) = 0;
1577: return m;
1578: }
1579:
1580: int nd_newps(ND a)
1581: {
1.3 noro 1582: int len;
1583:
1.1 noro 1584: if ( nd_psn == nd_pslen ) {
1585: nd_pslen *= 2;
1586: nd_ps = (ND *)REALLOC((char *)nd_ps,nd_pslen*sizeof(ND));
1.6 noro 1587: nd_psl = (int *)REALLOC((char *)nd_psl,nd_pslen*sizeof(int));
1.4 noro 1588: #if USE_NDV
1.3 noro 1589: nd_psv = (NDV *)REALLOC((char *)nd_psv,nd_pslen*sizeof(NDV));
1.4 noro 1590: #endif
1.1 noro 1591: nd_bound = (unsigned int **)
1592: REALLOC((char *)nd_bound,nd_pslen*sizeof(unsigned int *));
1593: }
1594: nd_monic(a);
1595: nd_ps[nd_psn] = a;
1.6 noro 1596: nd_psl[nd_psn] = nd_length(a);
1.1 noro 1597: nd_bound[nd_psn] = nd_compute_bound(a);
1.5 noro 1598: #if USE_NDV
1.6 noro 1599: nd_psv[nd_psn] = ndtondv(a);
1.3 noro 1600: len = nd_psv[nd_psn]->len;
1601: if ( len > nmv_len ) {
1602: nmv_len = 2*len;
1603: BDY(ndv_red) = (NMV)REALLOC(BDY(ndv_red),nmv_len*nmv_adv);
1604: }
1.4 noro 1605: #endif
1.1 noro 1606: return nd_psn++;
1607: }
1608:
1609: NODE NODE_sortb(NODE f,int);
1610: ND dptond(DP);
1611: DP ndtodp(ND);
1612:
1613: NODE nd_setup(NODE f)
1614: {
1.5 noro 1615: int i,j,td,len,max;
1.1 noro 1616: NODE s,s0,f0;
1.5 noro 1617: unsigned int *d;
1.1 noro 1618:
1619: nd_found = 0;
1620: nd_notfirst = 0;
1621: nd_create = 0;
1622: #if 0
1623: f0 = f = NODE_sortb(f,1);
1624: #endif
1625: nd_psn = length(f); nd_pslen = 2*nd_psn;
1626: nd_ps = (ND *)MALLOC(nd_pslen*sizeof(ND));
1.6 noro 1627: nd_psl = (int *)MALLOC(nd_pslen*sizeof(int));
1.4 noro 1628: #if USE_NDV
1.3 noro 1629: nd_psv = (NDV *)MALLOC(nd_pslen*sizeof(NDV));
1.4 noro 1630: #endif
1.1 noro 1631: nd_bound = (unsigned int **)MALLOC(nd_pslen*sizeof(unsigned int *));
1.5 noro 1632: for ( max = 0, i = 0, s = f; i < nd_psn; i++, s = NEXT(s) ) {
1633: nd_bound[i] = d = dp_compute_bound((DP)BDY(s));
1634: for ( j = 0; j < nd_nvar; j++ )
1635: max = MAX(d[j],max);
1636: }
1637:
1638: if ( max < 2 )
1639: nd_bpe = 2;
1640: else if ( max < 4 )
1641: nd_bpe = 4;
1642: else if ( max < 64 )
1643: nd_bpe = 6;
1644: else if ( max < 256 )
1645: nd_bpe = 8;
1646: else if ( max < 65536 )
1647: nd_bpe = 16;
1648: else
1649: nd_bpe = 32;
1650:
1.1 noro 1651: nd_setup_parameters();
1652: nd_free_private_storage();
1.3 noro 1653: len = 0;
1.1 noro 1654: for ( i = 0; i < nd_psn; i++, f = NEXT(f) ) {
1655: nd_ps[i] = dptond((DP)BDY(f));
1.5 noro 1656: nd_monic(nd_ps[i]);
1.6 noro 1657: nd_psl[i] = nd_length(nd_ps[i]);
1.4 noro 1658: #if USE_NDV
1.3 noro 1659: nd_psv[i] = ndtondv(nd_ps[i]);
1.4 noro 1660: len = MAX(len,nd_psv[i]->len);
1661: #endif
1.1 noro 1662: }
1663: nd_red = (NM *)MALLOC(REDTAB_LEN*sizeof(NM));
1.4 noro 1664: #if USE_NDV
1.3 noro 1665: nmv_len = 16*len;
1666: NEWNDV(ndv_red);
1667: BDY(ndv_red) = (NMV)MALLOC_ATOMIC(nmv_len*nmv_adv);
1.4 noro 1668: #endif
1.1 noro 1669: for ( s0 = 0, i = 0; i < nd_psn; i++ ) {
1670: NEXTNODE(s0,s); BDY(s) = (pointer)i;
1671: }
1672: if ( s0 ) NEXT(s) = 0;
1673: return s0;
1674: }
1675:
1676: void nd_gr(LIST f,LIST v,int m,struct order_spec *ord,LIST *rp)
1677: {
1678: struct order_spec ord1;
1679: VL fv,vv,vc;
1680: NODE fd,fd0,r,r0,t,x,s,xx;
1681: DP a,b,c;
1682:
1683: get_vars((Obj)f,&fv); pltovl(v,&vv);
1684: nd_nvar = length(vv);
1685: if ( ord->id )
1686: error("nd_gr : unsupported order");
1687: switch ( ord->ord.simple ) {
1688: case 0:
1689: is_rlex = 1;
1690: break;
1691: case 1:
1692: is_rlex = 0;
1693: break;
1694: default:
1695: error("nd_gr : unsupported order");
1696: }
1697: initd(ord);
1698: nd_mod = m;
1699: for ( fd0 = 0, t = BDY(f); t; t = NEXT(t) ) {
1700: ptod(CO,vv,(P)BDY(t),&b);
1701: _dp_mod(b,m,0,&c);
1702: if ( c ) {
1703: NEXTNODE(fd0,fd); BDY(fd) = (pointer)c;
1704: }
1705: }
1706: if ( fd0 ) NEXT(fd) = 0;
1707: s = nd_setup(fd0);
1708: x = nd_gb(s);
1709: #if 0
1710: x = nd_reduceall(x,m);
1711: #endif
1712: for ( r0 = 0; x; x = NEXT(x) ) {
1713: NEXTNODE(r0,r);
1714: a = ndtodp(nd_ps[(int)BDY(x)]);
1715: _dtop_mod(CO,vv,a,(P *)&BDY(r));
1716: }
1717: if ( r0 ) NEXT(r) = 0;
1718: MKLIST(*rp,r0);
1719: fprintf(asir_out,"found=%d,notfirst=%d,create=%d\n",
1720: nd_found,nd_notfirst,nd_create);
1721: }
1722:
1723: void dltondl(int n,DL dl,unsigned int *r)
1724: {
1725: unsigned int *d;
1726: int i;
1727:
1728: d = dl->d;
1729: bzero(r,nd_wpd*sizeof(unsigned int));
1730: if ( is_rlex )
1731: for ( i = 0; i < n; i++ )
1732: r[(n-1-i)/nd_epw] |= (d[i]<<((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe));
1733: else
1734: for ( i = 0; i < n; i++ )
1735: r[i/nd_epw] |= d[i]<<((nd_epw-(i%nd_epw)-1)*nd_bpe);
1736: }
1737:
1738: DL ndltodl(int n,int td,unsigned int *ndl)
1739: {
1740: DL dl;
1741: int *d;
1742: int i;
1743:
1744: NEWDL(dl,n);
1745: dl->td = td;
1746: d = dl->d;
1747: if ( is_rlex )
1748: for ( i = 0; i < n; i++ )
1749: d[i] = (ndl[(n-1-i)/nd_epw]>>((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe))
1750: &((1<<nd_bpe)-1);
1751: else
1752: for ( i = 0; i < n; i++ )
1753: d[i] = (ndl[i/nd_epw]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))
1754: &((1<<nd_bpe)-1);
1755: return dl;
1756: }
1757:
1758: ND dptond(DP p)
1759: {
1760: ND d;
1761: NM m0,m;
1762: MP t;
1763: int n;
1764:
1765: if ( !p )
1766: return 0;
1767: n = NV(p);
1768: m0 = 0;
1769: for ( t = BDY(p); t; t = NEXT(t) ) {
1770: NEXTNM(m0,m);
1771: m->c = ITOS(t->c);
1772: m->td = t->dl->td;
1773: dltondl(n,t->dl,m->dl);
1774: }
1775: NEXT(m) = 0;
1776: MKND(n,m0,d);
1777: d->nv = n;
1778: d->sugar = p->sugar;
1779: return d;
1780: }
1781:
1782: DP ndtodp(ND p)
1783: {
1784: DP d;
1785: MP m0,m;
1786: NM t;
1787: int n;
1788:
1789: if ( !p )
1790: return 0;
1791: n = NV(p);
1792: m0 = 0;
1793: for ( t = BDY(p); t; t = NEXT(t) ) {
1794: NEXTMP(m0,m);
1795: m->c = STOI(t->c);
1796: m->dl = ndltodl(n,t->td,t->dl);
1797: }
1798: NEXT(m) = 0;
1799: MKDP(n,m0,d);
1800: d->sugar = p->sugar;
1801: return d;
1802: }
1803:
1804: void ndl_print(unsigned int *dl)
1805: {
1806: int n;
1807: int i;
1808:
1809: n = nd_nvar;
1810: printf("<<");
1811: if ( is_rlex )
1812: for ( i = 0; i < n; i++ )
1813: printf(i==n-1?"%d":"%d,",
1814: (dl[(n-1-i)/nd_epw]>>((nd_epw-((n-1-i)%nd_epw)-1)*nd_bpe))
1815: &((1<<nd_bpe)-1));
1816: else
1817: for ( i = 0; i < n; i++ )
1818: printf(i==n-1?"%d":"%d,",
1819: (dl[i/nd_epw]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))
1820: &((1<<nd_bpe)-1));
1821: printf(">>");
1822: }
1823:
1824: void nd_print(ND p)
1825: {
1826: NM m;
1827:
1828: if ( !p )
1829: printf("0\n");
1830: else {
1831: for ( m = BDY(p); m; m = NEXT(m) ) {
1832: printf("+%d*",m->c);
1833: ndl_print(m->dl);
1834: }
1835: printf("\n");
1836: }
1837: }
1838:
1839: void ndp_print(ND_pairs d)
1840: {
1841: ND_pairs t;
1842:
1843: for ( t = d; t; t = NEXT(t) ) {
1844: printf("%d,%d ",t->i1,t->i2);
1845: }
1846: printf("\n");
1847: }
1848:
1849: void nd_monic(ND p)
1850: {
1851: if ( !p )
1852: return;
1853: else
1854: nd_mul_c(p,invm(HC(p),nd_mod));
1855: }
1856:
1857: void nd_mul_c(ND p,int mul)
1858: {
1859: NM m;
1860: int c,c1;
1861:
1862: if ( !p )
1863: return;
1864: for ( m = BDY(p); m; m = NEXT(m) ) {
1865: c1 = C(m);
1866: DMAR(c1,mul,0,nd_mod,c);
1867: C(m) = c;
1868: }
1869: }
1870:
1871: void nd_free(ND p)
1872: {
1873: NM t,s;
1874:
1875: if ( !p )
1876: return;
1877: t = BDY(p);
1878: while ( t ) {
1879: s = NEXT(t);
1880: FREENM(t);
1881: t = s;
1882: }
1883: FREEND(p);
1884: }
1885:
1886: void nd_append_red(unsigned int *d,int td,int i)
1887: {
1888: NM m,m0;
1889: int h;
1890:
1891: NEWNM(m);
1892: h = ndl_hash_value(td,d);
1893: m->c = i;
1894: m->td = td;
1.7 noro 1895: ndl_copy(d,m->dl);
1.1 noro 1896: NEXT(m) = nd_red[h];
1897: nd_red[h] = m;
1898: }
1899:
1.5 noro 1900: unsigned int *dp_compute_bound(DP p)
1901: {
1902: unsigned int *d,*d1,*d2,*t;
1903: MP m;
1.7 noro 1904: int i,l;
1.5 noro 1905:
1906: if ( !p )
1907: return 0;
1908: d1 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int));
1909: d2 = (unsigned int *)ALLOCA(nd_nvar*sizeof(unsigned int));
1910: m = BDY(p);
1911: bcopy(m->dl->d,d1,nd_nvar*sizeof(unsigned int));
1912: for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) {
1913: d = m->dl->d;
1914: for ( i = 0; i < nd_nvar; i++ )
1915: d2[i] = d[i] > d1[i] ? d[i] : d1[i];
1916: t = d1; d1 = d2; d2 = t;
1917: }
1.9 noro 1918: l = ((nd_nvar+(sizeof(unsigned int)-1))
1919: /sizeof(unsigned int))*sizeof(unsigned int);
1.7 noro 1920: t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int));
1921: bzero(t,l*sizeof(unsigned int));
1.5 noro 1922: bcopy(d1,t,nd_nvar*sizeof(unsigned int));
1923: return t;
1924: }
1925:
1.1 noro 1926: unsigned int *nd_compute_bound(ND p)
1927: {
1928: unsigned int *d1,*d2,*t;
1.9 noro 1929: int i,l;
1.1 noro 1930: NM m;
1931:
1932: if ( !p )
1933: return 0;
1934: d1 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
1935: d2 = (unsigned int *)ALLOCA(nd_wpd*sizeof(unsigned int));
1936: bcopy(HDL(p),d1,nd_wpd*sizeof(unsigned int));
1937: for ( m = NEXT(BDY(p)); m; m = NEXT(m) ) {
1938: ndl_lcm(m->dl,d1,d2);
1939: t = d1; d1 = d2; d2 = t;
1940: }
1.9 noro 1941: l = ((nd_nvar+(sizeof(unsigned int)-1))
1942: /sizeof(unsigned int))*sizeof(unsigned int);
1943: t = (unsigned int *)MALLOC_ATOMIC(l*sizeof(unsigned int));
1944: bzero(t,l*sizeof(unsigned int));
1.5 noro 1945: for ( i = 0; i < nd_nvar; i++ )
1946: t[i] = (d1[i/nd_epw]>>((nd_epw-(i%nd_epw)-1)*nd_bpe))&nd_mask0;
1.1 noro 1947: return t;
1948: }
1949:
1950: void nd_setup_parameters() {
1951: int i;
1952:
1953: nd_epw = (sizeof(unsigned int)*8)/nd_bpe;
1954: nd_wpd = nd_nvar/nd_epw+(nd_nvar%nd_epw?1:0);
1955: if ( nd_bpe < 32 ) {
1956: nd_mask0 = (1<<nd_bpe)-1;
1957: } else {
1958: nd_mask0 = 0xffffffff;
1959: }
1960: bzero(nd_mask,sizeof(nd_mask));
1961: nd_mask1 = 0;
1962: for ( i = 0; i < nd_epw; i++ ) {
1963: nd_mask[nd_epw-i-1] = (nd_mask0<<(i*nd_bpe));
1964: nd_mask1 |= (1<<(nd_bpe-1))<<(i*nd_bpe);
1965: }
1.4 noro 1966: #if USE_NDV
1.3 noro 1967: nmv_adv = sizeof(struct oNMV)+(nd_wpd-1)*sizeof(unsigned int);
1.4 noro 1968: #endif
1.1 noro 1969: }
1970:
1971: ND_pairs nd_reconstruct(ND_pairs d)
1972: {
1973: int i,obpe;
1.6 noro 1974: NM prev_nm_free_list,mr0,mr,m;
1.1 noro 1975: ND_pairs s0,s,t,prev_ndp_free_list;
1976:
1977: obpe = nd_bpe;
1.5 noro 1978: if ( obpe < 4 )
1979: nd_bpe = 4;
1980: else if ( obpe < 6 )
1981: nd_bpe = 6;
1982: else if ( obpe < 8 )
1983: nd_bpe = 8;
1984: else if ( obpe < 16 )
1985: nd_bpe = 16;
1986: else if ( obpe < 32 )
1987: nd_bpe = 32;
1988: else
1989: error("nd_reconstruct : exponent too large");
1990:
1.1 noro 1991: nd_setup_parameters();
1992: prev_nm_free_list = _nm_free_list;
1993: prev_ndp_free_list = _ndp_free_list;
1994: _nm_free_list = 0;
1995: _ndp_free_list = 0;
1996: for ( i = 0; i < nd_psn; i++ ) {
1997: nd_ps[i] = nd_dup(nd_ps[i],obpe);
1.4 noro 1998: #if USE_NDV
1.3 noro 1999: nd_psv[i] = ndtondv(nd_ps[i]);
1.4 noro 2000: #endif
1.1 noro 2001: }
2002: s0 = 0;
2003: for ( t = d; t; t = NEXT(t) ) {
2004: NEXTND_pairs(s0,s);
2005: s->i1 = t->i1;
2006: s->i2 = t->i2;
2007: s->td = t->td;
2008: s->sugar = t->sugar;
2009: ndl_dup(obpe,t->lcm,s->lcm);
2010: }
1.6 noro 2011: for ( i = 0; i < REDTAB_LEN; i++ ) {
2012: for ( mr0 = 0, m = nd_red[i]; m; m = NEXT(m) ) {
2013: NEXTNM(mr0,mr);
2014: mr->c = m->c;
2015: mr->td = m->td;
2016: ndl_dup(obpe,m->dl,mr->dl);
2017: }
2018: if ( mr0 ) NEXT(mr) = 0;
2019: nd_red[i] = mr0;
2020: }
1.1 noro 2021: if ( s0 ) NEXT(s) = 0;
2022: prev_nm_free_list = 0;
2023: prev_ndp_free_list = 0;
1.4 noro 2024: #if USE_NDV
1.3 noro 2025: BDY(ndv_red) = (NMV)REALLOC(BDY(ndv_red),nmv_len*nmv_adv);
1.4 noro 2026: #endif
1.1 noro 2027: GC_gcollect();
2028: return s0;
2029: }
2030:
2031: void ndl_dup(int obpe,unsigned int *d,unsigned int *r)
2032: {
2033: int n,i,ei,oepw,cepw,cbpe;
2034:
2035: n = nd_nvar;
2036: oepw = (sizeof(unsigned int)*8)/obpe;
2037: cepw = nd_epw;
2038: cbpe = nd_bpe;
2039: if ( is_rlex )
2040: for ( i = 0; i < n; i++ ) {
2041: ei = (d[(n-1-i)/oepw]>>((oepw-((n-1-i)%oepw)-1)*obpe))
2042: &((1<<obpe)-1);
2043: r[(n-1-i)/cepw] |= (ei<<((cepw-((n-1-i)%cepw)-1)*cbpe));
2044: }
2045: else
2046: for ( i = 0; i < n; i++ ) {
2047: ei = (d[i/oepw]>>((oepw-(i%oepw)-1)*obpe))
2048: &((1<<obpe)-1);
2049: r[i/cepw] |= (ei<<((cepw-(i%cepw)-1)*cbpe));
2050: }
2051: }
2052:
2053: ND nd_dup(ND p,int obpe)
2054: {
2055: NM m,mr,mr0;
2056: int c,n;
2057: ND r;
2058:
2059: if ( !p )
2060: return 0;
2061: else {
2062: n = NV(p); m = BDY(p);
2063: for ( mr0 = 0; m; m = NEXT(m) ) {
2064: NEXTNM(mr0,mr);
2065: C(mr) = C(m);
2066: mr->td = m->td;
2067: ndl_dup(obpe,m->dl,mr->dl);
2068: }
2069: NEXT(mr) = 0;
2070: MKND(NV(p),mr0,r);
2071: r->sugar = p->sugar;
2072: return r;
2073: }
2074: }
1.3 noro 2075:
1.6 noro 2076: ND nd_copy(ND p)
2077: {
2078: NM m,mr,mr0;
2079: int c,n,s;
2080: ND r;
2081:
2082: if ( !p )
2083: return 0;
2084: else {
2085: s = sizeof(struct oNM)+(nd_wpd-1)*sizeof(unsigned int);
2086: for ( mr0 = 0, m = BDY(p); m; m = NEXT(m) ) {
2087: NEXTNM(mr0,mr);
2088: C(mr) = C(m);
2089: mr->td = m->td;
2090: ndl_copy(m->dl,mr->dl);
2091: }
2092: NEXT(mr) = 0;
2093: MKND(NV(p),mr0,r);
2094: r->sugar = p->sugar;
2095: return r;
2096: }
2097: }
2098:
1.4 noro 2099: #if USE_NDV
2100: void ndv_mul_nm(NDV p,NM m0,NDV r)
2101: {
2102: NMV m,mr,mr0;
2103: unsigned int *d,*dt,*dm;
2104: int c,n,td,i,c1,c2,len;
2105:
2106: if ( !p )
2107: /* XXX */
2108: r->len = 0;
2109: else {
2110: n = NV(p); m = BDY(p); len = p->len;
2111: d = m0->dl; td = m0->td; c = C(m0);
2112: mr = BDY(r);
1.9 noro 2113: for ( ; len > 0; len--, NMV_ADV(m), NMV_ADV(mr) ) {
2114: c1 = C(m); DMAR(c1,c,0,nd_mod,c2); C(mr) = c2;
2115: mr->td = m->td+td; ndl_add(m->dl,d,mr->dl);
2116: }
2117: NV(r) = NV(p);
2118: r->len = p->len;
2119: r->sugar = p->sugar + td;
2120: }
2121: }
2122:
2123: ND ndv_mul_nm_create(NDV p,NM m0)
2124: {
2125: NM mr,mr0;
2126: NMV m;
2127: unsigned int *d,*dt,*dm;
2128: int c,n,td,i,c1,c2,len;
2129: ND r;
2130:
2131: if ( !p )
2132: return 0;
2133: else {
2134: n = NV(p); m = BDY(p);
2135: d = m0->dl; td = m0->td; c = C(m0);
2136: len = p->len;
2137: mr0 = 0;
2138: for ( i = 0; i < len; i++, NMV_ADV(m) ) {
2139: NEXTNM(mr0,mr);
1.4 noro 2140: c1 = C(m);
2141: DMAR(c1,c,0,nd_mod,c2);
2142: C(mr) = c2;
2143: mr->td = m->td+td;
2144: ndl_add(m->dl,d,mr->dl);
2145: }
1.9 noro 2146: NEXT(mr) = 0;
2147: MKND(NV(p),mr0,r);
1.4 noro 2148: r->sugar = p->sugar + td;
1.9 noro 2149: return r;
1.4 noro 2150: }
2151: }
2152:
2153: ND ndv_add(ND p1,NDV p2)
2154: {
1.9 noro 2155: register NM prev,cur,new;
1.4 noro 2156: int c,c1,c2,t,td,td2,mul,len,i;
1.9 noro 2157: NM head;
1.4 noro 2158: unsigned int *d;
2159: NMV m2;
2160:
2161: if ( !p1 )
2162: return 0;
2163: else {
2164: prev = 0; head = cur = BDY(p1);
1.9 noro 2165: NEWNM(new); len = p2->len;
2166: for ( m2 = BDY(p2), i = 0; cur && i < len; ) {
1.4 noro 2167: td2 = new->td = m2->td;
1.9 noro 2168: if ( cur->td > td2 ) c = 1;
2169: else if ( cur->td < td2 ) c = -1;
2170: else c = ndl_compare(cur->dl,m2->dl);
1.4 noro 2171: switch ( c ) {
2172: case 0:
2173: t = C(m2)+C(cur)-nd_mod;
1.9 noro 2174: if ( t < 0 ) t += nd_mod;
2175: if ( t ) C(cur) = t;
1.4 noro 2176: else if ( !prev ) {
1.9 noro 2177: head = NEXT(cur); FREENM(cur); cur = head;
1.4 noro 2178: } else {
1.9 noro 2179: NEXT(prev) = NEXT(cur); FREENM(cur); cur = NEXT(prev);
1.4 noro 2180: }
2181: NMV_ADV(m2); i++;
2182: break;
2183: case 1:
1.9 noro 2184: prev = cur; cur = NEXT(cur);
1.4 noro 2185: break;
2186: case -1:
1.6 noro 2187: ndl_copy(m2->dl,new->dl);
1.9 noro 2188: C(new) = C(m2);
1.4 noro 2189: if ( !prev ) {
2190: /* cur = head */
1.9 noro 2191: prev = new; NEXT(prev) = head; head = prev;
1.4 noro 2192: } else {
1.9 noro 2193: NEXT(prev) = new; NEXT(new) = cur; prev = new;
1.4 noro 2194: }
1.9 noro 2195: NEWNM(new); NMV_ADV(m2); i++;
1.4 noro 2196: break;
2197: }
2198: }
1.9 noro 2199: for ( ; i < len; i++, NMV_ADV(m2) ) {
2200: td2 = new->td = m2->td; C(new) = C(m2); ndl_copy(m2->dl,new->dl);
2201: if ( !prev ) {
2202: prev = new; NEXT(prev) = 0; head = prev;
2203: } else {
2204: NEXT(prev) = new; NEXT(new) = 0; prev = new;
2205: }
2206: NEWNM(new);
2207: }
1.4 noro 2208: FREENM(new);
2209: if ( head ) {
1.9 noro 2210: BDY(p1) = head; p1->sugar = MAX(p1->sugar,p2->sugar);
1.4 noro 2211: return p1;
2212: } else {
2213: FREEND(p1);
2214: return 0;
2215: }
2216:
2217: }
2218: }
2219:
1.3 noro 2220: NDV ndtondv(ND p)
2221: {
2222: NDV d;
2223: NMV m,m0;
2224: NM t;
2225: int i,len;
2226:
2227: if ( !p )
2228: return 0;
2229: len = nd_length(p);
2230: m0 = m = (NMV)MALLOC_ATOMIC(len*nmv_adv);
2231: for ( t = BDY(p), i = 0; t; t = NEXT(t), i++, NMV_ADV(m) ) {
2232: m->td = t->td;
1.7 noro 2233: ndl_copy(t->dl,m->dl);
1.3 noro 2234: m->c = t->c;
2235: }
2236: MKNDV(NV(p),m0,len,d);
2237: d->sugar = p->sugar;
2238: return d;
2239: }
2240:
2241: void ndv_print(NDV p)
2242: {
2243: NMV m;
2244: int i,len;
2245:
2246: if ( !p )
2247: printf("0\n");
2248: else {
2249: len = p->len;
2250: for ( m = BDY(p), i = 0; i < len; i++, NMV_ADV(m) ) {
2251: printf("+%d*",m->c);
2252: ndl_print(m->dl);
2253: }
2254: printf("\n");
2255: }
2256: }
1.4 noro 2257: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>