1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)NAM.c 1.2 03/07/81"; 4 5 #include "h00vars.h" 6 #include "h01errs.h" 7 8 char * 9 NAM(val, name) 10 11 long val; /* internal enumerated type value */ 12 char *name; /* ptr to enumerated type name descriptor */ 13 { 14 register int value = val; 15 register short *sptr; 16 17 sptr = (short *)name; 18 if (value < 0 || value >= *sptr) { 19 ERROR(ENAMRNG, val); 20 return; 21 } 22 sptr++; 23 return name + 2 + sptr[value]; 24 } 25