OpenEuphoria

1. SDL, keyboard and event handling

• Posted by ChrisB (moderator) Nov 01, 2022
• 1016 views

Hi

Using Andy's SDL2 lib

Pointers drive me insane!

to check the keyboard to see if ESC is pressed

atom key = 0 
integer scanning = 1, scancode 
 
while scanning = 1 do 
	SDL_PumpEvents() 
	key = SDL_GetKeyboardState(key) 
	 
	if peek(key+SDL_SCANCODE_ESCAPE) > 0 then 
		scanning = 0 
	end if 
end while 
 
return scancode 
 

to check the keyboard for any key pressed

atom key = 0, ev_type = 0 
integer scanning = 1, scancode 
 
while scanning = 1 do 
	 
	SDL_PumpEvents() 
	 
	key = SDL_GetKeyboardState(key) 
	 
	--if peek(key+SDL_SCANCODE_ESCAPE) > 0 then 
	--	scanning = 0 
	--end if 
 
    for i = 4 to 99 do 
        if peek(key + i) > 0 then 
            scanning = 0   
            scancode = i 
        end if 
    end for 
 
end while 
 
return scancode 
 

These work, and do the job.

But, to check the keyboard for an event, like keydown, or indeed other event types

atom ev = 0, ev_type = 0 
 
printf(1, "M_wait_key\n", {}) 
 
while SDL_WaitEvent(ev) do 
        if ev > 0 then 
            ev_type = peek(ev) 
            printf(1, "%d, %d\n", {ev, ev_type}) 
            if wait_key() then end if 
            if ev_type = SDL_KEYDOWN then return 1 end if 
         end if 
end while     
 
return 0 
 
while 1 do 
    if SDL_PollEvent(ev) then 
        if ev > 0 then 
            ev_type = peek(ev) 
            printf(1, "%d, %d\n", {ev, ev_type}) 
            if ev_type = SDL_KEYDOWN then return 1 end if 
         end if 
    end if 
end while 
 
return 0 
 

Neither of these work

My thinking went like this

--Uses pointers and members addressing 
--SDL_PollEvent to get the next event from the event queue  
--to put in a test_event structure, 
--the first member of which will be the event type  
--all events have different structures (with members specific to the structure) 
--but for this function only need the first member. 
--see SDL_KEYBOARD event 
--Uint32 type the event type; SDL_KEYDOWN or SDL_KEYUP 
 

Any pointers (sorry) in the right direction would be greatly appreciated.

Cheers Chris

