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.10, 2002/11/04 10:53:55

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.9 2002/09/08 10:49:49 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 2675 errorKan1(str,message)

Line 2681 errorKan1(str,message)

extern int GotoP;

extern int ErrorMessageMode;

char tmpc[1024];

cancelAlarm();

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

sprintf(tmpc,"\nERROR(kanExport[0|1].c): ");

if (strlen(message) < 900) {