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. package Actors.Keen4 is 
  10.  
  11. private 
  12.  
  13.     type Arachnut_Actor is new Actor with null record; 
  14.     type A_Arachnut_Actor is access all Arachnut_Actor'Class; 
  15.  
  16.     procedure Impulse( this : access Arachnut_Actor; name : Hashed_String ); 
  17.  
  18.     ---------------------------------------------------------------------------- 
  19.  
  20.     type Bounder_Actor is new Actor with null record; 
  21.     type A_Bounder_Actor is access all Bounder_Actor'Class; 
  22.  
  23.     procedure Impulse( this : access Bounder_Actor; name : Hashed_String ); 
  24.  
  25.     ---------------------------------------------------------------------------- 
  26.  
  27.     type Cloud_Actor is new Actor with null record; 
  28.     type A_Cloud_Actor is access all Cloud_Actor'Class; 
  29.  
  30.     procedure Impulse( this : access Cloud_Actor; name : Hashed_String ); 
  31.  
  32.     ---------------------------------------------------------------------------- 
  33.  
  34.     type Inchworm_Actor is new Actor with null record; 
  35.     type A_Inchworm_Actor is access all Inchworm_Actor'Class; 
  36.  
  37.     procedure Impulse( this : access Inchworm_Actor; name : Hashed_String ); 
  38.  
  39.     ---------------------------------------------------------------------------- 
  40.  
  41.     type Lick_Actor is new Actor with null record; 
  42.     type A_Lick_Actor is access all Lick_Actor'Class; 
  43.  
  44.     procedure Impulse( this : access Lick_Actor; name : Hashed_String ); 
  45.  
  46.     ---------------------------------------------------------------------------- 
  47.  
  48.     type Mimrock_Actor is new Actor with null record; 
  49.     type A_Mimrock_Actor is access all Mimrock_Actor'Class; 
  50.  
  51.     procedure Impulse( this : access Mimrock_Actor; name : Hashed_String ); 
  52.  
  53.     ---------------------------------------------------------------------------- 
  54.  
  55.     type Mushroom_Actor is new Actor with null record; 
  56.     type A_Mushroom_Actor is access all Mushroom_Actor'Class; 
  57.  
  58.     procedure Impulse( this : access Mushroom_Actor; name : Hashed_String ); 
  59.  
  60.     ---------------------------------------------------------------------------- 
  61.  
  62.     type Slug_Actor is new Actor with null record; 
  63.     type A_Slug_Actor is access all Slug_Actor'Class; 
  64.  
  65.     procedure Impulse( this : access Slug_Actor; name : Hashed_String ); 
  66.  
  67.     ---------------------------------------------------------------------------- 
  68.  
  69.     type Snake_Actor is new Actor with null record; 
  70.     type A_Snake_Actor is access all Snake_Actor'Class; 
  71.  
  72.     procedure Impulse( this : access Snake_Actor; name : Hashed_String ); 
  73.  
  74. end Actors.Keen4;