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

Return to rat.c CVS log

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

version 1.1.1.1, 1999/10/08 02:12:02

version 1.3, 2001/05/04 01:06:25

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */

/* rat.c: rational functions */

#include <stdio.h>

#include "datatype.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;

rob.tag = SrationalFunction;

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);

}