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

Return to kanExport0.c CVS log

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

version 1.22, 2004/05/13 04:38:28

version 1.23, 2004/07/30 11:21:55

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.21 2004/02/28 13:39:42 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.22 2004/05/13 04:38:28 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 1001 struct object KdataConversion(obj,key)

rob = NullObject;

return(rob);

}else {

warningKan("Sorry. This type of data conversion has not supported yet.\n");

{ /* Automatically maps the elements. */

int n,i;

n = getoaSize(obj);

rob = newObjectArray(n);

for (i=0; i<n; i++) {

putoa(rob,i,KdataConversion(getoa(obj,i),key));

}

return(rob);

}

break;

case Spoly:

Line 2428 struct object KgbExtension(struct object obj)

Line 2436 struct object KgbExtension(struct object obj)

obj1 = getoa(obj,1);

obj2 = getoa(obj,2);

rob = KordWsAll(obj1,obj2);

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

if (size == 3) {

obj1 = getoa(obj,1);

obj2 = getoa(obj,2);

rob = KgetExponents(obj1,obj2);

}else if (size == 2) {

obj1 = getoa(obj,1);

obj2 = KpoInteger(2);

rob = KgetExponents(obj1,obj2);

}else{

errorKan1("%s\n","[(exponents) f type] gbext");

}

}else {

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

}