|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Coded_Order_Array, seg_0499b6, seg_049a47, seg_049a6a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io, Coded_Order, The_Order, Generic_String_Sort_Array,
Pre_Order_Instructions, Post_Order_Instructions;
package body Coded_Order_Array is
Max_Element : constant Positive := 1000;
package O_Array is new Generic_String_Sort_Array
(Element => Coded_Order.Object,
Max_Element_Number => Max_Element,
Null_Element => Coded_Order.Null_Object,
Get_Key => Coded_Order.Key,
Show_Element => Coded_Order.Show);
The_Array : O_Array.Object := O_Array.Null_Object;
procedure Put (An_Order : in Order.Object;
List : in Instruction_List.Object;
Ok : out Boolean) is
A_Coded_Order : Coded_Order.Object;
begin
Coded_Order.Put (A_Coded_Order, An_Order, List);
O_Array.Put (The_Array, A_Coded_Order, Ok);
end Put;
procedure Run (An_Order : in Order.Object; Ok : out Boolean) is
A_Coded_Order : Coded_Order.Object;
Local_Ok : Boolean;
begin
O_Array.Get (The_Array, A_Coded_Order,
Order.Image (An_Order), Local_Ok);
if Local_Ok then
Pre_Order_Instructions.Run;
The_Order.Put_Redirection (Coded_Order.Redirection (A_Coded_Order));
Coded_Order.Run (A_Coded_Order);
Post_Order_Instructions.Run;
Ok := True;
else
Ok := False;
end if;
end Run;
procedure Show is
begin
Text_Io.Put_Line ("Coded Order Array :");
O_Array.Show (The_Array);
end Show;
function Belong (An_Order : in Order.Object) return Boolean is
begin
return O_Array.Belong (The_Array, Order.Image (An_Order));
end Belong;
function Redirection (An_Order : in Order.Object)
return Order.Index_Array is
A_Coded_Order : Coded_Order.Object;
Local_Ok : Boolean;
begin
O_Array.Get (The_Array, A_Coded_Order,
Order.Image (An_Order), Local_Ok);
if Local_Ok then
return Coded_Order.Redirection (A_Coded_Order);
else
return Order.Null_Index_Array;
end if;
end Redirection;
function Is_At_End return Boolean is
begin
return Instruction_List.Is_At_End;
end Is_At_End;
end Coded_Order_Array;
nblk1=6
nid=4
hdr6=6
[0x00] rec0=1c rec1=00 rec2=01 rec3=00a
[0x01] rec0=21 rec1=00 rec2=03 rec3=03a
[0x02] rec0=16 rec1=00 rec2=06 rec3=000
[0x03] rec0=26 rec1=00 rec2=04 rec3=020
[0x04] rec0=04 rec1=00 rec2=03 rec3=000
[0x05] rec0=43 rec1=1f rec2=1c rec3=09f
tail 0x2174dfc2a865f7fcb741d 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 05 03 fc 80 0c 20 20 6f 6b 3a 3d 66 61 6c 73 ┆ ok:=fals┆
0x5: 0000 00 02 03 f9 80 3c 63 65 64 75 72 65 20 52 75 6e ┆ <cedure Run┆
0x2: 0000 00 00 00 28 80 0d 20 20 6f 6b 20 3a 3d 20 74 72 ┆ ( ok := tr┆