DataMuseum.dk

top - download

    Length: 4151 (0x1037)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;