workbench/libs/locale/locdosgetlocalizedstring.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: LocStrToDateGetCharFunc - locale.library's private replacement
   6               of dos.library/DosGetLocalizedString 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/dos.h>
  15 #include <proto/locale.h>
  16 #include "locale_intern.h"
  17
  18  /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/locale.h>
  22
  23         AROS_PLH1(CONST_STRPTR, LocDosGetLocalizedString,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(LONG, stringNum, D1),
  27
  28 /*  LOCATION */
  29         struct DosLibrary *, DOSBase, 38, Locale)
  30
  31 /*  FUNCTION
  32         See dos.library/DosGetString
  33
  34     INPUTS
  35         See dos.library/DosGetString
  36
  37     RESULT
  38
  39     NOTES
  40         This function is not called by apps directly. Instead
  41         dos.library/DosGetLocalizedString is patched to use this function.
  42         This means that the LocaleBase parameter above actually points to
  43         DOSBase, so we make use of the global LocaleBase variable. This
  44         function is marked as private, therefore the headers generator won't
  45         mind the different basename in the header.
  46
  47     EXAMPLE
  48
  49     BUGS
  50
  51     SEE ALSO
  52         dos.library/DosGetString()
  53
  54     INTERNALS
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59
  60     LONG *p = DOSBase->dl_Errors->estr_Nums;
  61     UBYTE *q = DOSBase->dl_Errors->estr_Strings;
  62     STRPTR defstr = NULL;
  63
  64     /* We should really call the original DosGetString(), but ah well... */
  65     do
  66     {
  67         LONG n = p[0];
  68         LONG m = p[1];
  69
  70         while (n <= m)
  71         {
  72             if (n == stringNum)
  73             {
  74                 defstr = q + 1;
  75                 break;
  76             }
  77
  78             q += q[0] + 1;
  79             ++n;
  80         }
  81
  82         p += 2;
  83     }
  84     while (p[0] != 0);
  85
  86     return GetCatalogStr(IntLB(LocaleBase)->lb_CurrentLocale->il_DosCatalog,
  87         stringNum, defstr);
  88
  89     AROS_LIBFUNC_EXIT
  90
  91 }
  92
  93 #undef LocaleBase