version 1.12, 2002/01/13 07:11:46 |
version 1.13, 2002/09/27 08:40:48 |
|
|
* 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.11 2002/01/09 07:45:40 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.12 2002/01/13 07:11:46 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 Psfsqfr(),Psfbfctr(),Psfufctr(),Psfmintdeg(); |
void Psfsqfr(),Psfbfctr(),Psfufctr(),Psfmintdeg(),Psfgcd(); |
void Pirred_check(), Pnfctr_mod(); |
void Pirred_check(), Pnfctr_mod(); |
|
|
void sfmintdeg(VL vl,P fx,int dy,int c,P *fr); |
void sfmintdeg(VL vl,P fx,int dy,int c,P *fr); |
Line 76 struct ftab fctr_tab[] = { |
|
Line 76 struct ftab fctr_tab[] = { |
|
{"sfufctr",Psfufctr,1}, |
{"sfufctr",Psfufctr,1}, |
{"sfbfctr",Psfbfctr,-4}, |
{"sfbfctr",Psfbfctr,-4}, |
{"sfmintdeg",Psfmintdeg,5}, |
{"sfmintdeg",Psfmintdeg,5}, |
|
{"sfgcd",Psfgcd,2}, |
#if 0 |
#if 0 |
{"ddd",Pddd,2}, |
{"ddd",Pddd,2}, |
{"newddd",Pnewddd,2}, |
{"newddd",Pnewddd,2}, |
|
|
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); |
dcptolist(dc,rp); |
|
} |
|
|
|
void Psfgcd(arg,rp) |
|
NODE arg; |
|
LIST *rp; |
|
{ |
|
P ps[2]; |
|
|
|
ps[0] = (P)ARG0(arg); |
|
ps[1] = (P)ARG1(arg); |
|
gcdsf(CO,ps,2,rp); |
} |
} |
|
|
void Psfsqfr(arg,rp) |
void Psfsqfr(arg,rp) |