home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / PdSrc / oomodules / library.e < prev    next >
Encoding:
Text File  |  1996-08-29  |  408 b   |  22 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OBJECT library
  5.   base
  6. ENDOBJECT
  7.  
  8. PROC open(name,version=NIL,dummy=NIL) OF library
  9. /*
  10.  * Just opens a library and fills the entries. the dummy argument is needed for
  11.  * opne OF device uses three vars
  12.  */
  13.  
  14. DEF base
  15.   IF(base := OpenLibrary(name,version))=NIL THEN Raise("LIB")
  16.   self.base := base
  17. ENDPROC base
  18.  
  19. PROC close() OF library
  20.   IF self.base THEN CloseLibrary(self.base)
  21. ENDPROC
  22.