c_main.c

   1 /* Workaround for SDL on OS X, based on the corresponding file in TimePiece-0.0.5
   2  *   http://hackage.haskell.org/package/TimePiece ,
   3  * placed in the public domin by by Audrey Tang <audreyt@audreyt.org>. */
   4 #include <stdio.h>
   5 #include "HsFFI.h"
   6
   7 #ifdef __APPLE__
   8 #include <objc/objc.h>
   9 #include <objc/objc-runtime.h>
  10 #endif
  11
  12 #include <SDL.h>
  13
  14 #ifdef __GLASGOW_HASKELL__
  15 #include "Main_stub.h"
  16 extern void __stginit_Main ( void );
  17 #endif
  18
  19 #ifdef main
  20 int SDL_main(int argc, char *argv[])
  21 #else
  22 int main(int argc, char *argv[])
  23 #endif
  24 {
  25     int i;
  26
  27 #ifdef __APPLE__
  28     void * pool =
  29       objc_msgSend(objc_lookUpClass("NSAutoreleasePool"), sel_getUid("alloc"));
  30     objc_msgSend(pool, sel_getUid("init"));
  31 #endif
  32
  33     hs_init(&argc, &argv);
  34 #ifdef __GLASGOW_HASKELL__
  35     hs_add_root(__stginit_Main);
  36 #endif
  37
  38     hs_MAIN();
  39
  40     hs_exit();
  41
  42 #ifdef __APPLE__
  43     objc_msgSend(pool, sel_getUid("release"));
  44 #endif
  45     return 0;
  46 }