/*
    SDL - Simple DirectMedia Layer
    Copyright (C) 1997-2006 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"

/* Initialization code for SDL */

#include "SDL.h"
#include "SDL_fatal.h"
#if !SDL_VIDEO_DISABLED
#include "video/SDL_leaks.h"
#endif

#if SDL_THREAD_PTH
#include <pth.h>
#endif

/* Initialization/Cleanup routines */
#if !SDL_JOYSTICK_DISABLED
extern int SDL_JoystickInit (void);
extern void SDL_JoystickQuit (void);
#endif
#if !SDL_CDROM_DISABLED
extern int SDL_CDROMInit (void);
extern void SDL_CDROMQuit (void);
#endif
#if !SDL_TIMERS_DISABLED
extern void SDL_StartTicks (void);
extern int SDL_TimerInit (void);
extern void SDL_TimerQuit (void);
#endif

/* 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)
{
#if !SDL_VIDEO_DISABLED
    /* Initialize the video/event subsystem */
    if ((flags & SDL_INIT_VIDEO) && !(SDL_initialized & SDL_INIT_VIDEO)) {
        if (SDL_VideoInit (SDL_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

#if !SDL_AUDIO_DISABLED
    /* Initialize the audio subsystem */
    if ((flags & SDL_INIT_AUDIO) && !(SDL_initialized & SDL_INIT_AUDIO)) {
        if (SDL_AudioInit (SDL_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

#if !SDL_TIMERS_DISABLED
    /* 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

#if !SDL_JOYSTICK_DISABLED
    /* 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

#if !SDL_CDROM_DISABLED
    /* 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 !SDL_THREADS_DISABLED && SDL_THREAD_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 */
#if !SDL_CDROM_DISABLED
    if ((flags & SDL_initialized & SDL_INIT_CDROM)) {
        SDL_CDROMQuit ();
        SDL_initialized &= ~SDL_INIT_CDROM;
    }
#endif
#if !SDL_JOYSTICK_DISABLED
    if ((flags & SDL_initialized & SDL_INIT_JOYSTICK)) {
        SDL_JoystickQuit ();
        SDL_initialized &= ~SDL_INIT_JOYSTICK;
    }
#endif
#if !SDL_TIMERS_DISABLED
    if ((flags & SDL_initialized & SDL_INIT_TIMER)) {
        SDL_TimerQuit ();
        SDL_initialized &= ~SDL_INIT_TIMER;
    }
#endif
#if !SDL_AUDIO_DISABLED
    if ((flags & SDL_initialized & SDL_INIT_AUDIO)) {
        SDL_AudioQuit ();
        SDL_initialized &= ~SDL_INIT_AUDIO;
    }
#endif
#if !SDL_VIDEO_DISABLED
    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 !SDL_THREADS_DISABLED && SDL_THREAD_PTH
    pth_kill ();
#endif
#ifdef DEBUG_BUILD
    printf ("[SDL_Quit] : Returning!\n");
    fflush (stdout);
#endif

}

/* Get the library version number */
void
SDL_GetVersion (SDL_version * ver)
{
    SDL_VERSION (ver);
}

#if defined(__OS2__)
/* 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;
    }
}
#endif /* __WATCOMC__ */

#elif defined(__WIN32__)

#if !defined(HAVE_LIBC) || (defined(__WATCOMC__) && defined(BUILD_DLL))
/* Need to include DllMain() on Watcom C for some reason.. */
#define WIN32_LEAN_AND_MEAN
#include <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 /* building DLL with Watcom C */

#endif /* OS/2 elif __WIN32__ */
/* vi: set ts=4 sw=4 expandtab: */