version 1.10, 2000/11/07 06:06:39 |
version 1.11, 2000/12/05 06:59:16 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.9 2000/08/22 05:04:05 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.10 2000/11/07 06:06:39 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
|
#define NV(p) ((p)->nv) |
|
#define C(p) ((p)->c) |
|
|
|
#define ORD_REVGRADLEX 0 |
#define ORD_REVGRADLEX 0 |
#define ORD_GRADLEX 1 |
#define ORD_GRADLEX 1 |
#define ORD_LEX 2 |
#define ORD_LEX 2 |
|
|
#define ORD_BLEXREV 8 |
#define ORD_BLEXREV 8 |
#define ORD_ELIM 9 |
#define ORD_ELIM 9 |
|
|
struct cdl { |
|
P c; |
|
DL d; |
|
}; |
|
|
|
int (*cmpdl)()=cmpdl_revgradlex; |
int (*cmpdl)()=cmpdl_revgradlex; |
int (*primitive_cmpdl[3])() = {cmpdl_revgradlex,cmpdl_gradlex,cmpdl_lex}; |
int (*primitive_cmpdl[3])() = {cmpdl_revgradlex,cmpdl_gradlex,cmpdl_lex}; |
|
|
|
|
for ( i = 0; i < n; i++ ) |
for ( i = 0; i < n; i++ ) |
dt->d[i] = d1->d[i]+d2->d[i]; |
dt->d[i] = d1->d[i]+d2->d[i]; |
} |
} |
|
} |
|
|
|
/* d1 += d2 */ |
|
|
|
void adddl_destructive(n,d1,d2) |
|
int n; |
|
DL d1,d2; |
|
{ |
|
DL dt; |
|
int i; |
|
|
|
d1->td += d2->td; |
|
for ( i = 0; i < n; i++ ) |
|
d1->d[i] += d2->d[i]; |
} |
} |
|
|
int compd(vl,p1,p2) |
int compd(vl,p1,p2) |