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 - download
Index: ┃ T V ┃

⟦587ec5539⟧ TextFile

    Length: 1035 (0x40b)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

package Etape is

    type Action is
        record
            La_Valeur : Integer;
            La_Transition : Integer;
        end record;

    subtype Temps is Integer;
    type Cell_Etape;  
    type P_Etape is access Cell_Etape;

    type Cell_Etape is
        record
            Le_Temps : Temps;
            L_Action : Action;
            Suivant : P_Etape;
        end record;

    Etape_Vide : constant P_Etape := null;

-- fonctions et procedures publiques utilisees par timer_chrono, role et scene.

    function Creer_Etape (Temps_E : in Temps;
                          Action_E : in Action;
                          E_Suivante : in P_Etape) return P_Etape;
    procedure Ajouter_Etape (E_Modifiee : in out P_Etape;
                             Temps_E : in Temps;
                             Action_E : in Action);
    procedure Affiche_Etape (E_Affichee : in P_Etape);
    function Temps_Etape (E_Consultee : in P_Etape) return Temps;
    function Etape_Est_Vide (E_Consultee : in P_Etape) return Boolean;

end Etape;