AdaPower Logged in as Guest
Ada Tools and Resources

Ada 95 Reference Manual
Ada Source Code Treasury
Bindings and Packages
Ada FAQ


Join >
Articles >
Ada FAQ >
Getting Started >
Home >
Books & Tutorials >
Source Treasury >
Packages for Reuse >
Latest Additions >
Ada Projects >
Press Releases >
Ada Audio / Video >
Home Pages >
Links >
Contact >
About >
Login >
Back
Output of enumeration types

with Ada.Text_IO.Enumeration_IO;

procedure values is
  type Days is (monday, tuesday, wednesday);
  package Days_IO is
                 new Ada.Text_IO.Enumeration_IO (Days);
begin

  Days_IO.Put(Days'First);

end values;


(c) 1998-2004 All Rights Reserved David Botton