summaryrefslogtreecommitdiff
path: root/amiga/libs.c
diff options
context:
space:
mode:
Diffstat (limited to 'amiga/libs.c')
-rw-r--r--amiga/libs.c326
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
-}
-