workbench/libs/locale/locrawdofmt.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Locale_RawDoFmt - locale.library's private replacement
   6           of exec.library/RawDoFmt function. IPrefs will install
   7           the patch.
   8
   9     Lang: english
  10 */
  11
  12 #include <exec/rawfmt.h>
  13 #include <exec/types.h>
  14 #include <proto/exec.h>
  15 #include <proto/locale.h>
  16 #include "locale_intern.h"
  17 #include <aros/asmcall.h>
  18 #include <stdarg.h>
  19
  20
  21 AROS_UFH3(VOID, LocRawDoFmtFormatStringFunc,
  22     AROS_UFHA(struct Hook *, hook, A0),
  23     AROS_UFHA(struct Locale *, locale, A2),
  24     AROS_UFHA(char, fill, A1))
  25 {
  26     AROS_USERFUNC_INIT
  27
  28 #ifdef __mc68000__
  29     register char *pdata asm("a3") = hook->h_Data;
  30 #else
  31     char *pdata = hook->h_Data;
  32 #endif
  33
  34     switch ((IPTR) hook->h_SubEntry)
  35     {
  36     case (IPTR) RAWFMTFUNC_STRING:
  37         /* Standard Array Function */
  38         *pdata++ = fill;
  39         break;
  40     case (IPTR) RAWFMTFUNC_SERIAL:
  41         /* Standard Serial Function */
  42         RawPutChar(fill);
  43         break;
  44     case (IPTR) RAWFMTFUNC_COUNT:
  45         /* Standard Count Function */
  46         (*((ULONG *) pdata))++;
  47         break;
  48     default:
  49         AROS_UFC3(void, hook->h_SubEntry,
  50             AROS_UFCA(char, fill, D0),
  51             AROS_UFCA(APTR, pdata, A3),
  52             AROS_UFCA(struct ExecBase *, SysBase, A6));
  53     }
  54     hook->h_Data = pdata;
  55
  56     AROS_USERFUNC_EXIT
  57 }
  58
  59 AROS_UFH3(VOID, LocRawDoFmtFormatStringFunc_SysV,
  60     AROS_UFHA(struct Hook *, hook, A0),
  61     AROS_UFHA(struct Locale *, locale, A2), AROS_UFHA(char, fill, A1))
  62 {
  63     AROS_USERFUNC_INIT
  64
  65     APTR(*proc) (APTR, UBYTE) = (APTR) hook->h_SubEntry;
  66     char *pdata = hook->h_Data;
  67
  68     switch ((IPTR) hook->h_SubEntry)
  69     {
  70     case (IPTR) RAWFMTFUNC_STRING:
  71         /* Standard Array Function */
  72         *pdata++ = fill;
  73         break;
  74
  75     case (IPTR) RAWFMTFUNC_SERIAL:
  76         /* Standard Serial Function */
  77         RawPutChar(fill);
  78         break;
  79
  80     case (IPTR) RAWFMTFUNC_COUNT:
  81         /* Standard Count Function */
  82         (*((ULONG *) pdata))++;
  83         break;
  84
  85     default:
  86         pdata = proc(pdata, fill);
  87     }
  88     hook->h_Data = pdata;
  89
  90     AROS_USERFUNC_EXIT
  91 }
  92
  93 #undef LocaleBase
  94
  95  /*****************************************************************************
  96
  97     NAME */
  98 #include <proto/locale.h>
  99
 100         AROS_PLH4(APTR, LocRawDoFmt,
 101
 102 /*  SYNOPSIS */
 103         AROS_LHA(CONST_STRPTR, FormatString, A0),
 104         AROS_LHA(APTR        , DataStream, A1),
 105         AROS_LHA(VOID_FUNC   , PutChProc, A2),
 106         AROS_LHA(APTR        , PutChData, A3),
 107
 108 /*  LOCATION */
 109         struct ExecBase *, SysBase, 31, Locale)
 110
 111 /*  FUNCTION
 112             See exec.library/RawDoFmt
 113
 114     INPUTS
 115             See exec.library/RawDoFmt
 116
 117     RESULT
 118
 119     NOTES
 120             This function is not called by apps directly. Instead dos.library/DosGet-
 121         LocalizedString is patched to use this function. This means, that the
 122         LocaleBase parameter above actually points to SysBase, so we make use of
 123         the global LocaleBase variable. This function is marked as private,
 124         thus the headers generator won't mind the different basename in the header.
 125
 126     EXAMPLE
 127
 128     BUGS
 129
 130     SEE ALSO
 131         RawDoFmt(), FormatString().
 132
 133     INTERNALS
 134
 135 *****************************************************************************/
 136 {
 137     AROS_LIBFUNC_INIT
 138
 139     struct Hook hook;
 140     APTR retval;
 141
 142     hook.h_Entry = (HOOKFUNC) AROS_ASMSYMNAME(LocRawDoFmtFormatStringFunc);
 143     hook.h_SubEntry = (HOOKFUNC) PutChProc;
 144     hook.h_Data = PutChData;
 145
 146     //kprintf("LocRawDoFmt: FormatString = \"%s\"\n", FormatString);
 147
 148     REPLACEMENT_LOCK;
 149
 150     retval = FormatString(&(IntLB(LocaleBase)->lb_CurrentLocale->il_Locale),
 151         (STRPTR) FormatString, DataStream, &hook);
 152
 153     REPLACEMENT_UNLOCK;
 154
 155     //kprintf("LocRawDoFmt: FormatString: returning %x\n", retval);
 156
 157     return retval;
 158
 159     AROS_LIBFUNC_EXIT
 160
 161 }
 162
 163  /*****************************************************************************
 164
 165     NAME */
 166 #include <proto/locale.h>
 167
 168         AROS_PLH4(APTR, LocVNewRawDoFmt,
 169
 170 /*  SYNOPSIS */
 171         AROS_LHA(CONST_STRPTR, FormatString, A0),
 172         AROS_LHA(VOID_FUNC   , PutChProc, A2),
 173         AROS_LHA(APTR        , PutChData, A3),
 174         AROS_LHA(va_list     , DataStream, A1),
 175
 176 /*  LOCATION */
 177         struct ExecBase *, SysBase, 39, Locale)
 178
 179 /*  FUNCTION
 180             See exec.library/VNewRawDoFmt
 181
 182     INPUTS
 183             See exec.library/VNewRawDoFmt
 184
 185     RESULT
 186
 187     NOTES
 188             This function is not called by apps directly. Instead exec.library/VNewRawDoFmt
 189         is patched to use this function. This means, that the library base parameter above
 190         actually points to SysBase, so we make use of the global LocaleBase variable.
 191         This function is marked as private, thus the headers generator won't mind the
 192         different basename in the header.
 193
 194     EXAMPLE
 195
 196     BUGS
 197
 198     SEE ALSO
 199         RawDoFmt(), FormatString().
 200
 201     INTERNALS
 202
 203 *****************************************************************************/
 204
 205 {
 206     AROS_LIBFUNC_INIT
 207
 208     struct Hook hook;
 209
 210     hook.h_Entry =
 211         (HOOKFUNC) AROS_ASMSYMNAME(LocRawDoFmtFormatStringFunc_SysV);
 212     hook.h_SubEntry = (HOOKFUNC) PutChProc;
 213     hook.h_Data = PutChData;
 214
 215     REPLACEMENT_LOCK;
 216
 217     InternalFormatString(&(IntLB(LocaleBase)->lb_CurrentLocale->il_Locale),
 218         (STRPTR) FormatString, NULL, &hook, DataStream);
 219
 220     REPLACEMENT_UNLOCK;
 221
 222     return hook.h_Data;
 223
 224     AROS_LIBFUNC_EXIT
 225 }