home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / library_lib.lha / Library / LibClose.d next >
Encoding:
Text File  |  2001-11-14  |  333 b   |  16 lines
  1. OPT    NOEXE
  2.  
  3. MODULE    'powerd/library'
  4.  
  5. EPROC customCloseLib(base:PTR TO LibGenBase)(LONG)
  6. EPROC libExpunge(base:PTR TO LibGenBase IN a6)(LONG)
  7.  
  8. PROC libClose(base:PTR TO LibGenBase IN a6)(LONG)
  9.     DEF    rc=0
  10.  
  11.     customCloseLib(base)
  12.     IF --base.library.OpenCnt=0
  13.         IF base.library.Flags&LIBF_DELEXP THEN rc:=libExpunge(base)
  14.     ENDIF
  15. ENDPROC rc
  16.