Yurttas/PL/IL/Ada-95/ProgUnits/P/p 02.adb

 1--
 2-- Copyright (C) 1998
 3-- All Righp Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this 
 6-- software and ip documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this 
 8-- copyright notice appears in all copies. 
 9-- 
10-- 
11 
12-- date   : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- p_02.adb
16
17
18with Text_IO; use Text_IO;
19
20with P_00_P; use P_00_P;
21with P_02_P; use P_02_P;
22
23procedure P_02 is
24
25  package I_IO is new Integer_IO(Integer); use I_IO;
26
27  procedure Q_0 is new P_0(Compare => ">=");
28  procedure QP_02 is new P_2(Q_0);
29
30  procedure Q_1 is new P_0(Compare => "<");
31  procedure QP_12 is new P_2(Q_1);
32
33  a : Integer;
34
35begin
36
37  QP_02(a);
38
39  Put(a);
40  New_Line;
41
42  QP_12(a);
43
44  Put(a);
45  New_Line;
46
47end P_02;