src/SDL.c

   1 /*
   2     SDL - Simple DirectMedia Layer
   3     Copyright (C) 1997-2006 Sam Lantinga
   4
   5     This library is free software; you can redistribute it and/or
   6     modify it under the terms of the GNU Lesser General Public
   7     License as published by the Free Software Foundation; either
   8     version 2.1 of the License, or (at your option) any later version.
   9
  10     This library is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13     Lesser General Public License for more details.
  14
  15     You should have received a copy of the GNU Lesser General Public
  16     License along with this library; if not, write to the Free Software
  17     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18
  19     Sam Lantinga
  20     slouken@libsdl.org
  21 */
  22 #include "SDL_config.h"
  23
  24 /* Initialization code for SDL */
  25
  26 #include "SDL.h"
  27 #include "SDL_fatal.h"
  28 #if !SDL_VIDEO_DISABLED
  29 #include "video/SDL_leaks.h"
  30 #endif
  31
  32 #if SDL_THREAD_PTH
  33 #include <pth.h>
  34 #endif
  35
  36 /* Initialization/Cleanup routines */
  37 #if !SDL_JOYSTICK_DISABLED
  38 extern int  SDL_JoystickInit(void);
  39 extern void SDL_JoystickQuit(void);
  40 #endif
  41 #if !SDL_CDROM_DISABLED
  42 extern int  SDL_CDROMInit(void);
  43 extern void SDL_CDROMQuit(void);
  44 #endif
  45 #if !SDL_TIMERS_DISABLED
  46 extern void SDL_StartTicks(void);
  47 extern int  SDL_TimerInit(void);
  48 extern void SDL_TimerQuit(void);
  49 #endif
  50
  51 /* The current SDL version */
  52 static SDL_version version =
  53         { SDL_MAJOR_VERSION, SDL_MINOR_VERSION, SDL_PATCHLEVEL };
  54
  55 /* The initialized subsystems */
  56 static Uint32 SDL_initialized = 0;
  57 #if !SDL_TIMERS_DISABLED
  58 static Uint32 ticks_started = 0;
  59 #endif
  60
  61 #ifdef CHECK_LEAKS
  62 int surfaces_allocated = 0;
  63 #endif
  64
  65 int SDL_InitSubSystem(Uint32 flags)
  66 {
  67 #if !SDL_VIDEO_DISABLED
  68         /* Initialize the video/event subsystem */
  69         if ( (flags & SDL_INIT_VIDEO) && !(SDL_initialized & SDL_INIT_VIDEO) ) {
  70                 if ( SDL_VideoInit(SDL_getenv("SDL_VIDEODRIVER"),
  71                                    (flags&SDL_INIT_EVENTTHREAD)) < 0 ) {
  72                         return(-1);
  73                 }
  74                 SDL_initialized |= SDL_INIT_VIDEO;
  75         }
  76 #else
  77         if ( flags & SDL_INIT_VIDEO ) {
  78                 SDL_SetError("SDL not built with video support");
  79                 return(-1);
  80         }
  81 #endif
  82
  83 #if !SDL_AUDIO_DISABLED
  84         /* Initialize the audio subsystem */
  85         if ( (flags & SDL_INIT_AUDIO) && !(SDL_initialized & SDL_INIT_AUDIO) ) {
  86                 if ( SDL_AudioInit(SDL_getenv("SDL_AUDIODRIVER")) < 0 ) {
  87                         return(-1);
  88                 }
  89                 SDL_initialized |= SDL_INIT_AUDIO;
  90         }
  91 #else
  92         if ( flags & SDL_INIT_AUDIO ) {
  93                 SDL_SetError("SDL not built with audio support");
  94                 return(-1);
  95         }
  96 #endif
  97
  98 #if !SDL_TIMERS_DISABLED
  99         /* Initialize the timer subsystem */
 100         if ( ! ticks_started ) {
 101                 SDL_StartTicks();
 102                 ticks_started = 1;
 103         }
 104         if ( (flags & SDL_INIT_TIMER) && !(SDL_initialized & SDL_INIT_TIMER) ) {
 105                 if ( SDL_TimerInit() < 0 ) {
 106                         return(-1);
 107                 }
 108                 SDL_initialized |= SDL_INIT_TIMER;
 109         }
 110 #else
 111         if ( flags & SDL_INIT_TIMER ) {
 112                 SDL_SetError("SDL not built with timer support");
 113                 return(-1);
 114         }
 115 #endif
 116
 117 #if !SDL_JOYSTICK_DISABLED
 118         /* Initialize the joystick subsystem */
 119         if ( (flags & SDL_INIT_JOYSTICK) &&
 120              !(SDL_initialized & SDL_INIT_JOYSTICK) ) {
 121                 if ( SDL_JoystickInit() < 0 ) {
 122                         return(-1);
 123                 }
 124                 SDL_initialized |= SDL_INIT_JOYSTICK;
 125         }
 126 #else
 127         if ( flags & SDL_INIT_JOYSTICK ) {
 128                 SDL_SetError("SDL not built with joystick support");
 129                 return(-1);
 130         }
 131 #endif
 132
 133 #if !SDL_CDROM_DISABLED
 134         /* Initialize the CD-ROM subsystem */
 135         if ( (flags & SDL_INIT_CDROM) && !(SDL_initialized & SDL_INIT_CDROM) ) {
 136                 if ( SDL_CDROMInit() < 0 ) {
 137                         return(-1);
 138                 }
 139                 SDL_initialized |= SDL_INIT_CDROM;
 140         }
 141 #else
 142         if ( flags & SDL_INIT_CDROM ) {
 143                 SDL_SetError("SDL not built with cdrom support");
 144                 return(-1);
 145         }
 146 #endif
 147         return(0);
 148 }
 149
 150 int SDL_Init(Uint32 flags)
 151 {
 152 #if !SDL_THREADS_DISABLED && SDL_THREAD_PTH
 153         if (!pth_init()) {
 154                 return -1;
 155         }
 156 #endif
 157
 158         /* Clear the error message */
 159         SDL_ClearError();
 160
 161         /* Initialize the desired subsystems */
 162         if ( SDL_InitSubSystem(flags) < 0 ) {
 163                 return(-1);
 164         }
 165
 166         /* Everything is initialized */
 167         if ( !(flags & SDL_INIT_NOPARACHUTE) ) {
 168                 SDL_InstallParachute();
 169         }
 170         return(0);
 171 }
 172
 173 void SDL_QuitSubSystem(Uint32 flags)
 174 {
 175         /* Shut down requested initialized subsystems */
 176 #if !SDL_CDROM_DISABLED
 177         if ( (flags & SDL_initialized & SDL_INIT_CDROM) ) {
 178                 SDL_CDROMQuit();
 179                 SDL_initialized &= ~SDL_INIT_CDROM;
 180         }
 181 #endif
 182 #if !SDL_JOYSTICK_DISABLED
 183         if ( (flags & SDL_initialized & SDL_INIT_JOYSTICK) ) {
 184                 SDL_JoystickQuit();
 185                 SDL_initialized &= ~SDL_INIT_JOYSTICK;
 186         }
 187 #endif
 188 #if !SDL_TIMERS_DISABLED
 189         if ( (flags & SDL_initialized & SDL_INIT_TIMER) ) {
 190                 SDL_TimerQuit();
 191                 SDL_initialized &= ~SDL_INIT_TIMER;
 192         }
 193 #endif
 194 #if !SDL_AUDIO_DISABLED
 195         if ( (flags & SDL_initialized & SDL_INIT_AUDIO) ) {
 196                 SDL_AudioQuit();
 197                 SDL_initialized &= ~SDL_INIT_AUDIO;
 198         }
 199 #endif
 200 #if !SDL_VIDEO_DISABLED
 201         if ( (flags & SDL_initialized & SDL_INIT_VIDEO) ) {
 202                 SDL_VideoQuit();
 203                 SDL_initialized &= ~SDL_INIT_VIDEO;
 204         }
 205 #endif
 206 }
 207
 208 Uint32 SDL_WasInit(Uint32 flags)
 209 {
 210         if ( ! flags ) {
 211                 flags = SDL_INIT_EVERYTHING;
 212         }
 213         return (SDL_initialized&flags);
 214 }
 215
 216 void SDL_Quit(void)
 217 {
 218         /* Quit all subsystems */
 219 #ifdef DEBUG_BUILD
 220   printf("[SDL_Quit] : Enter! Calling QuitSubSystem()\n"); fflush(stdout);
 221 #endif
 222         SDL_QuitSubSystem(SDL_INIT_EVERYTHING);
 223
 224 #ifdef CHECK_LEAKS
 225 #ifdef DEBUG_BUILD
 226   printf("[SDL_Quit] : CHECK_LEAKS\n"); fflush(stdout);
 227 #endif
 228
 229         /* Print the number of surfaces not freed */
 230         if ( surfaces_allocated != 0 ) {
 231                 fprintf(stderr, "SDL Warning: %d SDL surfaces extant\n",
 232                                                         surfaces_allocated);
 233         }
 234 #endif
 235 #ifdef DEBUG_BUILD
 236   printf("[SDL_Quit] : SDL_UninstallParachute()\n"); fflush(stdout);
 237 #endif
 238
 239         /* Uninstall any parachute signal handlers */
 240         SDL_UninstallParachute();
 241
 242 #if !SDL_THREADS_DISABLED && SDL_THREAD_PTH
 243         pth_kill();
 244 #endif
 245 #ifdef DEBUG_BUILD
 246   printf("[SDL_Quit] : Returning!\n"); fflush(stdout);
 247 #endif
 248
 249 }
 250
 251 /* Return the library version number */
 252 const SDL_version * SDL_Linked_Version(void)
 253 {
 254         return(&version);
 255 }
 256
 257 #if defined(__OS2__)
 258 /* Building for OS/2 */
 259 #ifdef __WATCOMC__
 260
 261 #define INCL_DOSERRORS
 262 #define INCL_DOSEXCEPTIONS
 263 #include <os2.h>
 264
 265 /* Exception handler to prevent the Audio thread hanging, making a zombie process! */
 266 ULONG _System SDL_Main_ExceptionHandler(PEXCEPTIONREPORTRECORD pERepRec,
 267                                         PEXCEPTIONREGISTRATIONRECORD pERegRec,
 268                                         PCONTEXTRECORD pCtxRec,
 269                                         PVOID p)
 270 {
 271   if (pERepRec->fHandlerFlags & EH_EXIT_UNWIND)
 272     return XCPT_CONTINUE_SEARCH;
 273   if (pERepRec->fHandlerFlags & EH_UNWINDING)
 274     return XCPT_CONTINUE_SEARCH;
 275   if (pERepRec->fHandlerFlags & EH_NESTED_CALL)
 276     return XCPT_CONTINUE_SEARCH;
 277
 278   /* Do cleanup at every fatal exception! */
 279   if (((pERepRec->ExceptionNum & XCPT_SEVERITY_CODE) == XCPT_FATAL_EXCEPTION) &&
 280       (pERepRec->ExceptionNum != XCPT_BREAKPOINT) &&
 281       (pERepRec->ExceptionNum != XCPT_SINGLE_STEP)
 282      )
 283   {
 284     if (SDL_initialized & SDL_INIT_AUDIO)
 285     {
 286       /* This removes the zombie audio thread in case of emergency. */
 287 #ifdef DEBUG_BUILD
 288       printf("[SDL_Main_ExceptionHandler] : Calling SDL_CloseAudio()!\n");
 289 #endif
 290       SDL_CloseAudio();
 291     }
 292   }
 293   return (XCPT_CONTINUE_SEARCH);
 294 }
 295
 296
 297 EXCEPTIONREGISTRATIONRECORD SDL_Main_xcpthand = {0, SDL_Main_ExceptionHandler};
 298
 299 /* The main DLL entry for DLL Initialization and Uninitialization: */
 300 unsigned _System LibMain(unsigned hmod, unsigned termination)
 301 {
 302   if (termination)
 303   {
 304 #ifdef DEBUG_BUILD
 305 /*    printf("[SDL DLL Unintialization] : Removing exception handler\n"); */
 306 #endif
 307     DosUnsetExceptionHandler(&SDL_Main_xcpthand);
 308     return 1;
 309   } else
 310   {
 311 #ifdef DEBUG_BUILD
 312     /* Make stdout and stderr unbuffered! */
 313     setbuf(stdout, NULL);
 314     setbuf(stderr, NULL);
 315 #endif
 316     /* Fire up exception handler */
 317 #ifdef DEBUG_BUILD
 318 /*    printf("[SDL DLL Initialization] : Setting exception handler\n"); */
 319 #endif
 320     /* Set exception handler */
 321     DosSetExceptionHandler(&SDL_Main_xcpthand);
 322
 323     return 1;
 324   }
 325 }
 326 #endif /* __WATCOMC__ */
 327
 328 #elif defined(__WIN32__)  && !defined(__SYMBIAN32__)
 329
 330 #if !defined(HAVE_LIBC) || (defined(__WATCOMC__) && defined(BUILD_DLL))
 331 /* Need to include DllMain() on Watcom C for some reason.. */
 332 #define WIN32_LEAN_AND_MEAN
 333 #include <windows.h>
 334
 335 BOOL APIENTRY _DllMainCRTStartup( HANDLE hModule,
 336                        DWORD  ul_reason_for_call,
 337                        LPVOID lpReserved )
 338 {
 339         switch (ul_reason_for_call) {
 340                 case DLL_PROCESS_ATTACH:
 341                 case DLL_THREAD_ATTACH:
 342                 case DLL_THREAD_DETACH:
 343                 case DLL_PROCESS_DETACH:
 344                         break;
 345         }
 346         return TRUE;
 347 }
 348 #endif /* building DLL with Watcom C */
 349
 350 #endif /* OS/2 elif __WIN32__ */