version 1.5, 2001/05/28 08:25:30 |
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.4 2001/03/29 09:49:56 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" |
Line 54 void Pfctr(), Pgcd(), Pgcdz(), Plcm(), Psqfr(), Pufctr |
|
Line 54 void Pfctr(), Pgcd(), Pgcdz(), Plcm(), Psqfr(), Pufctr |
|
void Pptozp(), Pcont(); |
void Pptozp(), Pcont(); |
void Pafctr(), Pagcd(); |
void Pafctr(), Pagcd(); |
void Pmodsqfr(),Pmodfctr(),Pddd(),Pnewddd(),Pddd_tab(); |
void Pmodsqfr(),Pmodfctr(),Pddd(),Pnewddd(),Pddd_tab(); |
|
void Psffctr(),Psfbfctr(); |
void Pirred_check(), Pnfctr_mod(); |
void Pirred_check(), Pnfctr_mod(); |
|
|
struct ftab fctr_tab[] = { |
struct ftab fctr_tab[] = { |
Line 69 struct ftab fctr_tab[] = { |
|
Line 70 struct ftab fctr_tab[] = { |
|
{"agcd",Pagcd,3}, |
{"agcd",Pagcd,3}, |
{"modsqfr",Pmodsqfr,2}, |
{"modsqfr",Pmodsqfr,2}, |
{"modfctr",Pmodfctr,2}, |
{"modfctr",Pmodfctr,2}, |
|
{"sffctr",Psffctr,1}, |
|
{"sfbfctr",Psfbfctr,3}, |
#if 0 |
#if 0 |
{"ddd",Pddd,2}, |
{"ddd",Pddd,2}, |
{"newddd",Pnewddd,2}, |
{"newddd",Pnewddd,2}, |
|
|
modfctrp(ARG0(arg),mod,NEWDDD,&dc); |
modfctrp(ARG0(arg),mod,NEWDDD,&dc); |
if ( !dc ) { |
if ( !dc ) { |
NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0; |
NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0; |
|
} |
|
dcptolist(dc,rp); |
|
} |
|
|
|
void Psffctr(arg,rp) |
|
NODE arg; |
|
LIST *rp; |
|
{ |
|
DCP dc; |
|
int mod; |
|
|
|
fctrsf(ARG0(arg),&dc); |
|
if ( !dc ) { |
|
NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0; |
|
} |
|
dcptolist(dc,rp); |
|
} |
|
|
|
void Psfbfctr(arg,rp) |
|
NODE arg; |
|
LIST *rp; |
|
{ |
|
V x,y; |
|
DCP dc,dct; |
|
LIST l; |
|
P t; |
|
struct oVL vl1,vl2; |
|
VL vl; |
|
|
|
x = VR((P)ARG1(arg)); |
|
y = VR((P)ARG2(arg)); |
|
vl1.v = x; vl1.next = &vl2; |
|
vl2.v = y; vl2.next = 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,rp); |
dcptolist(dc,rp); |
} |
} |