compiler/stdc/__optionallibs.c

   1 /*
   2     Copyright © 2013, The AROS Development Team. All rights reserved.
   3 */
   4
   5 #include <proto/exec.h>
   6 #include <proto/locale.h>
   7 #include <proto/intuition.h>
   8
   9 /* Internal function __libfindandopen will only open a library when it is
  10    already in the list of open libraries
  11 */
  12 struct LocaleBase *LocaleBase = NULL;
  13 struct IntuitionBase *IntuitionBase = NULL;
  14
  15 static struct Library *__libfindandopen(const char *libname, int version)
  16 {
  17     struct Node *found;
  18
  19     Forbid();
  20     found = FindName(&SysBase->LibList, libname);
  21     Permit();
  22
  23     return (found != NULL) ? OpenLibrary(libname, version) : NULL;
  24 }
  25
  26 int __locale_available(void)
  27 {
  28     if (LocaleBase == NULL)
  29         LocaleBase = (struct LocaleBase *)__libfindandopen("locale.library", 0);
  30
  31     return LocaleBase != NULL;
  32 }
  33
  34 int __intuition_available(void)
  35 {
  36     if (IntuitionBase == NULL)
  37         IntuitionBase = (struct IntuitionBase *)__libfindandopen("intuition.library", 0);
  38
  39     return IntuitionBase != NULL;
  40 }