Re: Reply Quickly!

[Dale Stanbrough <dale@goanna.cs.rmit.EDU.AU>]

oliver white writes:

"SUBTYPE Yeartype IS Integer RANGE 1900..2100;
 TYPE Choice_Type IS (Register, Display, Help, Quit);
 
 PACKAGE Menu_Io IS NEW Text_Io.Enumeration_Io(Enum => Choice_Type);
 PACKAGE Boolean_Io IS NEW Text_Io.Enumeration_Io(Enum => Boolean);
 PACKAGE Int_Io IS NEW Text_Io.Integer_Io(Integer);
 PACKAGE Flo_Io IS NEW Text_Io.Float_Io(Float);"


I wonder whose textbook Oliver uses! :-)

Just a couple of notes...

 PACKAGE Int_Io IS NEW Text_Io.Integer_Io(Integer);
 PACKAGE Flo_Io IS NEW Text_Io.Float_Io(Float);"

can be replaced by 

	with Ada.Text_IO;
	with Ada.Float_Text_IO;

in the context clause.

Also I don't teach the use of enumeration IO for interaction with the
user. I would _never_ write a program like that, and would not expect
my students to either.


Dale