===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/mklookup.c,v
retrieving revision 1.1.1.1
retrieving revision 1.6
diff -u -p -r1.1.1.1 -r1.6
--- OpenXM/src/kan96xx/Kan/mklookup.c	1999/10/08 02:12:01	1.1.1.1
+++ OpenXM/src/kan96xx/Kan/mklookup.c	2020/10/06 11:33:46	1.6
@@ -1,28 +1,32 @@
+/* $OpenXM: OpenXM/src/kan96xx/Kan/mklookup.c,v 1.5 2005/07/03 11:08:54 ohara Exp $ */
 #include <stdio.h>
+#include <stdlib.h>
 #include "datatype.h"
 #include "stackm.h"
 
 /* Refer to global.c. You need to keep the orders of names and values */
-main() {
+int main() {
   int i,j;
   char *names[]={"Snull","Sinteger","Sstring","SexecutableArray","Soperator",
-		 "Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly",
-		   "SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring",
-	         "SuniversalNumber","SrationalFunction","Sclass","Sdouble"};
+                 "Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly",
+                 "SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring",
+                 "SuniversalNumber","SrationalFunction","Sclass","Sdouble",
+                 "SbyteArray"};
   int values[]={Snull,Sinteger,Sstring,SexecutableArray,Soperator,
-		 Sdollar,Sarray,SleftBraceTag,SrightBraceTag,Spoly,
-		   SarrayOfPOLY,SmatrixOfPOLY,Slist,Sfile,Sring,
-		  SuniversalNumber,SrationalFunction,Sclass,Sdouble};
+                Sdollar,Sarray,SleftBraceTag,SrightBraceTag,Spoly,
+                SarrayOfPOLY,SmatrixOfPOLY,Slist,Sfile,Sring,
+                SuniversalNumber,SrationalFunction,Sclass,Sdouble,
+                SbyteArray};
   for (i=0; i<TYPES; i++) {
     if (values[i] != i) {
       fprintf(stderr,"Errors in names and values\n");
-      exit(100);
+      return 100;
     }
     for (j=0; j<TYPES; j++) {
       printf("#define %s%s %d\n",names[i],names[j],values[i]*TYPES+values[j]);
     }
   }
-  exit(0);
+  return 0;
 }
 
-		   
+