compiler/clib/__ctype_linklib.c

   1 /*
   2     Copyright © 2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <sys/arosc.h>
   7 #include <aros/symbolsets.h>
   8
   9 #include <proto/exec.h>
  10
  11 #include "__arosc_privdata.h"
  12
  13 const unsigned short int *__ctype_b;
  14 const unsigned char *__ctype_toupper;
  15 const unsigned char *__ctype_tolower;
  16
  17 static int __ctype_init(struct ExecBase *SysBase)
  18 {
  19     const struct arosc_ctype *ctype;
  20     struct aroscbase *aroscbase = __aros_getbase_aroscbase();
  21
  22     if (!aroscbase)
  23             return 0;
  24
  25     ctype = &aroscbase->acb_acud.acud_ctype;
  26
  27     __ctype_b = ctype->b;
  28     __ctype_toupper = ctype->toupper;
  29     __ctype_tolower = ctype->tolower;
  30
  31     return 1;
  32 }
  33
  34 ADD2INIT(__ctype_init, 20);