| version 1.1.1.1, 1999/10/08 02:12:01 |
version 1.3, 2001/05/04 01:06:24 |
|
|
| |
/* $OpenXM: OpenXM/src/kan96xx/Kan/mklookup.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
|
|
| main() { |
main() { |
| int i,j; |
int i,j; |
| char *names[]={"Snull","Sinteger","Sstring","SexecutableArray","Soperator", |
char *names[]={"Snull","Sinteger","Sstring","SexecutableArray","Soperator", |
| "Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly", |
"Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly", |
| "SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring", |
"SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring", |
| "SuniversalNumber","SrationalFunction","Sclass","Sdouble"}; |
"SuniversalNumber","SrationalFunction","Sclass","Sdouble"}; |
| int values[]={Snull,Sinteger,Sstring,SexecutableArray,Soperator, |
int values[]={Snull,Sinteger,Sstring,SexecutableArray,Soperator, |
| Sdollar,Sarray,SleftBraceTag,SrightBraceTag,Spoly, |
Sdollar,Sarray,SleftBraceTag,SrightBraceTag,Spoly, |
| SarrayOfPOLY,SmatrixOfPOLY,Slist,Sfile,Sring, |
SarrayOfPOLY,SmatrixOfPOLY,Slist,Sfile,Sring, |
| SuniversalNumber,SrationalFunction,Sclass,Sdouble}; |
SuniversalNumber,SrationalFunction,Sclass,Sdouble}; |
| for (i=0; i<TYPES; i++) { |
for (i=0; i<TYPES; i++) { |
| if (values[i] != i) { |
if (values[i] != i) { |
| fprintf(stderr,"Errors in names and values\n"); |
fprintf(stderr,"Errors in names and values\n"); |
|
|
| exit(0); |
exit(0); |
| } |
} |
| |
|
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mklookup.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan