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