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 ┃

⟦7ed319c58⟧ TextFile

    Length: 2050 (0x802)
    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 Basic_Statement;
with Object;
with Message_Instance;
with Message_Signature;
generic
    type Member_Names   is (<>);
    type Selector_Names is (<>);  
    type Argument_Names is (<>);
package Generic_Class_Implementation is

    function  Member     (Which : Member_Names)      return Object.Reference;
    function  Using      (Argument : Argument_Names) return Object.Reference;
    function  Argument   (Which : Argument_Names)    return Object.Reference
        renames Using;
    procedure Add_Method (On_Message : Selector_Names;
                          Execute    : Basic_Statement.Objects);

    function Message (Name : Selector_Names) return Message_Instance.Object;

    function Message (Name       : Selector_Names;  
                      Argument_1 : Object.Reference)
                     return Message_Instance.Object;

    function Message (Name       : Selector_Names;  
                      Argument_1 : Object.Reference;
                      Argument_2 : Object.Reference)
                     return Message_Instance.Object;

    function Message (Name       : Selector_Names;  
                      Argument_1 : Object.Reference;
                      Argument_2 : Object.Reference;
                      Argument_3 : Object.Reference)
                     return Message_Instance.Object;

    function Message (Name       : Selector_Names;  
                      Argument_1 : Object.Reference;
                      Argument_2 : Object.Reference;
                      Argument_3 : Object.Reference;
                      Argument_4 : Object.Reference)
                     return Message_Instance.Object;

    function Message (Name       : Selector_Names;  
                      Argument_1 : Object.Reference;
                      Argument_2 : Object.Reference;
                      Argument_3 : Object.Reference;
                      Argument_4 : Object.Reference;
                      Argument_5 : Object.Reference)
                     return Message_Instance.Object;

end Generic_Class_Implementation;