OpenXM_contrib2/asir2000/engine/Fgfs.c - diff

Return to Fgfs.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/Fgfs.c between version 1.13 and 1.16

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

version 1.16, 2003/01/06 09:23:27

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.15 2003/01/04 09:06:17 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);

Line 474 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

MP t;

int i,m;

P *ps;

struct order_spec spec, currentspec;

extern struct order_spec dp_current_spec;

currentspec = dp_current_spec;

create_order_spec(0,&spec);

initd(&spec);

ptod(vl,rvl,p,&dp);

for ( t = BDY(dp), m = 0; t; t = NEXT(t), m++ );

ps = (P *)ALLOCA(m*sizeof(P));

Line 482 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

Line 487 void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)

ps[i] = C(t);

gcdsf(vl,ps,m,c);

divsp(vl,p,*c,pp);

initd(&currentspec);

}

void mfctrsf(VL vl, P f, DCP *dcp)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>