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_boolean_p.adb
15
16
17package body IO_Boolean_P is
18
19 package Bool_IO is new Enumeration_IO(Boolean);
20 use Bool_IO;
21
22 function Get_Boolean(Prompt : in String) return Boolean is
23
24 V : Boolean;
25
26 begin
27
28 New_Line;
29 Put(Prompt);
30 Get(V);
31 New_Line;
32
33 return V;
34
35 end Get_Boolean;
36
37 procedure Get_Boolean(Prompt : in String;
38 V : out Boolean) is
39 begin
40
41 New_Line;
42 Put(Prompt);
43 Get(V);
44 New_Line;
45
46 end Get_Boolean;
47
48 procedure Put_Boolean(Header : in String;
49 V : in Boolean) is
50
51 begin
52
53 New_Line;
54 Put_Line(Header);
55 Put(V);
56 New_Line;
57
58 end Put_Boolean;
59
60end IO_Boolean_P;