/*+
−
    SDL - Simple DirectMedia Layer+
−
    Copyright (C) 1997-2009 Sam Lantinga+
−
+
−
    This library is free software; you can redistribute it and/or+
−
    modify it under the terms of the GNU Lesser General Public+
−
    License as published by the Free Software Foundation; either+
−
    version 2.1 of the License, or (at your option) any later version.+
−
+
−
    This library 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+
−
    Lesser General Public License for more details.+
−
+
−
    You should have received a copy of the GNU Lesser General Public+
−
    License along with this library; if not, write to the Free Software+
−
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA+
−
+
−
    Sam Lantinga+
−
    slouken@libsdl.org+
−
*/+
−
#include "SDL_config.h"+
−
+
−
/*+
−
	GEM video driver+
−
+
−
	Patrice Mandin+
−
	and work from+
−
	Olivier Landemarre, Johan Klockars, Xavier Joubert, Claude Attard+
−
*/+
−
+
−
/* Mint includes */+
−
#include <gem.h>+
−
#include <gemx.h>+
−
#include <mint/osbind.h>+
−
#include <mint/cookie.h>+
−
+
−
#include "SDL_video.h"+
−
#include "SDL_mouse.h"+
−
#include "../SDL_sysvideo.h"+
−
#include "../SDL_pixels_c.h"+
−
+
−
#include "SDL_gemvideo.h"+
−
+
−
/* Initialization/Query functions */+
−
static int GEM_VideoInit(_THIS);+
−
static void GEM_VideoQuit(_THIS);+
−
+
−
static void GEM_GL_SwapBuffers(_THIS);+
−
+
−
+
−
static int+
−
GEM_Available(void)+
−
{+
−
    /* Test if AES available */+
−
    if (appl_init() == -1)+
−
        return 0;+
−
+
−
    appl_exit();+
−
    return 1;+
−
}+
−
+
−
static void+
−
GEM_DeleteDevice(SDL_VideoDevice * device)+
−
{+
−
    SDL_VideoData *data = (SDL_VideoData *) device->driverdata;+
−
+
−
    SDL_free(device->driverdata);+
−
    SDL_free(device);+
−
}+
−
+
−
static SDL_VideoDevice *+
−
GEM_CreateDevice(int devindex)+
−
{+
−
    SDL_VideoDevice *device;+
−
    SDL_VideoData *data;+
−
+
−
    /* Initialize all variables that we clean on shutdown */+
−
    device = (SDL_VideoDevice *) SDL_calloc(1, sizeof(SDL_VideoDevice));+
−
    if (device) {+
−
        data = (SDL_VideoData *) SDL_calloc(1, sizeof(SDL_VideoData));+
−
    }+
−
    if (!device || !data) {+
−
        SDL_OutOfMemory();+
−
        if (device) {+
−
            SDL_free(device);+
−
        }+
−
        return NULL;+
−
    }+
−
    device->driverdata = data;+
−
+
−
    /* Set the function pointers */+
−
    device->VideoInit = GEM_VideoInit;+
−
    device->VideoQuit = GEM_VideoQuit;+
−
    device->GetDisplayModes = GEM_GetDisplayModes;+
−
    device->SetDisplayMode = GEM_SetDisplayMode;+
−
    device->PumpEvents = GEM_PumpEvents;+
−
+
−
    device->CreateWindow = GEM_CreateWindow;+
−
    device->CreateWindowFrom = GEM_CreateWindowFrom;+
−
    device->SetWindowTitle = GEM_SetWindowTitle;+
−
    device->SetWindowPosition = GEM_SetWindowPosition;+
−
    device->SetWindowSize = GEM_SetWindowSize;+
−
    device->ShowWindow = GEM_ShowWindow;+
−
    device->HideWindow = GEM_HideWindow;+
−
    device->RaiseWindow = GEM_RaiseWindow;+
−
    device->MaximizeWindow = GEM_MaximizeWindow;+
−
    device->MinimizeWindow = GEM_MinimizeWindow;+
−
    device->RestoreWindow = GEM_RestoreWindow;+
−
    device->SetWindowGrab = GEM_SetWindowGrab;+
−
    device->DestroyWindow = GEM_DestroyWindow;+
−
    device->GetWindowWMInfo = GEM_GetWindowWMInfo;+
−
+
−
#if SDL_VIDEO_OPENGL+
−
    device->GL_LoadLibrary = SDL_AtariGL_LoadLibrary;+
−
    device->GL_GetProcAddress = SDL_AtariGL_GetProcAddress;+
−
    device->GL_CreateContext = SDL_AtariGL_CreateContext;+
−
    device->GL_MakeCurrent = SDL_AtariGL_MakeCurrent;+
−
    device->GL_SetSwapInterval = SDL_AtariGL_SetSwapInterval;+
−
    device->GL_GetSwapInterval = SDL_AtariGL_GetSwapInterval;+
−
    device->GL_SwapWindow = GEM_GL_SwapWindow;+
−
    device->GL_DeleteContext = SDL_AtariGL_DeleteContext;+
−
#endif+
−
+
−
    device->free = GEM_DeleteDevice;+
−
+
−
    return device;+
−
}+
−
+
−
VideoBootStrap GEM_bootstrap = {+
−
    "gem", "Atari GEM video driver",+
−
    GEM_Available, GEM_CreateDevice+
−
};+
−
+
−
int+
−
GEM_VideoInit(_THIS)+
−
{+
−
    int i;+
−
    short work_in[12], work_out[272], dummy;+
−
    SDL_VideoData *data = (SDL_VideoData *) _this->driverdata;+
−
+
−
    /* Open AES (Application Environment Services) */+
−
    if (appl_init() == -1) {+
−
        fprintf(stderr, "Can not open AES\n");+
−
        return 1;+
−
    }+
−
+
−
    /* Read version and features */+
−
    if (aes_global[0] >= 0x0410) {+
−
        short ap_gout[4];+
−
+
−
        data->wfeatures = 0;+
−
        if (appl_getinfo(AES_WINDOW, &ap_gout[0], &ap_gout[1], &ap_gout[2],+
−
                         &ap_gout[3]) == 0) {+
−
            data->wfeatures = ap_gout[0];+
−
        }+
−
    }+
−
+
−
    /* Ask VDI physical workstation handle opened by AES */+
−
    data->vdi_handle = graf_handle(&dummy, &dummy, &dummy, &dummy);+
−
+
−
    /* Open virtual VDI workstation */+
−
    work_in[0] = Getrez() + 2;+
−
    for (i = 1; i < 10; i++)+
−
        work_in[i] = 1;+
−
    work_in[10] = 2;+
−
+
−
    v_opnvwk(work_in, &(data->vdi_handle), work_out);+
−
    if (data->vdi_handle == 0) {+
−
        fprintf(stderr, "Can not open VDI virtual workstation\n");+
−
        return 1;+
−
    }+
−
+
−
    /* Set mouse cursor to arrow */+
−
    graf_mouse(ARROW, NULL);+
−
+
−
    /* Setup VDI fill functions */+
−
    vsf_color(data->vdi_handle, 0);+
−
    vsf_interior(data->vdi_handle, 1);+
−
    vsf_perimeter(data->vdi_handle, 0);+
−
+
−
    GEM_InitModes(_this);+
−
+
−
    GEM_InitKeyboard(_this);+
−
    GEM_InitMouse(_this);+
−
+
−
    return (0);+
−
}+
−
+
−
void+
−
GEM_VideoQuit(_THIS)+
−
{+
−
    SDL_VideoData *data = (SDL_VideoData *) _this->driverdata;+
−
+
−
    GEM_QuitMouse(_this);+
−
    GEM_QuitKeyboard(_this);+
−
+
−
    GEM_QuitModes(_this);+
−
+
−
    /* Close VDI workstation */+
−
    if (data->vdi_handle) {+
−
        v_clsvwk(data->vdi_handle);+
−
    }+
−
+
−
    appl_exit();+
−
}+
−
+
−
/* vi: set ts=4 sw=4 expandtab: */+
−