home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / rom / exec / remlibrary.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-09  |  2.0 KB  |  87 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: remlibrary.c,v 1.7 1997/01/01 03:46:14 ldp Exp $
  4.     $Log: remlibrary.c,v $
  5.     Revision 1.7  1997/01/01 03:46:14  ldp
  6.     Committed Amiga native (support) code
  7.  
  8.     Changed clib to proto
  9.  
  10.     Revision 1.6  1996/12/10 13:51:51  aros
  11.     Moved all #include's in the first column so makedepend can see it.
  12.  
  13.     Revision 1.5  1996/10/24 15:50:55  aros
  14.     Use the official AROS macros over the __AROS versions.
  15.  
  16.     Revision 1.4  1996/08/13 13:56:06  digulla
  17.     Replaced AROS_LA by AROS_LHA
  18.     Replaced some AROS_LH*I by AROS_LH*
  19.     Sorted and added includes
  20.  
  21.     Revision 1.3  1996/08/01 17:41:16  digulla
  22.     Added standard header for all files
  23.  
  24.     Desc:
  25.     Lang: english
  26. */
  27. #include <exec/execbase.h>
  28. #include <aros/libcall.h>
  29. #include <dos/dos.h>
  30. #include <proto/exec.h>
  31.  
  32. /*****************************************************************************
  33.  
  34.     NAME */
  35.  
  36.     AROS_LH1(void, RemLibrary,
  37.  
  38. /*  SYNOPSIS */
  39.     AROS_LHA(struct Library *, library,A1),
  40.  
  41. /*  LOCATION */
  42.     struct ExecBase *, SysBase, 67, Exec)
  43.  
  44. /*  FUNCTION
  45.     Calls the given library's expunge vector, thus trying to delete it.
  46.     The library may refuse to do so and still be open after this call.
  47.  
  48.     INPUTS
  49.     library - Pointer to the library structure.
  50.  
  51.     RESULT
  52.  
  53.     NOTES
  54.  
  55.     EXAMPLE
  56.  
  57.     BUGS
  58.  
  59.     SEE ALSO
  60.     AddLibrary(), MakeLibrary(), MakeFunctions(), InitStruct(), SumLibrary().
  61.  
  62.     INTERNALS
  63.  
  64.     HISTORY
  65.  
  66. ******************************************************************************/
  67. {
  68.     AROS_LIBFUNC_INIT
  69.  
  70.     /* Arbitrate for the library list */
  71.     Forbid();
  72.  
  73.     /* Call expunge vector */
  74.     (void)AROS_LVO_CALL0(BPTR,struct Library *,library,3,);
  75.     /*
  76.     Normally you'd expect the library to be expunged if this returns
  77.     non-zero, but this is only exec which doesn't know anything about
  78.     seglists - therefore dos.library has to SetFunction() into this
  79.     vector for the additional functionality.
  80.     */
  81.  
  82.     /* All done. */
  83.     Permit();
  84.     AROS_LIBFUNC_EXIT
  85. } /* RemLibrary */
  86.  
  87.