version 1.14, 2002/09/30 06:15:51 |
version 1.15, 2002/10/23 07:54:57 |
|
|
* 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.13 2002/09/27 08:40:48 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.14 2002/09/30 06:15:51 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(),Psfgcd(); |
void Psfsqfr(),Psffctr(),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 73 struct ftab fctr_tab[] = { |
|
Line 73 struct ftab fctr_tab[] = { |
|
{"modsqfr",Pmodsqfr,2}, |
{"modsqfr",Pmodsqfr,2}, |
{"modfctr",Pmodfctr,2}, |
{"modfctr",Pmodfctr,2}, |
{"sfsqfr",Psfsqfr,1}, |
{"sfsqfr",Psfsqfr,1}, |
|
{"sffctr",Psffctr,1}, |
{"sfufctr",Psfufctr,1}, |
{"sfufctr",Psfufctr,1}, |
{"sfbfctr",Psfbfctr,-4}, |
{"sfbfctr",Psfbfctr,-4}, |
{"sfmintdeg",Psfmintdeg,5}, |
{"sfmintdeg",Psfmintdeg,5}, |
|
|
gcdsf(CO,ps,2,rp); |
gcdsf(CO,ps,2,rp); |
} |
} |
|
|
|
void Psffctr(arg,rp) |
|
NODE arg; |
|
LIST *rp; |
|
{ |
|
DCP dc; |
|
|
|
mfctrsf(CO,ARG0(arg),&dc); |
|
dcptolist(dc,rp); |
|
} |
|
|
void Psfsqfr(arg,rp) |
void Psfsqfr(arg,rp) |
NODE arg; |
NODE arg; |
LIST *rp; |
LIST *rp; |
|
|
{ |
{ |
DCP dc; |
DCP dc; |
|
|
fctrsf(ARG0(arg),&dc); |
ufctrsf(ARG0(arg),&dc); |
dcptolist(dc,rp); |
dcptolist(dc,rp); |
} |
} |
|
|