OpenXM_contrib2/asir2000/builtin/fctr.c - diff

Return to fctr.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.4, 2001/03/29 09:49:56

version 1.5, 2001/05/28 08:25:30

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.3 2000/08/22 05:03:57 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.4 2001/03/29 09:49:56 noro Exp $

#include "ca.h"

#include "parse.h"

Line 57 void Pmodsqfr(),Pmodfctr(),Pddd(),Pnewddd(),Pddd_tab()

void Pirred_check(), Pnfctr_mod();

struct ftab fctr_tab[] = {

{"fctr",Pfctr,1},

{"fctr",Pfctr,-2},

{"gcd",Pgcd,-3},

{"gcdz",Pgcdz,2},

{"lcm",Plcm,2},

Line 86 LIST *rp;

DCP dc;

asir_assert(ARG0(arg),O_P,"fctr");

fctrp(CO,(P)ARG0(arg),&dc);

if ( argc(arg) == 1 )

fctrp(CO,(P)ARG0(arg),&dc);

else {

asir_assert(ARG1(arg),O_P,"fctr");

fctr_wrt_v_p(CO,(P)ARG0(arg),VR((P)ARG1(arg)),&dc);

}

dcptolist(dc,rp);

}