Return to mklookup.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

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: