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

Return to kanExport0.c CVS log

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

version 1.8, 2002/02/24 10:27:18

version 1.9, 2002/09/08 10:49:49

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.7 2001/05/04 01:06:23 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.8 2002/02/24 10:27:18 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 1537 int KsetUpRing(ob1,ob2,ob3,ob4,ob5)

newRingp->schreyer = 0;

newRingp->gbListTower = NULL;

newRingp->outputOrder = outputVars;

newRingp->weightedHomogenization = 0;

if (ob5.tag != Sarray || (getoaSize(ob5) % 2) != 0) {

errorKan1("%s\n","[(keyword) value (keyword) value ....] should be given.");

Line 1583 int KsetUpRing(ob1,ob2,ob3,ob4,ob5)

Line 1584 int KsetUpRing(ob1,ob2,ob3,ob4,ob5)

errorKan1("%s\n","A name should be given. (ringName)");

}

ringName = KopString(getoa(ob5,i+1));

} else if (strcmp(KopString(getoa(ob5,i)),"weightedHomogenization") == 0) {

if (getoa(ob5,i+1).tag != Sinteger) {

errorKan1("%s\n","A integer should be given. (weightedHomogenization)");

}

newRingp->weightedHomogenization = KopInteger(getoa(ob5,i+1));

} else {

errorKan1("%s\n","Unknown keyword to set_up_ring@");

}