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 struct aroscbase *_aroscbase;
  18
  19 static int __ctype_init(void)
  20 {
  21     const struct arosc_ctype *ctype;
  22
  23     _aroscbase = (struct aroscbase *)OpenLibrary("arosc.library", 0);
  24     if (!_aroscbase)
  25             return 0;
  26     ctype = &_aroscbase->acb_acud.acud_ctype;
  27
  28     __ctype_b = ctype->b;
  29     __ctype_toupper = ctype->toupper;
  30     __ctype_tolower = ctype->tolower;
  31
  32     return 1;
  33 }
  34
  35 static void __ctype_exit(void)
  36 {
  37     CloseLibrary((struct Library *)_aroscbase);
  38 }
  39
  40 ADD2INIT(__ctype_init, 20);
  41 ADD2EXIT(__ctype_exit, 20);