compiler/clib/strrev.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     SAS C function strrev().
   6 */
   7
   8 #include <stdio.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <string.h>
  14
  15         char * strrev (
  16
  17 /*  SYNOPSIS */
  18         char       * s)
  19
  20 /*  FUNCTION
  21         Reverse a string (rotate it about its midpoint)
  22
  23     INPUTS
  24         s - The string to be reversed
  25
  26     RESULT
  27         The original string pointer
  28
  29     NOTES
  30         SAS C specific
  31
  32     EXAMPLE
  33         char buffer[64];
  34
  35         strcpy (buffer, "Hello);
  36         strrev(buffer);
  37
  38         // buffer now contains "olleH"
  39
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47 ******************************************************************************/
  48 {
  49     char *start, *end, c1, c2;
  50
  51     start = end = s;
  52
  53     while(*end) end++;
  54     end--;
  55
  56     while(end > start)
  57     {
  58         c1 = *start;
  59         c2 = *end;
  60
  61         *start++ = c2;
  62         *end--   = c1;
  63     }
  64
  65     return s;
  66
  67 } /* strrev */