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 Entities.Triggers.Keen is 
  10.  
  11.     type Keen_Trigger is new Trigger with private; 
  12.  
  13. private 
  14.  
  15.     type Keen_Trigger is new Trigger with null record; 
  16.  
  17.     procedure Construct( this : access Keen_Trigger ); 
  18.  
  19.     -- Called when the trigger's action script is executed 
  20.     function Evaluate_Function( this      : access Keen_Trigger; 
  21.                                 name      : String; 
  22.                                 arguments : Value_Array ) return Value_Ptr; 
  23.  
  24.     function Object_Input( stream : access Root_Stream_Type'Class ) return Keen_Trigger; 
  25.     for Keen_Trigger'Input use Object_Input; 
  26.  
  27.     procedure Object_Read( stream : access Root_Stream_Type'Class; obj : out Keen_Trigger ); 
  28.     for Keen_Trigger'Read use Object_Read; 
  29.  
  30.     procedure Object_Write( stream : access Root_Stream_Type'Class; obj : Keen_Trigger ); 
  31.     for Keen_Trigger'Write use Object_Write; 
  32.  
  33. end Entities.Triggers.Keen;