From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,29f20adefa39a3a1
X-Google-Attributes: gid103376,public
From: Dale Stanbrough <dale@goanna.cs.rmit.EDU.AU>
Subject: Re: Reply Quickly!
Date: 1997/05/26
Message-ID: <5md3ap$it5$1@goanna.cs.rmit.edu.au>#1/1
X-Deja-AN: 244103778
Distribution: world
References: <3387E381.2389@opera.iinet.net.au>
X-XXMessage-ID: <AFB04E6BB0011B17@obibicut.cs.rmit.edu.au>
Organization: Royal Melbourne Institute of Technology
Newsgroups: comp.lang.ada
Date: 1997-05-26T00:00:00+00:00
List-Id: <comp.lang.ada>


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