DataMuseum.dk

top - download

    Length: 5821 (0x16bd)
    Types: TextFile
    Names: »B«

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

TextFile

with Semantique;
with Standard_String;
with Text_Io;
with Erreurs;


procedure Essai_Semantique is
    The_Acteur, The_Type, The_Action : Standard_String.Object;
    The_Code, The_Adresse : Integer;
begin
    Erreurs.Ouvrir ("le_fichier_erreur");

    Semantique.Ouvrir_Bloc_Materiel;

    Standard_String.Put_Contents (The_Type, "Projecteur");
    Standard_String.Put_Contents (The_Action, "allumer");
    The_Code := 1000;


    Semantique.Nouveau_Type (The_Type);
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;

    Standard_String.Put_Contents (The_Action, "eteindre");
    The_Code := 2000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;

    Standard_String.Put_Contents (The_Action, "clignoter");
    The_Code := 5000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;

    Standard_String.Put_Contents (The_Action, "tutu");
    The_Code := 6000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "tata");
    The_Code := 7000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "toto");
    The_Code := 8000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "titi");
    The_Code := 9000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "tetet");
    The_Code := 11000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Semantique.Fin_Nouveau_Type;

    Standard_String.Put_Contents (The_Type, "diapo");
    Semantique.Nouveau_Type (The_Type);
    Standard_String.Put_Contents (The_Action, "allumer");
    The_Code := 1000;

    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;

    Standard_String.Put_Contents (The_Action, "eteindre");
    The_Code := 2000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;

    Standard_String.Put_Contents (The_Action, "tutu");
    The_Code := 5500;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "olivier");
    The_Code := 8000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "titi");
    The_Code := 9000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Standard_String.Put_Contents (The_Action, "tetet");
    The_Code := 10000;
    Semantique.Nouvelle_Action (The_Action);
    Semantique.Donner_Code_Action (The_Code);
    Semantique.Fin_Nouvelle_Action;


    Semantique.Fin_Nouveau_Type;





    Semantique.Fermer_Bloc_Materiel;
    Semantique.Imprimer_Materiel;



    Semantique.Ouvrir_Bloc_Acteur;

    Standard_String.Put_Contents (The_Acteur, "projo_bleu");
    Standard_String.Put_Contents (The_Type, "Projecteur");
    The_Adresse := 1;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;


    Standard_String.Put_Contents (The_Acteur, "projo_rouge");
    Standard_String.Put_Contents (The_Type, "Projecteur");
    The_Adresse := 2;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;


    Standard_String.Put_Contents (The_Acteur, "projo_vert");
    Standard_String.Put_Contents (The_Type, "jecteur");
    The_Adresse := 3;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;


    Standard_String.Put_Contents (The_Acteur, "diapo_droit");
    Standard_String.Put_Contents (The_Type, "diapo");
    The_Adresse := 2;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;


    Standard_String.Put_Contents (The_Acteur, "projo_violet");
    Standard_String.Put_Contents (The_Type, "Projecteur");
    The_Adresse := 5;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;


    Standard_String.Put_Contents (The_Acteur, "diapo_gauche");
    Standard_String.Put_Contents (The_Type, "diapo");
    The_Adresse := 6;
    Semantique.Nouvel_Acteur (The_Acteur);
    Semantique.Donner_Type_Acteur (The_Type);
    Semantique.Donner_Adresse_Station (The_Adresse);
    Semantique.Fin_Nouvel_Acteur;

    Semantique.Fermer_Bloc_Acteur;
    Semantique.Imprimer_Acteur;

    Standard_String.Put_Contents (The_Acteur, "toto");
    Standard_String.Put_Contents (The_Action, "allumer");
    Text_Io.Put_Line (Boolean'Image
                         (Semantique.Action_Possible (The_Action, The_Acteur)));

    Erreurs.Fermer;
end Essai_Semantique;