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

⟦dc2762be3⟧ Ada Source

    Length: 9216 (0x2400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Status, seg_027832

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

package body Status is
    Frame_Status_Length : constant Integer := 1;
    Frame_Status_Position : constant Integer := 2;
    Object_Length : constant Integer := 40;
    Object_Position : constant Integer := 4;
    Object_Status_Length : constant Integer := 1;
    Object_Status_Position : constant Integer := 46;
    Editor_Length : constant Integer := 15;
    Editor_Position : constant Integer := 48;
    Editor_Status_Length : constant Integer := 1;
    Editor_Status_Position : constant Integer := 78;

    Status : String (1 .. 80) := (others => ' ');

    Frame_Status_Name : String (1 .. Frame_Status_Length) := (others => ' ');
    Object_Name : String (1 .. Object_Length) := (others => ' ');
    Object_Status_Name : String (1 .. Object_Status_Length) := (others => ' ');
    Editor_Name : String (1 .. Editor_Length) := (others => ' ');
    Editor_Status_Name : String (1 .. Editor_Status_Length) := (others => ' ');

    procedure Normalize (The_String : String; To : in out String) is
    begin
        if The_String'Length >= To'Length then
            To := The_String (The_String'First ..
                                 The_String'First + To'Length - 1);
        else
            To :=
               The_String &
                  (The_String'Last + 1 ..
                      To'Length - The_String'Length + The_String'Last => ' ');
        end if;
    end Normalize;
    function Min (I : Integer; J : Integer) return Integer is
    begin  
        if I < J then
            return I;
        else
            return J;
        end if;
    end Min;
    procedure Set_Editor (The_Editor : String) is
    begin
        Normalize (The_Editor, Editor_Name);  
        Normalize (The_Editor,
                   Status (Editor_Position .. Editor_Position + Editor_Length));
    end Set_Editor;

    procedure Set_Object (The_Object : String) is
    begin  
        Normalize (The_Object, Object_Name);  
        Normalize (The_Object,
                   Status (Object_Position .. Object_Position + Object_Length));
    end Set_Object;

    procedure Set_Object_Status (Object_Status : String) is
    begin  
        Normalize (Object_Status, Object_Status_Name);  
        Normalize (Object_Status,
                   Status (Object_Status_Position ..
                              Object_Status_Position + Object_Status_Length));
    end Set_Object_Status;

    procedure Set_Frame_Status (Frame_Status : String) is
    begin  
        Normalize (Frame_Status, Frame_Status_Name);  
        Normalize (Frame_Status,
                   Status (Frame_Status_Position ..
                              Frame_Status_Position + Frame_Status_Length));
    end Set_Frame_Status;

    procedure Set_Editor_Status (Editor_Status : String) is
    begin  
        Normalize (Editor_Status, Editor_Status_Name);  
        Normalize (Editor_Status,
                   Status (Editor_Status_Position ..
                              Editor_Status_Position + Editor_Status_Length));
    end Set_Editor_Status;

    procedure Set_Status (The_Editor : String;
                          The_Object : String;
                          Object_Status : String;
                          Frame_Status : String;
                          Editor_Status : String) is
    begin
        Set_Editor (The_Editor);
        Set_Object (The_Object);
        Set_Object_Status (Object_Status);
        Set_Frame_Status (Frame_Status);
        Set_Editor_Status (Editor_Status);
    end Set_Status;


    function Get_Editor return String is
    begin
        return Editor_Name;
    end Get_Editor;

    function Get_Object return String is
    begin
        return Object_Name;
    end Get_Object;

    function Get_Object_Status return String is
    begin
        return Object_Status_Name;
    end Get_Object_Status;

    function Get_Frame_Status return String is
    begin
        return Frame_Status_Name;
    end Get_Frame_Status;

    function Get_Editor_Status return String is
    begin
        return Editor_Status_Name;
    end Get_Editor_Status;

    function Get_Status return String is
    begin
        return Status;
    end Get_Status;

end Status;

    nblk1=8
    nid=8
    hdr6=c
        [0x00] rec0=16 rec1=00 rec2=01 rec3=056
        [0x01] rec0=1e rec1=00 rec2=02 rec3=014
        [0x02] rec0=18 rec1=00 rec2=04 rec3=05c
        [0x03] rec0=05 rec1=00 rec2=03 rec3=03a
        [0x04] rec0=24 rec1=00 rec2=07 rec3=024
        [0x05] rec0=08 rec1=00 rec2=06 rec3=000
        [0x06] rec0=08 rec1=00 rec2=06 rec3=000
        [0x07] rec0=08 rec1=00 rec2=06 rec3=001
    tail 0x21520b1ea83ac5da47124 0x42a00088462060003
Free Block Chain:
  0x8: 0000  00 05 03 fc 80 4a 20 20 20 20 20 20 20 20 20 20  ┆     J          ┆
  0x5: 0000  00 00 03 fc 80 08 74 65 67 65 72 20 69 73 08 00  ┆      teger is  ┆