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

Return to kanExport0.c CVS log

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

version 1.3, 2000/06/08 08:35:02

version 1.4, 2000/07/17 02:58:45

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.2 1999/11/06 10:37:30 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.3 2000/06/08 08:35:02 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 1376 int c,l,m,n,cc,ll,mm,nn;

if (!(cc<=ll && ll<=mm && mm<=nn && nn <= n)) return(1);

if (!(cc<c || ll < l || mm < m || nn < n)) {

if (WarningNoVectorVariable) {

warningKan("Ring definition: there is no variable to represent vectors.\n");

warningKanNoStrictMode("Ring definition: there is no variable to represent vectors.\n");

}

if (!(cc<=c && ll <= l && mm <= m && nn <= n)) return(1);

Line 2713 char *str;

}

/* if (Strict) errorKan1("%s\n"," "); */

if (Strict) errorKan1("%s\n",str);

}

warningKanNoStrictMode(str)

char *str;

{

extern int Strict;

int t;

t = Strict;

Strict = 0;

warningKan(str);

Strict = t;

}