Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- GENERIC INTERFACE StackArray(Elem);
- EXCEPTION StackEmpty;
- EXCEPTION StackFull;
- TYPE
- T <: REFANY;
- PROCEDURE Create(READONLY Capacity:CARDINAL := 5):T;
- PROCEDURE IsFull(VAR Stack:T):BOOLEAN;
- PROCEDURE IsEmpty(VAR Stack:T):BOOLEAN;
- PROCEDURE Push(VAR Stack:T;Data:Elem.T) RAISES{StackFull};
- PROCEDURE Pop(VAR Stack:T):Elem.T RAISES{StackEmpty};
- PROCEDURE Peek(VAR Stack:T):Elem.T RAISES{StackEmpty};
- END StackArray.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
