rom/exec/openlibrary.c

   1 /*
   2     Copyright © 1995-2017, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Open a library.
   6     Lang: english
   7 */
   8
   9 #include <aros/debug.h>
  10 #include <exec/execbase.h>
  11 #include <exec/lists.h>
  12 #include <exec/libraries.h>
  13 #include <aros/libcall.h>
  14 #include <proto/exec.h>
  15
  16 #include "exec_intern.h"
  17 #include "exec_debug.h"
  18 #include "exec_locks.h"
  19
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24
  25         AROS_LH2(struct Library *, OpenLibrary,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(CONST_STRPTR,  libName, A1),
  29         AROS_LHA(ULONG,         version, D0),
  30
  31 /*  LOCATION */
  32         struct ExecBase *, SysBase, 92, Exec)
  33
  34 /*  FUNCTION
  35         Opens a library given by name and revision. If the library does not
  36         exist in the current system shared library list, the first the
  37         system ROMTag module list is tried. If this fails, and the DOS is
  38         running, then the library will be loaded from disk.
  39
  40     INPUTS
  41         libName - Pointer to the library's name.
  42         version - the library's version number.
  43
  44     RESULT
  45         Pointer to library structure or NULL.
  46
  47     NOTES
  48
  49     EXAMPLE
  50
  51     BUGS
  52
  53     SEE ALSO
  54         CloseLibrary()
  55
  56     INTERNALS
  57
  58 *****************************************************************************/
  59 {
  60     AROS_LIBFUNC_INIT
  61
  62     struct Library * library;
  63
  64     DRAMLIB("OpenLibrary(\"%s\", %ld)", libName, version);
  65
  66     /* Arbitrate for the library list */
  67     EXEC_LOCK_LIST_READ_AND_FORBID(&SysBase->LibList);
  68
  69     /* Look for the library in our list */
  70     library = (struct Library *) FindName (&SysBase->LibList, libName);
  71
  72     EXEC_UNLOCK_LIST(&SysBase->LibList);
  73
  74     /* Something found ? */
  75     if(library!=NULL)
  76     {
  77         /* Check version */
  78         if(library->lib_Version>=version)
  79         {
  80             /* Call Open vector */
  81             library=AROS_LVO_CALL1(struct Library *,
  82                 AROS_LCA(ULONG,version,D0),
  83                 struct Library *,library,1,lib
  84             );
  85         }
  86         else
  87         {
  88             DRAMLIB("Version mismatch (have %ld, wanted %ld)", library->lib_Version, version);
  89             library = NULL;
  90         }
  91     }
  92
  93     /*
  94      *  We cannot handle loading libraries from disk. But this is taken
  95      *  care of by dos.library (well lddemon really) replacing this
  96      *  function with a SetFunction() call.
  97      */
  98
  99     /* All done. */
 100     Permit();
 101
 102     DRAMLIB("OpenLibrary(\"%s\", %ld) = %p", libName, version, library);
 103     return library;
 104
 105     AROS_LIBFUNC_EXIT
 106 } /* OpenLibrary */