[unix-history] / usr / src / usr.bin / pascal / libpc / PRED.c

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

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


long
PRED(value, lower, upper)

	long	value;
	long	lower;
	long	upper;
{
	if (value == lower) {
		ERROR("Cannot take pred of first element of a range\n");
		return;
	}
	value--;
	if (value < lower || value > upper) {
		ERROR("Value of %D is out of range\n", value);
		return;
	}
	return	value;
}
Commit	Line	Data
4c919c74 KM	1	/* Copyright (c) 1979 Regents of the University of California */
4c919c74 KM	2
86997b19	3	static char sccsid[] = "@(#)PRED.c 1.4 %G%";
4c919c74	4
4c919c74	5
492cc5d3	6	long
4c919c74 KM	7	PRED(value, lower, upper)
4c919c74 KM	8
492cc5d3 KM	9	long value;
	10	long lower;
	11	long upper;
4c919c74	12	{
d3fdcc0c KM	13	if (value == lower) {
	14	ERROR("Cannot take pred of first element of a range\n");
	15	return;
	16	}
4c919c74 KM	17	value--;
4c919c74 KM	18	if (value < lower \|\| value > upper) {
d3fdcc0c	19	ERROR("Value of %D is out of range\n", value);
4c919c74 KM	20	return;
	21	}
	22	return value;
	23	}