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