|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Dr_Essai, seg_054d21
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io;
with Set_Method;
with Bounded_String;
with Com_Defs;
procedure Dr_Essai is
Set1 : Set_Method.Set_Of_Methods.Set := Set_Method.Create_A_Set_Of_Methods;
Set2 : Set_Method.Set_Of_Methods.Set := Set_Method.Create_A_Set_Of_Methods;
M10, M11, M12, M13, M14, M15, M16 : Set_Method.T_Method.Method;
Tableau : Set_Method.Method_Array;
begin
Set_Method.T_Method.Initialize
(This_Method => M10,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "m", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "entier",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.T_Method.Initialize
(This_Method => M11,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "m11", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "entier",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.T_Method.Initialize
(This_Method => M12,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "m12", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "entier",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.T_Method.Initialize
(This_Method => M13,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "m", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "ent13",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.T_Method.Initialize
(This_Method => M14,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "m", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "ent14",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.T_Method.Initialize
(This_Method => M15,
Name => Com_Defs.V_String
(Bounded_String.Value
(S => "ml", Max_Length => Com_Defs.Frame_Length)),
Parameter => Com_Defs.V_String
(Bounded_String.Value
(S => "ent15",
Max_Length => Com_Defs.Frame_Length)),
Number => Com_Defs.V_String
(Bounded_String.Value
(S => "1", Max_Length => Com_Defs.Frame_Length)));
Set_Method.Add (This_Method => M10, In_This_Set => Set1);
Set_Method.Add (This_Method => M11, In_This_Set => Set1);
Set_Method.Add (This_Method => M12, In_This_Set => Set1);
Set_Method.Add (This_Method => M13, In_This_Set => Set1);
Set_Method.Add (This_Method => M14, In_This_Set => Set1);
Set_Method.Add (This_Method => M15, In_This_Set => Set1);
Set_Method.Print (Set1);
Set_Method.Mark_As_Lost (M10, Set1);
Set_Method.Print (Set1);
-- Set_Method.Get_All_Method
-- (This_Method_Name =>
-- Com_Defs.V_String
-- (Bounded_String.Value
-- (S => "m", Max_Length => Com_Defs.Frame_Length)),
-- From_This_Set => Set1,
-- Tab => Tableau);
-- for I in Tableau'Range loop
-- Text_Io.Put_Line ("index dr_essai =" & Integer'Image (I));
-- Text_Io.Put_Line (Bounded_String.Image (Bounded_String.Variable_String
-- (Tableau (I).Name)) &
-- " <> " & Bounded_String.Image
-- (Bounded_String.Variable_String
-- (Tableau (I).Parameter)));
--
-- end loop;
Text_Io.Put_Line ("Termine");
end Dr_Essai;
nblk1=8
nid=6
hdr6=c
[0x00] rec0=1a rec1=00 rec2=01 rec3=00a
[0x01] rec0=15 rec1=00 rec2=02 rec3=008
[0x02] rec0=15 rec1=00 rec2=03 rec3=004
[0x03] rec0=13 rec1=00 rec2=04 rec3=038
[0x04] rec0=15 rec1=00 rec2=07 rec3=070
[0x05] rec0=06 rec1=00 rec2=05 rec3=000
[0x06] rec0=17 rec1=00 rec2=07 rec3=08e
[0x07] rec0=07 rec1=00 rec2=08 rec3=001
tail 0x2175dfa2487b94e2c6639 0x42a00088462060003
Free Block Chain:
0x6: 0000 00 08 01 31 80 36 20 20 20 20 20 20 20 20 20 20 ┆ 1 6 ┆
0x8: 0000 00 00 00 d5 80 0a 53 65 74 31 29 20 74 68 65 6e ┆ Set1) then┆