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

⟦a5737f1d5⟧ TextFile

    Length: 773 (0x305)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Output_Stream;
package Fact_Reference is

    type Object is private;

    Null_Object : constant Object;


    function Get_Class    (From_Object : Object) return Natural;
    function Get_Instance (From_Object : Object) return Natural;
    function Value        (C, I : Natural)       return Object;

    procedure Get          (From_Object : Object; C, I : out Natural);
    procedure Set_Class    (Of_Object : in out Object; To : Natural);
    procedure Set_Instance (Of_Object : in out Object; To : Natural);
    procedure Put          (The_Object : Object; Where : Output_Stream.Object);

private

    type Object is
        record
            Class, Instance : Natural := 0;
        end record;

    Null_Object : constant Object := (0, 0);

end Fact_Reference;