| version 1.34, 2004/09/13 11:24:11 |
version 1.36, 2004/09/16 02:22:03 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.33 2004/09/11 01:00:42 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.35 2004/09/15 06:40:26 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| Line 687 KooEqualQ(obj1,obj2) |
|
| Line 687 KooEqualQ(obj1,obj2) |
|
| { |
{ |
| struct object ob; |
struct object ob; |
| int i; |
int i; |
| |
extern int Verbose; |
| if (obj1.tag != obj2.tag) { |
if (obj1.tag != obj2.tag) { |
| warningKan("KooEqualQ(ob1,ob2): the datatypes of ob1 and ob2 are not same. Returns false (0).\n"); |
warningKan("KooEqualQ(ob1,ob2): the datatypes of ob1 and ob2 are not same. Returns false (0).\n"); |
| |
if (Verbose & 0x10) { |
| |
fprintf(stderr,"obj1(tag:%d)=",obj1.tag); |
| |
printObject(obj1,0,stderr); |
| |
fprintf(stderr,", obj2(tag:%d)=",obj2.tag); |
| |
printObject(obj2,0,stderr); |
| |
fprintf(stderr,"\n"); fflush(stderr); |
| |
} |
| return(0); |
return(0); |
| } |
} |
| switch(obj1.tag) { |
switch(obj1.tag) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to kanExport0.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan