4.3BSD - /usr/src/usr.lib/libpc/SUBSC.c

   1: /* Copyright (c) 1979 Regents of the University of California */
   2: 
   3: static char sccsid[] = "@(#)SUBSC.c 1.4 11/12/82";
   4: 
   5: char ESUBSC[] = "Subscript value of %D is out of range\n";
   6: 
   7: long
   8: SUBSC(i, lower, upper)
   9: 
  10:     long    i, lower, upper;
  11: {
  12:     if (i < lower || i > upper) {
  13:         ERROR(ESUBSC, i);
  14:         return;
  15:     }
  16:     return i;
  17: }

Defined functions

Defined variables