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