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

Return to kanExport1.c CVS log

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

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

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.11 2004/02/23 09:03:42 takayama Exp $ */

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

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 997 struct object oInitW(ob,oWeight)

if (oWeight.tag != Sarray) {

errorKan1("%s\n","oInitW(): the second argument must be array.");

}

oWeight = Kto_int32(oWeight);

n = getoaSize(oWeight);

if (n == 0) {

m = getoaSize(ob);

Line 1151 struct object KordWsAll(ob,oWeight)

Line 1152 struct object KordWsAll(ob,oWeight)

if (oWeight.tag != Sarray) {

errorKan1("%s\n","ordWsAll(): the second argument must be array.");

}

oWeight = Kto_int32(oWeight);

n = getoaSize(oWeight);

if (n == 0) {

m = getoaSize(ob);

Line 1397 struct object KgetExponents(struct object obPoly,struc

Line 1399 struct object KgetExponents(struct object obPoly,struc

tob = KgetExponents(getoa(obPoly,i),otype);

putoa(rob,i,tob);

}

return rob;

}else{

errorKan1("%s\n","KgetExponents(): argument must be a polynomial.");

}