Return to mklookup.c CVS log

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

Annotation of OpenXM/src/kan96xx/Kan/mklookup.c, Revision 1.1

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