2.9BSD - /usr/src/lib/libF77/lnblnk_.c

   1: /*
   2: char id_lnblnk[] = "@(#)lnblnk_.c	1.1";
   3:  *
   4:  * find last occurrence of a non-blank character in string
   5:  *
   6:  * calling sequence:
   7:  *	character*(*) string
   8:  *	indx = lnblnk (string)
   9:  * where:
  10:  *	indx will be the index of the last occurence
  11:  *	of a non-blank character in string, or zero if not found.
  12:  */
  13: 
  14: long lnblnk_(str, slen)
  15: char *str; long slen;
  16: {
  17:     register char *p = str + slen;
  18: 
  19:     while (--p >= str && *p == ' ' ) ;
  20:     return((long)(++p - str));
  21: }

Defined functions