home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / useful / util / libs / reqtools.lha / ReqTools / Glue / SAS-C / LibSource.lha / src / autoopen.c next >
Encoding:
C/C++ Source or Header  |  1993-03-15  |  662 b   |  30 lines
  1. #include <proto/exec.h>
  2. #include <utility/tagitem.h>
  3. #include <proto/reqtools.h>
  4. #include <libraries/reqtools.h>
  5.  
  6. void __regargs  __autoopenfail (char *);
  7.  
  8. static void *libbase;
  9. struct ReqToolsBase *ReqToolsBase;
  10. extern long __oslibversion;
  11.  
  12. void __stdargs _STI_openreqtools (void)
  13. {
  14.     long old_os_lib = __oslibversion;
  15.  
  16.     __oslibversion = REQTOOLSVERSION;
  17.  
  18.     ReqToolsBase = libbase = (void *) OpenLibrary (REQTOOLSNAME, __oslibversion);
  19.     if (!ReqToolsBase) __autoopenfail (REQTOOLSNAME);
  20.     __oslibversion = old_os_lib;
  21. }
  22.  
  23. void __stdargs _STD_closereqtools (void)
  24. {
  25.     if (libbase) {
  26.         CloseLibrary ((struct Library *) libbase);
  27.         libbase = ReqToolsBase = NULL;
  28.         }
  29. }
  30.