Warteschlangen auf Basis von verzeigerten Elementen III

Requests2.om

PROCEDURE RemoveRequest(VAR queue: QueueOfRequests; VAR request: Request); BEGIN ASSERT(queue.length > 0); request := queue.head.request; queue.head := queue.head.next; IF queue.head = NIL THEN queue.tail := NIL; END; DEC(queue.length); END RemoveRequest; PROCEDURE Length(queue: QueueOfRequests) : INTEGER; BEGIN RETURN queue.length END Length;