DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦dab0e668e⟧ TextFile

    Length: 2544 (0x9f0)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

package body Etapes is
    Step_Dont_Exist : Step := null;
    function Create_Step (The_Time : Time; The_Action : Action; The_Next : Step)
                         return Step is

    begin
        return new Stepcell'(The_Time, The_Action, The_Next);
    end Create_Step;


    function The_Time_Of_The_Step (The_Step : Step) return Time is
    begin
        return The_Step.The_Time;
    end The_Time_Of_The_Step;


    function The_Action_Of_The_Step (The_Step : Step) return Action is
    begin
        return The_Step.The_Action;
    end The_Action_Of_The_Step;


    function The_Next_Step (The_Step : Step) return Step is
    begin
        return The_Step.The_Next;
    end The_Next_Step;


    procedure Change_The_Time_Of_The_Step
                 (The_Step : in out Step; The_Time : Time) is
    begin
        The_Step.The_Time := The_Time;
    end Change_The_Time_Of_The_Step;


    procedure Change_The_Action_Of_The_Step
                 (The_Step : in out Step; The_Action : Action) is
    begin
        The_Step.The_Action := The_Action;
    end Change_The_Action_Of_The_Step;


    procedure Put_An_Action_In_The_Step (The_Step : in out Step;
                                         The_Time : Time;
                                         The_Action : Action) is
    begin
        if The_Step = Step_Dont_Exist then
            The_Step := Create_Step (The_Time, The_Action, Step_Dont_Exist);
        elsif The_Time_Of_The_Step (The_Step) = The_Time then
            Change_The_Action_Of_The_Step (The_Step, The_Action);
        elsif The_Time_Of_The_Step (The_Step) < The_Time then
            Put_An_Action_In_The_Step (The_Step.The_Next, The_Time, The_Action);
        else
            The_Step := Create_Step (The_Time, The_Action, The_Step);
        end if;
    end Put_An_Action_In_The_Step;


    procedure Remove_A_Step (The_Step : in out Step; The_Time : Time) is
        Old_Step : Step;
    begin
        if The_Step /= Step_Dont_Exist then

            if The_Time_Of_The_Step (The_Step) = The_Time then
                begin
                    Old_Step := The_Step;
                    The_Step := The_Next_Step (The_Step);
                    Delete_A_Step (Old_Step);
                end;
            elsif The_Time_Of_The_Step (The_Step.The_Next) < The_Time then

                Remove_A_Step (The_Step.The_Next, The_Time);
            end if;
        end if;
    end Remove_A_Step;


    procedure Delete_A_Step (The_Step : in out Step) is
    begin
        [statement]

    end Delete_A_Step;
end Etapes;