1. -- 
  2. -- Copyright (c) 2012 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 Hashed_Strings;                    use Hashed_Strings; 
  10.  
  11. package Engine_Debugging is 
  12.  
  13.     type Hashed_String_Array is array (Positive range <>) of Hashed_String; 
  14.  
  15.     Systems : constant Hashed_String_Array := ( 
  16.         To_Hashed_String( "audio" ), 
  17.         To_Hashed_String( "entities" ), 
  18.         To_Hashed_String( "eval" ), 
  19.         To_Hashed_String( "events" ), 
  20.         To_Hashed_String( "game" ), 
  21.         To_Hashed_String( "gui" ), 
  22.         To_Hashed_String( "init" ), 
  23.         To_Hashed_String( "input" ), 
  24.         To_Hashed_String( "physics" ), 
  25.         To_Hashed_String( "prefs" ), 
  26.         To_Hashed_String( "procs" ), 
  27.         To_Hashed_String( "res" ), 
  28.         To_Hashed_String( "tiles" ), 
  29.         To_Hashed_String( "view" ), 
  30.         To_Hashed_String( "mem" ) 
  31.     ); 
  32.  
  33.     D_AUDIO    : constant Hashed_String := Systems(1); 
  34.     D_ENTITIES : constant Hashed_String := Systems(2); 
  35.     D_EVAL     : constant Hashed_String := Systems(3); 
  36.     D_EVENTS   : constant Hashed_String := Systems(4); 
  37.     D_GAME     : constant Hashed_String := Systems(5); 
  38.     D_GUI      : constant Hashed_String := Systems(6); 
  39.     D_INIT     : constant Hashed_String := Systems(7); 
  40.     D_INPUT    : constant Hashed_String := Systems(8); 
  41.     D_PHYSICS  : constant Hashed_String := Systems(9); 
  42.     D_PREFS    : constant Hashed_String := Systems(10); 
  43.     D_PROCS    : constant Hashed_String := Systems(11); 
  44.     D_RES      : constant Hashed_String := Systems(12); 
  45.     D_TILES    : constant Hashed_String := Systems(13); 
  46.     D_VIEW     : constant Hashed_String := Systems(14); 
  47.     D_MEM      : constant Hashed_String := Systems(15); 
  48.  
  49. end Engine_Debugging;