compiler/clib/__arosc_userdata.c

   1 #include "__arosc_privdata.h"
   2
   3 #include <proto/exec.h>
   4 #include <proto/dos.h>
   5 #include <dos/dosextens.h>
   6 #include <sys/arosc.h>
   7
   8 #include <stdlib.h>
   9
  10 #include "arosc_init.h"
  11
  12 #include "__ctype.h"
  13 #include "etask.h"
  14
  15 #include <aros/debug.h>
  16
  17 extern struct Library *aroscbase;
  18
  19 struct arosc_userdata * __get_arosc_userdata(void)
  20 {
  21     struct arosc_privdata *acpd = NULL;
  22
  23     #ifdef AROSC_SHARED
  24     struct Task *curtask = FindTask(NULL);
  25
  26     acpd = GetIntETask(curtask)->iet_acpd;
  27
  28     if (acpd == NULL)
  29     {
  30         #warning FIXME: This is a quick hack to make old programs which use
  31         #warning        the libc from inside newly created tasks/processes
  32         #warning        without going trough special libc routines
  33         #warning        (yet to be written).
  34
  35         struct Task *parent = GetETask(curtask)->et_Parent;
  36             while (parent != NULL)
  37             {
  38             acpd = GetIntETask(parent)->iet_acpd;
  39             if(acpd != NULL) break;
  40             parent = GetETask(parent)->et_Parent;
  41             }
  42     }
  43     #endif
  44
  45     if (acpd == NULL)
  46     {
  47         /* No acpd found? Fall back to the builtin one.  */
  48         static struct arosc_privdata acpd_static =
  49         {
  50             .acpd_acud.acud_ctype_b       = &__ctype_b_array[128],
  51             .acpd_acud.acud_ctype_toupper = &__ctype_toupper_array[128],
  52             .acpd_acud.acud_ctype_tolower = &__ctype_tolower_array[128],
  53         };
  54
  55         return &acpd_static.acpd_acud;
  56     }
  57
  58     return &acpd->acpd_acud;
  59 }