rexx/lstring/words.c

   1 /*
   2  * $Header$
   3  * $Log$
   4  * Revision 1.1  2001/04/04 05:43:38  wang
   5  * First commit: compiles on Linux, Amiga, Windows, Windows CE, generic gcc
   6  *
   7  * Revision 1.1  1998/07/02 17:20:58  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* ----------------- Lwords ------------------ */
  15 long
  16 Lwords( const PLstr from )
  17 {
  18         long    i=0,r=0;
  19
  20         L2STR(from);
  21         for (;;) {
  22                 LSKIPBLANKS(*from,i);
  23                 if (i>=LLEN(*from)) return r;
  24                 r++;
  25                 LSKIPWORD(*from,i);
  26         }
  27 } /* Lwords */