mirror of
https://github.com/Pecusx/libretro-atari800.git
synced 2026-05-20 22:33:22 +02:00
R-type
323 lines
8.4 KiB
C
323 lines
8.4 KiB
C
/*
|
|
* amiga.c - Amiga specific port code
|
|
*
|
|
* Copyright (c) 2000 Sebastian Bauer
|
|
* Copyright (c) 2000-2003 Atari800 development team (see DOC/CREDITS)
|
|
*
|
|
* This file is part of the Atari800 emulator project which emulates
|
|
* the Atari 400, 800, 800XL, 130XE, and 5200 8-bit computers.
|
|
*
|
|
* Atari800 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; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* Atari800 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 Atari800; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
|
|
#include <exec/types.h>
|
|
|
|
#define ALL_REACTION_CLASSES
|
|
#include <reaction/reaction.h>
|
|
#include <reaction/reaction_macros.h>
|
|
|
|
#include <proto/exec.h>
|
|
#include <proto/dos.h>
|
|
#include <proto/intuition.h>
|
|
|
|
#include "gui.h"
|
|
#include "support.h"
|
|
|
|
struct Library *WindowBase;
|
|
struct Library *LayoutBase;
|
|
struct Library *ButtonBase;
|
|
struct Library *ListBrowserBase;
|
|
struct Library *TextEditorBase;
|
|
struct Library *LabelBase;
|
|
struct Library *StringBase;
|
|
struct Library *ScrollerBase;
|
|
struct Library *GetFileBase;
|
|
struct Library *ChooserBase;
|
|
struct Library *ClickTabBase;
|
|
struct Library *CheckBoxBase;
|
|
struct Library *GetScreenModeBase;
|
|
|
|
struct WindowIFace *IWindow;
|
|
struct LayoutIFace *ILayout;
|
|
struct ButtonIFace *IButton;
|
|
struct ListBrowserIFace *IListBrowser;
|
|
struct TextEditorIFace *ITextEditor;
|
|
struct LabelIFace *ILabel;
|
|
struct StringIFace *IString;
|
|
struct ScrollerIFace *IScroller;
|
|
struct GetFileIFace *IGetFile;
|
|
struct ChooserIFace *IChooser;
|
|
struct ClickTabIFace *IClickTab;
|
|
struct CheckBoxIFace *ICheckBox;
|
|
struct GetScreenModeIFace *IGetScreenMode;
|
|
|
|
#define LIBENTRY(name,version,base,iface) {name,version,(struct Library**)base,(struct Interface**) iface}
|
|
static struct
|
|
{
|
|
STRPTR Name;
|
|
ULONG Version;
|
|
struct Library **Base;
|
|
struct Interface **IFace;
|
|
} libraries[] =
|
|
{
|
|
LIBENTRY("window.class",44,&WindowBase,&IWindow),
|
|
LIBENTRY("gadgets/getfile.gadget",44,&GetFileBase, &IGetFile),
|
|
LIBENTRY("gadgets/layout.gadget",44,&LayoutBase, &ILayout),
|
|
LIBENTRY("gadgets/chooser.gadget",45,&ChooserBase, &IChooser),
|
|
LIBENTRY("gadgets/clicktab.gadget",44,&ClickTabBase, &IClickTab),
|
|
LIBENTRY("gadgets/button.gadget",44,&ButtonBase,&IButton),
|
|
LIBENTRY("gadgets/listbrowser.gadget",44,&ListBrowserBase,&IListBrowser),
|
|
LIBENTRY("gadgets/texteditor.gadget",50,&TextEditorBase,&ITextEditor),
|
|
LIBENTRY("gadgets/string.gadget",44,&StringBase,&IString),
|
|
LIBENTRY("gadgets/scroller.gadget",44,&ScrollerBase,&IScroller),
|
|
LIBENTRY("gadgets/checkbox.gadget",44,&CheckBoxBase, &ICheckBox),
|
|
LIBENTRY("gadgets/getscreenmode.gadget",44,&GetScreenModeBase, &IGetScreenMode),
|
|
LIBENTRY("images/label.image",44,&LabelBase,&ILabel),
|
|
};
|
|
|
|
/****************************************
|
|
Close libraries
|
|
*****************************************/
|
|
static void CloseGUILibs(void)
|
|
{
|
|
int i;
|
|
|
|
for (i=0;i<sizeof(libraries)/sizeof(libraries[0]);i++)
|
|
{
|
|
CloseLibraryInterface(*libraries[i].Base,*libraries[i].IFace);
|
|
*libraries[i].Base = NULL;
|
|
*libraries[i].IFace = NULL;
|
|
}
|
|
}
|
|
|
|
/****************************************
|
|
Open needed Libraries
|
|
*****************************************/
|
|
static int OpenGUILibs(void)
|
|
{
|
|
int i;
|
|
|
|
for (i=0;i<sizeof(libraries)/sizeof(libraries[0]);i++)
|
|
{
|
|
if (!(*libraries[i].Base = OpenLibraryInterface(libraries[i].Name,
|
|
libraries[i].Version,
|
|
libraries[i].IFace)))
|
|
{
|
|
printf("Unable to open %s version %ld\n",libraries[i].Name,libraries[i].Version);
|
|
goto out;
|
|
}
|
|
}
|
|
return 1;
|
|
|
|
out:
|
|
CloseGUILibs();
|
|
return 0;
|
|
}
|
|
|
|
/**********************************************************************
|
|
Get Attribute easily
|
|
***********************************************************************/
|
|
static ULONG xget(Object * obj, ULONG attribute)
|
|
{
|
|
ULONG x;
|
|
IIntuition->GetAttr(attribute, obj, (ULONG*)&x);
|
|
return (x);
|
|
}
|
|
|
|
/**********************************************************************
|
|
Set attributes of a given object.
|
|
Difference to RefreshSetGadgetAttrs() is that the parameters are all
|
|
Objects.
|
|
***********************************************************************/
|
|
void RefreshSetObjectAttrsA(Object *o, Object *wo, struct TagItem *tags)
|
|
{
|
|
struct Gadget *g = (struct Gadget*)o;
|
|
struct Window *w = (struct Window*)xget(wo,WINDOW_Window);
|
|
|
|
if (!o) return;
|
|
|
|
IIntuition->RefreshSetGadgetAttrsA(g,w,NULL,tags);
|
|
}
|
|
|
|
void VARARGS68K RefreshSetObjectAttrs(Object *o, Object *wo, ...)
|
|
{
|
|
ULONG *tags;
|
|
va_list args;
|
|
|
|
va_startlinear(args,wo);
|
|
|
|
tags = va_getlinearva(args,ULONG*);
|
|
RefreshSetObjectAttrsA(o,wo,(struct TagItem *)tags);
|
|
va_end(args);
|
|
}
|
|
|
|
/****** GUI ********/
|
|
static Object *main_wnd;
|
|
static Object *displaytype_chooser;
|
|
static Object *screenmode_getscreenmode;
|
|
//static Object *bestscreenmode_checkbox;
|
|
|
|
static int quitting;
|
|
|
|
enum
|
|
{
|
|
GID_QUIT = 1,
|
|
GID_SAVE,
|
|
GID_USE
|
|
};
|
|
|
|
/**********************************************************************
|
|
Handle
|
|
***********************************************************************/
|
|
static int Handle(struct AtariConfig *config)
|
|
{
|
|
int rc = 0;
|
|
ULONG result;
|
|
UWORD code;
|
|
|
|
while ((result = RA_HandleInput(main_wnd, &code) ) != WMHI_LASTMSG )
|
|
{
|
|
switch (result & WMHI_CLASSMASK)
|
|
{
|
|
case WMHI_CLOSEWINDOW:
|
|
rc = 1;
|
|
break;
|
|
|
|
case WMHI_GADGETUP:
|
|
switch (result & WMHI_GADGETMASK)
|
|
{
|
|
case GID_QUIT: rc = 1; quitting = 1; break;
|
|
case GID_SAVE: rc = 1; break;
|
|
case GID_USE: rc = 1; break;
|
|
}
|
|
}
|
|
}
|
|
return rc;
|
|
}
|
|
|
|
/*******************************
|
|
Eventlloop
|
|
********************************/
|
|
static void Loop(struct AtariConfig *config)
|
|
{
|
|
int ready = 0;
|
|
ULONG mainMask;
|
|
|
|
while (!ready)
|
|
{
|
|
ULONG mask;
|
|
|
|
IIntuition->GetAttr(WINDOW_SigMask, main_wnd, &mainMask);
|
|
|
|
mask = IExec->Wait(SIGBREAKF_CTRL_C | mainMask);
|
|
|
|
if (mask & mainMask)
|
|
ready = Handle(config);
|
|
|
|
if (mask & SIGBREAKF_CTRL_C) ready = 1;
|
|
}
|
|
}
|
|
|
|
/**********************************************************************
|
|
Configure atari
|
|
***********************************************************************/
|
|
BOOL Configure(struct AtariConfig *config)
|
|
{
|
|
static char * const tabLabels[] = {"General","Graphics","Sound","Paths",NULL};
|
|
static char * const screenTypeLabels[] = {"Custom","Window", "Sizeable Window", NULL};
|
|
|
|
if (!OpenGUILibs()) goto out;
|
|
|
|
main_wnd = (Object*)WindowObject,
|
|
WA_Title, "Atari800",
|
|
WA_Activate, TRUE,
|
|
WA_DepthGadget, TRUE,
|
|
WA_DragBar, TRUE,
|
|
WA_CloseGadget, TRUE,
|
|
WA_SizeGadget, TRUE,
|
|
WA_IDCMP, IDCMP_INTUITICKS,
|
|
// WINDOW_IDCMPHook, &idcmpHook,
|
|
WINDOW_IDCMPHookBits, IDCMP_IDCMPUPDATE,
|
|
WINDOW_Position, WPOS_CENTERSCREEN,
|
|
WINDOW_ParentGroup, VGroupObject,
|
|
LAYOUT_SpaceOuter, TRUE,
|
|
LAYOUT_DeferLayout, TRUE,
|
|
|
|
LAYOUT_AddChild, ClickTabObject,
|
|
GA_Text, &tabLabels,
|
|
CLICKTAB_PageGroup, PageObject,
|
|
PAGE_Add, VGroupObject,
|
|
EndGroup,
|
|
|
|
PAGE_Add, VGroupObject, /* Graphics */
|
|
LAYOUT_AddChild, displaytype_chooser = ChooserObject,
|
|
CHOOSER_LabelArray, screenTypeLabels,
|
|
CHOOSER_Selected, 0,
|
|
End,
|
|
MemberLabel("Displaytype"),
|
|
|
|
LAYOUT_AddChild, screenmode_getscreenmode = GetScreenModeObject,
|
|
End,
|
|
MemberLabel("Screenmode"),
|
|
CHILD_WeightedHeight, 0,
|
|
|
|
LAYOUT_AddChild, CheckBoxObject,
|
|
CHECKBOX_Checked, config->UseBestID,
|
|
End,
|
|
MemberLabel("Use best screen mode"),
|
|
EndGroup,
|
|
CHILD_WeightedHeight, 0,
|
|
|
|
PAGE_Add, VGroupObject,
|
|
LAYOUT_AddChild, CheckBoxObject,
|
|
End,
|
|
MemberLabel("Enable Sound"),
|
|
EndGroup,
|
|
|
|
|
|
PAGE_Add, VGroupObject, /* Sound */
|
|
EndGroup,
|
|
End, /* Page */
|
|
End, /* Clicktab */
|
|
LAYOUT_AddChild, HGroupObject,
|
|
LAYOUT_AddChild, Button("Start & Save",GID_SAVE),
|
|
LAYOUT_AddChild, Button("Start & Use",GID_USE),
|
|
LAYOUT_AddChild, Button("Quit",GID_QUIT),
|
|
EndGroup,
|
|
CHILD_WeightedHeight, 0,
|
|
EndGroup,
|
|
EndWindow;
|
|
|
|
if (!main_wnd) goto out;
|
|
|
|
RA_OpenWindow(main_wnd);
|
|
|
|
Loop(config);
|
|
|
|
IIntuition->DisposeObject(main_wnd);
|
|
CloseGUILibs();
|
|
return quitting?FALSE:TRUE;
|
|
|
|
out:
|
|
IIntuition->DisposeObject(main_wnd);
|
|
CloseGUILibs();
|
|
return FALSE;
|
|
}
|
|
|
|
|