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 - download

⟦5916de1b8⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body The_Order, seg_0482e7, seg_048325, seg_0483f9, seg_048644

Derivation

└─⟦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, Complement_Identifier_Array;
package body The_Order is

    Current_Order : Order.Object := Order.Null_Object;

    procedure Put (An_Order : in Order.Object) is

    begin
        Current_Order := An_Order;
    end Put;

    procedure Put_Redirection (Redirection : in Order.Index_Array) is

    begin
        Order.Put_Redirection (Current_Order, Redirection);
    end Put_Redirection;

    procedure Free is

    begin
        Order.Free (Current_Order);
    end Free;

    procedure Show is

    begin
        Text_Io.Put ("The Order : ");
        Order.Show (Current_Order);
    end Show;

    function Image return String is

    begin
        return Order.Image (Current_Order);
    end Image;

    function Complement (Position : in Order.Index) return Natural is

    begin
        return Complement_Identifier_Array.Index
                  (Order.Redirected_Complement (Current_Order, Position));
    end Complement;

end The_Order;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=2b rec1=00 rec2=01 rec3=016
        [0x01] rec0=03 rec1=00 rec2=02 rec3=001
    tail 0x2174c49148658887b07b7 0x42a00088462060003