|
![]() ![]() ![]() ![]() ![]() |
PROCEDURE PushJob(first, last: INTEGER); BEGIN ASSERT(top < stacklen); jobs[top].first := first; jobs[top].last := last; INC(top); END PushJob; PROCEDURE FetchJob(VAR first, last: INTEGER) : BOOLEAN; BEGIN IF top = 0 THEN RETURN FALSE END; DEC(top); first := jobs[top].first; last := jobs[top].last; RETURN TRUE END FetchJob; |
![]() | PushJob übernimmt einen Auftrag und
legt ihn ganz oben auf den Stapel.
|
![]() | FetchJob liefert FALSE, falls kein
Auftrag mehr vorliegt. Ansonsten wird der Auftrag
über die beiden Referenz-Parameter first und
last zurückgegeben.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 2004, 2005 Andreas Borchert, in HTML konvertiert am 18.02.2005 |