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 - metrics - download
Index: B T

⟦4cb56c7d3⟧ TextFile

    Length: 1703 (0x6a7)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

separate (Motor)
function Fabriquer_La_Trame (A_Partir : Evenement) return String is
    Numero_Station : Standard_String.Object;
    Numero_Acteur : Standard_String.Object;
    Valeur : Standard_String.Object;
    Transition : Standard_String.Object;

    Trame_Numero_Station, Trame_Numero_Acteur : Numero_Ascii;
    Trame_Valeur, Trame_Transition : Commande_Ascii;

    La_Petite_Trame_A_Envoyer : String (1 .. 10);
    La_Grande_Trame_A_Envoyer : String (1 .. 14);

    Debut : constant String := "D";
    Fin : constant String := "F";

begin
    Standard_String.Put_Contents
       (Numero_Station, String_Utilities.Number_To_String
                           (A_Partir.Numero_Station));
    Normaliser (Numero_Station, Trame_Numero_Station);
    Standard_String.Put_Contents
       (Numero_Acteur, String_Utilities.Number_To_String
                          (A_Partir.Numero_Acteur));
    Normaliser (Numero_Acteur, Trame_Numero_Acteur);
    Standard_String.Put_Contents
       (Valeur, String_Utilities.Number_To_String (A_Partir.Valeur));
    Normaliser (Valeur, Trame_Valeur);
    Standard_String.Put_Contents
       (Transition, String_Utilities.Number_To_String (A_Partir.Transition));
    Normaliser (Transition, Trame_Transition);

    if A_Partir.Transition /= 0 then
        La_Grande_Trame_A_Envoyer :=
           Debut & Trame_Numero_Station & Trame_Numero_Acteur &
              Trame_Valeur & Trame_Transition & Fin;
        return La_Grande_Trame_A_Envoyer;
    else
        La_Petite_Trame_A_Envoyer :=
           Debut & Trame_Numero_Station &
              Trame_Numero_Acteur & Trame_Valeur & Fin;  
        return La_Petite_Trame_A_Envoyer;
    end if;
end Fabriquer_La_Trame;