home *** CD-ROM | disk | FTP | other *** search
/ Hacker / Hacker.iso / HACKER / DECOMP / DECAF / flags.ads < prev    next >
Encoding:
Text File  |  1996-09-19  |  2.3 KB  |  65 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. --
  18. -- Package Flags provides basic services for the Flags encountered
  19. -- in Java Class files
  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.  
  26. with Basic_Definitions;
  27. use Basic_Definitions;
  28.  
  29.  
  30. package Flags is
  31.  
  32.    -- flags may be used with three different categories of Objects
  33.    ---------------------------------------------------------------
  34.    type Flag_Category is (Class_Flag, Method_Flag, Variable_Flag);
  35.  
  36.    --
  37.    -- flag access functions
  38.    --
  39.    
  40.    function Is_Public       (Flag : Unsigned_16) return Boolean;
  41.    function Is_Private      (Flag : Unsigned_16) return Boolean;
  42.    function Is_Protected    (Flag : Unsigned_16) return Boolean;
  43.    function Is_Static       (Flag : Unsigned_16) return Boolean;
  44.    function Is_Final        (Flag : Unsigned_16) return Boolean;
  45.    function Is_Synchronized (Flag : Unsigned_16) return Boolean;
  46.    function Is_Volatile     (Flag : Unsigned_16) return Boolean;
  47.    function Is_Transient    (Flag : Unsigned_16) return Boolean;
  48.    function Is_Native       (Flag : Unsigned_16) return Boolean;
  49.    function Is_Interface    (Flag : Unsigned_16) return Boolean;
  50.    function Is_Abstract     (Flag : Unsigned_16) return Boolean;
  51.  
  52.    -- This function is used for file checking.
  53.    -- it returns True if the Flag corresponds to the
  54.    -- flag category.
  55.    -------------------------------------------------
  56.    function Is_Correct (Flag     : Unsigned_16;
  57.                         Category : Flag_Category) return Boolean;
  58.    
  59.    -- Display the flags
  60.    --------------------
  61.    procedure Display (Flag     : Unsigned_16;
  62.                       Category : Flag_Category);
  63.  
  64. end Flags;
  65.