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: T V

⟦a5f2983be⟧ TextFile

    Length: 1003 (0x3eb)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

package Motor_Etape is
    subtype Step is Integer;
    subtype Time is Integer;
    subtype Action is Integer;
    type Cell_Step;
    type P_Step is access Cell_Step;
    type Cell_Step is
        record
            The_Time : Time;
            The_Action : Action;
            The_Step : P_Step;
        end record;

    Empty_Step : constant P_Step := null;
    function Create_A_Step
                (T : in Time; A : in Action; S : in P_Step) return P_Step;
    function Step_Time (S : in P_Step) return Time;
    function Step_Action (S : in P_Step) return Action;
    function Step_Next (S : in P_Step) return P_Step;
    procedure Change_Action_Of_Step (S : in out P_Step; A : in Action);
    procedure Change_Time_Of_Step (S : in out P_Step; T : in Time);
    procedure Input_Action_In_Step
                 (S : in out P_Step; T : in Time; A : in Action);
    procedure Extract_Action_Of_Step (S : in out P_Step; T : in Time);
    procedure Destruct_Step (S : in out P_Step);
end Motor_Etape;