home *** CD-ROM | disk | FTP | other *** search
/ Hacker / Hacker.iso / HACKER / DECOMP / DECAF / fielvari.ads < prev    next >
Encoding:
Text File  |  1996-09-19  |  2.7 KB  |  79 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 Variable_Info :
  18. --  this subclass of Field_Info just overwrittes few methods for
  19. --  Variables and Constants.
  20. --
  21. -- For more information about Java Class file format check :
  22. --    The Java Virtual Machine Specification
  23. --    (Release 1.0 Beta - Draft - August 21, 1995)
  24.  
  25. with Basic_Definitions;
  26. use Basic_Definitions;
  27.  
  28. with Byte_Utilities;
  29.  
  30. with CP;
  31.  
  32. package Field.Variable is
  33.    
  34.    -- type and access type for Variable_Info
  35.    -----------------------------------------
  36.    type Variable_Info is new Field_Info with private;
  37.  
  38.    type Acc_Variable_Info is access all Variable_Info'class;      
  39.    
  40.    -- Read a field from a file
  41.    ---------------------------
  42.    function Read_Field 
  43.                (From_File : Byte_Utilities.File_Type;
  44.                 Context   : in CP.Acc_CP_Infos)      
  45.             return Acc_Field_Info;
  46.  
  47.    -- Display Field information for a Java spec
  48.    --------------------------------------------
  49.    procedure Display_Java_Spec (Infos     : access Variable_Info;
  50.                                 Context   : in CP.Acc_CP_Infos;
  51.                                 For_Class : in Unsigned_16;
  52.                                 For_Body  : in Boolean);
  53.  
  54.    -- Display Field information for an Ada spec
  55.    --------------------------------------------
  56.    procedure Display_Ada_Spec (Infos     : access Variable_Info;
  57.                                Context   : in CP.Acc_CP_Infos;
  58.                                For_Class : in Unsigned_16);
  59.  
  60.    -- Display Field information for a Java body
  61.    --------------------------------------------
  62.    procedure Display_Java_Body (Infos     : access Variable_Info;
  63.                                 Context   : in CP.Acc_CP_Infos;
  64.                                 For_Class : in Unsigned_16);
  65.  
  66.    -- Display Field information for an Ada body
  67.    --------------------------------------------
  68.    procedure Display_Ada_Body (Infos     : access Variable_Info;
  69.                                Context   : in CP.Acc_CP_Infos;
  70.                                For_Class : in Unsigned_16);
  71.  
  72. private
  73.  
  74.    -- no extensions
  75.    ----------------
  76.    type Variable_Info is new Field_Info with null record;
  77.  
  78. end Field.Variable;
  79.