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 or NULL for
  35                       the system default locale.
  36         character   - The character to convert to lower case.
  37
  38     RESULT
  39         The possibly converted character.
  40
  41     NOTES
  42         This function requires a full 32-bit character in order to
  43         support future multi-byte character sets.
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     ULONG retval;
  58     struct Locale *def_locale = NULL;
  59
  60     if (locale == NULL)
  61     {
  62         locale = OpenLocale(NULL);
  63         def_locale = (struct Locale *)locale;
  64     }
  65
  66     DEBUG_CONVTOLOWER(dprintf("ConvToLower: locale 0x%lx char 0x%lx\n",
  67             locale, character));
  68
  69     DEBUG_CONVTOLOWER(dprintf("ConvToLower: func 0x%lx\n",
  70             IntL(locale)->il_LanguageFunctions[0]));
  71
  72 #ifdef AROS_CALL1
  73     retval = AROS_CALL1(ULONG, IntL(locale)->il_LanguageFunctions[0],
  74         AROS_LCA(ULONG, character, D0), struct LocaleBase *, LocaleBase);
  75 #else
  76     retval = AROS_UFC2(ULONG, IntL(locale)->il_LanguageFunctions[0],
  77         AROS_UFCA(ULONG, character, D0),
  78         AROS_UFCA(struct LocaleBase *, LocaleBase, A6));
  79 #endif
  80
  81     DEBUG_CONVTOLOWER(dprintf("ConvToLower: retval 0x%lx\n", retval));
  82
  83     CloseLocale(def_locale);
  84
  85     return retval;
  86
  87     AROS_LIBFUNC_EXIT
  88 }