Commit | Line | Data |
---|---|---|
5b707b9f DW |
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 | } |