=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/rat.c,v retrieving revision 1.1.1.1 retrieving revision 1.5 diff -u -p -r1.1.1.1 -r1.5 --- OpenXM/src/kan96xx/Kan/rat.c 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Kan/rat.c 2005/07/03 11:08:54 1.5 @@ -1,7 +1,8 @@ +/* $OpenXM: OpenXM/src/kan96xx/Kan/rat.c,v 1.4 2005/06/16 05:07:23 takayama Exp $ */ - /* rat.c: rational functions */ #include +#include #include "datatype.h" #include "stackm.h" #include "extern.h" @@ -11,10 +12,10 @@ static void errorRationalFunction(char *str); static void warningRationalFunction(char *str); struct object KnewRationalFunction0(op1,op2) -objectp op1; -objectp op2; + objectp op1; + objectp op2; { - struct object rob; + struct object rob = OINIT; rob.tag = SrationalFunction; Knumerator(rob) = op1; Kdenominator(rob) = op2; @@ -24,7 +25,7 @@ objectp op2; int KisZeroObject(op) -objectp op; + objectp op; { switch(op->tag) { case Spoly: @@ -42,7 +43,7 @@ objectp op; } objectp copyObjectp(op) -objectp op; + objectp op; { objectp rop; rop = newObject(); @@ -51,14 +52,14 @@ objectp op; } void errorRationalFunction(str) -char *str; + char *str; { fprintf(stderr,"Error(rat.c): %s\n",str); exit(20); } void warningRationalFunction(str) -char *str; + char *str; { fprintf(stderr,"Warning(rat.c): %s\n",str); }