diff options
Diffstat (limited to 'amiga/libs.c')
-rw-r--r-- | amiga/libs.c | 326 |
1 files changed, 0 insertions, 326 deletions
diff --git a/amiga/libs.c b/amiga/libs.c deleted file mode 100644 index 993cd3ad0..000000000 --- a/amiga/libs.c +++ /dev/null @@ -1,326 +0,0 @@ -/* - * 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); \ - } \ - } 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); - -#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, true) - - /* 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", 44, ARexx, AREXX, false) - AMINS_CLASS_OPEN("images/bevel.image", 44, Bevel, BEVEL, false) - AMINS_CLASS_OPEN("images/bitmap.image", 44, BitMap, BITMAP, false) - AMINS_CLASS_OPEN("gadgets/button.gadget", 44, Button, BUTTON, false) - AMINS_CLASS_OPEN("gadgets/checkbox.gadget", 44, CheckBox, CHECKBOX, false) - AMINS_CLASS_OPEN("gadgets/chooser.gadget", 44, Chooser, CHOOSER, true) - AMINS_CLASS_OPEN("gadgets/clicktab.gadget", 44, ClickTab, CLICKTAB, true) - AMINS_CLASS_OPEN("gadgets/fuelgauge.gadget", 44, FuelGauge, FUELGAUGE, false) - AMINS_CLASS_OPEN("gadgets/getfile.gadget", 44, GetFile, GETFILE, false) - AMINS_CLASS_OPEN("gadgets/getfont.gadget", 44, GetFont, GETFONT, false) - AMINS_CLASS_OPEN("gadgets/getscreenmode.gadget", 44, GetScreenMode, GETSCREENMODE, false) - AMINS_CLASS_OPEN("gadgets/integer.gadget", 44, Integer, INTEGER, false) - AMINS_CLASS_OPEN("images/label.image", 44, Label, LABEL, false) - AMINS_CLASS_OPEN("gadgets/layout.gadget", 44, Layout, LAYOUT, true) - AMINS_CLASS_OPEN("gadgets/listbrowser.gadget", 44, ListBrowser, LISTBROWSER, true) - AMINS_CLASS_OPEN("gadgets/radiobutton.gadget", 44, RadioButton, RADIOBUTTON, false) - AMINS_CLASS_OPEN("gadgets/scroller.gadget", 44, Scroller, SCROLLER, false) - AMINS_CLASS_OPEN("gadgets/space.gadget", 44, Space, SPACE, false) - AMINS_CLASS_OPEN("gadgets/speedbar.gadget", 44, SpeedBar, SPEEDBAR, true) - AMINS_CLASS_OPEN("gadgets/string.gadget", 44, String, STRING, false) - AMINS_CLASS_OPEN("window.class", 44, Window, WINDOW, false) - -#ifndef __amigaos4__ - 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(ListBrowser) - AMINS_CLASS_CLOSE(RadioButton) - AMINS_CLASS_CLOSE(Scroller) - AMINS_CLASS_CLOSE(Space) - AMINS_CLASS_CLOSE(SpeedBar) - AMINS_CLASS_CLOSE(String) - AMINS_CLASS_CLOSE(Window) - - /* 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 -} - |