1: /* Copyright (c) 1979 Regents of the University of California */
   2: 
   3: static char sccsid[] = "@(#)SUCC.c 1.4 6/10/81";
   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:         return;
  16:     }
  17:     value++;
  18:     if (value < lower || value > upper) {
  19:         ERROR("Value of %D is out of range\n", value);
  20:         return;
  21:     }
  22:     return  value;
  23: }

Defined functions

SUCC defined in line 6; used 4 times

Defined variables

sccsid defined in line 3; never used
Last modified: 1983-02-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 830
Valid CSS Valid XHTML 1.0 Strict