rexx/lstring/upper.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:18:00  bnv
   8  * Initial Version
   9  *
  10  */
  11
  12 #include <lstring.h>
  13
  14 /* --------------- Lupper ------------------ */
  15 void
  16 Lupper( const PLstr s )
  17 {
  18         size_t  i;
  19         L2STR(s);
  20         for (i=0; i<LLEN(*s); i++)
  21                 LSTR(*s)[i] = l2u[ (byte) LSTR(*s)[i] ];
  22 } /* Lupper */