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 ┃

⟦9708c40d5⟧ TextFile

    Length: 3100 (0xc1c)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Standard_String;  
with Lexical;  
use Lexical;

package Semantique is

    procedure Ouvrir_Bloc_Materiel;
    procedure Fermer_Bloc_Materiel;
    procedure Nouveau_Type (Un_Type : Standard_String.Object);
    procedure Fin_Nouveau_Type;
    procedure Nouvelle_Action (Une_Action : Standard_String.Object);
    procedure Donner_Code_Action (Un_Code : Integer);
    procedure Fin_Nouvelle_Action;
    procedure Ouvrir_Champ_Option;
    procedure Option (Une_Option : Lexical.Token);
    procedure Fermer_Champ_Option;  
    procedure Imprimer_Materiel;

    procedure Ouvrir_Bloc_Acteur;
    procedure Fermer_Bloc_Acteur;
    procedure Nouvel_Acteur (Un_Acteur : Standard_String.Object);
    procedure Fin_Nouvel_Acteur;
    procedure Donner_Type_Acteur (Un_Type : Standard_String.Object);
    procedure Donner_Adresse_Station (Une_Adresse : Integer);
    procedure Imprimer_Acteur;

    function Action_Possible
                (Une_Action : Standard_String.Object;
                 Un_Acteur : Standard_String.Object;
                 De, Vers, En : Lexical.Token := L_Unk) return Boolean;

    procedure Ouvrir_Nouveau_Bloc_Scenario;
    procedure Fermer_Bloc_Scenario;
    procedure Ouvrir_Nouveau_Bloc_Scene (Une_Scene : Standard_String.Object);
    procedure Fermer_Bloc_Scene;
    procedure Ouvrir_Bloc_Enchainement;
    procedure Fermer_Bloc_Enchainement;
    procedure Ouvrir_Bloc (Nature : Lexical.Token);
    procedure Fermer_Bloc (Nature : Lexical.Token);
    procedure Lire_Liste_Temps;
    procedure Lire_Nombre (Un_Nombre : Integer);
    procedure Lire_Nombre (Un_Id : Standard_String.Object);
    procedure Complete_Liste (Un_Nom : Standard_String.Object);
    procedure Controle_Option (Une_Option : Lexical.Token);
    procedure Complete_Action (Une_Action : Standard_String.Object);
    procedure Insere_Action;
    procedure Nouveau_Bloc_Groupe_Temps (Un_Jeton : Lexical.Token);
    procedure Ajouter_Bloc_Groupe_Temps (Un_Nom : Standard_String.Object);
    procedure Ajouter_Bloc_Groupe_Temps (Un_Nombre : Integer);
    procedure Fermer_Bloc_Groupe_Temps;
    procedure Genere_Scene (Une_Scene : Standard_String.Object);

    procedure Demarre_Calcul;  
    procedure Empiler (Un_Jeton : Lexical.Token; Une_Valeur : Integer := 0);
    procedure Empiler (Un_Id : Standard_String.Object);
    procedure Evaluer_Expression;

    procedure Nouveau_Bloc_Groupe;
    procedure Complete_Action;
    procedure Complete_Liste_Action (Une_Action : Lexical.Token);
    procedure Ajoute_Action (Une_Action : Standard_String.Object);
    procedure Nouveau_Bloc_Groupe (Une_Action : Lexical.Token;
                                   Un_Nom : Standard_String.Object);
    procedure Nouveau_Bloc_Groupe (Une_Action : Lexical.Token);
    procedure Fermer_Bloc_Groupe;
    procedure Ajouter_Bloc_Groupe (Un_Groupe : Standard_String.Object);
    procedure Ajouter_Bloc_Groupe (Une_Valeur : Integer);
    procedure Nouveau_Bloc_Groupe_Affecte (Un_Groupe : Standard_String.Object);
    procedure Fermer_Bloc_Groupe_Affecte;
    procedure Retourner_Valeur;

    procedure La_Fin;

end Semantique;