DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦242a466a4⟧ Ada Source

    Length: 9216 (0x2400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Essai_Semantique, seg_035dae

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

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;

    nblk1=8
    nid=7
    hdr6=e
        [0x00] rec0=23 rec1=00 rec2=01 rec3=022
        [0x01] rec0=03 rec1=00 rec2=04 rec3=046
        [0x02] rec0=1f rec1=00 rec2=02 rec3=054
        [0x03] rec0=1f rec1=00 rec2=05 rec3=048
        [0x04] rec0=28 rec1=00 rec2=06 rec3=00e
        [0x05] rec0=1b rec1=00 rec2=03 rec3=020
        [0x06] rec0=1b rec1=00 rec2=08 rec3=000
        [0x07] rec0=68 rec1=4d rec2=65 rec3=3e4
    tail 0x21732b28c84dd4f601034 0x42a00088462060003
Free Block Chain:
  0x7: 0000  00 00 02 f0 80 26 74 5f 43 6f 6e 74 65 6e 74 73  ┆     &t_Contents┆