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 ┃

⟦989216cbb⟧ TextFile

    Length: 1079 (0x437)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Object, Message, Argument, Bloc;
package Bloc_Classe is  
    type Bloc_Object is private;
    Empty_Bloc : constant Bloc_Object;
    function Create (Value : Bloc.Node) return Object.Reference;
    function Search (A_Bloc : Object.Reference) return Bloc.Node;
    procedure Remove (A_Bloc : Object.Reference);

    function Send (To_Object : Object.Reference;
                   The_Messages : Message.List;
                   With_Arguments : Argument.List) return Object.Reference;

    function Send (To_Object : Object.Reference;
                   The_Message : Message.Tiny_String) return Object.Reference;
    Message_Valeur : constant String := "valeur";
    Message_Valeurs : constant String := "valeur:";
private
    type Bloc_Object is
        record
            The_Bloc : Bloc.Node;
            The_Object : Object.Reference;
        end record;
    Empty_Bloc : constant Bloc_Object :=
       (Bloc.Empty_Node, Object.Void_Reference);
    subtype Id_Bloc_Table is Integer range 1 .. 100;
    Bloc_Table : array (Id_Bloc_Table) of Bloc_Object;
end Bloc_Classe;