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