1. with System;                            use System; 
  2.  
  3. package Engine is 
  4.  
  5.     -- The engine's main procedure for running the application. This is exported 
  6.     -- to the C runtime to be called by the executable's actual main procedure 
  7.     -- after Allegro initialization and Ada elaboration. 
  8.     function Engine_Main( argc : Integer; argv : Address ) return Integer; 
  9.  
  10. private 
  11.  
  12.     pragma Export( C, Engine_Main, "engine_main" ); 
  13.  
  14. end Engine;