OpenXM_contrib2/asir2000/builtin/fctr.c - diff

Return to fctr.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/fctr.c between version 1.6 and 1.7

version 1.6, 2001/06/20 09:30:33

version 1.7, 2001/06/25 10:01:27

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.5 2001/05/28 08:25:30 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/fctr.c,v 1.6 2001/06/20 09:30:33 noro Exp $

#include "ca.h"

#include "parse.h"

Line 54 void Pfctr(), Pgcd(), Pgcdz(), Plcm(), Psqfr(), Pufctr

void Pptozp(), Pcont();

void Pafctr(), Pagcd();

void Pmodsqfr(),Pmodfctr(),Pddd(),Pnewddd(),Pddd_tab();

void Psffctr();

void Psffctr(),Psfbfctr();

void Pirred_check(), Pnfctr_mod();

struct ftab fctr_tab[] = {

Line 71 struct ftab fctr_tab[] = {

{"modsqfr",Pmodsqfr,2},

{"modfctr",Pmodfctr,2},

{"sffctr",Psffctr,1},

{"sfbfctr",Psfbfctr,3},

#if 0

{"ddd",Pddd,2},

{"newddd",Pnewddd,2},

Line 331 LIST *rp;

Line 332 LIST *rp;

NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0;

}

dcptolist(dc,rp);

}

void Psfbfctr(arg,rp)

NODE arg;

LIST *rp;

{

V x,y;

GFS ev;

DCP dc;

LIST l;

NODE n0,n1;

x = VR((P)ARG1(arg));

y = VR((P)ARG2(arg));

sfbfctr((P)ARG0(arg),x,y,&ev,&dc);

if ( !dc ) {

NEWDC(dc); COEF(dc) = 0; DEG(dc) = ONE; NEXT(dc) = 0;

}

dcptolist(dc,&l);

MKNODE(n1,l,0); MKNODE(n0,ev,n1);

MKLIST(*rp,n1);

}

void Pmodsqfr(arg,rp)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>