version 1.13, 2001/07/13 08:25:21 |
version 1.14, 2001/09/03 01:04:25 |
|
|
* 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.12 2001/06/29 09:08:52 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.13 2001/07/13 08:25:21 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
N n; |
N n; |
UP up; |
UP up; |
UP2 up2; |
UP2 up2; |
|
UM dp; |
Q q,r; |
Q q,r; |
P p; |
P p; |
NODE n0,n1; |
NODE n0,n1; |
|
|
setmod_lm(NM((Q)mod)); |
setmod_lm(NM((Q)mod)); |
setmod_gfpn((P)defpoly); |
setmod_gfpn((P)defpoly); |
} |
} |
|
} else if ( ac == 3 ) { |
|
/* finite extension of a small finite field */ |
|
current_ff = FF_GFS; |
|
setmod_sf(QTOS((Q)ARG0(arg)),QTOS((Q)ARG1(arg))); |
|
d = QTOS((Q)ARG2(arg)); |
|
generate_defpoly_sfum(d,&dp); |
|
setmod_gfspn(dp); |
|
current_ff = FF_GFSPN; |
} |
} |
switch ( current_ff ) { |
switch ( current_ff ) { |
case FF_GFP: |
case FF_GFP: |
|
|
GF2N rg,sg; |
GF2N rg,sg; |
GFPN rpn,spn; |
GFPN rpn,spn; |
GFS rs; |
GFS rs; |
|
GFSPN rspn,sspn; |
P t; |
P t; |
Obj obj; |
Obj obj; |
|
|
|
|
ptomp(current_gfs_p,(P)p,&t); mqtogfs(t,&rs); |
ptomp(current_gfs_p,(P)p,&t); mqtogfs(t,&rs); |
*rp = (Obj)rs; |
*rp = (Obj)rs; |
} |
} |
|
break; |
|
case FF_GFSPN: |
|
ntogfspn((Obj)p,&rspn); simpgfspn((GFSPN)rspn,&sspn); |
|
*rp = (Obj)sspn; |
break; |
break; |
default: |
default: |
*rp = (Obj)p; |
*rp = (Obj)p; |