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 ┃

⟦55ddc4007⟧ TextFile

    Length: 837 (0x345)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Method;
package Database is

    type Iterator is private;


    procedure Next (Iter : Iterator);

    function Value (Iter : Iterator) return Natural;

    function Is_Done (Iter : Iterator) return Boolean;


    procedure Subscribe (Client : Natural; Method : Standard.Method.Object);

    procedure Unsubscribe (Client : Natural; Method : Standard.Method.Object);

    function Subscribers (Method : Standard.Method.Object) return Iterator;

    procedure Publish (Server : Natural; Method : Standard.Method.Object);

    procedure Unpublish (Server : Natural; Method : Standard.Method.Object);

    function Publishers (Method : Standard.Method.Object) return Iterator;

    procedure Expunge (Behavior : Natural);


private

    type Iterator_Implementation;
    type Iterator is access Iterator_Implementation;

end Database;