rom/exec/openlibrary.c

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