package Allegro is
pragma Elaborate_Body;
type Allegro_Event_Source is limited private;
type A_Allegro_Event_Source is access all Allegro_Event_Source;
type Bool is private;
B_FALSE : constant Bool;
B_TRUE : constant Bool;
function To_Ada( b : Bool ) return Boolean;
subtype off_t is Long_Integer;
type time_t is mod 2 ** 32;
for time_t'Size use 32;
ALLEGRO_PI : constant := 3.14159265358979;
type Ada_Main_Procedure is access procedure;
procedure Set_Ada_Main( main : Ada_Main_Procedure );
private
ada_main : Ada_Main_Procedure;
type Bool is mod 2 ** 8;
for Bool'Size use 8;
B_FALSE : constant Bool := 0;
B_TRUE : constant Bool := 1;
type IntArray is array (Integer range <>) of Integer;
type Allegro_Event_Source is limited
record
pad : IntArray(0..31);
end record;
pragma Convention( C, Allegro_Event_Source );
end Allegro;