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