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.18, 2003/08/26 12:46:05

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.17 2003/08/23 02:28:38 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

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