OpenXM/src/kan96xx/Kan/mklookup.c - diff

Return to mklookup.c CVS log

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

version 1.3, 2001/05/04 01:06:24

version 1.4, 2004/09/20 02:11:22

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/mklookup.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/mklookup.c,v 1.3 2001/05/04 01:06:24 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 9 main() {

char *names[]={"Snull","Sinteger","Sstring","SexecutableArray","Soperator",

"Sdollar","Sarray","SleftBraceTag","SrightBraceTag","Spoly",

"SarrayOfPOLY","SmatrixOfPOLY","Slist","Sfile","Sring",

"SuniversalNumber","SrationalFunction","Sclass","Sdouble"};

"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};

SuniversalNumber,SrationalFunction,Sclass,Sdouble,

SbyteArray};

for (i=0; i<TYPES; i++) {

if (values[i] != i) {

fprintf(stderr,"Errors in names and values\n");