=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/kclass.c,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kan96xx/Kan/kclass.c 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Kan/kclass.c 2001/04/12 06:48:26 1.3 @@ -1,4 +1,4 @@ - +/* $OpenXM: OpenXM/src/kan96xx/Kan/kclass.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */ /* kclass.c, 1997, 3/1 This module handles class data base. This is a top level and provides an interface for sm1 for Sclass objects. @@ -140,6 +140,9 @@ int KclassEqualQ(struct object ob1,struct object ob2) case CLASSNAME_sampleClass: return(eqSampleClass(KopSampleClass(ob1),KopSampleClass(ob2))); break; + case CLASSNAME_indeterminate: + return(KooEqualQ(KopIndeterminate(ob1),KopIndeterminate(ob2))); + break; default: errorKan1("%s\n","kclass.c (KclassEqualQ cannot compare these objects.)"); break; @@ -232,7 +235,7 @@ struct object KclassDataConversion(struct object ob1,s */ rob = KpoMathCap(&ob1); }else if (strcmp(ccc,"tree") == 0) { - if (ob1.tag != Sarray) errorKan1("%s\n","kclass.c : KclassDataConversion , !array --> indeterminate is not supported."); + if (ob1.tag != Sarray) errorKan1("%s\n","kclass.c : KclassDataConversion , !array --> tree is not supported."); rob = KpoTree(ob1); }else if (strcmp(ccc,"recursivePolynomial") == 0) { if (ob1.tag != Spoly) errorKan1("%s\n","kclass.c : KclassDataConversion , !poly --> recursivePoly is not supported.");