--
-- Copyright (C) 1996 Ada Resource Association (ARA), Columbus, Ohio.
-- Author: David A. Wheeler
--
with Occupants;
use Occupants;
package Items is
type Item is new Occupant with private;
type Item_Access is access Item'Class;
function May_I_Get(Direct_Object : access Item;
Agent : access Occupant'Class) return Boolean;
private
type Item is new Occupant with null record;
end Items;
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright and authorship notice appear in all
-- copies and that both that copyright notice and this permission notice
-- appear in supporting documentation.
--
-- The ARA makes no representations about the suitability of this software
-- for any purpose. It is provided "as is" without express
-- or implied warranty.
--
You may also see the corresponding body.
You may also see the list of program units.
The following compilation units refer to ("with") Package spec Items:
The following compilation units are referred to ("with"'ed) by Package spec Items: You may return to the Program Small Home Page.This hypertext format was generated by David A. Wheeler's ada2html