workbench/libs/locale/loctolower.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: LocToLower - locale.library's private replacement
   6           of utility.library/ToLower function. IPrefs will install
   7           the patch.
   8
   9     Lang: english
  10 */
  11
  12 #include <exec/types.h>
  13 #include <proto/exec.h>
  14 #include <proto/locale.h>
  15 #include "locale_intern.h"
  16 #include <aros/asmcall.h>
  17
  18 #define        DEBUG_CONVTOLOWER(x)        ;
  19
  20  /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/locale.h>
  24
  25         AROS_PLH1(ULONG, LocToLower,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(ULONG, character, D0),
  29
  30 /*  LOCATION */
  31         struct UtilityBase *, UtilityBase, 34, Locale)
  32
  33 /*  FUNCTION
  34             See utility.library/ToLower
  35
  36     INPUTS
  37             See utility.library/ToLower
  38
  39     RESULT
  40
  41     NOTES
  42             This function is not called by apps directly. Instead dos.library/DosGet-
  43         LocalizedString is patched to use this function. This means, that the
  44         LocaleBase parameter above actually points to UtilityBase, so we make use of
  45         the global LocaleBase variable. This function is marked as private,
  46         thus the headers generator won't mind the different basename in the header.
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53         utility.library/ToLower(), locale.library/ConvToLower().
  54
  55     INTERNALS
  56
  57 *****************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     ULONG retval;
  62
  63     REPLACEMENT_LOCK;
  64
  65     DEBUG_CONVTOLOWER(dprintf("locToLower: char 0x%lx\n", character));
  66
  67     DEBUG_CONVTOLOWER(dprintf("locToLower: locale 0x%lx\n",
  68         (struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale));
  69
  70     retval = ConvToLower((struct Locale *)IntLB(LocaleBase)->lb_CurrentLocale,
  71         character);
  72
  73     DEBUG_CONVTOLOWER(dprintf("locToLower: retval 0x%lx\n", retval));
  74
  75     REPLACEMENT_UNLOCK;
  76
  77     return retval;
  78
  79     AROS_LIBFUNC_EXIT
  80 }
  81
  82 #undef LocaleBase