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

Return to kanExport1.c CVS log

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

version 1.15, 2004/08/31 05:30:20

version 1.16, 2004/09/05 07:42:43

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.14 2004/08/31 04:45:42 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.15 2004/08/31 05:30:20 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 1405 struct object KgetExponents(struct object obPoly,struc

}

/* type == 0 x,y,Dx,Dy (no commutative, no vector)

type == 1 x,y,h,Dx,Dy,H (commutative & no vector)

type == 1 x,y,Dx,Dy,h,H (commutative & no vector)

type == 2 x,y,Dx,Dy,h (commutative & no vector)

if (f ISZERO) {

Line 1444 struct object KgetExponents(struct object obPoly,struc

}else{

errorKan1("%s\n","KgetExponent, unknown type.");

}

hsize = size/2;

if (type == 1 || type == 2) {

hsize = (size-cc)/2;

}else{

hsize = size/2;

}

if (f ISZERO) {

tob = newObjectArray(size);

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

Line 1485 struct object KgetExponents(struct object obPoly,struc

Line 1489 struct object KgetExponents(struct object obPoly,struc

}

if (type == 1) {

for (i=cc-1; i>=0; i--) {

putoa(tob,hsize+r,KpoInteger(tf->e[i].D));

r++;

putoa(tob,hsize+r,KpoInteger(tf->e[i].x));

putoa(tob,r,KpoInteger(tf->e[i].D));

r++;

}

}else if (type == 2) {