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

Return to kanExport0.c CVS log

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

version 1.2, 1999/11/06 10:37:30

version 1.3, 2000/06/08 08:35:02

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.2 1999/11/06 10:37:30 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 2260 struct object KgbExtension(struct object obj)

obj1 = getoa(obj,1);

if (obj1.tag != Sarray) errorKan1("%s\n","[(toes) array] gbext poly");

return(KvectorToSchreyer_es(obj1));

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

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

obj1 = getoa(obj,1);

if (obj1.tag == Spoly) return(obj1);

if (obj1.tag != Sarray) errorKan1("%s\n","[(toe_) array] gbext poly");

return(KpoPOLY(arrayToPOLY(obj1)));

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

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

obj1 = getoa(obj,1);