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

⟦b357179ff⟧ TextFile

    Length: 481 (0x1e1)
    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

generic
    type Slot_Type is private;
    with function "<" (Left, Right : Slot_Type) return Boolean is <>;
package Generic_Slots is
    function  Value (S : Slot_Type)        return Object;  
    function  Get   (Tyhe_O : Object)      return Slot_Type;
    procedure Set   (The_Object : in out [expression]; To : Standard.Integer);
    function  "<"   (Left, Right : Object) return Boolean;
    function  "+"   (Left, Right : Object) return Standard.Boolean;

end Generic_Slots;