compiler/autoinit/libraries.c

   1 /*
   2     Copyright © 1995-2005, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: autoinit library - automatic library opening/closing handling
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <dos/dos.h>
  11 #include <aros/symbolsets.h>
  12 #include <aros/autoinit.h>
  13 #include <intuition/intuition.h>
  14 #include <dos/dosextens.h>
  15 #include <proto/intuition.h>
  16 #include <proto/dos.h>
  17 #include <stdlib.h>
  18
  19 DECLARESET(LIBS);
  20
  21 AROS_MAKE_ASM_SYM(int, dummy, __includelibrarieshandling, 0);
  22 AROS_EXPORT_ASM_SYM(__includelibrarieshandling);
  23
  24 int set_open_libraries_list(const void *list[])
  25 {
  26     int pos;
  27     struct libraryset *set;
  28
  29     ForeachElementInSet(list, 1, pos, set)
  30     {
  31         LONG version = *set->versionptr;
  32         BOOL do_not_fail = 0;
  33
  34         if (version < 0)
  35         {
  36             version = -(version + 1);
  37             do_not_fail = 1;
  38         }
  39
  40         *set->baseptr = OpenLibrary(set->name, version);
  41
  42         if (!do_not_fail && *set->baseptr == NULL)
  43         {
  44             __showerror
  45             (
  46                 "Could not open version %ld or higher of library \"%s\".",
  47                 (const IPTR []){version, set->name}
  48             );
  49
  50             return 0;
  51         }
  52     }
  53
  54     return 1;
  55 }
  56
  57 void set_close_libraries_list(const void *list[])
  58 {
  59     int pos;
  60     struct libraryset *set;
  61
  62     ForeachElementInSet(SETNAME(LIBS), 1, pos, set)
  63     {
  64         if (*set->baseptr)
  65             CloseLibrary(*set->baseptr);
  66     }
  67 }
  68
  69