MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/lnblnk.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
   6  * Kernlib
   7  *
   8  */
   9 /*>    ROUTINE LNBLNK
  10   CERN PROGLIB# M507    LNBLNK          .VERSION KERNOS9  1.01  940718
  11   ORIG. 30/04/92, RDM + JZ
  12
  13   N = LNBLNK (CHLINE)   find last non-blank character in CHLINE
  14 */
  15 #if defined(CERNLIB_QX_SC)
  16       int lnblnk_(chline, len)
  17 #endif
  18 #if defined(CERNLIB_QXNO_SC)
  19       int lnblnk(chline, len)
  20 #endif
  21       char  *chline;
  22       int   len;
  23 {
  24       char  *chcur;
  25
  26       chcur = chline + len;
  27       while (chcur > chline)
  28         {  if (*--chcur != ' ')      goto exit; }
  29       return 0;
  30
  31 exit: return chcur+1 - chline;
  32 }
  33 /*> END <----------------------------------------------------------*/