Commit | Line | Data |
---|---|---|
0d78ca85 KB |
1 | /*- |
2 | * Copyright (c) 1979 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * %sccs.include.redist.c% | |
6 | */ | |
4c77a6d3 | 7 | |
0d78ca85 KB |
8 | #ifndef lint |
9 | static char sccsid[] = "@(#)SUCC.c 1.6 (Berkeley) %G%"; | |
10 | #endif /* not lint */ | |
4c77a6d3 | 11 | |
492cc5d3 | 12 | long |
4c77a6d3 KM |
13 | SUCC(value, lower, upper) |
14 | ||
492cc5d3 KM |
15 | long value; |
16 | long lower; | |
17 | long upper; | |
4c77a6d3 | 18 | { |
d3fdcc0c KM |
19 | if (value == upper) { |
20 | ERROR("Cannot take succ of last element of a range\n"); | |
d3fdcc0c | 21 | } |
4c77a6d3 KM |
22 | value++; |
23 | if (value < lower || value > upper) { | |
d3fdcc0c | 24 | ERROR("Value of %D is out of range\n", value); |
4c77a6d3 KM |
25 | } |
26 | return value; | |
27 | } |