package Allegro is
type Allegro_Event_Source is limited private;
type A_Allegro_Event_Source is access all Allegro_Event_Source;
type Bool is private;
subtype off_t is Long_Integer;
type time_t is mod 2 ** 32;
type Ada_Main_Procedure is access procedure;
B_FALSE : constant Bool;
B_TRUE : constant Bool;
ALLEGRO_PI : constant := 3.14159265358979;
function To_Ada
procedure Set_Ada_Main