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

Return to kanExport0.c CVS log

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

version 1.16, 2003/08/20 01:39:17

version 1.18, 2003/08/26 12:46:05

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.15 2003/08/18 11:59:56 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);

Line 2370 struct object KgbExtension(struct object obj)

Line 2377 struct object KgbExtension(struct object obj)

}else{

putoa(rob,1,KpoPOLY(newCell(cont,newMonomial(f1->m->ringp))));

}

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

if (size != 3) errorKan1("%s\n","[(ord_ws_all) fv wv] gbext");

obj1 = getoa(obj,1);

obj2 = getoa(obj,2);

rob = KordWsAll(obj1,obj2);

}else {

errorKan1("%s\n","gbext : unknown tag.");

}