OpenXM_contrib2/asir2000/builtin/poly.c - diff

Return to poly.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.24, 2011/07/21 04:43:26

version 1.26, 2017/02/28 07:06:28

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.23 2011/07/20 03:19:11 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.25 2016/03/31 05:30:32 noro Exp $

#include "ca.h"

#include "parse.h"

Line 125 struct ftab poly_tab[] = {

{"maxblen",Pmaxblen,1},

{"ord",Pord,-1},

{"remove_vars",Premove_vars,1},

{"delete_vars",Premove_vars,1},

{"coef0",Pcoef0,-3},

{"coef",Pcoef,-3},

{"coef_gf2n",Pcoef_gf2n,2},

Line 825 void Psetmod_ff(NODE arg,Obj *rp)

Line 826 void Psetmod_ff(NODE arg,Obj *rp)

if ( ac == 1 ) {

mod = (Obj)ARG0(arg);

if ( !mod )

error("setmod_ff : invalid argument");

current_ff = FF_NOT_SET;

switch ( OID(mod) ) {

else {

switch ( OID(mod) ) {

case O_N:

current_ff = FF_GFP;

setmod_lm(NM((Q)mod));

Line 836 void Psetmod_ff(NODE arg,Obj *rp)

Line 838 void Psetmod_ff(NODE arg,Obj *rp)

setmod_gf2n((P)mod); break;

default:

error("setmod_ff : invalid argument");

}

} else if ( ac == 2 ) {

if ( OID(ARG0(arg)) == O_N ) {

/* small finite field; primitive root representation */