OpenXM/src/kan96xx/Kan/rat.c - diff

Return to rat.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.2, 2000/01/16 07:55:41

version 1.4, 2005/06/16 05:07:23

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.3 2001/05/04 01:06:25 takayama Exp $ */

/* rat.c: rational functions */

#include <stdio.h>

Line 11 static void errorRationalFunction(char *str);

static void warningRationalFunction(char *str);

struct object KnewRationalFunction0(op1,op2)

objectp op1;

objectp op2;

{

struct object rob;

struct object rob = OINIT;

rob.tag = SrationalFunction;

Knumerator(rob) = op1;

Kdenominator(rob) = op2;

Line 24 objectp op2;

int KisZeroObject(op)

objectp op;

{

switch(op->tag) {

case Spoly:

Line 42 objectp op;

}

objectp copyObjectp(op)

objectp op;

{

objectp rop;

rop = newObject();

Line 51 objectp op;

}

void errorRationalFunction(str)

char *str;

{

fprintf(stderr,"Error(rat.c): %s\n",str);

exit(20);

}

void warningRationalFunction(str)

char *str;

{

fprintf(stderr,"Warning(rat.c): %s\n",str);

}