home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / pdsrc / oomodules / library.e < prev    next >
Text File  |  1977-12-31  |  408b  |  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.