workbench/libs/locale/convtolower.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: ConvToLower() - Stub for the Language tolower() function.
   6     Lang: english
   7 */
   8 #include <exec/types.h>
   9 #include "locale_intern.h"
  10 #include <aros/asmcall.h>
  11
  12 #define        DEBUG_CONVTOLOWER(x)        ;
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/locale.h>
  18
  19     AROS_LH2(ULONG, ConvToLower,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(const struct Locale *, locale, A0),
  23         AROS_LHA(ULONG          , character, D0),
  24
  25 /*  LOCATION */
  26         struct LocaleBase *, LocaleBase, 8, Locale)
  27
  28 /*  FUNCTION
  29         This function determine if the character supplied is upper case,
  30         and if it is, the character will be converted to lower case.
  31         Otherwise, the original character will be returned.
  32
  33     INPUTS
  34         locale      - The Locale to use for this conversion.
  35         character   - The character to convert to lower case.
  36
  37     RESULT
  38         The possibly converted character.
  39
  40     NOTES
  41         This function requires a full 32-bit character in order to
  42         support future multi-byte character sets.
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     ULONG retval;
  57
  58     DEBUG_CONVTOLOWER(dprintf("ConvToLower: locale 0x%lx char 0x%lx\n",
  59             locale, character));
  60
  61     DEBUG_CONVTOLOWER(dprintf("ConvToLower: func 0x%lx\n",
  62             IntL(locale)->il_LanguageFunctions[0]));
  63
  64 #ifdef AROS_CALL1
  65     retval = AROS_CALL1(ULONG, IntL(locale)->il_LanguageFunctions[0],
  66         AROS_LCA(ULONG, character, D0), struct LocaleBase *, LocaleBase);
  67 #else
  68     retval = AROS_UFC2(ULONG, IntL(locale)->il_LanguageFunctions[0],
  69         AROS_UFCA(ULONG, character, D0),
  70         AROS_UFCA(struct LocaleBase *, LocaleBase, A6));
  71 #endif
  72
  73     DEBUG_CONVTOLOWER(dprintf("ConvToLower: retval 0x%lx\n", retval));
  74
  75     return (retval);
  76
  77     AROS_LIBFUNC_EXIT
  78 }