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 ┃

⟦ba3667a96⟧ TextFile

    Length: 970 (0x3ca)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Abstract_Tree;
with Station_Identifier;
with Table;
package Element is
    type Element_Type is (Materiel, Effet, Scene, Variable, Binaire, Discret,
                          Fugitif, Temporel, Acteur, Station, Sans_Type);
    subtype Value is Integer;

    subtype Class is String (1 .. 80);

    subtype Adress is String (1 .. 2);

    subtype Num_Acteur is Natural;

    type Object is
        record
            The_Value : Value := 0;
            The_Type : Element_Type := Sans_Type;
            The_Table : Table.Object := Table.Vide;
            The_Class : Class := (others => ' ');
            The_Adresse : Adress := (others => ' ');
            The_Num_Station : Station_Identifier.Object :=
               Station_Identifier.Default;
            The_Num_Acteur : Num_Acteur := 0;
            The_Instr_List : Abstract_Tree.P_Instruction_List;
        end record;

    function Convert_To_Class (The_String : String) return Element.Class;

end Element;