home *** CD-ROM | disk | FTP | other *** search
/ Hacker / Hacker.iso / HACKER / DECOMP / DECAF / cpfloats.ads < prev    next >
Encoding:
Text File  |  1996-09-19  |  1.7 KB  |  59 lines
  1. --
  2. -- Copyright (C) 1996 Ada Resource Association (ARA), Columbus, Ohio.
  3. -- Author: Gilles Demailly
  4. --
  5. --
  6. -- Permission to use, copy, modify, and distribute this software and its
  7. -- documentation for any purpose and without fee is hereby granted,
  8. -- provided that the above copyright and authorship notice appear in all
  9. -- copies and that both that copyright notice and this permission notice
  10. -- appear in supporting documentation.
  11. -- 
  12. -- The ARA makes no representations about the suitability of this software
  13. -- for any purpose.  It is provided "as is" without express
  14. -- or implied warranty.
  15. -- 
  16.  
  17. -- This child package provides the class Floats :
  18. -- a constant pool Float information is used to represent a Float_32 constant.
  19. --
  20. -- For more information about Java Class file format check :
  21. --    The Java Virtual Machine Specification
  22. --    (Release 1.0 Beta - Draft - August 21, 1995)
  23.  
  24. with Basic_Definitions;
  25. use Basic_Definitions;
  26.  
  27. with Byte_Utilities;
  28.  
  29. package CP.Floats is
  30.  
  31.    -- the class Tag value in Java files
  32.    ------------------------------------
  33.    C_Class_Tag : constant Unsigned_8 := 4;
  34.  
  35.    type Floats is new CP_Info with private;
  36.       
  37.    type Acc_Floats is access all Floats'Class;
  38.    
  39.    -- Decode a Constant Pool information
  40.    -------------------------------------
  41.    procedure Decode (From_File : Byte_Utilities.File_Type;
  42.                      Some_Info : access Floats);
  43.  
  44.    -- Display a Constant Pool information
  45.    --------------------------------------
  46.    procedure Display (Some_Info : access Floats;
  47.                       Context   : in Acc_CP_Infos);
  48.    
  49. private
  50.  
  51.    -- adds the float value
  52.    -----------------------
  53.    type Floats is new CP_Info with
  54.       record
  55.          Float_Value : Float_32;
  56.       end record;
  57.       
  58. end CP.Floats;
  59.