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

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

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


long
SUCC(value, lower, upper)

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