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