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: ┃ B T ┃

⟦d54a9721b⟧ TextFile

    Length: 3976 (0xf88)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Token;
with Text_Io;
with Set_Generic;
use Token;
package body Follow is
    --package Token_Set is new Set_Generic (Token.Object);

    procedure Init_Set is
    begin  
        Token_Set.Add (Dans_Suite_Follow, L_Fin);
        Token_Set.Copy (Affectation_Follow, Dans_Suite_Follow);
        Token_Set.Add (Affectation_Follow, L_Puis);
        Token_Set.Add (Affectation_Follow, L_Dans);
        Token_Set.Add (Affectation_Follow, L_Tantque);
        Token_Set.Add (Affectation_Follow, L_Attendre);
        Token_Set.Add (Affectation_Follow, L_Pour);
        Token_Set.Add (Affectation_Follow, L_Repeter);
        Token_Set.Add (Affectation_Follow, L_Debut);
        Token_Set.Add (Affectation_Follow, L_Activer);
        Token_Set.Add (Affectation_Follow, L_Desact);
        Token_Set.Add (Affectation_Follow, L_Changer);
        Token_Set.Add (Affectation_Follow, L_Evoluer);
        Token_Set.Add (Affectation_Follow, L_Id);
        Token_Set.Add (Affectation_Follow, L_Lancer_Scene);
        Token_Set.Add (Affectation_Follow, L_Appel_Effet);
        Token_Set.Copy (Evoluer_Follow, Affectation_Follow);
        Token_Set.Copy (Changer_Follow, Affectation_Follow);
        Token_Set.Copy (Desactiver_Follow, Affectation_Follow);
        Token_Set.Copy (Activer_Follow, Affectation_Follow);
        Token_Set.Copy (Debut_Follow, Affectation_Follow);
        Token_Set.Copy (Repeter_Follow, Affectation_Follow);
        Token_Set.Add (Relation_Follow, L_Ouvrante);
        Token_Set.Add (Relation_Follow, L_Crochet_Ouvrant);
        Token_Set.Add (Relation_Follow, L_Id);
        Token_Set.Add (Relation_Follow, L_Nbr);
        Token_Set.Copy (Expr_Follow, Affectation_Follow);
        Token_Set.Add (Expr_Follow, L_Faire);
        Token_Set.Add (Expr_Follow, L_Inf);
        Token_Set.Add (Expr_Follow, L_Sup);
        Token_Set.Add (Expr_Follow, L_Egal);
        Token_Set.Add (Expr_Follow, L_Pas_Egal);
        Token_Set.Add (Expr_Follow, L_Inf_Ou_Egal);
        Token_Set.Add (Expr_Follow, L_Sup_Ou_Egal);
        Token_Set.Add (Expr_Follow, L_Fermante);
        Token_Set.Add (Expr_Follow, L_Crochet_Fermant);
        Token_Set.Add (Expr_Follow, L_Virgule);
        Token_Set.Copy (Term_Follow, Expr_Follow);
        Token_Set.Add (Term_Follow, L_Plus);
        Token_Set.Add (Term_Follow, L_Moins);
        Token_Set.Copy (Facteur_Follow, Term_Follow);
        Token_Set.Add (Facteur_Follow, L_Mult);
        Token_Set.Add (Facteur_Follow, L_Div);
        Token_Set.Add (Condition_Follow, L_Faire);
        Token_Set.Copy (Tant_Que_Follow, Affectation_Follow);
        Token_Set.Copy (Pour_Follow, Affectation_Follow);
        Token_Set.Copy (Tant_Que_Follow, Affectation_Follow);
        Token_Set.Copy (Attendre_Follow, Affectation_Follow);
        Token_Set.Copy (Variable_Follow, Facteur_Follow);
        Token_Set.Add (Variable_Follow, L_Fois);
        Token_Set.Copy (Dans_Follow, Affectation_Follow);
        Token_Set.Add (Autre_Parametre_Reel_Follow, L_Fermante);
        Token_Set.Copy (Parametre_Follow, Affectation_Follow);
        Token_Set.Copy (Appel_Effet_Follow, Affectation_Follow);
        Token_Set.Copy (Appel_Scene_Follow, Affectation_Follow);
        Token_Set.Add (Les_Ordres_Follow, L_Fin);
        Token_Set.Add (Les_Ordres_Follow, L_Puis);
        Token_Set.Add (Scenes_Follow, L_Debut);
        Token_Set.Add (Spectacle_Follow, L_Fin);
        Token_Set.Add (Autre_Parametre_Follow, L_Fermante);
        Token_Set.Add (Parametres_Follow, L_Est);
        Token_Set.Add (Les_Experiences_Follow, L_Fin);
        Token_Set.Add (Experience_Follow, L_Spectacle);
        Token_Set.Add (Stations_Follow, L_Fin);
        Token_Set.Add (Theatre_Follow, L_Exp);
        Token_Set.Add (Type_Actor_Follow, L_Virgule);
        Token_Set.Add (Acteurs_Follow, L_Fin);
        Token_Set.Add (Corps_Materiel_Follow, L_Fin);
        Token_Set.Add (Materiel_Follow, L_Theatre);
        Token_Set.Add (Start_Follow, L_Eof);
    end Init_Set;

end Follow;