version 1.13, 2002/11/26 08:21:49 |
version 1.15, 2003/01/04 09:06:17 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.12 2002/11/26 07:09:45 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.14 2002/12/18 06:15:40 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
|
|
Line 50 void sqfrsf(VL vl, P f, DCP *dcp) |
|
Line 50 void sqfrsf(VL vl, P f, DCP *dcp) |
|
{ |
{ |
DCP dc,dct; |
DCP dc,dct; |
Obj obj; |
Obj obj; |
P t,s,c; |
P t,s,c,cont; |
VL tvl,onevl; |
VL tvl,onevl; |
|
|
simp_ff((Obj)f,&obj); f = (P)obj; |
simp_ff((Obj)f,&obj); f = (P)obj; |
Line 67 void sqfrsf(VL vl, P f, DCP *dcp) |
|
Line 67 void sqfrsf(VL vl, P f, DCP *dcp) |
|
t = f; |
t = f; |
for ( tvl = vl; tvl; tvl = NEXT(tvl) ) { |
for ( tvl = vl; tvl; tvl = NEXT(tvl) ) { |
onevl->v = tvl->v; |
onevl->v = tvl->v; |
cont_pp_mv_sf(vl,onevl,t,&c,&s); t = s; |
cont_pp_mv_sf(vl,onevl,t,&cont,&s); t = s; |
sqfrsf(vl,c,&dct); |
sqfrsf(vl,cont,&dct); |
dc = append_dc(dc,NEXT(dct)); |
dc = append_dc(dc,NEXT(dct)); |
} |
} |
sqfrsfmain(vl,t,&dct); |
sqfrsfmain(vl,t,&dct); |
Line 474 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp) |
|
Line 474 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp) |
|
MP t; |
MP t; |
int i,m; |
int i,m; |
P *ps; |
P *ps; |
|
struct order_spec spec; |
|
|
|
create_order_spec(0,&spec); |
|
initd(&spec); |
ptod(vl,rvl,p,&dp); |
ptod(vl,rvl,p,&dp); |
for ( t = BDY(dp), m = 0; t; t = NEXT(t), m++ ); |
for ( t = BDY(dp), m = 0; t; t = NEXT(t), m++ ); |
ps = (P *)ALLOCA(m*sizeof(P)); |
ps = (P *)ALLOCA(m*sizeof(P)); |