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 Values.Casting is 
  10.  
  11.     generic 
  12.         type Enumeration is (<>); 
  13.     function Cast_Enum( ptr : Value_Ptr'Class; default : Enumeration ) return Enumeration; 
  14.  
  15.     generic 
  16.         type Id_Type is new Unsigned_64; 
  17.     function Cast_Id( ptr : Value_Ptr'Class; default : Id_Type := 0 ) return Id_Type; 
  18.  
  19.     function Cast_Int( ptr : Value_Ptr'Class; default : Integer := 0 ) return Integer; 
  20.  
  21.     function Cast_String( ptr : Value_Ptr'Class; default : String := "" ) return String; 
  22.  
  23. end Values.Casting;