]>
Commit | Line | Data |
---|---|---|
f02e4cec | 1 | /* |
2 | * $Id$ | |
3 | * | |
4 | */ | |
5 | /*> ROUTINE LNBLNK | |
6 | CERN PROGLIB# M432 LNBLNK .VERSION KERNVMI 1.06 920511 | |
7 | ORIG. 30/04/92, RDM + JZ | |
8 | ||
9 | N = LNBLNK (CHLINE) find last non-blank character in CHLINE | |
10 | */ | |
11 | int lnblnk_(chline, len) | |
12 | char *chline; | |
13 | int len; | |
14 | { | |
15 | char *chcur; | |
16 | ||
17 | chcur = chline + len; | |
18 | while (chcur > chline) | |
19 | { if (*--chcur != ' ') goto exit; } | |
20 | return 0; | |
21 | ||
22 | exit: return chcur+1 - chline; | |
23 | } | |
24 | /*> END <----------------------------------------------------------*/ |