/*

SDL - Simple DirectMedia Layer

This library is free software; you can redistribute it and/or

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

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

*/

/* Initialization code for SDL */

#ifdef ENABLE_PTH

#include <pth.h>

#endif

#include "SDL.h"

#include "SDL_endian.h"

#include "SDL_fatal.h"

#ifndef DISABLE_VIDEO

#include "SDL_leaks.h"

#endif

/* Initialization/Cleanup routines */

#ifndef DISABLE_JOYSTICK

extern int SDL_JoystickInit(void);

extern void SDL_JoystickQuit(void);

#endif

#ifndef DISABLE_CDROM

extern int SDL_CDROMInit(void);

extern void SDL_CDROMQuit(void);

#endif

#ifndef DISABLE_TIMERS

extern void SDL_StartTicks(void);

extern int SDL_TimerInit(void);

extern void SDL_TimerQuit(void);

#endif

/* The current SDL version */

static SDL_version version =

{ SDL_MAJOR_VERSION, SDL_MINOR_VERSION, SDL_PATCHLEVEL };

/* The initialized subsystems */

static Uint32 SDL_initialized = 0;

static Uint32 ticks_started = 0;

#ifdef CHECK_LEAKS

int surfaces_allocated = 0;

#endif

int SDL_InitSubSystem(Uint32 flags)

{

#ifndef DISABLE_VIDEO

/* Initialize the video/event subsystem */

if ( (flags & SDL_INIT_VIDEO) && !(SDL_initialized & SDL_INIT_VIDEO) ) {

if ( SDL_VideoInit(getenv("SDL_VIDEODRIVER"),

(flags&SDL_INIT_EVENTTHREAD)) < 0 ) {

return(-1);

}

SDL_initialized |= SDL_INIT_VIDEO;

}

#else

if ( flags & SDL_INIT_VIDEO ) {

SDL_SetError("SDL not built with video support");

return(-1);

}

#endif

#ifndef DISABLE_AUDIO

/* Initialize the audio subsystem */

if ( (flags & SDL_INIT_AUDIO) && !(SDL_initialized & SDL_INIT_AUDIO) ) {

if ( SDL_AudioInit(getenv("SDL_AUDIODRIVER")) < 0 ) {

return(-1);

}

SDL_initialized |= SDL_INIT_AUDIO;

}

#else

if ( flags & SDL_INIT_AUDIO ) {

SDL_SetError("SDL not built with audio support");

return(-1);

}

#endif

#ifndef DISABLE_TIMERS

/* Initialize the timer subsystem */

if ( ! ticks_started ) {

SDL_StartTicks();

ticks_started = 1;

}

if ( (flags & SDL_INIT_TIMER) && !(SDL_initialized & SDL_INIT_TIMER) ) {

if ( SDL_TimerInit() < 0 ) {

return(-1);

}

SDL_initialized |= SDL_INIT_TIMER;

}

#else

if ( flags & SDL_INIT_TIMER ) {

SDL_SetError("SDL not built with timer support");

return(-1);

}

#endif

#ifndef DISABLE_JOYSTICK

/* Initialize the joystick subsystem */

if ( (flags & SDL_INIT_JOYSTICK) &&

!(SDL_initialized & SDL_INIT_JOYSTICK) ) {

if ( SDL_JoystickInit() < 0 ) {

return(-1);

}

SDL_initialized |= SDL_INIT_JOYSTICK;

}

#else

if ( flags & SDL_INIT_JOYSTICK ) {

SDL_SetError("SDL not built with joystick support");

return(-1);

}

#endif

#ifndef DISABLE_CDROM

/* Initialize the CD-ROM subsystem */

if ( (flags & SDL_INIT_CDROM) && !(SDL_initialized & SDL_INIT_CDROM) ) {

if ( SDL_CDROMInit() < 0 ) {

return(-1);

}

SDL_initialized |= SDL_INIT_CDROM;

}

#else

if ( flags & SDL_INIT_CDROM ) {

SDL_SetError("SDL not built with cdrom support");

return(-1);

}

#endif

return(0);

}

int SDL_Init(Uint32 flags)

{

#if !defined(DISABLE_THREADS) && defined(ENABLE_PTH)

if (!pth_init()) {

return -1;

}

#endif

/* Clear the error message */

SDL_ClearError();

/* Initialize the desired subsystems */

if ( SDL_InitSubSystem(flags) < 0 ) {

return(-1);

}

/* Everything is initialized */

if ( !(flags & SDL_INIT_NOPARACHUTE) ) {

SDL_InstallParachute();

}

return(0);

}

void SDL_QuitSubSystem(Uint32 flags)

{

/* Shut down requested initialized subsystems */

#ifndef DISABLE_CDROM

if ( (flags & SDL_initialized & SDL_INIT_CDROM) ) {

SDL_CDROMQuit();

SDL_initialized &= ~SDL_INIT_CDROM;

}

#endif

#ifndef DISABLE_JOYSTICK

if ( (flags & SDL_initialized & SDL_INIT_JOYSTICK) ) {

SDL_JoystickQuit();

SDL_initialized &= ~SDL_INIT_JOYSTICK;

}

#endif

#ifndef DISABLE_TIMERS

if ( (flags & SDL_initialized & SDL_INIT_TIMER) ) {

SDL_TimerQuit();

SDL_initialized &= ~SDL_INIT_TIMER;

}

#endif

#ifndef DISABLE_AUDIO

if ( (flags & SDL_initialized & SDL_INIT_AUDIO) ) {

SDL_AudioQuit();

SDL_initialized &= ~SDL_INIT_AUDIO;

}

#endif

#ifndef DISABLE_VIDEO

if ( (flags & SDL_initialized & SDL_INIT_VIDEO) ) {

SDL_VideoQuit();

SDL_initialized &= ~SDL_INIT_VIDEO;

}

#endif

}

