OpenXM_contrib2/asir2000/engine/Fgfs.c - diff

Return to Fgfs.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.13, 2002/11/26 08:21:49

version 1.14, 2002/12/18 06:15:40

Line 1

/* $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.13 2002/11/26 08:21:49 noro Exp $ */

#include "ca.h"

Line 50 void sqfrsf(VL vl, P f, DCP *dcp)

{

DCP dc,dct;

Obj obj;

P t,s,c;

P t,s,c,cont;

VL tvl,onevl;

simp_ff((Obj)f,&obj); f = (P)obj;

Line 67 void sqfrsf(VL vl, P f, DCP *dcp)

t = f;

for ( tvl = vl; tvl; tvl = NEXT(tvl) ) {

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));

}

sqfrsfmain(vl,t,&dct);