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

Return to kanExport0.c CVS log

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

version 1.17, 2003/08/23 02:28:38

version 1.19, 2003/12/05 13:51:31

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.16 2003/08/20 01:39:17 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.18 2003/08/26 12:46:05 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 19 int SerialCurrent = -1; /* Current Serial number of t

int ReverseOutputOrder = 1;

int WarningNoVectorVariable = 1;

extern int QuoteMode;

/** :arithmetic **/

struct object KooAdd(ob1,ob2)

Line 142 struct object KooAdd(ob1,ob2)

Line 143 struct object KooAdd(ob1,ob2)

default:

warningKan("KooAdd() has not supported yet these objects.\n");

if (QuoteMode) {

rob = addTree(ob1,ob2);

}else{

warningKan("KooAdd() has not supported yet these objects.\n");

}

break;

}

return(rob);

Line 2322 struct object KgbExtension(struct object obj)

Line 2327 struct object KgbExtension(struct object obj)

errorKan1("%s\n","The datatype of the argument mismatch: [(isConstant) polynomial] gbext");

}

return(KpoInteger(isConstant(KopPOLY(obj1))));

}else if (strcmp(key,"isConstantAll")==0) {

if (size != 2) errorKan1("%s\n","[(isConstantAll) poly ] gbext bool");

obj1 = getoa(obj,1);

if (obj1.tag != Spoly) {

errorKan1("%s\n","The datatype of the argument mismatch: [(isConstantAll) polynomial] gbext");

}

return(KpoInteger(isConstantAll(KopPOLY(obj1))));

}else if (strcmp(key,"schreyerSkelton") == 0) {

if (size != 2) errorKan1("%s\n","[(schreyerSkelton) array_of_poly ] gbext array");

obj1 = getoa(obj,1);