version 1.10, 2001/05/09 01:41:41 |
version 1.11, 2001/05/28 08:22:00 |
|
|
* 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/poly.c,v 1.9 2001/05/02 09:03:52 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.10 2001/05/09 01:41:41 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 63 void Pp_mag(),Pmaxblen(); |
|
Line 63 void Pp_mag(),Pmaxblen(); |
|
void Pmergelist(), Pch_mv(), Pre_mv(), Pdeglist(); |
void Pmergelist(), Pch_mv(), Pre_mv(), Pdeglist(); |
void Pptomp(),Pmptop(); |
void Pptomp(),Pmptop(); |
void Pptolmp(),Plmptop(); |
void Pptolmp(),Plmptop(); |
void Psfptop(); |
void Pptosfp(),Psfptop(),Psf_galois_action(); |
void Pptogf2n(),Pgf2ntop(),Pgf2ntovect(); |
void Pptogf2n(),Pgf2ntop(),Pgf2ntovect(); |
void Pptogfpn(),Pgfpntop(); |
void Pptogfpn(),Pgfpntop(); |
void Pfind_root_gf2n(); |
void Pfind_root_gf2n(); |
Line 150 struct ftab poly_tab[] = { |
|
Line 150 struct ftab poly_tab[] = { |
|
{"ptolmp",Pptolmp,1}, |
{"ptolmp",Pptolmp,1}, |
{"lmptop",Plmptop,1}, |
{"lmptop",Plmptop,1}, |
|
|
|
{"sf_galois_action",Psf_galois_action,2}, |
|
{"ptosfp",Pptosfp,1}, |
{"sfptop",Psfptop,1}, |
{"sfptop",Psfptop,1}, |
|
|
{"ptogf2n",Pptogf2n,1}, |
{"ptogf2n",Pptogf2n,1}, |
|
|
VR(current_gfs_ext),&p); |
VR(current_gfs_ext),&p); |
n0 = mknode(3,q,current_gfs_ext,p); |
n0 = mknode(3,q,current_gfs_ext,p); |
} else { |
} else { |
STOQ(current_gfs_iton[1],r); |
if ( current_gfs_p == 2 ) |
|
r = ONE; |
|
else |
|
STOQ(current_gfs_iton[1],r); |
n0 = mknode(3,q,current_gfs_ext,r); |
n0 = mknode(3,q,current_gfs_ext,r); |
} |
} |
MKLIST(list,n0); |
MKLIST(list,n0); |
|
|
P *rp; |
P *rp; |
{ |
{ |
lmptop((P)ARG0(arg),rp); |
lmptop((P)ARG0(arg),rp); |
|
} |
|
|
|
void Psf_galois_action(arg,rp) |
|
NODE arg; |
|
P *rp; |
|
{ |
|
sf_galois_action(ARG0(arg),ARG1(arg),rp); |
|
} |
|
|
|
void Pptosfp(arg,rp) |
|
NODE arg; |
|
P *rp; |
|
{ |
|
ptosfp(ARG0(arg),rp); |
} |
} |
|
|
void Psfptop(arg,rp) |
void Psfptop(arg,rp) |