Sequnce Class Body
MC logo
 

Sequnce Class Body

Ada Code Examples


<<Sequnce Abstract Class Download Computational Sequence Class>>
with Gnat.Io; use Gnat.Io;

package body SeqPack is
   procedure Put(S: Sequence'class) is
   begin
      Put(Value(S));
   end Put;
end SeqPack;
<<Sequnce Abstract Class Computational Sequence Class>>