1. -- 
  2. -- Copyright (c) 2013 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. with Interfaces;                        use Interfaces; 
  10. with Interfaces.C;                      use Interfaces.C; 
  11.  
  12. -- Allegro 5.0.9 - Time routines 
  13. package Allegro.Time is 
  14.  
  15.     type Allegro_Timeout is private; 
  16.  
  17.     function Al_Get_Time return double; 
  18.     pragma Import( C, Al_Get_Time, "al_get_time" ); 
  19.  
  20.     function Al_Current_Time return double renames Al_Get_Time; 
  21.  
  22.     procedure Al_Init_Timeout( timeout : in out Allegro_Timeout; seconds : double ); 
  23.     pragma Import( C, Al_Init_Timeout, "al_init_timeout" ); 
  24.  
  25.     procedure Al_Rest( seconds : double ); 
  26.     pragma Import( C, Al_Rest, "al_rest" ); 
  27.  
  28. private 
  29.  
  30.     type Allegro_Timeout is 
  31.         record 
  32.             pad1 : Unsigned_64; 
  33.             pad2 : Unsigned_64; 
  34.         end record; 
  35.     pragma Convention( C, Allegro_Timeout ); 
  36.  
  37. end Allegro.Time;