version 1.9, 2001/05/02 09:03:52 |
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.8 2001/03/29 09:49:56 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); |
|
|
getmod_gf2n(&up2); d = degup2(up2); STOQ(d,*rp); break; |
getmod_gf2n(&up2); d = degup2(up2); STOQ(d,*rp); break; |
case FF_GFPN: |
case FF_GFPN: |
getmod_gfpn(&up); STOQ(up->d,*rp); break; |
getmod_gfpn(&up); STOQ(up->d,*rp); break; |
|
case FF_GFS: |
|
if ( !current_gfs_ext ) |
|
*rp = ONE; |
|
else |
|
*rp = DEG(DC(current_gfs_ext)); |
|
break; |
default: |
default: |
error("extdeg_ff : current_ff is not set"); |
error("extdeg_ff : current_ff is not set"); |
} |
} |
|
|
getmod_lm(&lm); NTOQ(lm,1,*rp); break; |
getmod_lm(&lm); NTOQ(lm,1,*rp); break; |
case FF_GF2N: |
case FF_GF2N: |
STOQ(2,*rp); break; |
STOQ(2,*rp); break; |
|
case FF_GFS: |
|
STOQ(current_gfs_p,*rp); break; |
default: |
default: |
error("characteristic_ff : current_ff is not set"); |
error("characteristic_ff : current_ff is not set"); |
} |
} |
|
|
case FF_GFPN: |
case FF_GFPN: |
getmod_lm(&m); |
getmod_lm(&m); |
getmod_gfpn(&up); pwrn(m,up->d,order); break; |
getmod_gfpn(&up); pwrn(m,up->d,order); break; |
|
case FF_GFS: |
|
STON(current_gfs_q,*order); break; |
default: |
default: |
error("field_order_ff : current_ff is not set"); |
error("field_order_ff : current_ff is not set"); |
} |
} |
|
|
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) |
NODE arg; |
NODE arg; |
P *rp; |
P *rp; |
|
|
case FF_GF2N: |
case FF_GF2N: |
powermodup_gf2n(p1,&p2); break; |
powermodup_gf2n(p1,&p2); break; |
case FF_GFPN: |
case FF_GFPN: |
|
case FF_GFS: |
powermodup(p1,&p2); break; |
powermodup(p1,&p2); break; |
default: |
default: |
error("pwrmod_ff : current_ff is not set"); |
error("pwrmod_ff : current_ff is not set"); |
|
|
case FF_GF2N: |
case FF_GF2N: |
generic_powermodup_gf2n(g,f,(Q)ARG2(arg),&r); break; |
generic_powermodup_gf2n(g,f,(Q)ARG2(arg),&r); break; |
case FF_GFPN: |
case FF_GFPN: |
|
case FF_GFS: |
generic_powermodup(g,f,(Q)ARG2(arg),&r); break; |
generic_powermodup(g,f,(Q)ARG2(arg),&r); break; |
default: |
default: |
error("generic_pwrmod_ff : current_ff is not set"); |
error("generic_pwrmod_ff : current_ff is not set"); |
|
|
case FF_GF2N: |
case FF_GF2N: |
powertabup_gf2n(f,xp,tab); break; |
powertabup_gf2n(f,xp,tab); break; |
case FF_GFPN: |
case FF_GFPN: |
|
case FF_GFS: |
powertabup(f,xp,tab); break; |
powertabup(f,xp,tab); break; |
default: |
default: |
error("pwrtab_ff : current_ff is not set"); |
error("pwrtab_ff : current_ff is not set"); |