packet type ?

[Alfred Hilscher <Alfred.Hilscher@icn.siemens.de>]

Hi all,

I am not so familiar with the OO-extensions of Ada95 so maybe my
question is obsolete. What I'm looking for is something like a "packege
type" (similar to "task type"). What I want do is something like this:

package type stack is
  push (item : in ...);
  pop  (item : out ...)
end stack

procedure application is
  User_stack : stack;
  Supervisor_stack : stack;
  Interrupt_stack : stack;
begin
 ...
end application;


Any suggestions how to do this ?