smkl changed the topic of #ocaml to: check logs from http://bespin.org/~nef/logs/ocaml/
Demitar has joined #ocaml
<Demitar> Anyone alive?
<kjs3> Bearly breathing...
<Demitar> I'm trying to extend the OCamlSDL module but am getting some compilation errors:
<Demitar> sdlevent_stub.c:557: `caml__frame' undeclared (first use in this function)
<Demitar> sdlevent_stub.c:557: (Each undeclared identifier is reported only once
<Demitar> sdlevent_stub.c:557: for each function it appears in.)
<Demitar> The code I'm using is (this might be misusing the interface in itself but that's a later problem):
<Demitar> value
<Demitar> sdlevent_get_key_events (void)
<Demitar> {/* Note: Should this perhaps accept an int (numevents)? */
<Demitar> SDL_Event events[30];
<Demitar> int stored_events, i;
<Demitar> CAMLlocal2(result, t);
<Demitar> stored_events = SDL_PeepEvents(events, 30, SDL_GETEVENT, SDL_KEYDOWN|SDL_KEYUP);
<Demitar> result = alloc(stored_events, 0);
<Demitar> for(i=0;i<stored_events;++i) {
<Demitar> /* Is this ok or do I need to allocate them all using CAMLlocaln() ? */
<Demitar> t = alloc(2, 0);
<Demitar> Store_field(t, 0, Val_int(find_key_index(events[i].key.keysym.sym)));
<Demitar> Store_field(t, 1, (events[i].key.state == SDL_PRESSED) ? Val_int(0) : Val_int(1));
<Demitar> Store_field(result, i, t);
<Demitar> }
<Demitar> CAMLreturn (result);
<Demitar> }
<Demitar> Any ideas?
<kjs3> Outside of my expertise...sorry.
<Demitar> Ok, thanks anyway.
tmcm has joined #ocaml
tmcm has quit [Client Quit]
kjs3 has quit [Read error: 110 (Connection timed out)]
kjs3 has joined #ocaml
kjs3 has quit [Read error: 110 (Connection timed out)]
<Demitar> Hmm... can I use the ocaml debugger to debug an C extension?
<Demitar> (Getting a segfault.)
<Demitar> Better question: How do I correctly allocate a list using the ocaml C interface.
<Demitar> Hmm... can I define a variable length array of tuples? (ie not list)
<Demitar> phew.. soon I've actually finished this...
<Demitar> Ok, a final note: The manual is mildly confusing on lists interfacing from C, had they just said the words 'linked list' it would have saved me a lot of trouble.
neptune has joined #ocaml
neptune has quit [Excess Flood]
Demitar has quit [Read error: 113 (No route to host)]
Yurik has joined #ocaml
smkl has quit [carter.openprojects.net irc.openprojects.net]
jao has quit [Read error: 104 (Connection reset by peer)]
smkl has joined #ocaml
jao has joined #ocaml
Dimka has joined #ocaml
platipus has joined #ocaml
<platipus> yo
<platipus> is this the official chat irc for ocaml ?
<platipus> df ?
Demitar has joined #ocaml
<jao> platipus: don't know if it's official, but it's the only ocaml channel i know
<Demitar> Oh, look! Someone is alive in here! ;-)
<Yurik> yeah :-)
<jao> ;-)
<Demitar> (Which means I can hopefully bug you with problems I run into. ;-)
* Demitar ponders why his OCamlSDL extensions don't work...
* jao , regrettably, does know nothing about OCamlSDL :(
<Demitar> Well the only thing I didn't like was how events were retrieved, and thus I added some additional accessors.
platipus_ has joined #ocaml
platipus has quit [Read error: 104 (Connection reset by peer)]
<Demitar> But someone seems to be eating my events...
<platipus_> i am emerging ocaml on my gentoo box
<platipus_> just wanted to see what kind of support it had
<Demitar> later all
Demitar has quit ["STAGE is a big maze with lots of corridors and traps, not understandable by mere mortals! (credits to Aglanor)"]
platipus__ has joined #ocaml
platipus_ has quit [Read error: 104 (Connection reset by peer)]
platipus__ has quit [Read error: 104 (Connection reset by peer)]
platipus__ has joined #ocaml
platipus__ has quit [Read error: 104 (Connection reset by peer)]
platipus__ has joined #ocaml
* graydon grumbles at autoconf
platipus__ has quit [Read error: 110 (Connection timed out)]
platipus__ has joined #ocaml
platipus__ has quit [Read error: 110 (Connection timed out)]
platipus__ has joined #ocaml
Dimka has left #ocaml []
Yurik_ has joined #ocaml
platipus_ has joined #ocaml
Yurik has quit [Read error: 113 (No route to host)]
platipus__ has quit [Read error: 110 (Connection timed out)]
owll has joined #ocaml
Yurik_ is now known as Yurik
<Yurik> owll: hi
platipus_ has quit [Read error: 104 (Connection reset by peer)]
platipus_ has joined #ocaml
platipus_ has quit [Read error: 104 (Connection reset by peer)]
platipus_ has joined #ocaml
Yurik has quit [carter.openprojects.net irc.openprojects.net]
smkl has quit [carter.openprojects.net irc.openprojects.net]
platipus_ has quit [carter.openprojects.net irc.openprojects.net]
skylan has quit [carter.openprojects.net irc.openprojects.net]
illume has quit [carter.openprojects.net irc.openprojects.net]
mellum has quit [carter.openprojects.net irc.openprojects.net]
scipient has quit [carter.openprojects.net irc.openprojects.net]
jao has quit [carter.openprojects.net irc.openprojects.net]
Taaus has quit [carter.openprojects.net irc.openprojects.net]
tav has quit [carter.openprojects.net irc.openprojects.net]
tav has joined #ocaml
clog has joined #ocaml
scipient has joined #ocaml
skylan has joined #ocaml
platipus_ has joined #ocaml
gene9 has joined #ocaml
jao has joined #ocaml
gene9 has quit [Client Quit]
Taaus has joined #ocaml
smkl has joined #ocaml
tav has joined #ocaml
platipus__ has joined #ocaml
platipus_ has quit [Read error: 104 (Connection reset by peer)]
tav has quit [Read error: 104 (Connection reset by peer)]
tav has joined #ocaml