DEFINITION StandardRooms

DEFINITION StandardRooms;

   IMPORT
      ConstStrings, Events, Rooms;

   TYPE
      Room = POINTER TO RoomRec;
      RoomRec =
	 RECORD
	    (Rooms.RoomRec)
	 END;

   CONST
      objectNotPresent = 0;	(* object not present in this room *)
      objectPresent = 1;	(* object already present in this room *)
      noPermission = 2;		(* operation was not permitted *)
      notOperational = 3;       (* room has been shut down *)
      errorcodes = 4;

   TYPE
      ErrorEvent = POINTER TO ErrorEventRec;
      ErrorEventRec =
	 RECORD
	    (Events.EventRec)
	    errorcode: SHORTINT;
	 END;

   VAR
      errormsg: ARRAY errorcodes OF Events.Message;
      error: Events.EventType;

   PROCEDURE Create(VAR room: Rooms.Room; name, desc: ConstStrings.String);

END StandardRooms.