workbench/libs/locale/convtoupper.c

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