Update : just remembering this has kind of already been addressed, but reading the docs, pollevent places the next event structure from the event queue into an event structure (which doesn't look like a union), so we should be able to get the event type, the first member, from that structure.

Cheers

Chris

3. Re: SDL, keyboard and event handling

• Posted by petelomax Nov 01, 2022
• 995 views

return scancode 

I'd expect that to die with "variable scancode has not been assigned a value"

atom ev = 0 

I'd expect that to stay 0 forever

5. Re: SDL, keyboard and event handling

• Posted by Icy_Viking Nov 01, 2022
• 975 views

I actually have re-written my SDL 2 wrapper with Greg's FFI library. It does need some tweaking here and there and some fine-tuning, but it works for the most part. I'll try to get it on github later today. The code-base is more organized and its easier to read through the code.

7. Re: SDL, keyboard and event handling

• Posted by ChrisB (moderator) Nov 01, 2022
• 971 views

include std/ffi.e 
include std/math.e 
 
constant SDL_CommonEvent = define_c_type({ 
    C_UINT32, -- type 
    C_UINT32  -- timestamp 
}) 
 
constant SDL_DisplayEvent = define_c_type({ 
    C_UINT32, -- type 
    C_UINT32, -- timestamp 
    C_UINT32, -- display 
    C_UINT8,  -- event 
    C_UINT8,  -- padding1 
    C_UINT8,  -- padding2 
    C_UINT8,  -- padding3 
    C_INT32   -- data1 
}) 
 
constant SDL_WindowEvent = define_c_type({ 
    C_UINT32, -- type 
    C_UINT32, -- timestamp 
    C_UINT32, -- windowID 
    C_UINT8,  -- event 
    C_UINT8,  -- padding1 
    C_UINT8,  -- padding2 
    C_UINT8,  -- padding3 
    C_INT32,  -- data1 
    C_INT32   -- data2 
}) 
 
constant SDL_Keysym = define_c_type({ 
    C_INT,    -- scancode 
    C_INT,    -- sym 
    C_UINT16, -- mod 
    C_UINT32  -- unused 
}) 
 
constant SDL_KeyboardEvent = define_c_type({ 
    C_UINT32,  -- type 
    C_UINT32,  -- timestamp 
    C_UINT32,  -- windowID 
    C_UINT8,   -- state 
    C_UINT8,   -- repeat 
    C_UINT8,   -- padding2 
    C_UINT8,   -- padding3 
    SDL_Keysym -- keysym 
}) 
 
 
-- allocate enough memory to hold the largest member of SDL_Event union 
 
constant SIZEOF_SDL_EVENT = math:max({ 
    sizeof(C_UINT32),          -- type 
    sizeof(SDL_CommonEvent),   -- common 
    sizeof(SDL_DisplayEvent),  -- display 
    sizeof(SDL_WindowEvent),   -- window 
    sizeof(SDL_KeyboardEvent), -- key 
    -- etc. 
}) 
 
atom event = allocate_data( SIZEOF_SDL_EVENT ) 
 
while SDL_WaitEvent( event ) do -- SDL_WaitEvent() fills our memory with the event it found and returns 1 (or 0 on error) 
 
    atom etype = peek_type( event, C_UINT32 ) 
 
    switch etype do 
 
        case SDL_DISPLAYEVENT then 
            sequence display_event = peek_struct( event, SDL_DisplayEvent ) 
 
        case SDL_WINDOWEVENT then 
            sequence window_event = peek_struct( event, SDL_WindowEvent ) 
 
        case SDL_KEYDOWN, SDL_KEYUP then 
            sequence key_event = peek_struct( event, SDL_KeyboardEvent ) 
 
        -- etc. 
 
    end switch 
 
end while 
 
free( event ) 

Hmm, I wonder if I'm doing the wrong sort of peek

atom event = allocate_data( SIZEOF_SDL_EVENT )  
  
while SDL_WaitEvent( event ) do -- SDL_WaitEvent() fills our memory with the event it found and returns 1 (or 0 on error)  
  
    atom etype = peek_type( event, C_UINT32 )  
  
    switch etype do  
  

After all, as far as I can tell, event is structure, not a union.

Cheers

Chris

9. Re: SDL, keyboard and event handling

• Posted by ChrisB (moderator) Nov 01, 2022
• 958 views

Hi

Yes, but it's a union I can access now, thanks to you pointing me in the right direction with the peek type.

All I need is the event type for a 'press any key function' doing it this way

"The SDL_Event structure is the core of all event handling in SDL. SDL_Event is a union of all event structures used in SDL."

So make an event memory area big enough to hold the event union, and treat the bit I'm interested in like a structure - the last element of the SDL_Event structure is another structure, which is wher it becomes a union. (Probably teaching Granny to suck eggs at this point, but I've always had a conceptual difficulty grasping this)

atom ev_type = 0, ev 
 
ev = allocate(1024) 
while SDL_WaitEvent(ev) do 
    ev_type = peek4u(ev) 
        if ev > 0 then 
            ev_type = peek4u(ev)     4 byte unsigned int (C_UINT32) 
            printf(1, "%d, %d, %d\n", {ev, SDL_KEYDOWN, ev_type}) --lets see what it's spewing out 
            --if wait_key() then end if       --console 
            if ev_type = SDL_KEYDOWN then exit end if  -- comment this out to see all the spew 
        end if 
end while     
 
free(ev)  --should probably free it too 
return ev_type 
 

It was the allocate memory bit that I was missing. Now just need to trim and adapt the output for use. I appreciate that ffi, and cffi/c-struct should be easier to do this too.

Many thanks Chris