rom/utility/tolower.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <exec/types.h>
   9 #include <aros/libcall.h>
  10 #include "intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/utility.h>
  16
  17         AROS_LH1I(UBYTE, ToLower,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(ULONG, character, D0),
  21
  22 /*  LOCATION */
  23         struct UtilityBase *, UtilityBase, 30, Utility)
  24
  25 /*  FUNCTION
  26         Convert a character to lower case.
  27
  28     INPUTS
  29         character - The character to convert.
  30
  31     RESULT
  32         Equivalent lower case character.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     return
  51     (
  52         (character >= 'A' && character <= 'Z')
  53         || (character >= 0xC0
  54             && character <= 0xDE
  55             && character != 0xD7)
  56         ? character + 0x20
  57         : character
  58     );
  59
  60     AROS_LIBFUNC_EXIT
  61 } /* ToLower */