workbench/libs/locale/convtoupper.c

   1 /*
   2     Copyright © 1995-2008, 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,
  62                         character));
  63
  64     DEBUG_CONVTOUPPER(dprintf("ConvToUpper: func 0x%lx\n",
  65                         IntL(locale)->il_LanguageFunctions[1]));
  66
  67 #ifdef AROS_CALL1
  68     retval = AROS_CALL1(ULONG, IntL(locale)->il_LanguageFunctions[1],
  69         AROS_LCA(ULONG, character, D0),
  70         struct LocaleBase *, LocaleBase);
  71 #else
  72    retval = AROS_UFC2(ULONG, IntL(locale)->il_LanguageFunctions[1],
  73         AROS_UFCA(ULONG, character, D0),
  74         AROS_UFCA(struct LocaleBase *, LocaleBase, A6));
  75 #endif
  76
  77     DEBUG_CONVTOUPPER(dprintf("ConvToUpper: retval 0x%lx\n",
  78                         retval));
  79
  80     return(retval);
  81
  82     AROS_LIBFUNC_EXIT
  83 } /* ConvToUpper */