1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
/*
A C wrapper to get proper SDL initialisation on mac. From MACOSX in the
SDL haskell package:
SDL uses Objective-C and Cocoa to open a UI window; this means that
Cocoa must be initialized, and in particular, an NSAutoReleasePool be in
place. This initialization is done in libSDLmain. For
C/C++/Objective-C programs, libSDLmain #defines the developer's main to
be SDL_main and piggy backs SDL_main onto it's own Cocoa main, using the
C preprocessor and abusing the linker. Of course, this technique will
never work for Haskell: there is no clean entry point to a Haskell
runtime in this fashion.
...
MainWrapper.hs imports Main.hs and foreign-exports main as haskell_main.
mainc.c includes SDL.h and contains a main function to make the
preprocessor magic of SDL happen; it also initializes the GHC runtime
system and calls haskell_main. Some makefile rules link our objects with
the GHC RTS and SDL.
See also
http://www.haskell.org/ghc/docs/latest/html/users_guide/ffi-ghc.html#using-own-main
*/
#include <SDL.h>
#include <HsFFI.h>
#ifdef __GLASGOW_HASKELL__
#include "MainWrapper_stub.h"
#endif
#ifdef __GLASGOW_HASKELL__
extern void __stginit_MainWrapper (void);
#endif
int main(int argc, char *argv[])
{
hs_init(&argc, &argv);
#ifdef __GLASGOW_HASKELL__
hs_add_root(__stginit_MainWrapper);
#endif
haskell_main();
hs_exit();
return 0;
}
|
