rexx/lstring/reverse.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 /* ------------------ Lreverse ------------------- */
  15 void
  16 Lreverse( const PLstr s )
  17 {
  18         long    i;
  19         char    c,*cf,*cl;
  20
  21         L2STR(s);
  22         if (LLEN(*s)==0)
  23                 return;
  24         cf = LSTR(*s);  cl = cf + LLEN(*s) - 1;
  25         i = LLEN(*s) / 2;
  26         while (i--) {
  27                 c = *cf;
  28                 *cf++ = *cl;
  29                 *cl-- = c;
  30         }
  31 } /* Lreverse */