Annotation of OpenXM/src/kan96xx/Kan/mklookup.c, Revision 1.2
1.2 ! takayama 1: /* $OpenXM$ */
1.1 maekawa 2: #include <stdio.h>
3: #include "datatype.h"
4: #include "stackm.h"
5:
6: /* Refer to global.c. You need to keep the orders of names and values */
7: main() {
8: int i,j;
9: char *names[]={"Snull","Sinteger","Sstring","SexecutableArray","Soperator",
10: "Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly",
11: "SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring",
12: "SuniversalNumber","SrationalFunction","Sclass","Sdouble"};
13: int values[]={Snull,Sinteger,Sstring,SexecutableArray,Soperator,
14: Sdollar,Sarray,SleftBraceTag,SrightBraceTag,Spoly,
15: SarrayOfPOLY,SmatrixOfPOLY,Slist,Sfile,Sring,
16: SuniversalNumber,SrationalFunction,Sclass,Sdouble};
17: for (i=0; i<TYPES; i++) {
18: if (values[i] != i) {
19: fprintf(stderr,"Errors in names and values\n");
20: exit(100);
21: }
22: for (j=0; j<TYPES; j++) {
23: printf("#define %s%s %d\n",names[i],names[j],values[i]*TYPES+values[j]);
24: }
25: }
26: exit(0);
27: }
28:
29:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>