1--
2-- Copyright(C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10
11-- date : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- io_enumerate_p.adb
15
16
17package body IO_Enumerate_P is
18
19 package E_IO is new Enumeration_IO(First_Last);
20 use E_IO;
21
22 function Get_Enumerate(Prompt : in String) return First_Last is
23 V : First_Last;
24 begin
25
26 New_Line;
27
28 Put(Prompt);
29 Get(V);
30
31 New_Line;
32
33 return V;
34
35 end Get_Enumerate;
36
37 procedure Get_Enumerate(Prompt : in String;
38 V : out First_Last) is
39 begin
40
41 New_Line;
42
43 Put(Prompt);
44 Get(V);
45
46 New_Line;
47
48 end Get_Enumerate;
49
50 procedure Put_Enumerate(Header : in String;
51 V : in First_Last) is
52 begin
53
54 New_Line;
55
56 Put_Line(Header);
57 Put(V);
58
59 New_Line;
60
61 end Put_Enumerate;
62
63end IO_Enumerate_P;