version 1.6, 2001/06/25 01:35:20 |
version 1.7, 2001/06/25 04:11:41 |
|
|
* 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/builtin/gf.c,v 1.5 2001/05/09 01:41:41 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gf.c,v 1.6 2001/06/25 01:35:20 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
{ |
{ |
ML lift; |
ML lift; |
int i; |
int i; |
P s,u; |
P s; |
NODE t,top; |
NODE t,top; |
VL vl,vl1; |
|
|
|
NEWVL(vl1); vl1->v = y; NEXT(vl1) = 0; |
|
NEWVL(vl); vl->v = x; NEXT(vl) = vl1; |
|
sfhensel(5,f,x,&lift); |
sfhensel(5,f,x,&lift); |
for ( i = lift->n-1, top = 0; i >= 0; i-- ) { |
for ( i = lift->n-1, top = 0; i >= 0; i-- ) { |
sflumtop(lift->bound,lift->c[i],x,y,&s); |
sfbmtop(CO,lift->bound,lift->c[i],x,y,&s); |
reorderp(CO,vl,s,&u); |
MKNODE(t,s,top); top = t; |
MKNODE(t,u,top); top = t; |
|
} |
} |
*rp = top; |
*rp = top; |
} |
} |