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: T V

⟦321e30752⟧ TextFile

    Length: 1774 (0x6ee)
    Types: TextFile
    Names: »V«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Abstract_Tree;
package Element is
    type Object is private;  
    type Type_Element is (Materiel, Effet, Scene, Variable, Binaire, Discret,
                          Fugitif, Temporel, Acteur, Station, Sans_Type);
    type Table is new Integer;
    subtype Value is Integer;
    subtype Class is String (1 .. 80);
    procedure Set_Type (E : in out Element.Object; The_Type : Type_Element);
    procedure Set_Class (E : in out Element.Object; The_Class : Class);
    procedure Set_Value (E : in out Element.Object; The_Value : Value);
    procedure Set_Table (E : in out Element.Object; The_Table : Table);
    procedure Set_Adresse (E : in out Element.Object;
                           The_Adresse : Integer); -- sous reserve
    procedure Set_Abstract_Tree
                 (E : in out Element.Object;
                  The_Abstract_Tree : Abstract_Tree.P_Instruction_List);

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

    function Get_Type (E : Element.Object) return Type_Element;
    function Get_Class (E : Element.Object) return Class;
    function Get_Value (E : Element.Object) return Value;
    function Get_Table (E : Element.Object) return Table;
    function Get_Adresse (E : Element.Object) return Integer; -- sous reserve
    function Get_Abstract_Tree (E : Element.Object)
                               return Abstract_Tree.P_Instruction_List;
private
    type Object is
        record
            The_Value : Value := Value'Last;
            The_Type : Type_Element := Sans_Type;
            The_Table : Table := 0;
            The_Class : Class := (others => ' ');
            The_Adresse : Integer := 0; -- sous reserve
            The_Abstract_Tree : Abstract_Tree.P_Instruction;
        end record;

end Element;