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 Impulses is 
  12.  
  13.     Move_Down_Start  : constant Hashed_String := To_Hashed_String( "Move_Down_Start" ); 
  14.     Move_Left_Start  : constant Hashed_String := To_Hashed_String( "Move_Left_Start" ); 
  15.     Move_Right_Start : constant Hashed_String := To_Hashed_String( "Move_Right_Start" ); 
  16.     Move_Up_Start    : constant Hashed_String := To_Hashed_String( "Move_Up_Start" ); 
  17.  
  18.     Move_Down_Stop   : constant Hashed_String := To_Hashed_String( "Move_Down_Stop" ); 
  19.     Move_Left_Stop   : constant Hashed_String := To_Hashed_String( "Move_Left_Stop" ); 
  20.     Move_Right_Stop  : constant Hashed_String := To_Hashed_String( "Move_Right_Stop" ); 
  21.     Move_Up_Stop     : constant Hashed_String := To_Hashed_String( "Move_Up_Stop" ); 
  22.  
  23.     Jump_Start       : constant Hashed_String := To_Hashed_String( "Jump_Start" ); 
  24.     Jump_Stop        : constant Hashed_String := To_Hashed_String( "Jump_Stop" ); 
  25.  
  26.     Toggle_Pogo      : constant Hashed_String := To_Hashed_String( "Toggle_Pogo" ); 
  27.  
  28.     Shoot            : constant Hashed_String := To_Hashed_String( "Shoot" ); 
  29.  
  30.     Activate         : constant Hashed_String := To_Hashed_String( "Activate" ); 
  31.  
  32. end Impulses;