|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1170 (0x492)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Text_Io;
with Xlbt_Proc_Var;
procedure Test_Procedure_Variable is
package Call_Backs is new Xlbt_Proc_Var.Proc_In (Natural);
procedure One (Count : Natural);
procedure Two (Count : Natural);
procedure Three (Count : Natural);
Pv1, Pv2, Pv3 : Call_Backs.Pv;
procedure One (Count : Natural) is
begin
for I in 1 .. Count loop
Text_Io.Put_Line ("one");
end loop;
end One;
procedure Two (Count : Natural) is
begin
for I in 1 .. Count loop
Text_Io.Put_Line ("two");
end loop;
end Two;
procedure Three (Count : Natural) is
begin
for I in 1 .. Count loop
Text_Io.Put_Line ("three");
end loop;
end Three;
function Make_One_Pointers is new Call_Backs.Value (One);
function Make_Two_Pointers is new Call_Backs.Value (Two);
function Make_Three_Pointers is new Call_Backs.Value (Three);
begin
Pv1 := Make_One_Pointers;
Pv2 := Make_Two_Pointers;
Pv3 := Make_Three_Pointers;
Call_Backs.Call (Pv1, 4);
Call_Backs.Call (Pv2, 5);
Call_Backs.Call (Pv3, 6);
end Test_Procedure_Variable;
pragma Main;