DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦4a03954d4⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Coded_Order_Array, seg_0482e3

Derivation

└─⟦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;
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
            The_Order.Put_Redirection (Coded_Order.Redirection (A_Coded_Order));
            Coded_Order.Run (A_Coded_Order);
            Ok := True;
        else
            Ok := False;
        end if;
    end Run;

--procedure run(place,first_complement,second_complement,
--third_complement,fourth_complement : in moving_string.object;ok : out boolean) is

--a_coded_order : coded_order.object;
--local_ok : boolean

--begin
--  o_array.get(the_array,a_coded_order,order_to_key(an_order),local_ok);
--  if local_ok
--      coded_order.run(a_coded_order);
--      ok := true;
--      else
--      ok:=false;
--  end if;
--end;


    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_To_Key (An_Order), Local_Ok);
                     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=4
    nid=0
    hdr6=8
        [0x00] rec0=1b rec1=00 rec2=01 rec3=07a
        [0x01] rec0=23 rec1=00 rec2=04 rec3=000
        [0x02] rec0=23 rec1=00 rec2=03 rec3=024
        [0x03] rec0=01 rec1=00 rec2=02 rec3=000
    tail 0x2174c487a8658909e7f9f 0x42a00088462060003