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 } 22