Uint32 SDL_WasInit(Uint32 flags)

{

if ( ! flags ) {

flags = SDL_INIT_EVERYTHING;

}

return (SDL_initialized&flags);

}

void SDL_Quit(void)

{

/* Quit all subsystems */

#ifdef DEBUG_BUILD

printf("[SDL_Quit] : Enter! Calling QuitSubSystem()\n"); fflush(stdout);

#endif

SDL_QuitSubSystem(SDL_INIT_EVERYTHING);

#ifdef CHECK_LEAKS

#ifdef DEBUG_BUILD

printf("[SDL_Quit] : CHECK_LEAKS\n"); fflush(stdout);

#endif

/* Print the number of surfaces not freed */

if ( surfaces_allocated != 0 ) {

fprintf(stderr, "SDL Warning: %d SDL surfaces extant\n",

surfaces_allocated);

}

#endif

#ifdef DEBUG_BUILD

printf("[SDL_Quit] : SDL_UninstallParachute()\n"); fflush(stdout);

#endif

/* Uninstall any parachute signal handlers */

SDL_UninstallParachute();

#if !defined(DISABLE_THREADS) && defined(ENABLE_PTH)

pth_kill();

#endif

#ifdef DEBUG_BUILD

printf("[SDL_Quit] : Returning!\n"); fflush(stdout);

#endif

}

/* Return the library version number */

const SDL_version * SDL_Linked_Version(void)

{

return(&version);

}

// Building for OS/2

#ifdef __WATCOMC__

#define INCL_DOSERRORS

#define INCL_DOSEXCEPTIONS

#include <os2.h>

// Exception handler to prevent the Audio thread hanging, making a zombie process!

ULONG _System SDL_Main_ExceptionHandler(PEXCEPTIONREPORTRECORD pERepRec,

PEXCEPTIONREGISTRATIONRECORD pERegRec,

PCONTEXTRECORD pCtxRec,

PVOID p)

{

if (pERepRec->fHandlerFlags & EH_EXIT_UNWIND)

return XCPT_CONTINUE_SEARCH;

if (pERepRec->fHandlerFlags & EH_UNWINDING)

return XCPT_CONTINUE_SEARCH;

if (pERepRec->fHandlerFlags & EH_NESTED_CALL)

return XCPT_CONTINUE_SEARCH;

// Do cleanup at every fatal exception!

if (((pERepRec->ExceptionNum & XCPT_SEVERITY_CODE) == XCPT_FATAL_EXCEPTION) &&

(pERepRec->ExceptionNum != XCPT_BREAKPOINT) &&

(pERepRec->ExceptionNum != XCPT_SINGLE_STEP)

)

{

if (SDL_initialized & SDL_INIT_AUDIO)

{

// This removes the zombie audio thread in case of emergency.

#ifdef DEBUG_BUILD

printf("[SDL_Main_ExceptionHandler] : Calling SDL_CloseAudio()!\n");

#endif

SDL_CloseAudio();

}

}

return (XCPT_CONTINUE_SEARCH);

}

EXCEPTIONREGISTRATIONRECORD SDL_Main_xcpthand = {0, SDL_Main_ExceptionHandler};

// The main DLL entry for DLL Initialization and Uninitialization:

unsigned _System LibMain(unsigned hmod, unsigned termination)

{

if (termination)

{

#ifdef DEBUG_BUILD

// printf("[SDL DLL Unintialization] : Removing exception handler\n");

#endif

DosUnsetExceptionHandler(&SDL_Main_xcpthand);

return 1;

} else

{

#ifdef DEBUG_BUILD

// Make stdout and stderr unbuffered!

setbuf(stdout, NULL);

setbuf(stderr, NULL);

#endif

// Fire up exception handler

#ifdef DEBUG_BUILD

// printf("[SDL DLL Initialization] : Setting exception handler\n");

#endif

// Set exception handler

DosSetExceptionHandler(&SDL_Main_xcpthand);

return 1;

}

}

#elif defined(_WIN32)

#if !defined(HAVE_LIBC) || defined(_WIN32_WCE) || (defined(__WATCOMC__) && defined(BUILD_DLL))

/* Need to include DllMain() on Windows CE and Watcom C for some reason.. */

#include "SDL_windows.h"

BOOL APIENTRY _DllMainCRTStartup( HANDLE hModule,

DWORD ul_reason_for_call,

LPVOID lpReserved )

{

switch (ul_reason_for_call) {

case DLL_PROCESS_ATTACH:

case DLL_THREAD_ATTACH:

case DLL_THREAD_DETACH:

case DLL_PROCESS_DETACH:

break;

}

return TRUE;

}

#endif /* _WIN32_WCE and building DLL with Watcom C */

#endif /* OS/2 elif _WIN32 */