[unix-history] / .ref-5cb41021d721f4e0ac572d592613f963e495d1ff / usr / src / usr.bin / pascal / libpc / NAM.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)NAM.c 1.1 %G%";

#include "h00vars.h"
#include "h01errs.h"

char *
NAM(value, name)

	register int	value;	/* internal enumerated type value */
	char		*name;	/* ptr to enumerated type name descriptor */
{
	register short	*sptr;

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