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

Return to kanExport0.c CVS log

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

version 1.7, 2001/05/04 01:06:23

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.6 2001/04/12 06:48:25 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@");

}

Line 2694 errorKan1(str,message)

Line 2700 errorKan1(str,message)

}

stdOperandStack(); contextControl(CCRESTORE);

/* fprintf(stderr,"Now. Long jump!\n"); */

#if defined(__CYGWIN__)

siglongjmp(EnvOfStackMachine,1);

#else

longjmp(EnvOfStackMachine,1);

#endif

}

warningKan(str)