home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / ADA / LOVELACE / items.adb < prev    next >
Text File  |  1996-03-01  |  793b  |  27 lines
  1. --
  2. -- Copyright (C) 1996 Ada Resource Association (ARA), Columbus, Ohio.
  3. -- Author: David A. Wheeler
  4. --
  5.  
  6. package body Items is
  7.  
  8.  function May_I_Get(Direct_Object : access Item;
  9.                     Agent : access Occupant'Class) return Boolean is
  10.  begin
  11.   return True;
  12.  end May_I_Get;
  13.  
  14. end Items;
  15.  
  16. --
  17. -- Permission to use, copy, modify, and distribute this software and its
  18. -- documentation for any purpose and without fee is hereby granted,
  19. -- provided that the above copyright and authorship notice appear in all
  20. -- copies and that both that copyright notice and this permission notice
  21. -- appear in supporting documentation.
  22. -- 
  23. -- The ARA makes no representations about the suitability of this software
  24. -- for any purpose.  It is provided "as is" without express
  25. -- or implied warranty.
  26. -- 
  27.