| version 1.6, 2000/05/30 01:35:12 |
version 1.7, 2000/07/13 05:09:00 |
|
|
| /* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.5 2000/05/29 08:54:46 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.6 2000/05/30 01:35:12 noro Exp $ */ |
| #include "ca.h" |
#include "ca.h" |
| |
|
| #define NV(p) ((p)->nv) |
#define NV(p) ((p)->nv) |
| Line 749 int cmpdl_revgradlex(n,d1,d2) |
|
| Line 749 int cmpdl_revgradlex(n,d1,d2) |
|
| int n; |
int n; |
| DL d1,d2; |
DL d1,d2; |
| { |
{ |
| |
register int i; |
| |
register int *p1,*p2; |
| |
|
| if ( d1->td > d2->td ) |
if ( d1->td > d2->td ) |
| return 1; |
return 1; |
| else if ( d1->td < d2->td ) |
else if ( d1->td < d2->td ) |
| return -1; |
return -1; |
| else |
else { |
| return cmpdl_revlex(n,d1,d2); |
for ( i= n - 1, p1 = d1->d+n-1, p2 = d2->d+n-1; |
| |
i >= 0 && *p1 == *p2; i--, p1--, p2-- ); |
| |
return i < 0 ? 0 : (*p1 < *p2 ? 1 : -1); |
| |
} |
| } |
} |
| |
|
| int cmpdl_blex(n,d1,d2) |
int cmpdl_blex(n,d1,d2) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dist.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine