version 1.7, 2001/06/25 10:01:27 |
version 1.8, 2001/06/26 03:00:40 |
|
|
* 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/fctr.c,v 1.6 2001/06/20 09:30:33 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.7 2001/06/25 10:01:27 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
LIST *rp; |
LIST *rp; |
{ |
{ |
V x,y; |
V x,y; |
GFS ev; |
DCP dc,dct; |
DCP dc; |
|
LIST l; |
LIST l; |
NODE n0,n1; |
P t; |
|
struct oVL vl1,vl2; |
|
VL vl; |
|
|
x = VR((P)ARG1(arg)); |
x = VR((P)ARG1(arg)); |
y = VR((P)ARG2(arg)); |
y = VR((P)ARG2(arg)); |
sfbfctr((P)ARG0(arg),x,y,&ev,&dc); |
vl1.v = x; vl1.next = &vl2; |
if ( !dc ) { |
vl2.v = y; vl2.next = 0; |
NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0; |
vl = &vl1; |
|
|
|
sfbfctr((P)ARG0(arg),x,y,&dc); |
|
for ( dct = dc; dct; dct = NEXT(dct) ) { |
|
reorderp(CO,vl,COEF(dct),&t); COEF(dct) = t; |
} |
} |
dcptolist(dc,&l); |
dcptolist(dc,rp); |
MKNODE(n1,l,0); MKNODE(n0,ev,n1); |
|
MKLIST(*rp,n1); |
|
} |
} |
|
|
void Pmodsqfr(arg,rp) |
void Pmodsqfr(arg,rp) |