1pragma Ada_2005; 2pragma Style_Checks (Off); 3 4with Interfaces.C; use Interfaces.C; 5with SDL_SDL_stdinc_h; 6with SDL_SDL_video_h; 7with System; 8 9package SDL_SDL_mouse_h is 10 11 -- arg-macro: function SDL_BUTTON (X) 12 -- return 2 ** ((X)-1); 13 14 SDL_BUTTON_LEFT : constant := 1; -- ../include/SDL/SDL_mouse.h:123 15 SDL_BUTTON_MIDDLE : constant := 2; -- ../include/SDL/SDL_mouse.h:124 16 SDL_BUTTON_RIGHT : constant := 3; -- ../include/SDL/SDL_mouse.h:125 17 SDL_BUTTON_WHEELUP : constant := 4; -- ../include/SDL/SDL_mouse.h:126 18 SDL_BUTTON_WHEELDOWN : constant := 5; -- ../include/SDL/SDL_mouse.h:127 19 SDL_BUTTON_X1 : constant := 6; -- ../include/SDL/SDL_mouse.h:128 20 SDL_BUTTON_X2 : constant := 7; -- ../include/SDL/SDL_mouse.h:129 21 -- unsupported macro: SDL_BUTTON_LMASK SDL_BUTTON(SDL_BUTTON_LEFT) 22 -- unsupported macro: SDL_BUTTON_MMASK SDL_BUTTON(SDL_BUTTON_MIDDLE) 23 -- unsupported macro: SDL_BUTTON_RMASK SDL_BUTTON(SDL_BUTTON_RIGHT) 24 -- unsupported macro: SDL_BUTTON_X1MASK SDL_BUTTON(SDL_BUTTON_X1) 25 -- unsupported macro: SDL_BUTTON_X2MASK SDL_BUTTON(SDL_BUTTON_X2) 26 27 -- skipped empty struct WMcursor 28 29 type SDL_Cursor_save_array is array (0 .. 1) of access SDL_SDL_stdinc_h.Uint8; 30 type SDL_Cursor is record 31 area : aliased SDL_SDL_video_h.SDL_Rect; -- ../include/SDL/SDL_mouse.h:42 32 hot_x : aliased SDL_SDL_stdinc_h.Sint16; -- ../include/SDL/SDL_mouse.h:43 33 hot_y : aliased SDL_SDL_stdinc_h.Sint16; -- ../include/SDL/SDL_mouse.h:43 34 data : access SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_mouse.h:44 35 mask : access SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_mouse.h:45 36 save : aliased SDL_Cursor_save_array; -- ../include/SDL/SDL_mouse.h:46 37 wm_cursor : System.Address; -- ../include/SDL/SDL_mouse.h:47 38 end record; 39 pragma Convention (C_Pass_By_Copy, SDL_Cursor); -- ../include/SDL/SDL_mouse.h:41 40 41 function SDL_GetMouseState (x : access int; y : access int) return SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_mouse.h:57 42 pragma Import (C, SDL_GetMouseState, "SDL_GetMouseState"); 43 44 function SDL_GetRelativeMouseState (x : access int; y : access int) return SDL_SDL_stdinc_h.Uint8; -- ../include/SDL/SDL_mouse.h:65 45 pragma Import (C, SDL_GetRelativeMouseState, "SDL_GetRelativeMouseState"); 46 47 procedure SDL_WarpMouse (x : SDL_SDL_stdinc_h.Uint16; y : SDL_SDL_stdinc_h.Uint16); -- ../include/SDL/SDL_mouse.h:70 48 pragma Import (C, SDL_WarpMouse, "SDL_WarpMouse"); 49 50 function SDL_CreateCursor 51 (data : access SDL_SDL_stdinc_h.Uint8; 52 mask : access SDL_SDL_stdinc_h.Uint8; 53 w : int; 54 h : int; 55 hot_x : int; 56 hot_y : int) return access SDL_Cursor; -- ../include/SDL/SDL_mouse.h:85 57 pragma Import (C, SDL_CreateCursor, "SDL_CreateCursor"); 58 59 procedure SDL_SetCursor (cursor : access SDL_Cursor); -- ../include/SDL/SDL_mouse.h:93 60 pragma Import (C, SDL_SetCursor, "SDL_SetCursor"); 61 62 function SDL_GetCursor return access SDL_Cursor; -- ../include/SDL/SDL_mouse.h:98 63 pragma Import (C, SDL_GetCursor, "SDL_GetCursor"); 64 65 procedure SDL_FreeCursor (cursor : access SDL_Cursor); -- ../include/SDL/SDL_mouse.h:103 66 pragma Import (C, SDL_FreeCursor, "SDL_FreeCursor"); 67 68 function SDL_ShowCursor (toggle : int) return int; -- ../include/SDL/SDL_mouse.h:112 69 pragma Import (C, SDL_ShowCursor, "SDL_ShowCursor"); 70 71end SDL_SDL_mouse_h; 72