mirror of
https://github.com/netsurf-browser/netsurf
synced 2024-11-23 14:59:47 +03:00
7e0ed132f7
Some features of later versions are used but are either restricted to OS4 only, or runtime version checks select the appropriate routines. Where the lowest required version cannot be determined, the version provided in the ClassAct 3.3 archive is requested. Bugs may mean these older classes do not work as expected. In addition, restrict the opening of listbrowser.gadget and the custom Stringview class to OS4 only.
341 lines
12 KiB
C
341 lines
12 KiB
C
/*
|
|
* Copyright 2014 Chris Young <chris@unsatisfactorysoftware.co.uk>
|
|
*
|
|
* This file is part of NetSurf, http://www.netsurf-browser.org/
|
|
*
|
|
* NetSurf is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; version 2 of the License.
|
|
*
|
|
* NetSurf is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include "amiga/os3support.h"
|
|
|
|
#include "amiga/libs.h"
|
|
#include "amiga/misc.h"
|
|
#include "utils/utils.h"
|
|
#include "utils/log.h"
|
|
|
|
#include <proto/exec.h>
|
|
#include <proto/intuition.h>
|
|
#include <proto/utility.h>
|
|
|
|
#include <graphics/gfxbase.h> /* Needed for v54 version check */
|
|
|
|
#ifndef __amigaos4__
|
|
/* OS3 needs these for the XXXX_GetClass() functions */
|
|
#include <proto/arexx.h>
|
|
#include <proto/bevel.h>
|
|
#include <proto/bitmap.h>
|
|
#include <proto/button.h>
|
|
#include <proto/chooser.h>
|
|
#include <proto/checkbox.h>
|
|
#include <proto/clicktab.h>
|
|
#include <proto/fuelgauge.h>
|
|
#include <proto/getfile.h>
|
|
#include <proto/getfont.h>
|
|
#include <proto/getscreenmode.h>
|
|
#include <proto/integer.h>
|
|
#include <proto/label.h>
|
|
#include <proto/layout.h>
|
|
#include <proto/listbrowser.h>
|
|
#include <proto/radiobutton.h>
|
|
#include <proto/scroller.h>
|
|
#include <proto/space.h>
|
|
#include <proto/speedbar.h>
|
|
#include <proto/string.h>
|
|
#include <proto/window.h>
|
|
#endif
|
|
|
|
#ifdef __amigaos4__
|
|
#define AMINS_LIB_OPEN(LIB, LIBVER, PREFIX, INTERFACE, INTVER, FAIL) \
|
|
LOG("Opening %s v%d", LIB, LIBVER); \
|
|
if((PREFIX##Base = (struct PREFIX##Base *)OpenLibrary(LIB, LIBVER))) { \
|
|
I##PREFIX = (struct PREFIX##IFace *)GetInterface((struct Library *)PREFIX##Base, INTERFACE, INTVER, NULL); \
|
|
if(I##PREFIX == NULL) { \
|
|
LOG("Failed to get %s interface v%d of %s", INTERFACE, INTVER, LIB); \
|
|
AMINS_LIB_CLOSE(PREFIX) \
|
|
if(FAIL == true) { \
|
|
STRPTR error = ASPrintf("Unable to open interface %s v%d\nof %s v%ld (fatal error - not an OS4 lib?)", INTERFACE, INTVER, LIB, LIBVER); \
|
|
ami_misc_fatal_error(error); \
|
|
FreeVec(error); \
|
|
return false; \
|
|
} \
|
|
} \
|
|
} else { \
|
|
LOG("Failed to open %s v%d", LIB, LIBVER); \
|
|
if(FAIL == true) { \
|
|
STRPTR error = ASPrintf("Unable to open %s v%ld (fatal error)", LIB, LIBVER); \
|
|
ami_misc_fatal_error(error); \
|
|
FreeVec(error); \
|
|
return false; \
|
|
} \
|
|
}
|
|
|
|
#define AMINS_LIB_CLOSE(PREFIX) \
|
|
if(I##PREFIX) DropInterface((struct Interface *)I##PREFIX); \
|
|
if(PREFIX##Base) CloseLibrary((struct Library *)PREFIX##Base); \
|
|
I##PREFIX = NULL; \
|
|
PREFIX##Base = NULL;
|
|
|
|
#define AMINS_LIB_STRUCT(PREFIX) \
|
|
struct PREFIX##Base *PREFIX##Base = NULL; \
|
|
struct PREFIX##IFace *I##PREFIX = NULL;
|
|
|
|
#define AMINS_CLASS_OPEN(CLASS, CLASSVER, PREFIX, CLASSGET, NEEDINTERFACE) \
|
|
LOG("Opening %s v%d", CLASS, CLASSVER); \
|
|
if((PREFIX##Base = OpenClass(CLASS, CLASSVER, &PREFIX##Class))) { \
|
|
if(NEEDINTERFACE == true) { \
|
|
LOG(" + interface"); \
|
|
I##PREFIX = (struct PREFIX##IFace *)GetInterface((struct Library *)PREFIX##Base, "main", 1, NULL); \
|
|
if(I##PREFIX == NULL) { \
|
|
LOG("Failed to get main interface v1 of %s", CLASS); \
|
|
} \
|
|
} \
|
|
} \
|
|
if(PREFIX##Class == NULL) { \
|
|
STRPTR error = ASPrintf("Unable to open %s v%d (fatal error)", CLASS, CLASSVER); \
|
|
ami_misc_fatal_error(error); \
|
|
FreeVec(error); \
|
|
return false; \
|
|
}
|
|
|
|
#define AMINS_CLASS_CLOSE(PREFIX) \
|
|
if(I##PREFIX) DropInterface((struct Interface *)I##PREFIX); \
|
|
if(PREFIX##Base) CloseClass(PREFIX##Base);
|
|
|
|
#define AMINS_CLASS_STRUCT(PREFIX) \
|
|
struct ClassLibrary *PREFIX##Base = NULL; \
|
|
struct PREFIX##IFace *I##PREFIX = NULL; \
|
|
Class *PREFIX##Class = NULL;
|
|
|
|
#else
|
|
#define AMINS_LIB_OPEN(LIB, LIBVER, PREFIX, INTERFACE, INTVER, FAIL) \
|
|
LOG("Opening %s v%d", LIB, LIBVER); \
|
|
if((PREFIX##Base = (struct PREFIX##Base *)OpenLibrary(LIB, LIBVER))) { \
|
|
} else { \
|
|
LOG("Failed to open %s v%d", LIB, LIBVER); \
|
|
if(FAIL == true) { \
|
|
STRPTR error = ASPrintf("Unable to open %s v%d (fatal error)", LIB, LIBVER); \
|
|
ami_misc_fatal_error(error); \
|
|
FreeVec(error); \
|
|
return false; \
|
|
} \
|
|
}
|
|
|
|
#define AMINS_LIB_CLOSE(PREFIX) \
|
|
if(PREFIX##Base) CloseLibrary((struct Library *)PREFIX##Base);
|
|
|
|
#define AMINS_LIB_STRUCT(PREFIX) \
|
|
struct PREFIX##Base *PREFIX##Base = NULL;
|
|
|
|
#define AMINS_CLASS_OPEN(CLASS, CLASSVER, PREFIX, CLASSGET, NEEDINTERFACE) \
|
|
LOG("Opening %s v%d", CLASS, CLASSVER); \
|
|
if((PREFIX##Base = OpenLibrary(CLASS, CLASSVER))) { \
|
|
PREFIX##Class = CLASSGET##_GetClass(); \
|
|
} \
|
|
if(PREFIX##Class == NULL) { \
|
|
STRPTR error = ASPrintf("Unable to open %s v%d (fatal error)", CLASS, CLASSVER); \
|
|
ami_misc_fatal_error(error); \
|
|
FreeVec(error); \
|
|
return false; \
|
|
}
|
|
|
|
#define AMINS_CLASS_CLOSE(PREFIX) \
|
|
if(PREFIX##Base) CloseLibrary(PREFIX##Base);
|
|
|
|
#define AMINS_CLASS_STRUCT(PREFIX) \
|
|
struct Library *PREFIX##Base = NULL; \
|
|
Class *PREFIX##Class = NULL;
|
|
|
|
#endif
|
|
|
|
#define GraphicsBase GfxBase /* graphics.library is a bit weird */
|
|
|
|
#ifdef __amigaos4__
|
|
AMINS_LIB_STRUCT(Application);
|
|
#else
|
|
AMINS_LIB_STRUCT(Utility)
|
|
#endif
|
|
AMINS_LIB_STRUCT(Asl);
|
|
AMINS_LIB_STRUCT(DataTypes);
|
|
AMINS_LIB_STRUCT(Diskfont);
|
|
AMINS_LIB_STRUCT(Graphics);
|
|
AMINS_LIB_STRUCT(GadTools);
|
|
AMINS_LIB_STRUCT(Icon);
|
|
AMINS_LIB_STRUCT(IFFParse);
|
|
AMINS_LIB_STRUCT(Intuition);
|
|
AMINS_LIB_STRUCT(Keymap);
|
|
AMINS_LIB_STRUCT(Layers);
|
|
AMINS_LIB_STRUCT(Locale);
|
|
AMINS_LIB_STRUCT(P96);
|
|
AMINS_LIB_STRUCT(Workbench);
|
|
|
|
AMINS_LIB_STRUCT(GuiGFX);
|
|
|
|
AMINS_CLASS_STRUCT(ARexx);
|
|
AMINS_CLASS_STRUCT(Bevel);
|
|
AMINS_CLASS_STRUCT(BitMap);
|
|
AMINS_CLASS_STRUCT(Button);
|
|
AMINS_CLASS_STRUCT(Chooser);
|
|
AMINS_CLASS_STRUCT(CheckBox);
|
|
AMINS_CLASS_STRUCT(ClickTab);
|
|
AMINS_CLASS_STRUCT(FuelGauge);
|
|
AMINS_CLASS_STRUCT(GetFile);
|
|
AMINS_CLASS_STRUCT(GetFont);
|
|
AMINS_CLASS_STRUCT(GetScreenMode);
|
|
AMINS_CLASS_STRUCT(Integer);
|
|
AMINS_CLASS_STRUCT(Label);
|
|
AMINS_CLASS_STRUCT(Layout);
|
|
AMINS_CLASS_STRUCT(ListBrowser);
|
|
AMINS_CLASS_STRUCT(RadioButton);
|
|
#ifndef __amigaos4__
|
|
AMINS_CLASS_STRUCT(Page);
|
|
#endif
|
|
AMINS_CLASS_STRUCT(Scroller);
|
|
AMINS_CLASS_STRUCT(Space);
|
|
AMINS_CLASS_STRUCT(SpeedBar);
|
|
AMINS_CLASS_STRUCT(String);
|
|
AMINS_CLASS_STRUCT(Window);
|
|
|
|
|
|
bool ami_libs_open(void)
|
|
{
|
|
#ifdef __amigaos4__
|
|
/* Libraries only needed on OS4 */
|
|
AMINS_LIB_OPEN("application.library", 53, Application, "application", 2, false)
|
|
#else
|
|
/* Libraries we get automatically on OS4 but not OS3 */
|
|
AMINS_LIB_OPEN("utility.library", 37, Utility, "main", 1, true)
|
|
#endif
|
|
/* Standard libraries for both versions */
|
|
AMINS_LIB_OPEN("asl.library", 37, Asl, "main", 1, true)
|
|
AMINS_LIB_OPEN("datatypes.library", 39, DataTypes, "main", 1, true)
|
|
AMINS_LIB_OPEN("diskfont.library", 40, Diskfont, "main", 1, true)
|
|
AMINS_LIB_OPEN("gadtools.library", 37, GadTools, "main", 1, true)
|
|
AMINS_LIB_OPEN("graphics.library", 40, Graphics, "main", 1, true)
|
|
AMINS_LIB_OPEN("icon.library", 44, Icon, "main", 1, true)
|
|
AMINS_LIB_OPEN("iffparse.library", 37, IFFParse, "main", 1, true)
|
|
AMINS_LIB_OPEN("intuition.library", 40, Intuition, "main", 1, true)
|
|
AMINS_LIB_OPEN("keymap.library", 37, Keymap, "main", 1, true)
|
|
AMINS_LIB_OPEN("layers.library", 37, Layers, "main", 1, true)
|
|
AMINS_LIB_OPEN("locale.library", 38, Locale, "main", 1, true)
|
|
AMINS_LIB_OPEN("workbench.library", 37, Workbench, "main", 1, true)
|
|
|
|
/* This is down here as we need to check the graphics.library version
|
|
* before opening. If it is sufficiently new enough we can avoid using P96.
|
|
*/
|
|
if(GfxBase->LibNode.lib_Version < 54)
|
|
AMINS_LIB_OPEN("Picasso96API.library", 0, P96, "main", 1, false)
|
|
|
|
/* Non-OS provided libraries */
|
|
AMINS_LIB_OPEN("guigfx.library", 9, GuiGFX, "main", 1, false)
|
|
|
|
/* NB: timer.device is opened in schedule.c (ultimately by the scheduler process).
|
|
* The library base and interface are obtained there, rather than here, due to
|
|
* the additional complexities of opening devices, which aren't important here
|
|
* (as we only need the library interface), but are important for the scheduler
|
|
* (as it also uses the device interface). We trust that the scheduler has
|
|
* initialised before any other code requires the timer's library interface,
|
|
* to avoid opening it twice.
|
|
*/
|
|
|
|
/* BOOPSI classes.
|
|
* Opened using class functions rather than the old-fashioned method.
|
|
* We get the class pointer once and used our stored copy.
|
|
* On OS4 these must be opened *after* intuition.library.
|
|
* NB: the last argument should be "true" only if the class also has
|
|
* library functions we use.
|
|
*/
|
|
AMINS_CLASS_OPEN("arexx.class", 41, ARexx, AREXX, false)
|
|
AMINS_CLASS_OPEN("images/bevel.image", 41, Bevel, BEVEL, false)
|
|
AMINS_CLASS_OPEN("images/bitmap.image", 41, BitMap, BITMAP, false)
|
|
AMINS_CLASS_OPEN("gadgets/button.gadget", 42, Button, BUTTON, false)
|
|
AMINS_CLASS_OPEN("gadgets/checkbox.gadget", 41, CheckBox, CHECKBOX, false)
|
|
AMINS_CLASS_OPEN("gadgets/chooser.gadget", 41, Chooser, CHOOSER, true)
|
|
AMINS_CLASS_OPEN("gadgets/clicktab.gadget", 42, ClickTab, CLICKTAB, true)
|
|
AMINS_CLASS_OPEN("gadgets/fuelgauge.gadget", 41, FuelGauge, FUELGAUGE, false)
|
|
AMINS_CLASS_OPEN("gadgets/getfile.gadget", 41, GetFile, GETFILE, false)
|
|
AMINS_CLASS_OPEN("gadgets/getfont.gadget", 41, GetFont, GETFONT, false)
|
|
AMINS_CLASS_OPEN("gadgets/getscreenmode.gadget", 41, GetScreenMode, GETSCREENMODE, false)
|
|
AMINS_CLASS_OPEN("gadgets/integer.gadget", 41, Integer, INTEGER, false)
|
|
AMINS_CLASS_OPEN("images/label.image", 41, Label, LABEL, false)
|
|
AMINS_CLASS_OPEN("gadgets/layout.gadget", 43, Layout, LAYOUT, true)
|
|
AMINS_CLASS_OPEN("gadgets/radiobutton.gadget", 41, RadioButton, RADIOBUTTON, false)
|
|
AMINS_CLASS_OPEN("gadgets/scroller.gadget", 42, Scroller, SCROLLER, false)
|
|
AMINS_CLASS_OPEN("gadgets/space.gadget", 41, Space, SPACE, false)
|
|
AMINS_CLASS_OPEN("gadgets/speedbar.gadget", 41, SpeedBar, SPEEDBAR, true)
|
|
AMINS_CLASS_OPEN("gadgets/string.gadget", 41, String, STRING, false)
|
|
AMINS_CLASS_OPEN("window.class", 42, Window, WINDOW, false)
|
|
|
|
#ifdef __amigaos4__
|
|
/* BOOPSI classes only required on OS4 */
|
|
AMINS_CLASS_OPEN("gadgets/listbrowser.gadget", 45, ListBrowser, LISTBROWSER, true)
|
|
#else
|
|
/* BOOPSI classes only required prior to OS4 */
|
|
PageClass = PAGE_GetClass();
|
|
#endif
|
|
|
|
return true;
|
|
}
|
|
|
|
void ami_libs_close(void)
|
|
{
|
|
/* BOOPSI Classes.
|
|
* On OS4 these must be closed *before* intuition.library
|
|
*/
|
|
AMINS_CLASS_CLOSE(ARexx)
|
|
AMINS_CLASS_CLOSE(Bevel)
|
|
AMINS_CLASS_CLOSE(BitMap)
|
|
AMINS_CLASS_CLOSE(Button)
|
|
AMINS_CLASS_CLOSE(CheckBox)
|
|
AMINS_CLASS_CLOSE(Chooser)
|
|
AMINS_CLASS_CLOSE(ClickTab)
|
|
AMINS_CLASS_CLOSE(FuelGauge)
|
|
AMINS_CLASS_CLOSE(GetFile)
|
|
AMINS_CLASS_CLOSE(GetFont)
|
|
AMINS_CLASS_CLOSE(GetScreenMode)
|
|
AMINS_CLASS_CLOSE(Integer)
|
|
AMINS_CLASS_CLOSE(Label)
|
|
AMINS_CLASS_CLOSE(Layout)
|
|
AMINS_CLASS_CLOSE(RadioButton)
|
|
AMINS_CLASS_CLOSE(Scroller)
|
|
AMINS_CLASS_CLOSE(Space)
|
|
AMINS_CLASS_CLOSE(SpeedBar)
|
|
AMINS_CLASS_CLOSE(String)
|
|
AMINS_CLASS_CLOSE(Window)
|
|
#ifdef __amigaos4__
|
|
AMINS_CLASS_CLOSE(ListBrowser)
|
|
#endif
|
|
|
|
/* Libraries */
|
|
AMINS_LIB_CLOSE(GuiGFX)
|
|
|
|
AMINS_LIB_CLOSE(Asl)
|
|
AMINS_LIB_CLOSE(DataTypes)
|
|
AMINS_LIB_CLOSE(Diskfont)
|
|
AMINS_LIB_CLOSE(GadTools)
|
|
AMINS_LIB_CLOSE(Graphics)
|
|
AMINS_LIB_CLOSE(Icon)
|
|
AMINS_LIB_CLOSE(IFFParse)
|
|
AMINS_LIB_CLOSE(Intuition)
|
|
AMINS_LIB_CLOSE(Keymap)
|
|
AMINS_LIB_CLOSE(Layers)
|
|
AMINS_LIB_CLOSE(Locale)
|
|
AMINS_LIB_CLOSE(P96)
|
|
AMINS_LIB_CLOSE(Workbench)
|
|
#ifdef __amigaos4__
|
|
AMINS_LIB_CLOSE(Application)
|
|
#else
|
|
AMINS_LIB_CLOSE(Utility)
|
|
#endif
|
|
}
|
|
|