Hello!
I've played with jhc and sdl binding a bit on osx.
Unfortunately it does not worked. The original example compiled, but exited
with exception. (it said the there is no autoreleasepool defined...)
After a little modification I've got correct haskell code, what fails with
gcc.
I've attached the source file.
Cheers,
Csaba
Here is the output:
*jhc -p SDL test.hs -o test --optc=-I/opt/local/include/SDL
--optc=-D_GNU_SOURCE=1 --optc=-D_THREAD_SAFE --optc=-L/opt/local/lib
--optc=-lSDLmain --optc=-lSDL --optc=-Wl,-framework,Cocoa*
*jhc 0.7.6 (0.7.6-3)*
*Finding Dependencies...*
*Using Ho Cache: '/Users/hruskacsaba/.jhc/cache'*
*Main [test.hs]
<~/.jhc/cache/sapvdjvngcil41e08abohho0f9.ho>*
*Fresh: <~/.jhc/cache/sapvdjvngcil41e08abohho0f9.ho>*
*Typechecking...*
*Compiling...*
*Collected Compilation...*
*-- typeAnalyzeMethods*
*-- BoxifyProgram*
*-- Boxy WorkWrap*
*-- LambdaLift*
*E*
*├─case: 696*
*├─case-alt: 1160*
*├─error: 10*
*├─lambda: 193*
*├─let-binding: 206*
*├─lit: 2336*
*├─other: 417*
*├─prim: 240*
*└─var-use: 1478*
*Converting to Grin...*
*Found 0 CAFs to convert to constants, 0 of which are recursive.*
*Recursive*
*
*
*Constant*
*
*
*CAFS*
*theMain$7 v-1341403669 (FtheMain$7)*
*theMain$6 v-1345597973 (FtheMain$6)*
*-- eval ni70382562 WHNF-[CJhc.Addr.Ptr]*
*-- eval ni240266248
WHNF-[CGraphics.UI.SDL.Events.SDLVideoResize,CGraphics.UI.SDL.Events.SDLSysWMEvent,CGraphics.UI.SDL.Events.SDLQuit,CGraphics.UI.SDL.Events.SDLJoyButtonUp,CGraphics.UI.SDL.Events.SDLJoyButtonDown,CGraphics.UI.SDL.Events.SDLJoyHatMotion,CGraphics.UI.SDL.Events.SDLJoyBallMotion,CGraphics.UI.SDL.Events.SDLJoyAxisMotion,CGraphics.UI.SDL.Events.SDLMouseButtonUp,CGraphics.UI.SDL.Events.SDLMouseButtonDown,CGraphics.UI.SDL.Events.SDLMouseMotion,CGraphics.UI.SDL.Events.SDLKeyUp,CGraphics.UI.SDL.Events.SDLKeyDown,CGraphics.UI.SDL.Events.SDLActiveEvent,CGraphics.UI.SDL.Events.SDLNoEvent,CGraphics.UI.SDL.Events.SDLUserEvent]
*
*-- eval ni230871714 WHNF-[CGraphics.UI.SDL.Keysym.Keysym]*
*-- eval ni66805364 WHNF-[CGraphics.UI.SDL.Keysym.Keysym]*
*-- eval ni735449157 WHNF-[P3_W@.fInstance@
.iForeign.Storable.peek.Graphics.UI.SDL.Events.Event$2,P3_W@.fInstance@
.iForeign.Storable.peek.Graphics.UI.SDL.Events.Event$3]*
*-- eval ni166760994 WHNF-[CInt#]*
*-- eval ni23258552 WHNF-[CJhc.Prim.[],CJhc.Prim.:]*
*-- eval ni49754508 WHNF-[CJhc.Maybe.Nothing,CJhc.Maybe.Just]*
*-- eval ni78697292 WHNF-[CWord32#]*
*-- eval ni174292042 WHNF-[CJhc.Maybe.Nothing,CJhc.Maybe.Just]*
*-- eval ni813569055 WHNF-[P2_Graphics.UI.SDL.Video.fillRect$2]*
*-- eval ni1055524921
WHNF-[P2_Foreign.C.String.withCString$2,P2_Foreign.Marshal.Utils.with$2,P2_Graphics.UI.SDL.Events.228_wait]
*
*-- eval ni2300728 WHNF-[CJhc.Addr.Ptr]*
*-- eval ni70310210 WHNF-[CJhc.Basics.(,)]*
*-- eval ni1503142939 WHNF-[?]*
*-- eval ni21331994 WHNF-[CJhc.Prim.[],CJhc.Prim.:]*
*-- eval ni15337342
WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]*
*-- eval ni110932008
WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]*
*-- eval ni106881404 WHNF-[CWord32#,CWord8#]*
*-- eval ni106881404 WHNF-[CWord32#,CWord8#]*
*-- eval ni1809191493 WHNF-[CWord32#,CWord8#]*
*-- eval ni1809191493 WHNF-[CWord32#,CWord8#]*
*-- eval ni10795820 WHNF-[CWord8#]*
*-- eval ni174120830
WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]*
*-- eval ni3774298
WHNF-[CGraphics.UI.SDL.Events.Focus#,CGraphics.UI.SDL.Keysym.Modifier#]*
*-- eval ni217071266
WHNF-[P2_Main.display$7,P2_Graphics.UI.SDL.Video.fillRect$4]*
*-- eval ni100884800
WHNF-[P2_theMain$5,P2_theMain$3,P2_theMain$4,P2_theMain$2]*
*-- eval ni185293000 WHNF-[CJhc.Addr.Ptr]*
*-- apply nd100122 WHNF-[P2_Graphics.UI.SDL.Video.fillRect$2]*
*(fMain.display$6,1) -> S*
*(fMain.display$4,0) -> S*
*(fGraphics.UI.SDL.General.failWithError$2,0) -> S*
*(fGraphics.UI.SDL.Video.fillRect,1) -> S*
*(fGraphics.UI.SDL.Video.fillRect,2) -> S*
*(fGraphics.UI.SDL.Video.fillRect$4,0) -> S*
*(fForeign.C.String.withCString,1) -> S*
*(fForeign.Marshal.Utils.with,1) -> S*
*(fForeign.Marshal.Alloc.alloca,0) -> S*
*(fForeign.Marshal.Alloc.alloca,1) -> S*
*(fW@.fForeign.Marshal.Alloc.allocaBytes,1) -> S*
*(fInstance@.iJhc.Show.show.default,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$9,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$9,1) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$6,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$5,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$4,1) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$4,2) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$2,0) -> S*
*(fInstance@.iGraphics.UI.SDL.Utilities.toEnum.Graphics.UI.SDL.Events.MouseButton,0)
-> S*
*(fGraphics.UI.SDL.Utilities.fromEnum,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromEnum,1) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$7,0) -> S*
*(fGraphics.UI.SDL.Utilities.fromBitmask$7,1) -> S*
*(fForeign.Marshal.Utils.with$2,0) -> S*
*(fW@.fInstance@.iForeign.Storable.pokeElemOff.default,0) -> S*
*(fW@.fInstance@.iForeign.Storable.pokeByteOff.default,0) -> S*
*(fForeign.Storable.poke,0) -> S*
*(fForeign.Storable.poke,1) -> S*
*(fForeign.C.String.withCString$2,0) -> S*
*(fW@.fGraphics.UI.SDL.Events.peekMouse,0) -> S*
*(bapply_36712,0) -> S*
*(bapply_36713,0) -> S*
*r34 -> S*
*r39 -> S*
*r40 -> S*
*r41 -> S*
*r42 -> S*
*r85 -> S*
*r86 -> S*
*r87 -> S*
*r88 -> S*
*r89 -> S*
*r123 -> S*
*r124 -> S*
*r125 -> S*
*r126 -> S*
*r131 -> S*
*r133 -> S*
*r136 -> S*
*r137 -> S*
*r138 -> S*
*r139 -> S*
*r140 -> S*
*Writing "test_code.c"*
*Running: gcc '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math
-Wextra -Wall -Wno-unused-parameter -o test test_code.c -DNDEBUG -O3
-I/opt/local/include/SDL '-D_GNU_SOURCE=1' -D_THREAD_SAFE -L/opt/local/lib
-lSDLmain -lSDL '-Wl,-framework,Cocoa'*
*test_code.c: In function ‘fForeign_C_String_withCString’:*
*test_code.c:4297: warning: initialization from incompatible pointer type*
*test_code.c: In function ‘fForeign_Marshal_Utils_with’:*
*test_code.c:4404: warning: initialization from incompatible pointer type*
*test_code.c:4409: warning: initialization from incompatible pointer type*
*test_code.c: In function ‘fGraphics_UI_SDL_Events_waitEventBlocking$d2’:*
*test_code.c:4571: warning: implicit declaration of function ‘SDL_WaitEvent’
*
*test_code.c: In function ‘fGraphics_UI_SDL_General_failWithError’:*
*test_code.c:4598: warning: implicit declaration of function ‘SDL_GetError’*
*test_code.c:4599: error: ‘v74’ undeclared (first use in this function)*
*test_code.c:4599: error: (Each undeclared identifier is reported only once*
*test_code.c:4599: error: for each function it appears in.)*
*test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect’:*
*test_code.c:5341: warning: initialization from incompatible pointer type*
*test_code.c:5345: warning: initialization from incompatible pointer type*
*test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect$d2’:*
*test_code.c:5360: warning: implicit declaration of function ‘SDL_FillRect’*
*test_code.c: In function ‘fGraphics_UI_SDL_Video_fillRect$d3’:*
*test_code.c:5370: warning: comparison between signed and unsigned*
*test_code.c: In function ‘fMain_display’:*
*test_code.c:5757: warning: implicit declaration of function
‘SDL_GetVideoSurface’*
*test_code.c:5764: warning: initialization from incompatible pointer type*
*test_code.c:5767: warning: assignment from incompatible pointer type*
*test_code.c:5781: warning: implicit declaration of function ‘SDL_MapRGB’*
*test_code.c:5784: warning: initialization from incompatible pointer type*
*test_code.c:5787: warning: initialization from incompatible pointer type*
*test_code.c:5813: warning: initialization from incompatible pointer type*
*test_code.c:5824: warning: implicit declaration of function ‘SDL_Flip’*
*test_code.c: In function ‘fMain_display$d7’:*
*test_code.c:5879: warning: implicit declaration of function ‘SDL_UpperBlit’
*
*test_code.c: In function ‘fMain_display$d8’:*
*test_code.c:5889: warning: comparison between signed and unsigned*
*test_code.c: In function
‘fW$__fInstance$__iForeign_Storable_pokeByteOff_default’:*
*test_code.c:7802: warning: initialization from incompatible pointer type*
*test_code.c: In function
‘fW$__fInstance$__iForeign_Storable_pokeElemOff_default’:*
*test_code.c:7818: warning: initialization from incompatible pointer type*
*test_code.c:7829: warning: initialization from incompatible pointer type*
*test_code.c:7840: warning: initialization from incompatible pointer type*
*test_code.c:7851: warning: initialization from incompatible pointer type*
*test_code.c: In function ‘ftheMain’:*
*test_code.c:8147: warning: implicit declaration of function
‘SDL_SetVideoMode’*
*test_code.c:8154: warning: initialization from incompatible pointer type*
*test_code.c:8157: warning: assignment from incompatible pointer type*
*test_code.c:8167: warning: statement with no effect*
*test_code.c:8170: warning: implicit declaration of function
‘SDL_EnableUNICODE’*
*test_code.c:8185: warning: implicit declaration of function
‘SDL_LoadBMP_RW’*
*test_code.c:8192: warning: initialization from incompatible pointer type*
*test_code.c:8195: warning: assignment from incompatible pointer type*
*test_code.c:8235: warning: statement with no effect*
*test_code.c:8240: warning: statement with no effect*
*test_code.c:8249: warning: statement with no effect*
*test_code.c:8254: warning: statement with no effect*
*test_code.c: In function ‘ftheMain$d2’:*
*test_code.c:8269: warning: implicit declaration of function
‘SDL_WM_SetCaption’*
*test_code.c: In function ‘ftheMain$d3’:*
*test_code.c:8282: warning: initialization from incompatible pointer type*
*test_code.c: In function ‘ftheMain$d4’:*
*test_code.c:8293: warning: implicit declaration of function
‘SDL_RWFromFile’*
*test_code.c: In function ‘ftheMain$d5’:*
*test_code.c:8317: warning: initialization from incompatible pointer type*
*jhc: user error (C code did not compile.)*
