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-- purpose : to demonstrate using block for compound statements
15-- with local/global scope.
16
17-- block_00.adb
18
19
20with Ada.Text_IO;
21use Ada.Text_IO;
22
23procedure Block_00 is
24
25 package Int_IO is new Integer_IO(Integer);
26 use Int_IO;
27
28 Choice_Item : Integer;
29
30begin
31
32 Put("--> Choice_Item : ");
33 Get(Choice_Item);
34 Skip_Line;
35
36 case Choice_Item is
37 when 1 | 2 => declare
38 H : String := "One-Two";
39 A : Integer := 8;
40 begin
41 Put_Line(H);
42 Put(A);
43 end;
44 when 3 | 4 => declare
45 package Flo_IO is new Float_IO(Float);
46 use Flo_IO;
47
48 H : String := "Three-Four";
49 A : Float := 1.25;
50 begin
51 Put_Line(H);
52 Put(A);
53 end;
54 when others => null;
55 end case;
56
57 New_Line;
58
59end Block_00;