geste_1.1.0_55da4926/examples/utils/sdl/sdl_sdl_error_h.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
pragma Ada_2005;
pragma Style_Checks (Off);

with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings;

package SDL_SDL_error_h is

   --  arg-macro: procedure SDL_OutOfMemory ()
   --    SDL_Error(SDL_ENOMEM)
   --  arg-macro: procedure SDL_Unsupported ()
   --    SDL_Error(SDL_UNSUPPORTED)
   procedure SDL_SetError (fmt : Interfaces.C.Strings.chars_ptr  -- , ...
      );  -- ../include/SDL/SDL_error.h:43
   pragma Import (C, SDL_SetError, "SDL_SetError");

   function SDL_GetError return Interfaces.C.Strings.chars_ptr;  -- ../include/SDL/SDL_error.h:44
   pragma Import (C, SDL_GetError, "SDL_GetError");

   procedure SDL_ClearError;  -- ../include/SDL/SDL_error.h:45
   pragma Import (C, SDL_ClearError, "SDL_ClearError");

   type SDL_errorcode is 
     (SDL_ENOMEM,
      SDL_EFREAD,
      SDL_EFWRITE,
      SDL_EFSEEK,
      SDL_UNSUPPORTED,
      SDL_LASTERROR);
   pragma Convention (C, SDL_errorcode);  -- ../include/SDL/SDL_error.h:62

   procedure SDL_Error (code : SDL_errorcode);  -- ../include/SDL/SDL_error.h:63
   pragma Import (C, SDL_Error, "SDL_Error");

end SDL_SDL_error_h;