2 ** openurl.library - universal URL display and browser
5 ** Written by Troels Walsted Hansen <troels@thule.no>
6 ** Placed in the public domain.
9 ** - Alfonso Ranieri <alforan@tin.it>
10 ** - Stefan Kost <ensonic@sonicpulse.de>
12 ** Ported to OS4 by Alexandre Balaban <alexandre@balaban.name>
17 #include <dos/dostags.h>
19 /***********************************************************************/
26 URL_FreePrefsA(lib_prefs
,NULL
);
30 #if defined(__amigaos4__)
33 DropInterface( (struct Interface
*)IRexxSys
);
39 DropInterface( (struct Interface
*)IIFFParse
);
45 DropInterface( (struct Interface
*)IUtility
);
52 CloseLibrary((struct Library
*)RexxSysBase
);
58 CloseLibrary(IFFParseBase
);
64 CloseLibrary((struct Library
*)UtilityBase
);
68 #if defined(__amigaos4__)
71 DropInterface( (struct Interface
*)IDOS
);
78 CloseLibrary((struct Library
*)DOSBase
);
88 lib_flags
&= ~BASEFLG_Init
;
91 /***********************************************************************/
96 if ((lib_pool
= CreatePool(MEMF_PUBLIC
|MEMF_CLEAR
,16384,8192)) &&
97 (DOSBase
= (struct DosLibrary
*)OpenLibrary("dos.library",36)) &&
98 (UtilityBase
= (struct UtilityBase
*)OpenLibrary("utility.library",36)) &&
99 (IFFParseBase
= OpenLibrary("iffparse.library",36)) &&
100 (RexxSysBase
= (struct RxsLib
*)OpenLibrary("rexxsyslib.library",33)) &&
101 #if defined(__amigaos4__)
102 (IDOS
= (struct DOSIFace
*) GetInterface( (struct Library
*)DOSBase
, "main", 1L, NULL
)) &&
103 (IUtility
= (struct UtilityIFace
*) GetInterface( UtilityBase
, "main", 1L, NULL
)) &&
104 (IIFFParse
= (struct IFFParseIFace
*) GetInterface( IFFParseBase
, "main", 1L, NULL
)) &&
105 (IRexxSys
= (struct RexxSysIFace
*) GetInterface( (struct Library
*)RexxSysBase
, "main", 1L, NULL
)) &&
107 (lib_prefs
= loadPrefsNotFail()))
109 lib_flags
|= BASEFLG_Init
;
119 /***********************************************************************/